1 files changed, 9 insertions, 0 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))