diff --git a/test/script-support.lisp b/test/script-support.lisp index 39b8be0803185e94186d0de7ef8565b71d22c426..c798af6cb6ebf4ffb872d49e5c259d9095bf629f 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -340,8 +340,13 @@ is bound, write a message and exit on an error. If `(call-quietly #'(lambda () ,@body))) (defun call-quietly (thunk) + #-allegro (handler-bind (#+sbcl (sb-kernel:redefinition-warning #'muffle-warning)) - (funcall thunk))) + (funcall thunk)) + #+allegro + (excl:without-redefinition-warnings + (funcall thunk)) + ) (defun interactive-test (&optional files) (verbose t nil)