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