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)