diff options
Diffstat (limited to 'tests/011/special-1.tl')
| -rw-r--r-- | tests/011/special-1.tl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/tests/011/special-1.tl b/tests/011/special-1.tl index 8e2c6f9b..7461b730 100644 --- a/tests/011/special-1.tl +++ b/tests/011/special-1.tl @@ -1,8 +1,4 @@ -(defmacro with-output-to-string ((var) . forms) - ^(let ((,var (make-string-output-stream))) - (progn ,*forms (get-string-from-stream ,var)))) - -(let ((x (with-output-to-string (*stdout*) +(let ((x (with-out-string-stream (*stdout*) [format *stdout* "wo"] (format t "rld!")))) (format *stdout* "Hello, ") |