r11407: 28 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>

        * Version 3.7.9                                                                 * sql/expressions.lisp: Commit patch from Edi Weitz to
        use *default-database* for SQL-OUTPUT if no database is
        explicitly passed to function.

diff --git a/ChangeLog b/ChangeLog
index 3b5c4b0ce1a77d8ae104c5b79c7d00f025336ef3..e4a5cd4e94c9d18e259ec440f959d534328743c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+28 Dec 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.7.9
+       * sql/expressions.lisp: Commit patch from Edi Weitz to
+       use *default-database* for SQL-OUTPUT if no database is
+       explicitly passed to function.
+       

 30 Nov 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.7.8
        * db-sqlite3/sqlite3-sql.lisp: Commit patch from Edi Weitz fixing
 30 Nov 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.7.8
        * db-sqlite3/sqlite3-sql.lisp: Commit patch from Edi Weitz fixing

diff --git a/debian/changelog b/debian/changelog
index 3875ae7a444124bae09086b801c10ddab60a0d2b..a821b31fb5e6cc4ac21e0dec4f2bcae44d15d623 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.7.9-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 28 Dec 2006 11:07:05 -0700
+

 cl-sql (3.7.8-1) unstable; urgency=low
 
   * New upstream
 cl-sql (3.7.8-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 44cde13d4b57c6b271be8241b1597e017a23678b..cd2d768c6755391dbc36bfe0cae613b8378dffa8 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -22,7 +22,7 @@
 (defvar *sql-stream* nil
   "stream which accumulates SQL output")
 
 (defvar *sql-stream* nil
   "stream which accumulates SQL output")
 

-(defun sql-output (sql-expr &optional database)
+(defun sql-output (sql-expr &optional (database *default-database*))

   "Top-level call for generating SQL strings. Returns an SQL
   string appropriate for DATABASE which corresponds to the
   supplied lisp expression SQL-EXPR."
   "Top-level call for generating SQL strings. Returns an SQL
   string appropriate for DATABASE which corresponds to the
   supplied lisp expression SQL-EXPR."