Plaster
New
List
Login
common-lisp
default
anonymous
2022.01.14 13:37:03
(defmacro foo (symlist start-vals end-vals &body body) (if symlist `(loop for ,(car symlist) from ,(car start-vals) below ,(car end-vals) do (foo ,(cdr symlist) ,(cdr start-vals) ,(cdr end-vals) ,@body)) `(progn ,@body)))
Raw
Annotate
Repaste
Edit