Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6666 Modified Files: bignums.lisp Log Message: Minor bignum tweaks. Date: Mon Jul 19 07:44:21 2004 Author: ffjeld Index: movitz/losp/muerte/bignums.lisp diff -u movitz/losp/muerte/bignums.lisp:1.3 movitz/losp/muerte/bignums.lisp:1.4 --- movitz/losp/muerte/bignums.lisp:1.3 Sun Jul 18 17:54:25 2004 +++ movitz/losp/muerte/bignums.lisp Mon Jul 19 07:44:21 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Sat Jul 17 19:42:57 2004 ;;;; -;;;; $Id: bignums.lisp,v 1.3 2004/07/19 00:54:25 ffjeld Exp $ +;;;; $Id: bignums.lisp,v 1.4 2004/07/19 14:44:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -466,7 +466,7 @@ (defun bignum-set-zerof (bignum) (check-type bignum bignum) - (dotimes (i (logior 1 (%bignum-bigits bignum))) + (dotimes (i (%bignum-bigits bignum)) (setf (memref bignum -2 i :lisp) 0)) bignum)