Bill Atkins  <atkinw@rpi.edu> 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

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607