Commit b6bd7407 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Test tweaks

parent 8fdf8013
......@@ -142,7 +142,7 @@ test-all-lisps:
done
# test upgrade is a very long run... This does just the regression tests
test-all-noupgrade:
test-all-no-upgrade:
@for lisp in ${lisps} ; do \
${MAKE} test-lisp test-clean-load l=$$lisp || exit 1 ; \
done
......@@ -196,7 +196,7 @@ release: TODO test-all test-on-other-machines-too debian-changelog debian-packag
.PHONY: install archive archive-copy push doc website clean mrproper \
test-forward-references test test-lisp test-upgrade test-forward-references \
test-all test-all-lisps test-all-noupgrade \
test-all test-all-lisps test-all-no-upgrade \
debian-package release \
replace-sbcl-asdf replace-ccl-asdf \
fix-local-git-tags fix-remote-git-tags wc wc-driver wc-asdf
......
......@@ -56,7 +56,7 @@
nil)))
(unless *warnings-file-type*
(leave-test 0 "Your Lisp does not support deferred-warnings"))
(leave-test "Your Lisp does not support deferred-warnings" 0))
(assert
(handler-case
......
......@@ -2,3 +2,6 @@
(defun use-foo (x)
(foo x))
#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
(format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))
......@@ -2,3 +2,6 @@
(defun use-setf-foo (v x)
(setf (foo x) v))
#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
(format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))
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