From: Ryan Davis <ryan@acceleration.net>
Date: Tue, 15 May 2012 20:13:15 +0000 (-0400)
Subject: use with-output-to-string instead of progv
X-Git-Tag: v6.3.0~15
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=7df5c123266275ba2666cc2637d9a30d4b65d6df

use with-output-to-string instead of progv
---

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*)