-(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 (or (<= (charset-id ka) 1)
- (and (charset-final ka)
- (>= (charset-final ka) ?@)))
- (if (or (<= (charset-id kb) 1)
- (and (charset-final kb)
- (>= (charset-final kb) ?@)))
- (cond
- ((= (charset-dimension ka)
- (charset-dimension kb))
- (if (and (<= (charset-id ka) 1)
- (<= (charset-id kb) 1))
- (> (charset-id ka)(charset-id kb))
- (if (and (charset-final ka)
- (charset-final kb))
- (cond
- ((= (charset-final ka)(charset-final kb))
- (if (<= (charset-id ka) 1)
- (if (<= (charset-id kb) 1)
- (> (charset-id ka)(charset-id kb))
- t)
- (if (<= (charset-id kb) 1)
- nil
- (< (charset-id ka)(charset-id kb))))
- )
- ((< (charset-final ka)(charset-final kb))
- ))
- (if (<= (charset-id ka) 1)
- (if (<= (charset-id kb) 1)
- (> (charset-id ka)(charset-id kb))
- t)
- (if (<= (charset-id kb) 1)
- nil
- (cond ((and (charset-final ka)
- (>= (charset-final ka) ?@))
- t)
- ((and (charset-final kb)
- (>= (charset-final kb) ?@))
- nil)
- (t
- (< (charset-id ka)(charset-id kb))
- ))))))
- )
- (t
- (> (charset-dimension ka)
- (charset-dimension kb))
- ))
- t)
- (if (or (<= (charset-id kb) 1)
- (and (charset-final kb)
- (>= (charset-final kb) ?@)))
- 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)))
-