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