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