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

[Frode Vatvedt Fjeld]

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

Modified Files:
	defstruct.lisp 
Log Message:
A small change in strategy for allocating memory.

Date: Mon Mar 22 11:37:59 2004
Author: ffjeld

Index: movitz/losp/muerte/defstruct.lisp
diff -u movitz/losp/muerte/defstruct.lisp:1.2 movitz/losp/muerte/defstruct.lisp:1.3
--- movitz/losp/muerte/defstruct.lisp:1.2	Mon Jan 19 06:23:46 2004
+++ movitz/losp/muerte/defstruct.lisp	Mon Mar 22 11:37:59 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Jan 22 13:10:59 2001
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: defstruct.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $
+;;;; $Id: defstruct.lisp,v 1.3 2004/03/22 16:37:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -212,8 +212,7 @@
 		      if (and constructor (symbolp constructor))
 		      collect
 			`(defun ,constructor (&key , at key-lambda)
-			   (let ((s (inline-malloc ,(logand -8 (+ #.(bt:sizeof 'movitz::movitz-struct)
-								  (* 4 (1+ (length slot-names))))))))
+			   (let ((s (malloc-words ,(length slot-names))))
 			     (setf (memref s #.(bt:slot-offset 'movitz::movitz-struct 'movitz::name)
 						    0 :lisp)
 			       ',struct-name)
@@ -235,8 +234,7 @@
 			       (boa-lambda-list (cdr constructor))
 			       (boa-variables (movitz::list-normal-lambda-list-variables boa-lambda-list)))
 			  `(defun ,boa-constructor ,boa-lambda-list
-			     (let ((s (inline-malloc ,(logand -8 (+ #.(bt:sizeof 'movitz::movitz-struct)
-								  (* 4 (1+ (length slot-names))))))))
+			     (let ((s (malloc-words ,(length slot-names))))
 			       (setf (memref s #.(bt:slot-offset 'movitz::movitz-struct 'movitz::name)
 						      0 :lisp)
 				 ',struct-name)