(defconstant-eqx float-traps-byte (byte 5 0) #'equal)
(defconstant-eqx float-exceptions-byte (byte 5 27) #'equal)
(def!constant float-condition-bit (ash 1 26))
(defconstant-eqx float-traps-byte (byte 5 0) #'equal)
(defconstant-eqx float-exceptions-byte (byte 5 27) #'equal)
(def!constant float-condition-bit (ash 1 26))