diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index d8af5122c87087ce1d71db5840b6bc1fac05375f..eaf3d1e0c0042ba6236eece1671e54abd922bb98 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -217,7 +217,11 @@ the condition to go uncaught if it cannot be classified." ))) (defun classify-error** (form) - (classify-error* (eval form))) + (handler-bind ((warning #'(lambda (c) (declare (ignore c)) + (muffle-warning)))) + (classify-error* + (eval `(locally (declare (optimize (safety 3))) ,form)) + ))) (defmacro classify-error (form) `(classify-error** ',form))