[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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