From 34fe393aba5271cba73b60fb5fcad646099c7f28 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 23 Dec 2016 09:51:05 -0800 Subject: Use with-out-string-stream macro in test. * tests/011/special-1.tl (with-output-to-string): macro removed; with-out-string-stream used. --- tests/011/special-1.tl | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'tests/011') diff --git a/tests/011/special-1.tl b/tests/011/special-1.tl index 8e2c6f9b..7461b730 100644 --- a/tests/011/special-1.tl +++ b/tests/011/special-1.tl @@ -1,8 +1,4 @@ -(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*) +(let ((x (with-out-string-stream (*stdout*) [format *stdout* "wo"] (format t "rld!")))) (format *stdout* "Hello, ") -- cgit v1.2.3