X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffopcompile.lisp;h=1a3338593c7a07e608de595f200ce955e345509d;hb=2f8c59edcd41f03c5daebeaf87518b5071a19826;hp=3ddc35ca2315105a47c9ee6283a1e16a2bcf56a1;hpb=e89e37352f0992fb006057896e8eaa9bb15dc9d0;p=sbcl.git

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