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@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) ())