Added quick-reset.

Pascal J. Bourguignon [2014-10-02 21:34]
Added quick-reset.
Filename
tools/quicklisp.lisp
diff --git a/tools/quicklisp.lisp b/tools/quicklisp.lisp
index 7ac1116..e13647f 100644
--- a/tools/quicklisp.lisp
+++ b/tools/quicklisp.lisp
@@ -49,7 +49,8 @@
            "QUICK-WHERE"
            "QUICK-DELETE"
            "QUICK-RELOAD"
-           "QUICK-LOCAL-PROJECTS")
+           "QUICK-LOCAL-PROJECTS"
+           "QUICK-RESET")
   (:documentation "Quicklisp quick commands."))
 (in-package "COM.INFORMATIMAGO.TOOLS.QUICKLISP")

@@ -152,5 +153,8 @@ are listed."
   "Rebuilds the local projects system index."
   (ql:register-local-projects))

+(defun quick-reset ()
+  (quick-local-projects))
+

 ;;;; THE END ;;;;
ViewGit