quicklisp · otjura · May 8, 2017
diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp
@@ -20,6 +20,18 @@
 (defun maybe-silence (silent stream)
   (or (and silent (make-broadcast-stream)) stream))
 
+(defun use-only-quicklisp-systems ()
+  (asdf:initialize-source-registry
+   '(:source-registry :ignore-inherited-configuration))
+  (asdf:map-systems 'asdf:clear-system)
+  t)
+
+(defun who-depends-on (system-name)
+  "Return a list of names of systems that depend on SYSTEM-NAME."
+  (loop for system in (provided-systems t)
+        when (member system-name (required-systems system) :test 'string=)
+        collect (name system)))
+
 (defgeneric quickload (systems &key verbose silent prompt explain &allow-other-keys)
   (:documentation
    "Load SYSTEMS the quicklisp way. SYSTEMS is a designator for a list

diff --git a/quicklisp/misc.lisp b/quicklisp/misc.lisp
diff --git a/quicklisp/quicklisp.asd b/quicklisp/quicklisp.asd
@@ -31,6 +31,5 @@
                (:file "client-info")
                (:file "client-update")
                (:file "dist-update")
-               (:file "misc")
                (:file "local-projects")
                (:file "bundle")))