tests/011/special-1.txr


1
2
3
4
5
6
7
8
9

@(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 "world!"))))
     (format *stdout* "Hello, ")
     (put-line x)))