183 |
nil) |
nil) |
184 |
|
|
185 |
(unless (eql 0.0s0 -0.0s0) |
(unless (eql 0.0s0 -0.0s0) |
186 |
(deftest subtypep.short-float.zero.2 |
(deftest subtypep.short-float.zero.2a |
187 |
(values (subtypep '(short-float 0.0s0) |
(values (subtypep '(short-float 0.0s0) |
188 |
'(or (short-float (0.0s0)) (member 0.0s0)))) |
'(or (short-float (0.0s0)) (member 0.0s0)))) |
189 |
nil) |
nil) |
190 |
(deftest subtypep.short-float.zero. |
(deftest subtypep.short-float.zero.2b |
191 |
(values (subtypep '(short-float 0.0s0) |
(values (subtypep '(short-float 0.0s0) |
192 |
'(or (short-float (0.0s0)) (member -0.0s0)))) |
'(or (short-float (0.0s0)) (member -0.0s0)))) |
193 |
nil)) |
nil)) |