/[gcl]/gcl/ansi-tests/numbers-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/numbers-aux.lsp

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

revision 1.9 by pfdietz, Mon Sep 1 01:15:02 2003 UTC revision 1.10 by pfdietz, Mon Sep 1 19:13:25 2003 UTC
# Line 19  Line 19 
19          (not (floatp y))          (not (floatp y))
20          (etypecase y          (etypecase y
21            (short-float            (short-float
22             (<= #.(rationalize most-negative-short-float)             (<= #.(rational most-negative-short-float)
23                 x                 x
24                 #.(rationalize most-positive-short-float)))                 #.(rational most-positive-short-float)))
25            (single-float            (single-float
26             (<= #.(rationalize most-negative-single-float)             (<= #.(rational most-negative-single-float)
27                 x                 x
28                 #.(rationalize most-positive-single-float)))                 #.(rational most-positive-single-float)))
29            (double-float            (double-float
30             (<= #.(rationalize most-negative-double-float)             (<= #.(rational most-negative-double-float)
31                 x                 x
32                 #.(rationalize most-positive-double-float)))                 #.(rational most-positive-double-float)))
33            (long-float            (long-float
34             (<= #.(rationalize most-negative-long-float)             (<= #.(rational most-negative-long-float)
35                 x                 x
36                 #.(rationalize most-positive-long-float))))))))                     #.(rational most-positive-long-float))))))))    
37    
38  (defun =.4-fn ()  (defun =.4-fn ()
39    (loop for x in *numbers*    (loop for x in *numbers*

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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