Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add & export LIST-LOCAL-SYSTEMS.

  • Loading branch information...
commit bf7a30e51a42bf59bb2167f918262d29dfecbb87 1 parent 128de27
@xach xach authored
Showing with 6 additions and 1 deletion.
  1. +4 −0 local-projects.lisp
  2. +2 −1  package.lisp
View
4 local-projects.lisp
@@ -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
3  package.lisp
@@ -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)
Please sign in to comment.
Something went wrong with that request. Please try again.