Commit 669baad6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

2.26.117: fix setf symbol frobbing on CLISP.

Also remove some forgotten debugging statement,
clean the asd somewhat.
parent 5f6aabab
......@@ -15,7 +15,7 @@
:licence "MIT"
:description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.116" ;; to be automatically updated by bin/bump-revision
:version "2.26.117" ;; to be automatically updated by bin/bump-revision
:depends-on ()
:components ((:module "build" :components ((:file "asdf"))))
:in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op generate-asdf))))
......@@ -66,6 +66,7 @@
(:file "interface")
(:file "footer" :depends-on ("interface"))))
#+asdf2.27
(defsystem :asdf/header
:components
((:static-file "header.lisp")))
......@@ -284,8 +284,6 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded.
(check-type found (or null pathname system))
(values foundp found-system pathname previous previous-time)))
(asdf-debug)
(defmethod find-system ((name string) &optional (error-p t))
(with-system-definitions ()
(loop
......
......@@ -68,6 +68,7 @@
(when *load-verbose*
(asdf-message ";; ASDF, version ~a~%" (asdf-version)))
;;; Local Variables:
;;; mode: lisp
;;; End:
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.116: Another System Definition Facility.
;;; This is ASDF 2.26.117: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
This diff is collapsed.
......@@ -201,9 +201,9 @@ export CL_SOURCE_REGISTRY="${ASDFDIR}"
export ASDF_OUTPUT_TRANSLATIONS="(:output-translations (\"${ASDFDIR}\" (\"${ASDFDIR}/build/fasls\" :implementation)) :ignore-inherited-configuration)"
command="$command $flags"
cmd="$command $flags"
if [ -z "${DEBUG_ASDF_TEST}" ] ; then
command="$command $nodebug"
cmd="$cmd $nodebug"
fi
......@@ -282,12 +282,16 @@ run_upgrade_tests () {
if valid_upgrade_test_p $lisp $tag $method ; then
echo "Testing ASDF upgrade from ${tag} using method $method"
extract_tagged_asdf $tag
$command $eval \
$cmd $eval \
"'(#.(load\"$su\")#.(in-package :asdf-test)#.(test-upgrade $method \"$tag\"))" ||
{ echo "upgrade FAILED for $lisp from $tag using method $method" ;
echo "you can retry just that test with:" ;
echo ASDF_UPGRADE_TEST_TAGS=\"$tag\" ADSF_UPGRADE_TEST_METHODS=\"$method\" ./test/run-tests.sh -u $lisp ;
exit 1 ;}
echo "or more interactively (and maybe with rlwrap or in emacs), start with:"
echo "$command"
echo "then copy/paste:"
echo "(load\"$su\") (da) (test-upgrade $method \"$tag\")"
exit 1 ;}
fi ; done ; done 2>&1 | tee build/results/${lisp}-upgrade.text
}
run_tests () {
......@@ -296,7 +300,7 @@ run_tests () {
mkdir -p ../build/results
echo failure > ../build/results/status
thedate=`date "+%Y-%m-%d"`
do_tests "$command" "$eval" 2>&1 | \
do_tests "$cmd" "$eval" 2>&1 | \
tee "../build/results/${lisp}.text" "../build/results/${lisp}-${thedate}.save"
read a < ../build/results/status
clean_up
......@@ -317,10 +321,10 @@ test_clean_load () {
esac
nop=build/results/${lisp}-nop.text
load=build/results/${lisp}-load.text
${command} ${eval} \
${cmd} ${eval} \
'(or #.(setf *load-verbose* nil) #.(load "test/script-support.lisp") #.(asdf-test::exit-lisp 0))' \
> $nop 2>&1
${command} ${eval} \
${cmd} ${eval} \
'(or #.(setf *load-verbose* nil) #.(load "build/asdf.lisp") #.(asdf/image:quit 0))' \
> $load 2>&1
if diff $nop $load ; then
......@@ -330,7 +334,7 @@ test_clean_load () {
fi
}
if [ -z "$command" ] ; then
if [ -z "$cmd" ] ; then
echo "Error: cannot find or do not know how to run Lisp named $lisp"
elif [ -n "$clean_load" ] ; then
test_clean_load
......
......@@ -45,7 +45,7 @@
;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.26.116")
(asdf-version "2.26.117")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*)
(already-there (equal asdf-version existing-version)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment