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

Better implementation of CALL-QUIETLY for ACL.

parent e4dc9a87
Loading
Loading
Loading
Loading
+6 −1
Original line number Diff line number Diff line
@@ -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)