(defmacro with-foo ((a b &key foo) &body body) ...) (with-foo ((a (a-form)) (b (b-form)) :foo t) ...)