From d768eeeb7133b0c906e5e8c82ca4f13898f4e162 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 11 Feb 2003 13:39:07 +0000
Subject: [PATCH] I'm trying to get the tests to run with ECL.  They don't yet,
 but this change fixes a problem in the loading of universe.lsp

---
 ansi-tests/universe.lsp | 67 ++++++++++++++++++++++++++---------------
 1 file changed, 43 insertions(+), 24 deletions(-)

diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index 2653c957..4a36d4e4 100644
--- a/ansi-tests/universe.lsp
+++ b/ansi-tests/universe.lsp
@@ -71,29 +71,48 @@
        12387131 1272314 231 -131 -561823 23713 -1234611312123 444121 991)))
 
 (defvar *floats*
-    (list
-     PI
-     MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
-     LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT MOST-POSITIVE-DOUBLE-FLOAT
-     LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
-     MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
-     MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
-     LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-SHORT-FLOAT
-     LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
-     MOST-NEGATIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT
-     LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
-     LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
-     MOST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
-     SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-EPSILON
-     SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
-     LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON
-  
-     0.0 1.0 -1.0 313123.13 283143.231 -314781.9
-     1.31283d2 834.13812D-45
-     8131238.1E14 -4618926.231e-2
-     -37818.131F3 81.318231f-19
-     1.31273s3 12361.12S-7
-     6124.124l0 13123.1L-23))
+    (append
+     (loop for sym in '(PI
+			MOST-POSITIVE-SHORT-FLOAT
+			LEAST-POSITIVE-SHORT-FLOAT
+			LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
+			MOST-POSITIVE-DOUBLE-FLOAT
+			LEAST-POSITIVE-DOUBLE-FLOAT
+			LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
+			MOST-POSITIVE-LONG-FLOAT
+			LEAST-POSITIVE-LONG-FLOAT
+			LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
+			MOST-POSITIVE-SINGLE-FLOAT
+			LEAST-POSITIVE-SINGLE-FLOAT
+			LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
+			MOST-NEGATIVE-SHORT-FLOAT
+			LEAST-NEGATIVE-SHORT-FLOAT
+			LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
+			MOST-NEGATIVE-SINGLE-FLOAT
+			LEAST-NEGATIVE-SINGLE-FLOAT
+			LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
+			MOST-NEGATIVE-DOUBLE-FLOAT
+			LEAST-NEGATIVE-DOUBLE-FLOAT
+			LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
+			MOST-NEGATIVE-LONG-FLOAT
+			LEAST-NEGATIVE-LONG-FLOAT
+			LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
+			SHORT-FLOAT-EPSILON
+			SHORT-FLOAT-NEGATIVE-EPSILON
+			SINGLE-FLOAT-EPSILON
+			SINGLE-FLOAT-NEGATIVE-EPSILON
+			DOUBLE-FLOAT-EPSILON
+			DOUBLE-FLOAT-NEGATIVE-EPSILON
+			LONG-FLOAT-EPSILON
+			LONG-FLOAT-NEGATIVE-EPSILON)
+	   when (boundp sym) collect (symbol-value sym))
+     (list
+      0.0 1.0 -1.0 313123.13 283143.231 -314781.9
+      1.31283d2 834.13812D-45
+      8131238.1E14 -4618926.231e-2
+      -37818.131F3 81.318231f-19
+      1.31273s3 12361.12S-7
+      6124.124l0 13123.1L-23)))
 
 (defvar *ratios*
     '(1/3 1/1000 1/1000000000000000 -10/3 -1000/7 -987129387912381/13612986912361
@@ -285,7 +304,7 @@
      (make-hash-table :test #'eq)
      (make-hash-table :test #'eql)
      (make-hash-table :test #'equal)
-     #-(or GCL CMU) (make-hash-table :test #'equalp)
+     #-(or GCL CMU ECL) (make-hash-table :test #'equalp)
      ))
 
 (defvar *pathnames*
-- 
GitLab