~nytpu/lasso

75e569bfd0d45180c6b342b41a55e4d9738c4588 — nytpu 14 days ago cddf611
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