On 12/3/06, Anthony Fairchild <[EMAIL PROTECTED]> wrote: > 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))))) >
Looks handy thanks. Justin _______________________________________________ application-builder mailing list [email protected] http://www.lispniks.com/mailman/listinfo/application-builder
