Merge pull request #208 from christophejunke/master

quickload: allow thing to be any named thing

Author: quicklisp

quicklisp/client.lisp

@@ -34,7 +34,8 @@
         (setf systems (list systems)))
       (dolist (thing systems systems)
         (flet ((ql ()
-                 (autoload-system-and-dependencies thing :prompt prompt)))
+                 (autoload-system-and-dependencies (name thing)
+                                                   :prompt prompt)))
           (tagbody :start
              (restart-case (if verbose
                                (ql)

quicklisp/dist.lisp

@@ -382,6 +382,12 @@
 (defmethod system ((name string))
   (find-system (string-downcase name)))
 
+(defmethod name ((string string))
+  string)
+
+(defmethod name ((symbol symbol))
+  (symbol-name symbol))
+
 ;;;
 ;;; Dists
 ;;;