diff --git a/ansi-tests/with-output-to-string.lsp b/ansi-tests/with-output-to-string.lsp index d3b96e48ff8b496c05debcde173fedd5ea8abf1a..e4971572d9133ad465581a6c49093bb42f0679f4 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)