Bind multiple collectors. Each element of NAMES should be a list as per WITH-COLLECTOR's first orgument.
(defmacro with-collectors (names &body body)
"Bind multiple collectors. Each element of NAMES should be a
list as per WITH-COLLECTOR's first orgument."
(if names
`(with-collector ,(ensure-list (car names))
(with-collectors ,(cdr names) ,@body))
`(progn ,@body)))Source Context