Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv6657
Modified Files: special-operators-cl.lisp Log Message: Fix the block operator's compiler not to return mode :ignore, rather :nothing.
Date: Tue Mar 30 14:36:15 2004 Author: ffjeld
Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.12 movitz/special-operators-cl.lisp:1.13 --- movitz/special-operators-cl.lisp:1.12 Wed Mar 24 13:36:41 2004 +++ movitz/special-operators-cl.lisp Tue Mar 30 14:36:15 2004 @@ -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.12 2004/03/24 18:36:41 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.13 2004/03/30 19:36:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -724,6 +724,7 @@ (t :eax))) (block-returns-mode (case block-result-mode (:function :multiple-values) + (:ignore :nothing) (t block-result-mode))) (block-env (make-instance 'lexical-exit-point-env :uplink env