+ (declare (fixnum cui sui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (+ (* +cuisui-scale+ cui) sui))
+
+#+64bit
+(defun make-cuilui (cui lui)
+ (declare (fixnum cui lui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (the fixnum
+ (+ (the fixnum (* +cuisui-scale+ cui)) lui)))