Plaster

(defun fu (x y) (with-accessors ((bar-x bar)) x (with-accessors ((bar-y bar)) y ...)))