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