From 9d2c1984c5cb514c40e9c87b7d37a5be50e0e492 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 25 Oct 2004 14:41:53 +0000
Subject: [PATCH] Fixed improperly constructed when-do forms in a loop

---
 ansi-tests/with-output-to-string.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/with-output-to-string.lsp b/ansi-tests/with-output-to-string.lsp
index d3b96e48..e4971572 100644
--- a/ansi-tests/with-output-to-string.lsp
+++ b/ansi-tests/with-output-to-string.lsp
@@ -97,8 +97,8 @@
 		 (loop for i below 256
 		       for c = (code-char i)
 		       when (typep c 'base-char)
-		       do (write-char c s)
-		       do (vector-push c str1)))))
+		       do (progn (write-char c s)
+				 (vector-push c str1))))))
     (if (string= str1 str2) :good
       (list str1 str2)))
   :good)
-- 
GitLab