;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(nth-value 0 (parse-integer eui))))
eui))
-(defconstant +cuisui-scale+ 10000000)
-(declaim (type (integer 0 10000000) +cuisui-scale+))
+(defconstant +cuisui-scale+ 100000000)
+(declaim (type (integer 0 100000000) +cuisui-scale+))
#+(or 64bit x86-64)
(defun make-cuisui (cui sui)
- (declare (type (integer 0 10000000) cui sui)
+ (declare (type (integer 0 100000000) cui sui)
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum
(+ (the fixnum (* +cuisui-scale+ cui)) sui)))
#+(or 64bit x86-64)
(defun make-cuilui (cui lui)
- (declare (type (integer 0 10000000) cui lui)
+ (declare (type (integer 0 100000000) cui lui)
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum
(+ (the fixnum (* +cuisui-scale+ cui)) lui)))