diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:51:05 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:51:05 -0800 |
| commit | 34fe393aba5271cba73b60fb5fcad646099c7f28 (patch) | |
| tree | 60a1eb0c5992625923ed560813c702c7733f8a07 /tests | |
| parent | 7fd45c0473e75eac56b4496cec89d6c4186aff18 (diff) | |
| download | txr-34fe393aba5271cba73b60fb5fcad646099c7f28.tar.gz txr-34fe393aba5271cba73b60fb5fcad646099c7f28.tar.bz2 txr-34fe393aba5271cba73b60fb5fcad646099c7f28.zip | |
Use with-out-string-stream macro in test.
* tests/011/special-1.tl (with-output-to-string): macro
removed; with-out-string-stream used.
Diffstat (limited to 'tests')
| -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, ") |