Commit 1ffeb5ac authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Support both older and newer versions of ECL wrt which prebuilt asdf object/library is available.

parent c2ad33d9
......@@ -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 ()
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment