Subject: Re: (asdf:oos 'asdf:unload-op 'cl-spont)
From: (Rob Warnock)
Date: Tue, 31 Oct 2006 23:06:54 -0600
Newsgroups: comp.lang.lisp
Message-ID: <>
Bill Atkins  <> wrote:
| But if 99.9% of ASDF use follows the same pattern...

What, you mean something like this?  ;-}

    (defun asdf (&rest systems)          ;save a bunch of typing
      (if systems
	(dolist (system systems)
	  (asdf:operate 'asdf:load-op system))
	(let ((all-asd (directory "/usr/local/lib/cmucl/lib/local/systems/")))
	  (format t "Available systems:~%~a~%"
		    (sort (mapcar #'pathname-name all-asd) #'string<)))))


Rob Warnock			<>
627 26th Avenue			<URL:>
San Mateo, CA 94403		(650)572-2607