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