- fixed declaration.

2022-11-26 12:34:48 +01:00 · 2022-11-26 12:34:48 +01:00 · c83f21a76f
parent 1bfdf45ec9
commit c83f21a76f
1 changed files with 4 additions and 2 deletions
--- a/src/gemini-viewer.lisp
+++ b/src/gemini-viewer.lisp
@ -511,8 +511,10 @@
                         (multiple-value-bind (buffer read-so-far)
                             (with-print-error-message
                               (read-array download-stream +read-buffer-size+))
-                           (declare ((vector (unsigned-byte 8)) buffer))
-                           (declare (fixnum read-so-far))
+                           (declare ((or null
+                                         (vector (unsigned-byte 8)))
+                                     buffer))
+                           (declare ((or null fixnum) read-so-far))
                           (increment-bytes-count wrapper-object read-so-far)
                           (if (download-completed-p buffer read-so-far)
                               (progn