From 5d2dcedfe6b8d1af1a1f855ac2adf4678c28ffa2 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 8 Jul 2012 22:21:02 +0200 Subject: [PATCH] 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) --- contrib/asdf/asdf-ecl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp index fb085ddfc..971ceb219 100755 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -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*)