cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [gemini] ensured tail call when downloading a non-text file.

This commit is contained in:
cage 2021-04-10 19:15:06 +02:00
parent dd79fbb00c
commit 540dea6825
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gemini-viewer.lisp
View File

@ -242,8 +242,7 @@
(thread thread) (thread thread)
(stream-status stream-status) (stream-status stream-status)
(download-iri download-iri)) object (download-iri download-iri)) object
(setf thread (setf thread (bt:make-thread function))
(bt:make-thread function))
(setf start-time (db-utils:local-time-obj-now)) (setf start-time (db-utils:local-time-obj-now))
(setf download-iri (gemini-parser:make-gemini-iri host (setf download-iri (gemini-parser:make-gemini-iri host
path path
@ -430,6 +429,7 @@
(setf support-file (fs:temporary-file :extension extension))) (setf support-file (fs:temporary-file :extension extension)))
(with-open-support-file (file-stream support-file) (with-open-support-file (file-stream support-file)
(labels ((%fill-buffer () (labels ((%fill-buffer ()
(declare (optimize (debug 0) (speed 3)))
(when (downloading-allowed-p wrapper-object) (when (downloading-allowed-p wrapper-object)
(multiple-value-bind (buffer read-so-far) (multiple-value-bind (buffer read-so-far)
(read-array download-stream +read-buffer-size+) (read-array download-stream +read-buffer-size+)