(defmethod get-foreign-instances ((slot has-many-slot-presentation) instance)
(sort (slot-value instance (slot-name slot)) #'<
(defmethod get-foreign-instances ((slot has-many-slot-presentation) instance)
(sort (slot-value instance (slot-name slot)) #'<