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

Disable clisp in lisp-implementation-directory

parent a887b0c4
Loading
Loading
Loading
Loading
+12 −13
Original line number Diff line number Diff line
@@ -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*
            ;;#+clisp custom:*lib-directory* ; causes failure in asdf-pathname-test(!)
            #+clozure #p"ccl:"
             #+cmu (pathname-parent-directory-pathname (truename #p"modules:"))
            #+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 (pathname-parent-directory-pathname (truename #p"file://modules/"))
             #+xcl ext:*xcl-home*)))
            #+scl (ignore-errors (pathname-parent-directory-pathname (truename #p"file://modules/")))
            #+xcl ext:*xcl-home*))
      (if (and dir truename)
          (truename* dir)
          dir)))