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

Disable clisp in lisp-implementation-directory

See https://bugs.launchpad.net/asdf/+bug/1502323
parent a887b0c4
...@@ -545,19 +545,18 @@ NILs." ...@@ -545,19 +545,18 @@ NILs."
"Where are the system files of the current installation of the CL implementation?" "Where are the system files of the current installation of the CL implementation?"
(declare (ignorable truename)) (declare (ignorable truename))
(let ((dir (let ((dir
(ignore-errors #+abcl extensions:*lisp-home*
#+abcl extensions:*lisp-home* #+(or allegro clasp ecl mkcl) #p"SYS:"
#+(or allegro clasp ecl mkcl) #p"SYS:" ;;#+clisp custom:*lib-directory* ; causes failure in asdf-pathname-test(!)
#+clisp custom:*lib-directory* #+clozure #p"ccl:"
#+clozure #p"ccl:" #+cmu (ignore-errors (pathname-parent-directory-pathname (truename #p"modules:")))
#+cmu (pathname-parent-directory-pathname (truename #p"modules:")) #+gcl system::*system-directory*
#+gcl system::*system-directory* #+lispworks lispworks:*lispworks-directory*
#+lispworks lispworks:*lispworks-directory* #+sbcl (if-let (it (find-symbol* :sbcl-homedir-pathname :sb-int nil))
#+sbcl (if-let (it (find-symbol* :sbcl-homedir-pathname :sb-int nil)) (funcall it)
(funcall it) (getenv-pathname "SBCL_HOME" :ensure-directory t))
(getenv-pathname "SBCL_HOME" :ensure-directory t)) #+scl (ignore-errors (pathname-parent-directory-pathname (truename #p"file://modules/")))
#+scl (pathname-parent-directory-pathname (truename #p"file://modules/")) #+xcl ext:*xcl-home*))
#+xcl ext:*xcl-home*)))
(if (and dir truename) (if (and dir truename)
(truename* dir) (truename* dir)
dir))) dir)))
......
Markdown is supported
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