簡単に言えば？次のような感じで使ったりする。
(defun translator (tr)
  (destructuring-bind  (in . out) tr
    (lambda(c)
      (if (eql in c) out in ))))

CL-USER> (funcall (translator '(c .'(a b))) 'b)
C
CL-USER> (funcall (translator '(c .'(a b))) 'c)
'(A B)