Commit d768eeeb authored by pfdietz's avatar pfdietz

I'm trying to get the tests to run with ECL. They don't yet, but this change...

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
parent 16a514f2
......@@ -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*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment