quickload: allow thing to be any named thing

For example, this makes it easier to load a system when finding it
with system-apropos-list:

    USER> (system-apropos-list "classo")
    (#<QL-DIST:SYSTEM classowary ...> ...)

    USER> (quickload (first *))
    To load "classowary":
    Load 1 ASDF system:
      classowary
    ; Loading "classowary"

    (#<QL-DIST:SYSTEM classowary ...>)

Author: christophejunke

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
 ;;;