blob: f3e92a03f1444e72905ad7a0eda8fd94a3546b21 (
plain)
1
2
3
4
5
6
7
8
9
10
|
@(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 *stdout* "wo"]
(format t "rld!"))))
(format *stdout* "Hello, ")
(put-line x)))
|
