tests/011/special-1.tl


1
2
3
4
5

(let ((x (with-out-string-stream (*stdout*)
           [format *stdout* "wo"]
           (format t "rld!"))))
  (format *stdout* "Hello, ")
  (put-line x))