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

test/compile-asdf.lisp

+9 −5
Original line number Diff line number Diff line
@@ -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 @@ 
      (t

       (leave-lisp "Testsuite failed: unable to find ASDF source" 3)))

                     
 No newline at end of file