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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Re-working of non-local control transfer so as to comply with the
stack discipline.

Date: Fri Sep 17 13:12:55 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.68 movitz/image.lisp:1.69
--- movitz/image.lisp:1.68	Thu Sep 16 10:50:54 2004
+++ movitz/image.lisp	Fri Sep 17 13:12:55 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.68 2004/09/16 08:50:54 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.69 2004/09/17 11:12:55 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -470,7 +470,12 @@
     :initform '(:inactive))
    (atomically-esp
     :binary-type lu32
-    :initform 0))
+    :initform 0)
+   (dynamic-unwind-next
+    :map-binary-write 'movitz-intern-code-vector
+    :binary-tag :primitive-function
+    :map-binary-read-delayed 'movitz-word-code-vector
+    :binary-type code-vector-word))
   (:slot-align null-symbol -5))
 
 (defun atomically-status-simple-pf (pf-name reset-status-p &rest registers)