Commit 18f07f13 authored by pfdietz's avatar pfdietz

Simplified two error tests.

parent 47b8d8be
......@@ -14,7 +14,7 @@
(deftest max.error.2
(loop for x in *mini-universe*
unless (or (realp x)
(eq (classify-error** `(classify-error (max ',x)))
(eq (eval `(classify-error (max ',x)))
'type-error))
collect x)
nil)
......
......@@ -14,7 +14,7 @@
(deftest min.error.2
(loop for x in *mini-universe*
unless (or (realp x)
(eq (classify-error** `(classify-error (min ',x)))
(eq (eval `(classify-error (min ',x)))
'type-error))
collect x)
nil)
......
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