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

Disable clisp in lisp-implementation-directory

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