-(defconstant float-invalid-trap-bit (ash 1 0))
-(defconstant float-denormal-trap-bit (ash 1 1))
-(defconstant float-divide-by-zero-trap-bit (ash 1 2))
-(defconstant float-overflow-trap-bit (ash 1 3))
-(defconstant float-underflow-trap-bit (ash 1 4))
-(defconstant float-inexact-trap-bit (ash 1 5))
-
-(defconstant float-round-to-nearest 0)
-(defconstant float-round-to-negative 1)
-(defconstant float-round-to-positive 2)
-(defconstant float-round-to-zero 3)
+(def!constant float-invalid-trap-bit (ash 1 0))
+(def!constant float-denormal-trap-bit (ash 1 1))
+(def!constant float-divide-by-zero-trap-bit (ash 1 2))
+(def!constant float-overflow-trap-bit (ash 1 3))
+(def!constant float-underflow-trap-bit (ash 1 4))
+(def!constant float-inexact-trap-bit (ash 1 5))
+
+(def!constant float-round-to-nearest 0)
+(def!constant float-round-to-negative 1)
+(def!constant float-round-to-positive 2)
+(def!constant float-round-to-zero 3)