From 89a8711245f4d9c9dc48b59f5c8174d9399af5e1 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Tue, 18 Feb 2014 23:26:55 -0600 Subject: [PATCH] Better implementation of CALL-QUIETLY for ACL. --- test/script-support.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index 39b8be08..c798af6c 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) -- GitLab