3 lines
101 B
Plaintext
3 lines
101 B
Plaintext
(do-test "-0.0 doesn't blow up number printer"
|
|
(string= (write-to-string (* 0.0 -1.0)) "-0.0"))
|
|
STOP |