(def!constant float-overflow-trap-bit (ash 1 2)) ; ro
(def!constant float-divide-by-zero-trap-bit (ash 1 1)) ; ro
(def!constant float-invalid-trap-bit (ash 1 0)) ; ro
(def!constant float-overflow-trap-bit (ash 1 2)) ; ro
(def!constant float-divide-by-zero-trap-bit (ash 1 1)) ; ro
(def!constant float-invalid-trap-bit (ash 1 0)) ; ro