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

Source

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