Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3802

Modified Files: inspect.lisp Log Message: Starting to implement the new data-structure for vectors.

Date: Thu Jun 17 02:49:18 2004 Author: ffjeld

Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.11 movitz/losp/muerte/inspect.lisp:1.12 --- movitz/losp/muerte/inspect.lisp:1.11 Wed Jun 9 13:23:48 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jun 17 02:49:18 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.11 2004/06/09 20:23:48 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.12 2004/06/17 09:49:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -211,6 +211,7 @@ (malloc-clumps clumps))

(defun malloc-words (words) + "Allocate space for at least (+ 2 words) cells/words." (malloc-clumps (1+ (truncate (1+ words) 2))))

(defun malloc-data-words (words)