diff --git a/Makefile b/Makefile index d4815b62a1b913f9a53d21869adceb994e2f2f3c..386a11322a297802ba6cc77c94afb871dcf573d5 100644 --- a/Makefile +++ b/Makefile @@ -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 diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script index 97672af1913d7e0db82f3b4713d37563a9ebf616..70f52226b06a2cf7fac7d6abbfcdbbc789cd91b0 100644 --- a/test/test-deferred-warnings.script +++ b/test/test-deferred-warnings.script @@ -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 diff --git a/test/use-foo.lisp b/test/use-foo.lisp index 3c91622b90546254e65d1790f4936c259838318f..824c562d7b932c1f361960551f95ba71421fe6f8 100644 --- a/test/use-foo.lisp +++ b/test/use-foo.lisp @@ -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*))) diff --git a/test/use-setf-foo.lisp b/test/use-setf-foo.lisp index 89737212d8e63a48713a76959f5138dd9803488a..0c2dc861d46ec6947dbc30948d5029e0da916a2c 100644 --- a/test/use-setf-foo.lisp +++ b/test/use-setf-foo.lisp @@ -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*)))