Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12579 Modified Files: special-operators-cl.lisp Log Message: Have tagbody set up a dynamic control transfer target properly. Date: Tue Jan 4 21:22:02 2005 Author: ffjeld Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.41 movitz/special-operators-cl.lisp:1.42 --- movitz/special-operators-cl.lisp:1.41 Tue Jan 4 17:54:02 2005 +++ movitz/special-operators-cl.lisp Tue Jan 4 21:22:00 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.41 2005/01/04 16:54:02 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.42 2005/01/04 20:22:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -722,7 +722,7 @@ ;; catcher (:locally (:pushl (:edi (:edi-offset dynamic-env)))) (:pushl ',label-set-name) - (:pushl :eax) + (:locally (:pushl (:edi (:edi-offset unbound-function)))) (:pushl :ebp) (:locally (:movl :esp (:edi (:edi-offset dynamic-env))))) maybe-store-esp-code