USE-SHELF returns shelf object now.
Wed May 20 12:16:37 PDT 2009 Maciej Pasternacki <>
* USE-SHELF returns shelf object now.
diff -rN -u old-cl-librarian/src/shelves.lisp new-cl-librarian/src/shelves.lisp
--- old-cl-librarian/src/shelves.lisp 2014-08-01 21:32:32.000000000 -0700
+++ new-cl-librarian/src/shelves.lisp 2014-08-01 21:32:32.000000000 -0700
@@ -173,13 +173,16 @@
"List of shelves currently in use.")
(defun use-shelf (shelf &key (download-if-necessary t))
- "Add SHELF systems to ASDF central registry."
+ "Add SHELF (shelf object, name or shelf file pathname) systems to ASDF central registry.
+Returns shelf object for SHELF."
(with-shelf (shelf)
(when (and download-if-necessary
(not (probe-file (shelf-directory shelf)))
(not (probe-file (shelf-subdir shelf "site"))))
(download-shelf shelf))
- (pushnew shelf *used-shelves*)))
+ (pushnew shelf *used-shelves*)
+ shelf))
(defun unuse-shelf (shelf)
"Remove SHELF systems from ASDF central registry."