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