From 25a5bd725760ed91e1156b2aadd89d56ac044d28 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Thu, 4 Feb 2010 14:07:58 -0500 Subject: [PATCH] Don't hang when ECL compiles with warning, exit with "success"! --- test/compile-asdf.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp index 33cc9067..0f896971 100644 --- a/test/compile-asdf.lisp +++ b/test/compile-asdf.lisp @@ -12,7 +12,9 @@ (compile-file "asdf.lisp")) (declare (ignore result)) (cond (warnings-p - #-ecl ;;; ECL gives warnings that it shouldn't! + ;;; ECL gives warnings that it shouldn't! + #+ecl (leave-lisp "ASDF compiled with warnings. Please fix ECL." 0) + #-ecl (leave-lisp "Testsuite failed: ASDF compiled with warnings" 1)) (errors-p (leave-lisp "Testsuite failed: ASDF compiled with ERRORS" 2)) @@ -20,3 +22,4 @@ (leave-lisp "ASDF compiled cleanly" 0))))) (t (leave-lisp "Testsuite failed: unable to find ASDF source" 3))) + -- GitLab