[asdf-devel] [PATCH 1/2] Quash style-warnings in the compile-script for tests.

[rpgoldman at sift.info]

From: Robert P. Goldman <rpgoldman at real-time.com>

Previously, style warnings in compiling asdf.lisp would cause the
test script to fail.  Modified to quash style warnings (but not
other warnings) during build.
---
 test/compile-asdf.lisp |   14 +++++++++-----
 1 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp
index 60bca6d..168c189 100644
--- a/test/compile-asdf.lisp
+++ b/test/compile-asdf.lisp
@@ -4,15 +4,19 @@
 
 (cond ((probe-file "asdf.lisp")
        (multiple-value-bind (result warnings-p errors-p)
-           (compile-file "asdf.lisp")
+           ;; style warnings shouldn't abort the compilation [2010/02/03:rpg]
+           (handler-bind ((style-warning
+                           #'(lambda (w)
+                               (princ w *error-output*)
+                               (muffle-warning w))))
+             (compile-file "asdf.lisp"))
          (declare (ignore result))
-         (cond (warnings-p 
+         (cond (warnings-p
                 (leave-lisp "Testuite failed: ASDF compiled with warnings" 1))
-               (errors-p 
+               (errors-p
                 (leave-lisp "Testuite failed: ASDF compiled with ERRORS" 2))
                (t
                 (leave-lisp "ASDF compiled cleanly" 0)))))
       (t
        (leave-lisp "Testsuite failed: unable to find ASDF source" 3)))
-       
-                     
\ No newline at end of file
+
-- 
1.6.5.3