X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Floop.lisp;h=c000ead5a974b52e63906de77fa3daa6487e306d;hb=835768a81dad03b7eb94c2058e234413ba066396;hp=4be06cbe0e66f992a5386f214b0998da34b30fc7;hpb=c68bb6b62d2813eb5af3cb7d4502625990a933d6;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index 4be06cb..c000ead 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -1156,7 +1156,7 @@ code to be loaded.
     (setq *loop-names* (list name))))
 
 (defun loop-do-return ()
-  (loop-pseudo-body (loop-construct-return (loop-get-form))))
+  (loop-emit-body (loop-construct-return (loop-get-form))))
 
 ;;;; value accumulation: LIST