+ (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))
+ ))))))
+ )