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