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
d7734245
Commit
d7734245
authored
Mar 22, 2010
by
Francois-Rene Rideau
Browse files
1.659: Tweak system-source-file to be nicer wrt hot upgrade.
Move test results in tmp/ directory.
parent
d50b2723
Changes
4
Hide whitespace changes
Inline
Side-by-side
.gitignore
View file @
d7734245
...
...
@@ -5,17 +5,9 @@ common-lisp.net
init-lisp.lisp
website/changelog.xml
# Test stuff
test/results/
test/tmp/
test/conf.d/
test/dir1/
test/dir2/
# We build these at various stages in the make process
LICENSE
website/output/
test-results/
tmp/
lift-local.config
*.dribble
...
...
asdf.lisp
View file @
d7734245
...
...
@@ -121,7 +121,8 @@
p
)))
(
let
((
redefined-functions
'
(
#:perform
#:explain
#:output-files
#:operation-done-p
#:perform-with-restarts
#:component-relative-pathname
)))
#:perform-with-restarts
#:component-relative-pathname
#:system-source-file
)))
(
ensure-package
'
:asdf-utilities
:nicknames
'
(
#:asdf-extensions
)
...
...
@@ -262,7 +263,7 @@
;; This parameter isn't actually user-visible
;; -- please use the exported function ASDF:ASDF-VERSION below.
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.65
8
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.65
9
"
(
1+
(
length
"VERSION"
))))
(
defun
asdf-version
()
"Exported interface to the version of ASDF currently installed. A string.
...
...
@@ -587,10 +588,10 @@ ways that the filename components can be missing are for it to be `nil`,
Note that this does _not_ check to see that `pathname` points to an
actually-existing directory."
(
flet
((
check-one
(
x
)
(
not
(
null
(
member
x
'
(
nil
:unspecific
""
)
:test
'equal
)))))
(
member
x
'
(
nil
:unspecific
""
)
:test
'equal
)))
(
and
(
check-one
(
pathname-name
pathname
))
(
check-one
(
pathname-type
pathname
)))))
(
check-one
(
pathname-type
pathname
))
t
)))
(
defun
ensure-directory-pathname
(
pathspec
)
"Converts the non-wild pathname designator PATHSPEC to directory form."
...
...
@@ -2048,7 +2049,9 @@ output to `*verbose-out*`. Returns the shell's exit code."
;;;; ---------------------------------------------------------------------------
;;;; system-relative-pathname
(
defmethod
system-source-file
((
system-name
t
))
(
defmethod
system-source-file
((
system-name
string
))
(
system-source-file
(
find-system
system-name
)))
(
defmethod
system-source-file
((
system-name
symbol
))
(
system-source-file
(
find-system
system-name
)))
(
defun
system-source-directory
(
system-name
)
...
...
test/asdf-pathname-test.script
View file @
d7734245
...
...
@@ -272,17 +272,6 @@
(setf (logical-pathname-translations "ASDFTEST") nil))
(remhash "test-system" asdf::*defined-systems*)))
#+clisp
(trace
make-pathname
make-instance
asdf::component-pathname
asdf::component-relative-pathname
asdf::merge-pathnames*
asdf::merge-component-name-type
asdf::component-name-to-pathname-components
make-pathname)
(quit-on-error
(asdf:initialize-source-registry)
(format t "source registry: ~S~%" (asdf::source-registry))
...
...
test/run-tests.sh
View file @
d7734245
...
...
@@ -188,9 +188,9 @@ if [ -z "$command" ] ; then
echo
"Error: cannot find or do not know how to run Lisp named
$lisp
"
else
create_config
mkdir
-p
results
mkdir
-p
../tmp/
results
thedate
=
`
date
"+%Y-%m-%d"
`
do_tests
"
$command
"
"
$eval
"
2>&1 |
\
tee
"results/
${
lisp
}
.text"
"results/
${
lisp
}
-
${
thedate
}
.save"
tee
"
../tmp/
results/
${
lisp
}
.text"
"
../tmp/
results/
${
lisp
}
-
${
thedate
}
.save"
clean_up
fi
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