[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-serv25840

Modified Files:
	los-closette-compiler.lisp 
Log Message:
Fix movitz-make-instance-run-time-context.

Date: Tue May  3 21:49:26 2005
Author: ffjeld

Index: movitz/losp/muerte/los-closette-compiler.lisp
diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.15 movitz/losp/muerte/los-closette-compiler.lisp:1.16
--- movitz/losp/muerte/los-closette-compiler.lisp:1.15	Sun May  1 01:22:28 2005
+++ movitz/losp/muerte/los-closette-compiler.lisp	Tue May  3 21:49:25 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.15 2005/04/30 23:22:28 ffjeld Exp $
+;;;; $Id: los-closette-compiler.lisp,v 1.16 2005/05/03 19:49:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -610,11 +610,12 @@
 					    :direct-superclasses direct-superclasses)
       class))
   
-  (defun movitz-make-instance-run-time-context (metaclass &rest all-keys &key name direct-superclasses direct-slots size slot-map &allow-other-keys)
+  (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)
+      (setf (std-slot-value class 'slot-map) slot-map
+	    (std-slot-value class 'plist) plist)
       (setf (movitz-class-name class) name)
       (setf (class-direct-subclasses class) ())
       (setf (class-direct-methods class) ())