From a751b9df33af76748f522dc08556979b7bcd0e17 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 27 Oct 2012 21:36:13 +0200 Subject: [PATCH] The compiled version of DOTIMES evaluated the output form in the wrong context --- src/cmp/cmpopt-type.lsp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpopt-type.lsp b/src/cmp/cmpopt-type.lsp index c3b0711e7..95a69ab3e 100644 --- a/src/cmp/cmpopt-type.lsp +++ b/src/cmp/cmpopt-type.lsp @@ -30,11 +30,12 @@ ,@declarations) (si::while (< ,variable ,%limit) ,@body - (reckless (setq ,variable (1+ ,variable)))))) + (reckless (setq ,variable (1+ ,variable)))) + ,@output)) (t (let ((,variable 0)) (declare ,@declarations) (si::while (< ,variable ,%limit) ,@body - (setq ,variable (1+ ,variable)))))) - ,@output))))) + (setq ,variable (1+ ,variable))) + ,@output))))))))