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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Replace dynamic-find-binding with dynamic-load-unprotected. Add rtc-slot scratch2.

Date: Thu Nov 11 20:27:34 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.74 movitz/image.lisp:1.75
--- movitz/image.lisp:1.74	Wed Nov 10 18:34:40 2004
+++ movitz/image.lisp	Thu Nov 11 20:27:33 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.74 2004/11/10 17:34:40 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.75 2004/11/11 19:27:33 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -161,7 +161,7 @@
     :map-binary-write 'movitz-intern-code-vector
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-tag :primitive-function)
-   (dynamic-find-binding
+   (dynamic-load-unprotected
     :map-binary-write 'movitz-intern-code-vector
     :binary-tag :primitive-function
     :map-binary-read-delayed 'movitz-word-code-vector
@@ -476,6 +476,9 @@
     :initform 0)
    (non-pointers-end :binary-type :label) ; ========= NON-POINTER-END =======
    (scratch1
+    :binary-type word
+    :initform 0)
+   (scratch2
     :binary-type word
     :initform 0)
    (ret-trampoline