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

Source

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