Resposta ao exercício 73

(defmacro seja (vars-vals &rest exprs)
  `((lambda ,(mapcar #'car vars-vals)
    ,@exprs)
  ,@(mapcar #'cadr vars-vals)))

> (seja ((x 10) (y 20)) (+ x y))
30

Como se disse, esta macro já existe em Lisp e designa-se let.