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