+ (defreg float0 0 :float)
+ (defreg float1 1 :float)
+ (defreg float2 2 :float)
+ (defreg float3 3 :float)
+ (defreg float4 4 :float)
+ (defreg float5 5 :float)
+ (defreg float6 6 :float)
+ (defreg float7 7 :float)
+ (defreg float8 8 :float)
+ (defreg float9 9 :float)
+ (defreg float10 10 :float)
+ (defreg float11 11 :float)
+ (defreg float12 12 :float)
+ (defreg float13 13 :float)
+ (defreg float14 14 :float)
+ (defreg float15 15 :float)
+ (defregset *float-regs* float0 float1 float2 float3 float4 float5 float6 float7
+ float8 float9 float10 float11 float12 float13 float14 float15)