Treat :done on read-directly as an ok return code.

Shirakumo · Nov 30, 2016 · de9de7d · de9de7d
1 parent ed3173b
commit de9de7d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/wrapper.lisp b/wrapper.lisp
@@ -235,7 +235,8 @@
 
 (defun read-directly (file buffer-pointer buffer-size)
   (with-foreign-object (done 'size_t)
-    (with-error (err 'read-failed :file file :error err :buffer buffer-pointer :buffer-size buffer-size)
+    (with-error (err 'read-failed :file file :error err :buffer buffer-pointer :buffer-size buffer-size
+                                  :ok '(:ok :done))
       (cl-mpg123-cffi:read (handle file) buffer-pointer buffer-size done))
     (mem-ref done 'size_t)))