Plaster
New
List
Login
common-lisp
default
anonymous
2020.04.13 07:00:22
(defmacro async-code (&body code) `(let ((counter 0)) (lambda () (incf counter) (case counter ,@(loop for counter from 1 for form in code collect `(,counter ,form))))))
Raw
Annotate
Repaste
Edit