From: Christophe Rhodes Date: Wed, 21 May 2008 12:25:44 +0000 (+0000) Subject: 1.0.16.42: Fix LOCALLY in fopcompiled context X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=a69ce2e3ddf66eb87010ecdd3617a286caa8e69a;p=sbcl.git 1.0.16.42: Fix LOCALLY in fopcompiled context Patch by Juho Snellman; gentle prodding by Attila Lendvai. --- diff --git a/NEWS b/NEWS index d496869..d6e2011 100644 --- a/NEWS +++ b/NEWS @@ -41,6 +41,8 @@ changes in sbcl-1.0.17 relative to 1.0.16: 2.18.50.0.4 support. (thanks to Marijn Schouten) * bug fix: fix ECASE warnings from CMUCL-as-xc-host. (reported by Andreas Franke) + * bug fix: the fopcompiler can handle LOCALLY forms (with no + declarations) successfully. (reported by Attila Lendvai) changes in sbcl-1.0.16 relative to 1.0.15: * minor incompatible change: revert the changes to sb-posix's error diff --git a/src/compiler/fopcompile.lisp b/src/compiler/fopcompile.lisp index 3ddc35c..1a33385 100644 --- a/src/compiler/fopcompile.lisp +++ b/src/compiler/fopcompile.lisp @@ -321,7 +321,7 @@ for-value-p))) ((if) (fopcompile-if args path for-value-p)) - ((progn) + ((progn locally) (loop for (arg . next) on args do (fopcompile arg path (if next diff --git a/tests/compiler.test.sh b/tests/compiler.test.sh index 48aa64e..548f9ee 100644 --- a/tests/compiler.test.sh +++ b/tests/compiler.test.sh @@ -379,5 +379,10 @@ cat > $tmpfilename < $tmpfilename <