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

[Frode Vatvedt Fjeld]

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

Modified Files:
	los-closette.lisp 
Log Message:
A small change in strategy for allocating memory.

Date: Mon Mar 22 11:38:10 2004
Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp
diff -u movitz/losp/muerte/los-closette.lisp:1.5 movitz/losp/muerte/los-closette.lisp:1.6
--- movitz/losp/muerte/los-closette.lisp:1.5	Thu Feb 26 06:40:44 2004
+++ movitz/losp/muerte/los-closette.lisp	Mon Mar 22 11:38:10 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Jul 23 14:29:10 2002
 ;;;;                
-;;;; $Id: los-closette.lisp,v 1.5 2004/02/26 11:40:44 ffjeld Exp $
+;;;; $Id: los-closette.lisp,v 1.6 2004/03/22 16:38:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -119,7 +119,7 @@
 
 
 (defun allocate-std-instance (class slots)
-  (let ((instance (inline-malloc #.(bt:sizeof 'movitz:movitz-std-instance) :tag :other)))
+  (let ((instance (malloc-clumps 2)))
     (setf (memref instance #.(bt:slot-offset 'movitz:movitz-struct 'movitz:type)
 		  0 :unsigned-byte8)
       #.(movitz:tag :std-instance))
@@ -1137,9 +1137,7 @@
     (check-type class structure-class)
     (let* ((slots (structure-slots class))
 	   (num-slots (length slots))
-	   (struct (inline-malloc (+ #.(bt:sizeof 'movitz::movitz-struct)
-				     (* 4 num-slots)
-				     (if (evenp num-slots) 0 1)))))
+	   (struct (malloc-words num-slots)))
       (setf (memref struct #.(bt:slot-offset 'movitz::movitz-struct 'movitz::name)
 		    0 :lisp)
 	(class-name class))