From cfe9796ffd84b314d881565ea190bc4573c78c0a Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 8 Feb 2004 21:47:50 +0000
Subject: [PATCH] Fixed CIS.1, which was broken.

---
 ansi-tests/cis.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/cis.lsp b/ansi-tests/cis.lsp
index facdb3d8..753d860d 100644
--- a/ansi-tests/cis.lsp
+++ b/ansi-tests/cis.lsp
@@ -16,7 +16,9 @@
   t)
 
 (deftest cis.1
-  (eqlt (cis 0) #c(1.0 0.0))
+  (let ((result (cis 0)))
+    (or (=t result 1)
+	(eqlt #c(1.0 0.0))))
   t)
 
 (deftest cis.2
-- 
GitLab