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."
)))
(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)
`(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