-(defconstant float-inexact-trap-bit (ash 1 4)) ; rw
-(defconstant float-underflow-trap-bit (ash 1 3)) ; rw
-(defconstant float-overflow-trap-bit (ash 1 2)) ; ro
-(defconstant float-divide-by-zero-trap-bit (ash 1 1)) ; ro
-(defconstant float-invalid-trap-bit (ash 1 0)) ; ro
+(def!constant float-inexact-trap-bit (ash 1 4)) ; rw
+(def!constant float-underflow-trap-bit (ash 1 3)) ; rw
+(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