[movitz-cvs] CVS update: movitz/losp/muerte/bignums.lisp

[Frode Vatvedt Fjeld]

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 at 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)