Loading src/ql-dist.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -87,7 +87,7 @@ will fallback to *DEFAULT-HTTP-CLIENT*.") (setf (ql-dist-force-https dist) force-https)) ;; If the scheme is not already https, set it to https if necessary. (ecase force-https (nil) ((nil)) (t (setf (puri:uri-scheme uri) :https))) ;; Compute the versions uri Loading Loading
src/ql-dist.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -87,7 +87,7 @@ will fallback to *DEFAULT-HTTP-CLIENT*.") (setf (ql-dist-force-https dist) force-https)) ;; If the scheme is not already https, set it to https if necessary. (ecase force-https (nil) ((nil)) (t (setf (puri:uri-scheme uri) :https))) ;; Compute the versions uri Loading