Skip to content
Snippets Groups Projects
Commit d768eeeb authored by pfdietz's avatar pfdietz
Browse files

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
No related branches found
No related tags found
No related merge requests found
...@@ -71,29 +71,48 @@ ...@@ -71,29 +71,48 @@
12387131 1272314 231 -131 -561823 23713 -1234611312123 444121 991))) 12387131 1272314 231 -131 -561823 23713 -1234611312123 444121 991)))
(defvar *floats* (defvar *floats*
(list (append
PI (loop for sym in '(PI
MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SHORT-FLOAT
LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-SHORT-FLOAT
LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT MOST-POSITIVE-DOUBLE-FLOAT
MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-SHORT-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT MOST-POSITIVE-LONG-FLOAT
MOST-NEGATIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT LEAST-POSITIVE-LONG-FLOAT
LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT
MOST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-EPSILON LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON MOST-NEGATIVE-SHORT-FLOAT
LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON LEAST-NEGATIVE-SHORT-FLOAT
LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
0.0 1.0 -1.0 313123.13 283143.231 -314781.9 MOST-NEGATIVE-SINGLE-FLOAT
1.31283d2 834.13812D-45 LEAST-NEGATIVE-SINGLE-FLOAT
8131238.1E14 -4618926.231e-2 LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
-37818.131F3 81.318231f-19 MOST-NEGATIVE-DOUBLE-FLOAT
1.31273s3 12361.12S-7 LEAST-NEGATIVE-DOUBLE-FLOAT
6124.124l0 13123.1L-23)) 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* (defvar *ratios*
'(1/3 1/1000 1/1000000000000000 -10/3 -1000/7 -987129387912381/13612986912361 '(1/3 1/1000 1/1000000000000000 -10/3 -1000/7 -987129387912381/13612986912361
...@@ -285,7 +304,7 @@ ...@@ -285,7 +304,7 @@
(make-hash-table :test #'eq) (make-hash-table :test #'eq)
(make-hash-table :test #'eql) (make-hash-table :test #'eql)
(make-hash-table :test #'equal) (make-hash-table :test #'equal)
#-(or GCL CMU) (make-hash-table :test #'equalp) #-(or GCL CMU ECL) (make-hash-table :test #'equalp)
)) ))
(defvar *pathnames* (defvar *pathnames*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment