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

Better implementation of CALL-QUIETLY for ACL.

parent c6538607
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 ...@@ -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)
......
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