Original test:
(lambda ((a default) (b default)) #:name "(sqrt (/ -2.839573235346269e-37 (* (* a b) (fabs a))))" (sqrt (/ -2.839573235346269e-37 (* (* a b) (fabs a)))))