(setf (codegen-vars codegen)
(cons (make-var-inst name type init) vars)))
((not (c-type-equal-p type (inst-type var)))
(setf (codegen-vars codegen)
(cons (make-var-inst name type init) vars)))
((not (c-type-equal-p type (inst-type var)))
(stack :initform nil :type list :accessor codegen-stack))
(:documentation
"A full-fat code generator which can generate and track functions.
(stack :initform nil :type list :accessor codegen-stack))
(:documentation
"A full-fat code generator which can generate and track functions.