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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Removed global-properties from run-time-context. Put the hash-table of
all packages in *packages* instead.

Date: Thu May  5 15:21:40 2005
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.96 movitz/image.lisp:1.97
--- movitz/image.lisp:1.96	Thu May  5 15:02:37 2005
+++ movitz/image.lisp	Thu May  5 15:21:40 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.96 2005/05/05 13:02:37 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.97 2005/05/05 13:21:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -428,13 +428,7 @@
     :accessor movitz-run-time-context-interrupt-descriptor-table
     :initform (make-array 256 :initial-element 'muerte::default-interrupt-trampoline)
     :map-binary-read-delayed 'movitz-word
-    :map-binary-write 'map-interrupt-trampolines-to-idt)
-   (global-properties
-    :binary-type word
-    :initform nil
-    :accessor movitz-run-time-context-global-properties
-    :map-binary-write 'movitz-intern
-    :map-binary-read-delayed 'movitz-word))
+    :map-binary-write 'map-interrupt-trampolines-to-idt))
   (:slot-align null-symbol -5))
 
 (defun atomically-continuation-simple-pf (pf-name)
@@ -940,12 +934,8 @@
 	      do (let ((mname (movitz-read var))
 		       (mvalue (movitz-read (symbol-value var))))
 		   (setf (movitz-symbol-value mname) mvalue)))
-	  (setf (movitz-run-time-context-global-properties run-time-context)
-	    (movitz-read (list :packages (make-packages-hash)
-			       :trampoline-funcall%1op (find-primitive-function
-							'muerte::trampoline-funcall%1op)
-			       :trampoline-funcall%2op (find-primitive-function
-							'muerte::trampoline-funcall%2op)))))
+	  (setf (movitz-symbol-value (movitz-read 'muerte::*packages*))
+	    (movitz-read (make-packages-hash))))
 	(with-binary-file (stream path
 				  :check-stream t
 				  :direction :output