Skip to content
Snippets Groups Projects
Commit 52c83250 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

make it work for package names <7 characters long

parent 389ad52b
No related branches found
No related tags found
No related merge requests found
...@@ -137,10 +137,10 @@ an immediate concern ...@@ -137,10 +137,10 @@ an immediate concern
(defun download (package-name-or-url file-name) (defun download (package-name-or-url file-name)
(let ((url (let ((url
(if (string-equal package-name-or-url "http://" (if (= (mismatch package-name-or-url "http://") 7)
:end1 7)
package-name-or-url 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) (destructuring-bind (response headers stream)
(block got (block got
(loop (loop
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment