+(defun ucon-has-tui (ucon tui)
+ "Returns T if UCON has a semantic type of TUI."
+ (some #'(lambda (usty) (= tui (tui usty))) (s#sty ucon)))
+
+(defgeneric suistr (lo))
+(defmethod suistr ((lo ulo))
+ "Return the string for a ulo object"
+ (find-string-sui (sui lo)))
+