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
e388107c
Commit
e388107c
authored
Feb 01, 2006
by
Christophe Rhodes
Browse files
Alter the #+(sbcl sbcl-hooks-require) section to allow contrib loading
on Windows. No changes outside that specific section.
parent
ff851b81
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
e388107c
;;; This is asdf: Another System Definition Facility. $Revision: 1.9
1
$
;;; This is asdf: Another System Definition Facility. $Revision: 1.9
2
$
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
...
...
@@ -109,7 +109,7 @@
(
in-package
#:asdf
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.9
1
$"
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.9
2
$"
)
(
colon
(
or
(
position
#\:
v
)
-1
))
(
dot
(
position
#\.
v
)))
(
and
v
colon
dot
...
...
@@ -1115,10 +1115,17 @@ output to *verbose-out*. Returns the shell's exit code."
(
asdf:operate
'asdf:load-op
name
)
t
))))
(
pushnew
'
(
merge-pathnames
"systems/"
(
truename
(
sb-ext:posix-getenv
"SBCL_HOME"
)))
*central-registry*
)
(
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
)))
(
pushnew
'
(
merge-pathnames
"site-systems/"
...
...
@@ -1130,6 +1137,7 @@ output to *verbose-out*. Returns the shell's exit code."
(
user-homedir-pathname
))
*central-registry*
)
(
pushnew
'module-provide-asdf
sb-ext:*module-provider-functions*
))
(
pushnew
'module-provide-asdf
sb-ext:*module-provider-functions*
)
(
pushnew
'contrib-sysdef-search
*system-definition-search-functions*
))
(
provide
'asdf
)
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