Commit 50ec396a authored by Antoine Martin's avatar Antoine Martin
Browse files

Move quicklisp-software to file.lisp

parent 45b349a6
...@@ -22,3 +22,8 @@ ...@@ -22,3 +22,8 @@
(defun get-texi-pathnames () (defun get-texi-pathnames ()
(loop for texi in (directory (all-texis)) (loop for texi in (directory (all-texis))
collect texi)) collect texi))
(defun quicklisp-software ()
(concatenate 'string
(namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
"software/"))
...@@ -55,11 +55,6 @@ ...@@ -55,11 +55,6 @@
(dolist (release (ql-dist:provided-releases t)) (dolist (release (ql-dist:provided-releases t))
(ql-dist:uninstall release))) (ql-dist:uninstall release)))
(defun quicklisp-software ()
(concatenate 'string
(namestring (ql-dist:base-directory (ql-dist:dist "quicklisp")))
"software/"))
(defun refresh (makeinfo-path) (defun refresh (makeinfo-path)
(uninstall-releases) (uninstall-releases)
(ql:update-all-dists :prompt nil) (ql:update-all-dists :prompt nil)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment