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