Skip to content
Snippets Groups Projects
Commit d7734245 authored by Francois-Rene Rideau's avatar 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
No related branches found
No related tags found
No related merge requests found
...@@ -5,17 +5,9 @@ common-lisp.net ...@@ -5,17 +5,9 @@ common-lisp.net
init-lisp.lisp init-lisp.lisp
website/changelog.xml 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 # We build these at various stages in the make process
LICENSE LICENSE
website/output/ website/output/
test-results/
tmp/ tmp/
lift-local.config lift-local.config
*.dribble *.dribble
......
...@@ -121,7 +121,8 @@ ...@@ -121,7 +121,8 @@
p))) p)))
(let ((redefined-functions (let ((redefined-functions
'(#:perform #:explain #:output-files #:operation-done-p '(#:perform #:explain #:output-files #:operation-done-p
#:perform-with-restarts #:component-relative-pathname))) #:perform-with-restarts #:component-relative-pathname
#:system-source-file)))
(ensure-package (ensure-package
':asdf-utilities ':asdf-utilities
:nicknames '(#:asdf-extensions) :nicknames '(#:asdf-extensions)
...@@ -262,7 +263,7 @@ ...@@ -262,7 +263,7 @@
;; This parameter isn't actually user-visible ;; This parameter isn't actually user-visible
;; -- please use the exported function ASDF:ASDF-VERSION below. ;; -- 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 ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(subseq "VERSION:1.658" (1+ (length "VERSION")))) (subseq "VERSION:1.659" (1+ (length "VERSION"))))
(defun asdf-version () (defun asdf-version ()
"Exported interface to the version of ASDF currently installed. A string. "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`, ...@@ -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 Note that this does _not_ check to see that `pathname` points to an
actually-existing directory." actually-existing directory."
(flet ((check-one (x) (flet ((check-one (x)
(not (null (member x '(nil :unspecific "") (member x '(nil :unspecific "") :test 'equal)))
:test 'equal)))))
(and (check-one (pathname-name pathname)) (and (check-one (pathname-name pathname))
(check-one (pathname-type pathname))))) (check-one (pathname-type pathname))
t)))
(defun ensure-directory-pathname (pathspec) (defun ensure-directory-pathname (pathspec)
"Converts the non-wild pathname designator PATHSPEC to directory form." "Converts the non-wild pathname designator PATHSPEC to directory form."
...@@ -2048,7 +2049,9 @@ output to `*verbose-out*`. Returns the shell's exit code." ...@@ -2048,7 +2049,9 @@ output to `*verbose-out*`. Returns the shell's exit code."
;;;; --------------------------------------------------------------------------- ;;;; ---------------------------------------------------------------------------
;;;; system-relative-pathname ;;;; 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))) (system-source-file (find-system system-name)))
(defun system-source-directory (system-name) (defun system-source-directory (system-name)
......
...@@ -272,17 +272,6 @@ ...@@ -272,17 +272,6 @@
(setf (logical-pathname-translations "ASDFTEST") nil)) (setf (logical-pathname-translations "ASDFTEST") nil))
(remhash "test-system" asdf::*defined-systems*))) (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 (quit-on-error
(asdf:initialize-source-registry) (asdf:initialize-source-registry)
(format t "source registry: ~S~%" (asdf::source-registry)) (format t "source registry: ~S~%" (asdf::source-registry))
......
...@@ -188,9 +188,9 @@ if [ -z "$command" ] ; then ...@@ -188,9 +188,9 @@ if [ -z "$command" ] ; then
echo "Error: cannot find or do not know how to run Lisp named $lisp" echo "Error: cannot find or do not know how to run Lisp named $lisp"
else else
create_config create_config
mkdir -p results mkdir -p ../tmp/results
thedate=`date "+%Y-%m-%d"` thedate=`date "+%Y-%m-%d"`
do_tests "$command" "$eval" 2>&1 | \ 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 clean_up
fi fi
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment