Skip to content
Snippets Groups Projects
Commit 54ccbb07 authored by pfdietz's avatar pfdietz
Browse files

Made classify-error more efficient.

parent b382fbb8
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment