Skip to content
Snippets Groups Projects
Commit 89a87112 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Better implementation of CALL-QUIETLY for ACL.

parent e4dc9a87
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment