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* |