(defmacro def-compare-expr (instance-type name expr &key value-format)
`(defmethod ,name ((instance ,instance-type) slot-name value)
(declare (ignore instance))
(defmacro def-compare-expr (instance-type name expr &key value-format)
`(defmethod ,name ((instance ,instance-type) slot-name value)
(declare (ignore instance))