Move quicklisp-software to file.lisp

file.lisp

@@ -22,3 +22,8 @@
 (defun get-texi-pathnames ()
   (loop for texi in (directory (all-texis))
        collect texi))
+
+(defun quicklisp-software ()
+  (concatenate 'string
+	       (namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
+	       "software/"))

quickref.lisp

@@ -55,11 +55,6 @@
   (dolist (release (ql-dist:provided-releases t))
     (ql-dist:uninstall release)))
 
-(defun quicklisp-software ()
-  (concatenate 'string
-	       (namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
-	       "software/"))
-
 (defun refresh (makeinfo-path)
   (uninstall-releases)
   (ql:update-all-dists :prompt nil)