diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp
index 7b67834..9d8de14 100644
--- 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
deleted file mode 100644
index 2cfabce..0000000
--- a/quicklisp/misc.lisp
+++ /dev/null
@@ -1,19 +0,0 @@
-;;;; misc.lisp
-
-(in-package #:quicklisp-client)
-
-;;;
-;;; This stuff will probably end up somewhere else.
-;;;
-
-(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)))
diff --git a/quicklisp/quicklisp.asd b/quicklisp/quicklisp.asd
index 158a1b4..83df3f9 100644
--- 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")))