Commit c5e871a2 authored by Robert P. Goldman's avatar Robert P. Goldman

Better implementation of CALL-QUIETLY for ACL.

parent c6538607
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment