- (set-floating-point-modes :traps
- '(:overflow
- :invalid
- :divide-by-zero
- ;; PRINT seems not to like x86 NPX
- ;; denormal floats like
- ;; LEAST-NEGATIVE-SINGLE-FLOAT, so
- ;; the :UNDERFLOW exceptions are
- ;; disabled by default. Joe User can
- ;; explicitly enable them if
- ;; desired.
- #!-x86 :underflow))
- ;; Clear pseudo atomic in case this core wasn't compiled with
- ;; support.
+ ;; PRINT seems not to like x86 NPX denormal floats like
+ ;; LEAST-NEGATIVE-SINGLE-FLOAT, so the :UNDERFLOW exceptions are
+ ;; disabled by default. Joe User can explicitly enable them if
+ ;; desired.