Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
65621197
Commit
65621197
authored
Nov 07, 2006
by
Christophe Rhodes
Browse files
Slightly better SBCL_HOME treatement for SBCL.
parent
3bc52526
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
65621197
;;; This is asdf: Another System Definition Facility. $Revision: 1.10
1
$
;;; This is asdf: Another System Definition Facility. $Revision: 1.10
2
$
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
...
...
@@ -112,7 +112,7 @@
(
in-package
#:asdf
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.10
1
$"
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.10
2
$"
)
(
colon
(
or
(
position
#\:
v
)
-1
))
(
dot
(
position
#\.
v
)))
(
and
v
colon
dot
...
...
@@ -1190,20 +1190,23 @@ output to *VERBOSE-OUT*. Returns the shell's exit code."
t
))))
(
defun
contrib-sysdef-search
(
system
)
(
let*
((
name
(
coerce-name
system
))
(
home
(
truename
(
sb-ext:posix-getenv
"SBCL_HOME"
)))
(
contrib
(
merge-pathnames
(
make-pathname
:directory
`
(
:relative
,
name
)
:name
name
:type
"asd"
:case
:local
:version
:newest
)
home
)))
(
probe-file
contrib
)))
(
let
((
home
(
sb-ext:posix-getenv
"SBCL_HOME"
)))
(
when
home
(
let*
((
name
(
coerce-name
system
))
(
home
(
truename
home
))
(
contrib
(
merge-pathnames
(
make-pathname
:directory
`
(
:relative
,
name
)
:name
name
:type
"asd"
:case
:local
:version
:newest
)
home
)))
(
probe-file
contrib
)))))
(
pushnew
'
(
merge-pathnames
"site-systems/"
(
truename
(
sb-ext:posix-getenv
"SBCL_HOME"
)))
'
(
let
((
home
(
sb-ext:posix-getenv
"SBCL_HOME"
)))
(
when
home
(
merge-pathnames
"site-systems/"
(
truename
home
))))
*central-registry*
)
(
pushnew
...
...
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