Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv27803
Modified Files: image.lisp Log Message: Changed dynamic binding lookup protocol. Only use the "unbounded" primitive-function, and have the caller check whether the value is the unbound-value or not. And, rename to dynamic-variable-lookup.
Date: Thu Nov 18 18:58:46 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.79 movitz/image.lisp:1.80 --- movitz/image.lisp:1.79 Wed Nov 17 14:32:54 2004 +++ movitz/image.lisp Thu Nov 18 18:58:41 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.79 2004/11/17 13:32:54 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.80 2004/11/18 17:58:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -161,11 +161,6 @@ :map-binary-write 'movitz-intern-code-vector :map-binary-read-delayed 'movitz-word-code-vector :binary-tag :primitive-function) - (dynamic-variable-lookup-unbound - :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-lookup :map-binary-write 'movitz-intern-code-vector :binary-tag :primitive-function