diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/011/special-1.tl | 9 | ||||
-rw-r--r-- | tests/011/special-1.txr | 10 |
2 files changed, 9 insertions, 10 deletions
diff --git a/tests/011/special-1.tl b/tests/011/special-1.tl new file mode 100644 index 00000000..8e2c6f9b --- /dev/null +++ b/tests/011/special-1.tl @@ -0,0 +1,9 @@ +(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*) + [format *stdout* "wo"] + (format t "rld!")))) + (format *stdout* "Hello, ") + (put-line x)) diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr deleted file mode 100644 index f3e92a03..00000000 --- a/tests/011/special-1.txr +++ /dev/null @@ -1,10 +0,0 @@ -@(do - (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*) - [format *stdout* "wo"] - (format t "rld!")))) - (format *stdout* "Hello, ") - (put-line x))) |