Commit 89a87112 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Better implementation of CALL-QUIETLY for ACL.

parent e4dc9a87
...@@ -340,8 +340,13 @@ is bound, write a message and exit on an error. If ...@@ -340,8 +340,13 @@ is bound, write a message and exit on an error. If
`(call-quietly #'(lambda () ,@body))) `(call-quietly #'(lambda () ,@body)))
(defun call-quietly (thunk) (defun call-quietly (thunk)
#-allegro
(handler-bind (#+sbcl (sb-kernel:redefinition-warning #'muffle-warning)) (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) (defun interactive-test (&optional files)
(verbose t nil) (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