From 540dea6825f2289b87c2c78b92db7e70495c43d1 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 10 Apr 2021 19:15:06 +0200 Subject: [PATCH] - [gemini] ensured tail call when downloading a non-text file. --- src/gemini-viewer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp index 5f501f1..d83fb26 100644 --- a/src/gemini-viewer.lisp +++ b/src/gemini-viewer.lisp @@ -242,8 +242,7 @@ (thread thread) (stream-status stream-status) (download-iri download-iri)) object - (setf thread - (bt:make-thread function)) + (setf thread (bt:make-thread function)) (setf start-time (db-utils:local-time-obj-now)) (setf download-iri (gemini-parser:make-gemini-iri host path @@ -430,6 +429,7 @@ (setf support-file (fs:temporary-file :extension extension))) (with-open-support-file (file-stream support-file) (labels ((%fill-buffer () + (declare (optimize (debug 0) (speed 3))) (when (downloading-allowed-p wrapper-object) (multiple-value-bind (buffer read-so-far) (read-array download-stream +read-buffer-size+)