From f426f7696283979bd92c58481d64d3e6ea4b9c7d Mon Sep 17 00:00:00 2001
From: Christophe Junke <junke.christophe@gmail.com>
Date: Fri, 23 Apr 2021 17:50:28 +0200
Subject: [PATCH] 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 ...>)
---
 quicklisp/client.lisp | 3 ++-
 quicklisp/dist.lisp   | 6 ++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp
index 0f1632f..4503ff3 100644
--- a/quicklisp/client.lisp
+++ b/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)
diff --git a/quicklisp/dist.lisp b/quicklisp/dist.lisp
index 72e21a7..5f6e949 100644
--- a/quicklisp/dist.lisp
+++ b/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
 ;;;