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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Have the values part be last, so that the RTC as a whole follows the
<header part> <variable-length part> object layout pattern.

Date: Mon May  9 00:02:46 2005
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.99 movitz/image.lisp:1.100
--- movitz/image.lisp:1.99	Thu May  5 20:01:13 2005
+++ movitz/image.lisp	Mon May  9 00:02:46 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.99 2005/05/05 18:01:13 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.100 2005/05/08 22:02:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -310,12 +310,6 @@
 			(movitz-intern (movitz-env-named-function name))))
 
 
-   (num-values
-    :binary-type word			; Fixnum
-    :initform 0)
-   (values
-    :binary-type #.(* 4 +movitz-multiple-values-limit+))
-   
    (cons-pointer
     :binary-type code-vector-word
     :initform nil
@@ -414,7 +408,12 @@
     :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))
+    :map-binary-write 'map-interrupt-trampolines-to-idt)
+   (num-values
+    :binary-type word			; Fixnum
+    :initform 0)
+   (values
+    :binary-type #.(* 4 +movitz-multiple-values-limit+)))
   (:slot-align null-symbol -5))
 
 (defun atomically-continuation-simple-pf (pf-name)