tests/011/special-1.txr


1
2
3
4
5
6
7
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)))