[ab] sbcl 1.0 and lisbuilder-sdl

[Justin Heyes-Jones]

On 12/3/06, Anthony Fairchild <anthonyf at blarg.net> 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