Tuesday, December 30, 2008

To load ASDF-modules by using REQUIRE


;; 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*)

No comments: