From: Juho S. <js...@us...> - 2007-03-02 01:33:25
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5727/src/compiler Modified Files: main.lisp Log Message: 1.0.3.7: Compile XEPs using the policy from the correct environment * Didn't matter before the fop-compiler function handling changes. Index: main.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/main.lisp,v retrieving revision 1.122 retrieving revision 1.123 diff -u -d -r1.122 -r1.123 --- main.lisp 19 Feb 2007 11:55:53 -0000 1.122 +++ main.lisp 2 Mar 2007 01:33:20 -0000 1.123 @@ -978,6 +978,13 @@ definition :source-name name))) (debug-name (debug-name 'tl-xep name)) + ;; Convert the XEP using the policy of the real + ;; function. Otherwise the wrong policy will be used for + ;; deciding whether to type-check the parameters of the + ;; real function (via CONVERT-CALL / PROPAGATE-TO-ARGS). + ;; -- JES, 2007-02-27 + (*lexenv* (make-lexenv :policy (lexenv-policy + (functional-lexenv locall-fun)))) (fun (ir1-convert-lambda (make-xep-lambda-expression locall-fun) :source-name (or name '.anonymous.) :debug-name debug-name))) |