diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script index 1f62b418efa4d011b7797d2bc4dbc551a924dbd8..9580694a1487f8ead0e22ee44b2040f0cf21db9a 100644 --- a/test/test-deferred-warnings.script +++ b/test/test-deferred-warnings.script @@ -104,7 +104,6 @@ t)) (handler-case (let ((*compile-file-warnings-behaviour* :error)) - (trace compile-file) (load-system :undefined-variables) nil) (compile-failed-error (x) (expected-error x)) @@ -112,3 +111,9 @@ (error (x) (format t "Unexpected error type: ~a" (type-of x)) nil)))) +(assert + (handler-case + (let ((*compile-file-warnings-behaviour* :warning)) + (load-system :undefined-variables :force t) + nil) + (error () t)))