(in-package "CL-USER")

(defun a-struct-referencer-1 (struct)
  (a-struct-slot struct))