(agnostic-lizard:walk-form
 '(tagbody
   sb-loop::next-loop
     (setq #:l1238 ((cdr #:l1238)))
     (let* ((#:g2 (string-upcase p)) (#:new1 v))
       (funcall #'(setf vellum.table:rr) #:new1 #:g2))
     (go sb-loop::next-loop)
   sb-loop::end-loop)
 nil)