(defmacro yoba (place n)
  `(setf ,place
    (list ,@(loop :for i :upto n
                  :collect `(lambda () (print ,i))))))

(defun main (&aux azaza)
  (yoba azaza 367)
  (map nil #'funcall azaza))

(main)