From: Robert P. Goldman <[email protected]>
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
_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
