X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fexpressions.lisp;h=44cde13d4b57c6b271be8241b1597e017a23678b;hb=ace0f0f5b9311e10f4638a206e60f601554ee102;hp=cd1a6d397bc9a2665bf0472a80d5d14aa563e602;hpb=159a4ba88b6ed66a27968df60d91c6b284401d2b;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index cd1a6d3..44cde13 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -898,6 +898,15 @@ uninclusive, and the args from that keyword to the end."
        database))))
 
 (defmethod database-output-sql ((tee (eql t)) database)
+  (if database
+      (let ((val (database-output-sql-as-type 'boolean t database (database-type database))))
+        (when val
+          (typecase val
+            (string (format nil "'~A'" val))
+            (integer (format nil "~A" val)))))
+    "'Y'"))
+
+#+nil(defmethod database-output-sql ((tee (eql t)) database)
   (declare (ignore database))
   "'Y'")