gemini: fix bug
1 files changed, 1 insertions(+), 1 deletions(-) M gemini.lisp
M gemini.lisp => gemini.lisp +1 -1
@@ 150,7 150,7 @@ ((:pre (streamp stream) (open-stream-p stream) (input-stream-p stream)) (:post (typep % `(vector ,type *))) (:post (typep % '(vector (unsigned-byte 8) *))) (:documentation "Read all elements present on the given STREAM and return a vector of them.")) ;; Have to use READ-BYTE instead of the more efficient READ-SEQUENCE because READ-SEQUENCE is ;; actually useless since it doesn't do partial reads and will hang forever until the full size of