cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed declaration.

Browse Source
This commit is contained in:
cage 2022-11-26 12:34:48 +01:00
parent 1bfdf45ec9
commit c83f21a76f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gemini-viewer.lisp
View File

@ -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