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
`(call-quietly #'(lambda () ,@body)))
(defun call-quietly (thunk)
(handler-bind (#+sbcl (sb-kernel:redefinition-warning #'muffle-warning))
(funcall thunk)))
(funcall thunk))
(funcall thunk))
(defun interactive-test (&optional files)
(verbose t nil)
Supports Markdown
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