+(defun char-attribute-name< (ka kb)
+ (cond
+ ((find-charset ka)
+ (cond
+ ((find-charset kb)
+ (cond
+ ((= (charset-dimension ka)
+ (charset-dimension kb))
+ (cond ((= (charset-chars ka)(charset-chars kb))
+ (cond
+ ((>= (charset-final ka) ?@)
+ (if (>= (charset-final kb) ?@)
+ (< (charset-final ka)
+ (charset-final kb))
+ t))
+ ((>= (charset-final ka) ?0)
+ (cond
+ ((>= (charset-final kb) ?@)
+ nil)
+ ((>= (charset-final kb) ?0)
+ (< (charset-final ka)
+ (charset-final kb)))
+ (t)))))
+ ((<= (charset-chars ka)(charset-chars kb)))))
+ (t
+ (< (charset-dimension ka)
+ (charset-dimension kb))
+ )))
+ (t)))
+ ((find-charset kb)
+ t)
+ ((symbolp ka)
+ (cond ((symbolp kb)
+ (string< (symbol-name ka)
+ (symbol-name kb)))
+ (t)))
+ ((symbolp kb)
+ nil)))
+