1 files changed, 8 insertions, 0 deletions
diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr
new file mode 100644
index 00000000..7e51c483
--- /dev/null
+++ b/tests/011/special-1.txr
@@ -0,0 +1,8 @@
+@(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 t "hello"))))
+     (put-line x)))