X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=cd2d768c6755391dbc36bfe0cae613b8378dffa8;hp=44cde13d4b57c6b271be8241b1597e017a23678b;hb=837ef5c074e599060d89b5fd51abbe6fcd960094;hpb=ed3fc2379a78875cf80cdb4d000c0bfdf8806fe7

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 44cde13..cd2d768 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -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."