Commit 196d027e authored by pfdietz's avatar pfdietz
Browse files

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))
(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