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
01647351
Commit
01647351
authored
Apr 14, 2010
by
Francois-Rene Rideau
Browse files
1.679: yet another take on wild versions.
parent
efc7d6d8
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
01647351
...
...
@@ -60,7 +60,7 @@
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
let*
((
asdf-version
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.67
8
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.67
9
"
(
1+
(
length
"VERSION"
))))
#+
allegro
(
excl::*autoload-package-name-alist*
nil
)
(
existing-asdf
(
find-package
:asdf
))
(
versym
'
#:*asdf-version*
)
...
...
@@ -2347,11 +2347,11 @@ with a different configuration, so the configuration would be re-read then."
(
defparameter
*wild-path*
(
make-pathname
:directory
'
(
:relative
:wild-inferiors
)
:name
:wild
:type
:wild
:version
n
il
))
:name
:wild
:type
:wild
:version
:w
il
d
))
(
defparameter
*wild-asd*
(
make-pathname
:directory
'
(
:relative
:wild-inferiors
)
:name
:wild
:type
"asd"
:version
nil
))
:name
:wild
:type
"asd"
:version
:newest
))
(
defun
wilden
(
path
)
(
merge-pathnames*
*wild-path*
path
))
...
...
@@ -2596,7 +2596,6 @@ with a different configuration, so the configuration would be re-read then."
(
funcall
collect
(
list
trusrc
t
)))
(
t
(
let*
((
trudst
(
make-pathname
:version
#-
ecl
:wild
#+
ecl
nil
:defaults
(
if
dst
(
resolve-location
dst
t
)
trusrc
)))
(
wilddst
(
make-pathname
:name
:wild
:type
:wild
:version
:wild
...
...
@@ -2733,7 +2732,7 @@ effectively disabling the output translation facility."
(
let*
((
fasl-type
(
pathname-type
(
compile-file-pathname
"foo.lisp"
)))
(
wild-inferiors
(
make-pathname
:directory
'
(
:relative
:wild-inferiors
)))
(
mapped-files
(
make-pathname
:name
:wild
:name
:wild
:version
:wild
:type
(
if
map-all-source-files
:wild
fasl-type
)))
(
destination-directory
(
if
centralize-lisp-binaries
...
...
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