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 <>
parent 0ae958c4
......@@ -4,7 +4,12 @@
(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
(leave-lisp "Testuite failed: ASDF compiled with warnings" 1))
......@@ -15,4 +20,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