(defmethod book-indexes-sorted ((book book)) (sort (hash-table-keys (indexes book)) #'string< :key (lambda (descriptor-class) (pretty-label-prefix (make-instance descriptor-class)))))