mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 07:00:20 -07:00
Code Issues Projects Releases Packages Wiki Activity

The facility for REQUIREing asdf modules was missing

Browse source
This commit is contained in:
jgarcia 2008-02-02 21:54:43 +00:00
parent a59f90871a
commit 8edb65a501
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
contrib/asdf/asdf.lisp
View file

@ -1309,5 +1309,18 @@ output to *VERBOSE-OUT*. Returns the shell's exit code."
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)
(pushnew 'contrib-sysdef-search *system-definition-search-functions*))
;; Hook into ECL's require/provide
#+ecl
(progn
(defun module-provide-asdf (name)
(handler-bind ((style-warning #'muffle-warning))
(let* ((*verbose-out* (make-broadcast-stream))
(system (asdf:find-system name nil)))
(when system
(asdf:operate 'asdf:load-op name)
t))))
#+win32 (push '("asd" . si::load-source) si::*load-hooks*)
(pushnew 'module-provide-asdf ext:*module-provider-functions*))
(provide 'asdf)