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

Source

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