16 |
short-float single-float double-float long-float) |
short-float single-float double-float long-float) |
17 |
for x in '(0.0s0 0.0f0 0.0d0 0.0l0 |
for x in '(0.0s0 0.0f0 0.0d0 0.0l0 |
18 |
-0.0s0 -0.0f0 -0.0d0 -0.0l0) |
-0.0s0 -0.0f0 -0.0d0 -0.0l0) |
19 |
for s1 = (format nil "~f" x) |
for s1 = (let ((*read-default-float-format* type)) (format nil "~f" x)) |
20 |
for s2 = (let ((*read-default-float-format* type)) |
for s2 = (let ((*read-default-float-format* type)) (prin1-to-string x)) |
|
(prin1-to-string x)) |
|
21 |
unless (string=t s1 s2) |
unless (string=t s1 s2) |
22 |
collect (list x type s1 s2))) |
collect (list x type s1 s2))) |
23 |
nil) |
nil) |
29 |
for type = (elt #(short-float single-float double-float long-float) i) |
for type = (elt #(short-float single-float double-float long-float) i) |
30 |
for x = (expt (coerce 10 type) |
for x = (expt (coerce 10 type) |
31 |
(- (random 10.0s0) 3)) |
(- (random 10.0s0) 3)) |
32 |
for s1 = (format nil "~f" x) |
for s1 = (let ((*read-default-float-format* type)) (format nil "~f" x)) |
33 |
for s2 = (let ((*read-default-float-format* type)) (prin1-to-string x)) |
for s2 = (let ((*read-default-float-format* type)) (prin1-to-string x)) |
34 |
repeat 1000 |
repeat 1000 |
35 |
when (and (<= 1/1000 x) |
when (and (<= 1/1000 x) |
45 |
for type = (elt #(short-float single-float double-float long-float) i) |
for type = (elt #(short-float single-float double-float long-float) i) |
46 |
for x = (- (expt (coerce 10 type) |
for x = (- (expt (coerce 10 type) |
47 |
(- (random 10.0s0) 3))) |
(- (random 10.0s0) 3))) |
48 |
for s1 = (format nil "~f" x) |
for s1 = (let ((*read-default-float-format* type)) (format nil "~f" x)) |
49 |
for s2 = (let ((*read-default-float-format* type)) (prin1-to-string x)) |
for s2 = (let ((*read-default-float-format* type)) (prin1-to-string x)) |
50 |
repeat 1000 |
repeat 1000 |
51 |
when (and (>= -1/1000 x) |
when (and (>= -1/1000 x) |