mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 23:30:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Undo mistake

Browse source
This commit is contained in:
jjgarcia 2005-01-11 17:28:46 +00:00
parent 3daeb3ca60
commit 8ef48dd950
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/iolib.lsp
View file

@ -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