blob: 8e2c6f9b36681258d8ddef4c51afc789d6d3484b (
plain)
1
2
3
4
5
6
7
8
9
|
(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))
|
