diff --git a/utils.lisp b/utils.lisp index d6994c3..5b8d59f 100644 --- a/utils.lisp +++ b/utils.lisp @@ -74,7 +74,7 @@ The current implementation replaces #\. and #\space with a #\-, and upcases all #-genera (string (if (or (search "http://" source :end1 7) ;Until https://github.com/fukamachi/quri/issues/57 is fixed (search "https://" source :end1 8)) - (dex:get source :want-stream t) + (dex:get source :want-stream t :keep-alive nil) (make-string-input-stream source))) (stream source) (pathname (values (open source :external-format *default-external-format*)