(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."
(defmethod database-output-sql ((tee (eql t)) database)
(if database
(let ((val (database-output-sql-as-type 'boolean t database (database-type database))))
- (if val
- (typecase val
- (string val)
- (t (format nil "~A" val)))
- "'Y'"))
+ (when val
+ (typecase val
+ (string (format nil "'~A'" val))
+ (integer (format nil "~A" val)))))
"'Y'"))
#+nil(defmethod database-output-sql ((tee (eql t)) database)