Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29014
Modified Files: integers.lisp Log Message: Add some type declarations.
Date: Fri Aug 26 21:39:14 2005 Author: ffjeld
Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.108 movitz/losp/muerte/integers.lisp:1.109 --- movitz/losp/muerte/integers.lisp:1.108 Wed Aug 24 09:31:40 2005 +++ movitz/losp/muerte/integers.lisp Fri Aug 26 21:39:14 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.108 2005/08/24 07:31:40 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.109 2005/08/26 19:39:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -803,6 +803,7 @@ (let ((result (%make-bignum (1+ (ceiling result-length 32))))) (let ((src-max-bigit (* 2 (%bignum-bigits integer)))) (dotimes (i (* 2 (%bignum-bigits result))) + (declare (index i)) (let ((src (+ i long))) (setf (memref result -2 :index i :type :unsigned-byte16) (if (< src src-max-bigit)