- (sui (string-append ls (format nil "KCUISUI=~D" (make-cuisui cui sui))))
- (lui (string-append ls (format nil "KCUILUI=~D and sui=0"
- (make-cuilui cui lui))))
- (t (string-append ls (format nil "cui=~D and lui=0 and sui=0" cui))))
+ (sui (string-append ls "KCUISUI="
+ (integer-string (make-cuisui cui sui) 14)))
+ (lui (string-append ls "KCUILUI="
+ (integer-string (make-cuilui cui lui) 14)
+ " and sui=0"))
+ (t (string-append ls "cui=" (prefixed-fixnum-string cui nil 7)
+ " and lui=0 and sui=0")))