Loading src/code/reader.lisp +2 −0 Original line number Diff line number Diff line Loading @@ -1880,6 +1880,8 @@ the end of the stream." (error _"Underflow")) result)) (floating-point-underflow () ;; Resignal the underflow, but allow the user to continue with ;; 0. (let ((zero (coerce 0 float-format))) (restart-case (error 'floating-point-underflow) Loading Loading
src/code/reader.lisp +2 −0 Original line number Diff line number Diff line Loading @@ -1880,6 +1880,8 @@ the end of the stream." (error _"Underflow")) result)) (floating-point-underflow () ;; Resignal the underflow, but allow the user to continue with ;; 0. (let ((zero (coerce 0 float-format))) (restart-case (error 'floating-point-underflow) Loading