loop*

(defmethod parse 'loop*
  [op encl-env form _ _]
  (analyze-let encl-env form true nil))

(defmethod emit* :loop [ast]
  (emit-let ast true))