Plaster

(defstruct point x y) (fmakunbound 'point-x) ;; asdf:load-system produces warning about multiple definitions of POINT-X ;; and fails to compile the file (defun point-x (point) 1)