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