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