- (let ((found-ustr nil))
- (dolist (uterm (s#term ucon))
- (unless found-ustr
- (dolist (ustr (s#str uterm))
- (unless found-ustr
- (when (string-equal sui (sui ustr))
- (setq found-ustr ustr))))))
- found-ustr))
+ (dolist (uterm (s#term ucon))
+ (dolist (ustr (s#str uterm))
+ (when (string-equal sui (sui ustr))
+ (return-from find-ustr-in-ucon ustr)))))