From 8ef48dd950460fd8a87fa9c4ef94acacc226fd43 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 11 Jan 2005 17:28:46 +0000
Subject: [PATCH] Undo mistake

---
 src/lsp/iolib.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp
index be2b78a6c..7748bc054 100644
--- a/src/lsp/iolib.lsp
+++ b/src/lsp/iolib.lsp
@@ -46,7 +46,7 @@ Evaluates FORMs with VAR bound to a string output stream to the string that is
 the value of STRING-FORM.  If STRING-FORM is not given, a new string is used.
 The stream is automatically closed on exit and the string is returned."
   (if string
-      `(LET ((,var (MAKE-STRING-OUTPUT-STREAM-FROM-STRING ,string ,@r)))
+      `(LET ((,var (MAKE-STRING-OUTPUT-STREAM-FROM-STRING ,string)))
          ,@body)
       `(LET ((,var (MAKE-STRING-OUTPUT-STREAM ,@r)))
          ,@body