71 |
12387131 1272314 231 -131 -561823 23713 -1234611312123 444121 991))) |
12387131 1272314 231 -131 -561823 23713 -1234611312123 444121 991))) |
72 |
|
|
73 |
(defvar *floats* |
(defvar *floats* |
74 |
(list |
(append |
75 |
PI |
(loop for sym in '(PI |
76 |
MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT |
MOST-POSITIVE-SHORT-FLOAT |
77 |
LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT MOST-POSITIVE-DOUBLE-FLOAT |
LEAST-POSITIVE-SHORT-FLOAT |
78 |
LEAST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT |
LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT |
79 |
MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT |
MOST-POSITIVE-DOUBLE-FLOAT |
80 |
MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT |
LEAST-POSITIVE-DOUBLE-FLOAT |
81 |
LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-SHORT-FLOAT |
LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT |
82 |
LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT |
MOST-POSITIVE-LONG-FLOAT |
83 |
MOST-NEGATIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT |
LEAST-POSITIVE-LONG-FLOAT |
84 |
LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT |
LEAST-POSITIVE-NORMALIZED-LONG-FLOAT |
85 |
LEAST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT |
MOST-POSITIVE-SINGLE-FLOAT |
86 |
MOST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT |
LEAST-POSITIVE-SINGLE-FLOAT |
87 |
SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-EPSILON |
LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT |
88 |
SINGLE-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON |
MOST-NEGATIVE-SHORT-FLOAT |
89 |
LONG-FLOAT-EPSILON LONG-FLOAT-NEGATIVE-EPSILON |
LEAST-NEGATIVE-SHORT-FLOAT |
90 |
|
LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT |
91 |
0.0 1.0 -1.0 313123.13 283143.231 -314781.9 |
MOST-NEGATIVE-SINGLE-FLOAT |
92 |
1.31283d2 834.13812D-45 |
LEAST-NEGATIVE-SINGLE-FLOAT |
93 |
8131238.1E14 -4618926.231e-2 |
LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT |
94 |
-37818.131F3 81.318231f-19 |
MOST-NEGATIVE-DOUBLE-FLOAT |
95 |
1.31273s3 12361.12S-7 |
LEAST-NEGATIVE-DOUBLE-FLOAT |
96 |
6124.124l0 13123.1L-23)) |
LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT |
97 |
|
MOST-NEGATIVE-LONG-FLOAT |
98 |
|
LEAST-NEGATIVE-LONG-FLOAT |
99 |
|
LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT |
100 |
|
SHORT-FLOAT-EPSILON |
101 |
|
SHORT-FLOAT-NEGATIVE-EPSILON |
102 |
|
SINGLE-FLOAT-EPSILON |
103 |
|
SINGLE-FLOAT-NEGATIVE-EPSILON |
104 |
|
DOUBLE-FLOAT-EPSILON |
105 |
|
DOUBLE-FLOAT-NEGATIVE-EPSILON |
106 |
|
LONG-FLOAT-EPSILON |
107 |
|
LONG-FLOAT-NEGATIVE-EPSILON) |
108 |
|
when (boundp sym) collect (symbol-value sym)) |
109 |
|
(list |
110 |
|
0.0 1.0 -1.0 313123.13 283143.231 -314781.9 |
111 |
|
1.31283d2 834.13812D-45 |
112 |
|
8131238.1E14 -4618926.231e-2 |
113 |
|
-37818.131F3 81.318231f-19 |
114 |
|
1.31273s3 12361.12S-7 |
115 |
|
6124.124l0 13123.1L-23))) |
116 |
|
|
117 |
(defvar *ratios* |
(defvar *ratios* |
118 |
'(1/3 1/1000 1/1000000000000000 -10/3 -1000/7 -987129387912381/13612986912361 |
'(1/3 1/1000 1/1000000000000000 -10/3 -1000/7 -987129387912381/13612986912361 |
304 |
(make-hash-table :test #'eq) |
(make-hash-table :test #'eq) |
305 |
(make-hash-table :test #'eql) |
(make-hash-table :test #'eql) |
306 |
(make-hash-table :test #'equal) |
(make-hash-table :test #'equal) |
307 |
#-(or GCL CMU) (make-hash-table :test #'equalp) |
#-(or GCL CMU ECL) (make-hash-table :test #'equalp) |
308 |
)) |
)) |
309 |
|
|
310 |
(defvar *pathnames* |
(defvar *pathnames* |