-(defun char-attribute-name< (ka kb)
- (cond
- ((eq '->denotational kb)
- t)
- ((eq '->subsumptive kb)
- (not (eq '->denotational ka)))
- ((eq '->denotational ka)
- nil)
- ((eq '->subsumptive ka)
- nil)
- ((and (symbolp ka)
- (string-match "^->" (symbol-name ka)))
- (cond ((and (symbolp kb)
- (string-match "^->" (symbol-name kb)))
- (string< (symbol-name ka)
- (symbol-name kb))
- ))
- )
- ((and (symbolp kb)
- (string-match "^->" (symbol-name kb)))
- t)
- ((and (symbolp ka)
- (string-match "^<-" (symbol-name ka)))
- (cond ((symbolp kb)
- (cond ((string-match "^<-" (symbol-name kb))
- (string< (symbol-name ka)
- (symbol-name kb))
- )
- ;; ((string-match "^->" (symbol-name kb))
- ;; t)
- )))
- )
- ((and (symbolp kb)
- (string-match "^<-" (symbol-name kb)))
- t
- ;; (not (string-match "^->" (symbol-name ka)))
- )
- ((find-charset ka)
- (if (find-charset kb)
- (if (<= (charset-id ka) 1)
- (if (<= (charset-id kb) 1)
- (cond
- ((= (charset-dimension ka)
- (charset-dimension kb))
- (> (charset-id ka)(charset-id kb)))
- (t
- (> (charset-dimension ka)
- (charset-dimension kb))
- ))
- t)
- (if (<= (charset-id kb) 1)
- nil
- (< (charset-id ka)(charset-id kb))))
- nil))
- ((find-charset kb)
- t)
- ((symbolp ka)
- (cond ((symbolp kb)
- (string< (symbol-name ka)
- (symbol-name kb)))
- (t)))
- ((symbolp kb)
- nil)))
-