Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv22316 Modified Files: inspect.lisp Log Message: Initialize properly with nil the fresh objects from malloc-clumps. Date: Fri Mar 26 09:05:20 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.3 movitz/losp/muerte/inspect.lisp:1.4 --- movitz/losp/muerte/inspect.lisp:1.3 Thu Mar 25 20:49:11 2004 +++ movitz/losp/muerte/inspect.lisp Fri Mar 26 09:05:20 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.3 2004/03/26 01:49:11 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.4 2004/03/26 14:05:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -179,6 +179,6 @@ (:globally (:call (:edi (:edi-offset malloc)))) (:addl #.(movitz::tag :other) :eax)))) (dotimes (i clumps) - (setf (memref x -6 i :lisp) nil - (memref x -2 i :lisp) nil)) + (setf (memref x -6 (* i 2) :lisp) nil + (memref x -2 (* i 2) :lisp) nil)) x))