[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv10712

Modified Files:
	image.lisp 
Log Message:
Add allow-other-keys-symbol to run-time-context.


--- /project/movitz/cvsroot/movitz/image.lisp	2006/04/28 21:19:06	1.106
+++ /project/movitz/cvsroot/movitz/image.lisp	2007/02/06 20:02:41	1.107
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.106 2006/04/28 21:19:06 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.107 2007/02/06 20:02:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -389,6 +389,13 @@
     :map-binary-read-delayed (lambda (x type)
 			       (declare (ignore x type))
 			       (movitz-read nil)))
+   (allow-other-keys-symbol
+    :binary-type word
+    :initform :allow-other-keys
+    :map-binary-write 'movitz-read-and-intern
+    :map-binary-read-delayed (lambda (x type)
+			       (declare (ignore x type))
+			       (movitz-read nil)))
    (self
     :binary-type word
     :initform 6