Extension "asd" cannot be the first one in *load-hooks*. The reason is that autoloaded modules must directly use the *.fas compiled files, not the ASDF definition, because ASDF does not allow reentrancy (i.e. bordeaux-threads uses documentation which uses autoload and tries to get ecl-help)

This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-08 22:21:02 +02:00
parent c27d4c34b7
commit 5d2dcedfe6

View file

@ -447,7 +447,7 @@
(let ((l (multiple-value-list (funcall f name))))
(and (first l) (register-pre-built-system name))
(values-list l)))))
#+win32 (push '("asd" . si::load-source) ext:*load-hooks*)
#+win32 (setf ext:*load-hooks* (append ext:*load-hooks* '(("asd" . si::load-source))))
(pushnew 'module-provide-asdf ext:*module-provider-functions*)
(pushnew (translate-logical-pathname "SYS:") *central-registry*)