Method: (P-EQL PERSISTENT-DATA PERSISTENT-DATA)

Source

(defmethod p-eql ((a persistent-data) (b persistent-data))
  (= (object-id a) (object-id b)))