Commit 196d027e authored by pfdietz's avatar pfdietz

Added extra SAFETY declaration inside the form being evalled in classify-error.

parent 019b5b29
...@@ -217,7 +217,11 @@ the condition to go uncaught if it cannot be classified." ...@@ -217,7 +217,11 @@ the condition to go uncaught if it cannot be classified."
))) )))
(defun classify-error** (form) (defun classify-error** (form)
(classify-error* (eval form))) (handler-bind ((warning #'(lambda (c) (declare (ignore c))
(muffle-warning))))
(classify-error*
(eval `(locally (declare (optimize (safety 3))) ,form))
)))
(defmacro classify-error (form) (defmacro classify-error (form)
`(classify-error** ',form)) `(classify-error** ',form))
......
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