Plaster

(defmacro logged-let (stream bindings &body body) (let ((vars (mapcar #'first bindings))) `(let ,bindings (generic-logger ,stream ,@(mapcar (lambda (var) `(list ',var ,var)) vars)) (locally ,@body)))