From: Robert P. Goldman rpgoldman@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 +