From 52c8325007c745943ffe99c813fa3c89a826b10f Mon Sep 17 00:00:00 2001 From: Daniel Barlow <> Date: Mon, 9 Jun 2003 14:16:48 +0000 Subject: [PATCH] make it work for package names <7 characters long --- asdf-install.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/asdf-install.lisp b/asdf-install.lisp index b66a5d8b..9e72cbb4 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 -- GitLab