- ;; PRINT seems to not 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.
- '(:overflow #!-x86 :underflow :invalid
- :divide-by-zero))
+ '(: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))