diff --git a/ansi-tests/cis.lsp b/ansi-tests/cis.lsp index facdb3d89309b48037282493584b1b151f05686f..753d860d512d2615579d46ff7fdb7f447509a34d 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