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