Permalink
Browse files

Add & export LIST-LOCAL-SYSTEMS.

  • Loading branch information...
1 parent 128de27 commit bf7a30e51a42bf59bb2167f918262d29dfecbb87 @xach xach committed Mar 7, 2012
Showing with 6 additions and 1 deletion.
  1. +4 −0 local-projects.lisp
  2. +2 −1 package.lisp
View
@@ -114,3 +114,7 @@ to use the local project directory and cache to find systems."
"Force a scan of the local projects directory to create the system
file index."
(map nil 'make-system-index *local-project-directories*))
+
+(defun list-local-systems ()
+ "Return a list of local project system names."
+ (mapcar #'pathname-name (list-local-projects)))
View
@@ -284,7 +284,8 @@
#:register-local-projects
#:local-projects-searcher
#:*local-project-directories*
- #:list-local-projects))
+ #:list-local-projects
+ #:list-local-systems))
(in-package #:quicklisp-client)

0 comments on commit bf7a30e

Please sign in to comment.