- (declare (fixnum cui sui)
- (optimize (speed 3) (safety 0) (space 0)))
- (+ (* +cuisui-scale+ cui) sui))
+ (declare (type (integer 0 10000000) cui sui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (the fixnum
+ (+ (the fixnum (* +cuisui-scale+ cui)) sui)))
+
+#-(or 64bit x86-64)
+(defun make-cuisui (cui sui)
+ (when (and cui sui)
+ (locally (declare (fixnum cui sui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (+ (* +cuisui-scale+ cui) sui))))
+
+#+(or 64bit x86-64)
+(defun make-cuilui (cui lui)
+ (declare (type (integer 0 10000000) cui lui)
+ (optimize (speed 3) (safety 0) (space 0)))
+ (the fixnum
+ (+ (the fixnum (* +cuisui-scale+ cui)) lui)))