- (my-make-wired-tn 'system-area-pointer
- 'sap-reg
- (+ stack-frame-size nl0-offset))
- (my-make-wired-tn 'system-area-pointer
- 'sap-stack
- (* 2 (- stack-frame-size 4))))))
-
-(def-alien-type-method (double-float :arg-tn) (type state)
+ (my-make-wired-tn 'system-area-pointer
+ 'sap-reg
+ (+ stack-frame-size nl0-offset))
+ (my-make-wired-tn 'system-area-pointer
+ 'sap-stack
+ (* 2 (- stack-frame-size 4))))))
+
+(define-alien-type-method (double-float :arg-tn) (type state)