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
asdf
asdf
Commits
f9b1a8d1
Commit
f9b1a8d1
authored
Jan 26, 2010
by
Francois-Rene Rideau
Browse files
Rename *asdf-revision* to *asdf-version*, export function (asdf:asdf-version)
parent
2387083f
Changes
3
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
f9b1a8d1
...
...
@@ -105,9 +105,10 @@
#:*central-registry*
; variables
#:*compile-file-warnings-behaviour*
#:*compile-file-failure-behaviour*
#:*asdf-revision*
#:*resolve-symlinks*
#:asdf-version
#:operation-error
#:compile-failed
#:compile-warned
#:compile-error
#:error-name
#:error-pathname
...
...
@@ -171,9 +172,12 @@
;;;; -------------------------------------------------------------------------
;;;; User-visible parameters
;;;;
(
defparameter
*asdf-
revi
sion*
(
defparameter
*asdf-
ver
sion*
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"REVISION:1.500"
(
1+
(
length
"REVISION"
))))
(
subseq
"VERSION:1.500"
(
1+
(
length
"VERSION"
))))
(
defun
asdf-version
()
*asdf-version*
)
(
defvar
*resolve-symlinks*
t
"Determine whether or not ASDF resolves symlinks when defining systems.
...
...
@@ -2133,10 +2137,11 @@ with a different configuration, so the configuration would be re-read then."
(
validate-source-registry-form
(
car
forms
))))
(
defun
validate-source-registry-directory
(
directory
)
(
let
((
files
(
sort
(
directory
(
merge-pathnames
(
make-pathname
:name
:wild
:type
:wild
)
directory
)
#+
sbcl
:resolve-symlinks
#+
sbcl
nil
)
(
let
((
files
(
sort
(
ignore-errors
(
directory
(
merge-pathnames
(
make-pathname
:name
:wild
:type
:wild
)
directory
)
#+
sbcl
:resolve-symlinks
#+
sbcl
nil
))
#'
string<
:key
#'
namestring
)))
`
(
:source-registry
,@
(
loop
:for
file
:in
files
:append
...
...
@@ -2176,9 +2181,10 @@ with a different configuration, so the configuration would be re-read then."
(
return
`
(
:source-registry
,@
(
nreverse
directives
)))))))))
(
defun
collect-asd-subdirectories
(
directory
&key
(
exclude
*default-exclusions*
)
collect
)
(
let*
((
files
(
directory
(
merge-pathnames
#P"**/*.asd"
directory
)
#+
sbcl
#+
sbcl
:resolve-symlinks
nil
#+
clisp
#+
clisp
:circle
t
))
(
let*
((
files
(
ignore-errors
(
directory
(
merge-pathnames
#P"**/*.asd"
directory
)
#+
sbcl
#+
sbcl
:resolve-symlinks
nil
#+
clisp
#+
clisp
:circle
t
)))
(
dirs
(
remove-duplicates
(
mapcar
#'
pathname-sans-name+type
files
)
:test
#'
equal
)))
(
loop
:for
dir
:in
dirs
...
...
@@ -2358,9 +2364,10 @@ with a different configuration, so the configuration would be re-read then."
;;;; -----------------------------------------------------------------
;;;; Done!
(
when
*load-verbose*
(
asdf-message
";; ASDF,
revi
sion ~a"
*
asdf-
revi
sion
*
))
(
asdf-message
";; ASDF,
ver
sion ~a"
(
asdf-
ver
sion
)
))
(
pushnew
:asdf
*features*
)
;;(pushnew :asdf2 *features*) ;; do that when we reach version 2
(
provide
:asdf
)
...
...
bin/bump-revision-and-tag.sh
View file @
f9b1a8d1
...
...
@@ -35,7 +35,7 @@ fi
new_version
=
"
$major
.
$bumped
"
cp
asdf.lisp asdf.bak
perl
-pi
-e
"s/
REVI
SION:[^
\"
]*
\"
/
REVI
SION:
$new_version
\"
/"
asdf.lisp
perl
-pi
-e
"s/
VER
SION:[^
\"
]*
\"
/
VER
SION:
$new_version
\"
/"
asdf.lisp
if
[
!
"
$?
"
==
"0"
]
;
then
echo
"Unable to perl replace version"
exit
-3
...
...
website/source/manual.mmd
View file @
f9b1a8d1
...
...
@@ -823,8 +823,6 @@ ASDF includes code to control where the binaries files are places. The location
##
Special
variables
{
docs
*
asdf
-
revision
*}
{
docs
*
central
-
registry
*}
{
docs
*
compile
-
file
-
warnings
-
behaviour
*}
...
...
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