Subject: Re: The worst syntax ever....
From: rpw3@rpw3.org (Rob Warnock)
Date: Fri, 12 May 2006 22:03:33 -0500
Newsgroups: comp.lang.lisp
Message-ID: <ZpKdnaOJg_oY0fjZRVn-rw@speakeasy.net>
Pascal Bourguignon  <pjb@informatimago.com> wrote:
+---------------
| Ken Tilton <kentilton@gmail.com> writes:
| >     (ASDF:OOS 'ASDF:LOAD-OP :CELLS)
| 
| What is this?  
| Don't you type: (asdf-load :cells) ???
...
| Put this in you startup files!
| (defun asdf-load (system) (asdf:operate 'asdf:load-op system))
+---------------

I have a slightly more "featureful" version in my startup file:  ;-}  ;-}

(defun asdf (&rest systems)
  (if systems
    (dolist (system systems)
      (asdf:operate 'asdf:load-op system))
    ;; !@#$% CMUCL "library:local/systems/*.asd" lists everything *twice*!
    (let ((all-asd (directory "/usr/local/lib/cmucl/lib/local/systems/*.asd")))
      (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