[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Have run-time-context-class be a proper metaclass for run-time-context.

Date: Sun May  1 01:22:14 2005
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.92 movitz/image.lisp:1.93
--- movitz/image.lisp:1.92	Sat Apr 30 23:15:35 2005
+++ movitz/image.lisp	Sun May  1 01:22:14 2005
@@ -4,12 +4,12 @@
 ;;;;    Department of Computer Science, University of Tromso, Norway.
 ;;;; 
 ;;;; Filename:      image.lisp
-;;;; Description:   Construction of LispOS images.
+;;;; Description:   Construction of Movitz images.
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.92 2005/04/30 21:15:35 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.93 2005/04/30 23:22:14 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -876,7 +876,7 @@
     (movitz-read (movitz-environment-setf-function-names *movitz-global-environment*) t))
   (setf (run-time-context-class (image-run-time-context *image*))
     (muerte::movitz-find-class 'muerte::run-time-context))
-  (setf (run-time-context-slots (image-run-time-context *image*)) #(1 2 3))
+  ;;  (setf (run-time-context-slots (image-run-time-context *image*)) #(1 2 3))
   (let ((load-address (image-start-address *image*)))
     (setf (image-cons-pointer *image*) (- load-address
 					  (image-ds-segment-base *image*))