Commit 1f787d55 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix bug with non-https quicklisp dists

parent c192083d
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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