Justin, this might be useful to you. Its a function I use in windows
to add entries to *CENTRAL-REGISTRY* automatically. I put all of my
ASDF packages in $HOME/.lisp and then do
(asdf-register-directory (merge-pathnames #p".lisp/" (user-homedir-pathname)))
-------------- snip ------------------------------
(defun asdf-register-directory (dir)
"Recursively registers a directory in asdf:*central-registry*. Looks for all
.asd files in the given directory and below and adds it to the
asdf:*central-registry* if one exists"
(dolist (f (list-directory dir))
(if (directory-pathname-p f)
(when (and (string-not-equal "_darcs" (car (last
(pathname-directory f))))
(string-not-equal ".svn" (car (last
(pathname-directory f)))))
(asdf-register-directory f))
(when (string-equal "asd" (pathname-type f))
(pushnew (make-pathname :directory
(pathname-directory f)) asdf:*central-registry* :test #'equal)))))
-------------- snip ------------------------------
Note:
DIRECTORY-PATHNAME-P and LIST-DIRECTORY are from Peter Seibel's PCL book.
Anthony
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
