;; Make it so we can load via ASDF just by using REQUIRE (I'm lazy)
;; mostly stolen from http://www.mail-archive.com/cmucl-help-bounce@cons.org/msg02514.html
(defun module-provide-asdf (name)
(let* ((name (string-downcase name))
(system (asdf:find-system name nil)))
(when system
(asdf:oos 'asdf:load-op name)
t)))
;; hook it in
(pushnew 'module-provide-asdf *module-provider-functions*)
Tuesday, December 30, 2008
To load ASDF-modules by using REQUIRE
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment