(defstruct foo
  x
  y)


(defvar foo-x #'(lambda (foo) (foo-x foo)))