Commit 54ccbb07 authored by pfdietz's avatar pfdietz
Browse files

Made classify-error more efficient.

parent b382fbb8
......@@ -146,8 +146,11 @@ the condition to go uncaught if it cannot be classified."
(control-error () 'control-error)
)))
(defun classify-error** (form)
(classify-error* (eval form)))
(defmacro classify-error (form)
`(classify-error* (eval ',form)))
`(classify-error** ',form)))
;;;
;;; A scaffold is a structure that is used to remember the object
......
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