Commit 41deb985 authored by Robert P. Goldman's avatar Robert P. Goldman Committed by Francois-Rene Rideau
Browse files

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.
Signed-off-by: default avatarFrancois-Rene Rideau <fare@tunes.org>
parent 0ae958c4
...@@ -4,15 +4,19 @@ ...@@ -4,15 +4,19 @@
(cond ((probe-file "asdf.lisp") (cond ((probe-file "asdf.lisp")
(multiple-value-bind (result warnings-p errors-p) (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)) (declare (ignore result))
(cond (warnings-p (cond (warnings-p
(leave-lisp "Testuite failed: ASDF compiled with warnings" 1)) (leave-lisp "Testuite failed: ASDF compiled with warnings" 1))
(errors-p (errors-p
(leave-lisp "Testuite failed: ASDF compiled with ERRORS" 2)) (leave-lisp "Testuite failed: ASDF compiled with ERRORS" 2))
(t (t
(leave-lisp "ASDF compiled cleanly" 0))))) (leave-lisp "ASDF compiled cleanly" 0)))))
(t (t
(leave-lisp "Testsuite failed: unable to find ASDF source" 3))) (leave-lisp "Testsuite failed: unable to find ASDF source" 3)))
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment