It's possible to do more comprehensive testing with randomized tests. Something like ``` (let ((r (random most-positive-double-float))) (= r (parse-float:parse-float (prin1-to-string r) :type 'double-float :exponent-character #\d))) ```