/[gcl]/gcl/ansi-tests/universe.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/universe.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Wed Jan 29 00:42:25 2003 UTC revision 1.5 by pfdietz, Tue Feb 11 13:39:07 2003 UTC
# Line 71  Line 71 
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
# Line 285  Line 304 
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*

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26