Your example looks great! Now i want (defmacro print-loop (line-start line-inc strings) (let ((i line-start)) `(main ,(mapcar (lambda (x) `(linenumber ,(setq line-start (+ line-start line-inc)) (print ,x))) strings)…
Your example looks great! Now i want (defmacro print-loop (line-start line-inc strings) (let ((i line-start)) `(main ,(mapcar (lambda (x) `(linenumber ,(setq line-start (+ line-start line-inc)) (print ,x))) strings)…