Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment