r11407: 28 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 28 Dec 2006 18:08:27 +0000 (18:08 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 28 Dec 2006 18:08:27 +0000 (18:08 +0000)
        * 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.

ChangeLog
debian/changelog
sql/expressions.lisp

index 3b5c4b0..e4a5cd4 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
index 3875ae7..a821b31 100644 (file)
@@ -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
index 44cde13..cd2d768 100644 (file)
@@ -22,7 +22,7 @@
 (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."