- *backend-t-primitive-type*
- (primitive-type (leaf-type var))))
- (temp (make-normal-tn type))
- (node (lambda-bind fun))
- (res (if (or (and let-p (policy node (< debug 3)))
- (policy node (zerop debug))
- (policy node (= speed 3)))
- temp
- (physenv-debug-live-tn temp (lambda-physenv fun)))))
- (setf (tn-leaf res) var)
- (setf (leaf-info var) res))))
+ *backend-t-primitive-type*
+ (primitive-type (leaf-type var))))
+ (temp (make-normal-tn type))
+ (node (lambda-bind fun))
+ (res (if (or (and let-p (policy node (< debug 3)))
+ (policy node (zerop debug))
+ (policy node (= speed 3)))
+ temp
+ (physenv-debug-live-tn temp (lambda-physenv fun)))))
+ (setf (tn-leaf res) var)
+ (setf (leaf-info var) res))))