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