From 3f9bac658275aefb4f32df474bee860f868c3d9f Mon Sep 17 00:00:00 2001
From: Otso Rajala <ojrajala@gmail.com>
Date: Mon, 8 May 2017 18:53:48 +0300
Subject: [PATCH] Moved functions in misc.lisp to client.lisp and deleted
 misc.lisp. client.lisp is the best place for moving since misc declared
 quiclisp-client package. Tested. Runs and works.

---
 quicklisp/client.lisp   | 12 ++++++++++++
 quicklisp/misc.lisp     | 19 -------------------
 quicklisp/quicklisp.asd |  1 -
 3 files changed, 12 insertions(+), 20 deletions(-)
 delete mode 100644 quicklisp/misc.lisp

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")))