Fix audio-system debug information fetch

borodust · Feb 12, 2020 · 9e0f91f · 9e0f91f
1 parent 07547da
commit 9e0f91f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/audio/system.lisp b/audio/system.lisp
@@ -17,7 +17,8 @@
 
 
 (defun device-enumerable-p (device)
-  (%alc:is-extension-present device "ALC_ENUMERATE_ALL_EXT"))
+  (cffi:with-foreign-string (string "ALC_ENUMERATE_ALL_EXT")
+    (%alc:is-extension-present device string)))
 
 
 (defun device-name (device)