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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Changed exact-throw, the basic operator for dynamic control transfer,
quite a bit. The (ill-specified) primitive-function
dynamic-locate-catch-tag is removed, its essential job is now
performed by the normal function find-catch-tag.

Date: Fri Nov 12 15:51:29 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.75 movitz/image.lisp:1.76
--- movitz/image.lisp:1.75	Thu Nov 11 20:27:33 2004
+++ movitz/image.lisp	Fri Nov 12 15:51:28 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.75 2004/11/11 19:27:33 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.76 2004/11/12 14:51:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -172,11 +172,6 @@
     :map-binary-read-delayed 'movitz-word-code-vector
     :binary-type code-vector-word)
    (dynamic-store
-    :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-locate-catch-tag
     :map-binary-write 'movitz-intern-code-vector
     :binary-tag :primitive-function
     :map-binary-read-delayed 'movitz-word-code-vector