Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
c2c548c6
Commit
c2c548c6
authored
Oct 02, 2015
by
Francois-Rene Rideau
Browse files
Disable clisp in lisp-implementation-directory
See
https://bugs.launchpad.net/asdf/+bug/1502323
parent
a887b0c4
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/filesystem.lisp
View file @
c2c548c6
...
...
@@ -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
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment