From 6c088032c0b5bfe644d48584f76ba2fed8c127b8 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 12 Feb 2004 01:01:05 +0000
Subject: [PATCH] Fixed test problem

---
 ansi-tests/atan.lsp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/atan.lsp b/ansi-tests/atan.lsp
index a76edd72..bb9d2a12 100644
--- a/ansi-tests/atan.lsp
+++ b/ansi-tests/atan.lsp
@@ -6,8 +6,10 @@
 (in-package :cl-test)
 
 (deftest atan.1
-  (atan 0)
-  0.0)
+  (let ((result (atan 0)))
+    (or (eqlt result 0)
+	(eqlt result 0.0)))
+  t)
 
 (deftest atan.2
   (loop for type in '(short-float single-float double-float long-float)
-- 
GitLab