Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Hugo Ishimaru
asdf
Commits
c2c548c6
Commit
c2c548c6
authored
Oct 02, 2015
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
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
Showing
1 changed file
with
12 additions
and
13 deletions
+12
-13
uiop/filesystem.lisp
uiop/filesystem.lisp
+12
-13
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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