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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Have compile-lexical-variable always return final-form, even when
in :ignored mode.

Date: Sun Feb 27 03:30:30 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.134 movitz/compiler.lisp:1.135
--- movitz/compiler.lisp:1.134	Wed Feb  2 08:48:58 2005
+++ movitz/compiler.lisp	Sun Feb 27 03:30:22 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.134 2005/02/02 07:48:58 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.135 2005/02/27 02:30:22 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5704,7 +5704,8 @@
     (check-type binding lexical-binding)
     (case (operator result-mode)
       (:ignore
-       (compiler-values ()))
+       (compiler-values ()
+	 :final-form binding))
       (t (let ((returns (ecase (result-mode-type result-mode)
 			  ((:function :multiple-values :eax)
 			   :eax)