diff --git a/asdf-install.lisp b/asdf-install.lisp index b66a5d8b6b8e18090203e24f9d3f3b65afded4ab..9e72cbb4f5a6397cd1c855a2f681280840229c37 100644 --- a/asdf-install.lisp +++ b/asdf-install.lisp @@ -137,10 +137,10 @@ an immediate concern (defun download (package-name-or-url file-name) (let ((url - (if (string-equal package-name-or-url "http://" - :end1 7) + (if (= (mismatch package-name-or-url "http://") 7) package-name-or-url - (format nil "http://www.cliki.net/~A?download" package-name)))) + (format nil "http://www.cliki.net/~A?download" + package-name-or-url)))) (destructuring-bind (response headers stream) (block got (loop