diff --git a/bundle.lisp b/bundle.lisp index 91af8803e5cc7d6930d4647d18f67559545c5c41..654a77647ddad8cd3f073160bb8ca2cca86590f4 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -472,7 +472,8 @@ itself.")) ;; operation on a system and its dependencies ;; (setf *load-system-operation* 'load-bundle-op)) (defun asdf-library-pathname () - #+ecl (compile-file-pathname "sys:asdf" :type :object) + #+ecl (or (probe-file* (compile-file-pathname "sys:asdf" :type :lib)) ;; new style + (probe-file* (compile-file-pathname "sys:asdf" :type :object))) ;; old style #+mkcl (make-pathname :type (bundle-pathname-type :lib) :defaults #p"sys:contrib;asdf")) (defun compiler-library-pathname ()