From 7df5c123266275ba2666cc2637d9a30d4b65d6df Mon Sep 17 00:00:00 2001 From: Ryan Davis Date: Tue, 15 May 2012 16:13:15 -0400 Subject: [PATCH] use with-output-to-string instead of progv --- sql/expressions.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 7071227..cb8046f 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -128,10 +128,8 @@ "Top-level call for generating SQL strings. Returns an SQL string appropriate for DATABASE which corresponds to the supplied lisp expression SQL-EXPR." - (progv '(*sql-stream*) - `(,(make-string-output-stream)) - (output-sql sql-expr database) - (get-output-stream-string *sql-stream*))) + (with-output-to-string (*sql-stream*) + (output-sql sql-expr database))) (defmethod output-sql (expr database) (write-string (database-output-sql expr database) *sql-stream*) -- 2.34.1