[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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