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

[Frode Vatvedt Fjeld]

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

Modified Files:
	los-closette-compiler.lisp 
Log Message:
Cleaned up the exports from the muerte package, somewhat.

Date: Thu May  5 17:17:37 2005
Author: ffjeld

Index: movitz/losp/muerte/los-closette-compiler.lisp
diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.16 movitz/losp/muerte/los-closette-compiler.lisp:1.17
--- movitz/losp/muerte/los-closette-compiler.lisp:1.16	Tue May  3 21:49:25 2005
+++ movitz/losp/muerte/los-closette-compiler.lisp	Thu May  5 17:17:35 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 29 13:15:11 2002
 ;;;;                
-;;;; $Id: los-closette-compiler.lisp,v 1.16 2005/05/03 19:49:25 ffjeld Exp $
+;;;; $Id: los-closette-compiler.lisp,v 1.17 2005/05/05 15:17:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -613,9 +613,15 @@
   (defun movitz-make-instance-run-time-context (metaclass &rest all-keys &key name direct-superclasses direct-slots size slot-map plist &allow-other-keys)
     (declare (ignore all-keys))
     (let ((class (std-allocate-instance metaclass)))
-      (when size (setf (std-slot-value class 'size) size))
-      (setf (std-slot-value class 'slot-map) slot-map
-	    (std-slot-value class 'plist) plist)
+      (setf (std-slot-value class 'size)
+	(or size (bt:sizeof 'movitz::movitz-run-time-context)))
+      (setf (std-slot-value class 'slot-map)
+	(or slot-map
+	    (movitz::slot-map 'movitz::movitz-run-time-context
+			      (cl:+ (bt:slot-offset 'movitz::movitz-run-time-context
+						    'movitz::run-time-context-start)
+				    0))))
+      (setf (std-slot-value class 'plist) plist)
       (setf (movitz-class-name class) name)
       (setf (class-direct-subclasses class) ())
       (setf (class-direct-methods class) ())