From 18f07f1335741acb334feab634a424c4a2aa22e5 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 1 Sep 2003 21:40:11 +0000 Subject: [PATCH] Simplified two error tests. --- ansi-tests/max.lsp | 2 +- ansi-tests/min.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ansi-tests/max.lsp b/ansi-tests/max.lsp index 4e7cffc9..ac1a8bc9 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 d96f80f7..24224fa4 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) -- GitLab