
Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3876 Modified Files: inspect.lisp Log Message: Minor edit. Date: Tue Jul 13 07:29:22 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.18 movitz/losp/muerte/inspect.lisp:1.19 --- movitz/losp/muerte/inspect.lisp:1.18 Mon Jul 12 19:21:08 2004 +++ movitz/losp/muerte/inspect.lisp Tue Jul 13 07:29:22 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.18 2004/07/13 02:21:08 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.19 2004/07/13 14:29:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -322,7 +322,7 @@ copy-bignum-loop (:movl (:ebx :edx #.movitz:+other-type-offset+) :ecx) (:movl :ecx (:eax :edx #.movitz:+other-type-offset+)) - (:subl #.movitz:+movitz-fixnum-factor+ :edx) + (:subl 4 :edx) (:jnc 'copy-bignum-loop)))) (defun print-bignum (x)