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

Modified Files: image.lisp Log Message: Added support for pliant protocol for dynamic binding.

Date: Wed Nov 10 18:34:40 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.73 movitz/image.lisp:1.74 --- movitz/image.lisp:1.73 Tue Nov 2 16:53:30 2004 +++ movitz/image.lisp Wed Nov 10 18:34:40 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.73 2004/11/02 15:53:30 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.74 2004/11/10 17:34:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -191,6 +191,16 @@ :binary-tag :primitive-function :map-binary-read-delayed 'movitz-word-code-vector :binary-type code-vector-word) + (dynamic-variable-install + :map-binary-write 'movitz-intern-code-vector + :binary-tag :primitive-function + :map-binary-read-delayed 'movitz-word-code-vector + :binary-type code-vector-word) + (dynamic-variable-uninstall + :map-binary-write 'movitz-intern-code-vector + :binary-tag :primitive-function + :map-binary-read-delayed 'movitz-word-code-vector + :binary-type code-vector-word) (assert-1arg :map-binary-write 'movitz-intern-code-vector :binary-tag :primitive-function @@ -435,7 +445,7 @@ (segment-descriptor-shifted-code ; 3: 1 MB shifted flat code segment :binary-type segment-descriptor :initform (make-segment-descriptor :base (image-cs-segment-base *image*) - :limit #xfff00 :type 10 :dpl 0 + :limit #xfff00 :type 14 :dpl 0 :flags '(s p d/b g))) (segment-descriptor-shifted-data ; 4: 1 MB shifted flat data segment :binary-type segment-descriptor