diff --git a/ansi-tests/max.lsp b/ansi-tests/max.lsp index 4e7cffc91425c9a19842aa3524907f86011ca461..ac1a8bc926504a0f6a71a1a8d86735f61312fee3 100644 --- a/ansi-tests/max.lsp +++ b/ansi-tests/max.lsp @@ -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) diff --git a/ansi-tests/min.lsp b/ansi-tests/min.lsp index d96f80f7a2a57bf33d723bcf7d25dfb5053c0eb9..24224fa4f7898d4d4577c5886697577054b74712 100644 --- a/ansi-tests/min.lsp +++ b/ansi-tests/min.lsp @@ -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)