fix

lem-project · Oct 1, 2024 · 8067007 · 8067007
1 parent 4523298
commit 8067007
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/async-process.lisp b/src/async-process.lisp
@@ -99,7 +99,10 @@
                        :for code := (cffi:mem-aref pointer :unsigned-char i)
                        :until (zerop code)
                        :collect code)))
-      (map 'string 'code-char bytes))))
+      (babel:octets-to-string
+       (make-array (length bytes)
+                   :element-type '(unsigned-byte 8)
+                   :initial-contents bytes)))))
 
 (defun process-receive-output (process)
   (let ((cffi:*default-foreign-encoding* (process-encode process)))