(defun gen-var (symbol env)
(let ((frame (find symbol env
:test #'find)))
(if frame ;; local variable
(gen 'LVAR
(position frame env)
(position symbol frame)
";" symbol)
(gen 'GVAR symbol))))