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 | e435b66ee57400407bbf42c6684b137035dc3dad (patch) | |
| tree | 60a1eb0c5992625923ed560813c702c7733f8a07 | |
| parent | eddac77efc06d2f58130c0686009e6a68b342a06 (diff) | |
| download | txr-e435b66ee57400407bbf42c6684b137035dc3dad.tar.gz txr-e435b66ee57400407bbf42c6684b137035dc3dad.tar.bz2 txr-e435b66ee57400407bbf42c6684b137035dc3dad.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.
| -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, ") |