From 7c7fe600ddcae6e798bdc025f558183569f1ae7e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 30 Aug 2006 13:13:05 +0000 Subject: [PATCH] r11067: * sql/expressions.lisp: Use database-output-as-type if value exists for boolean output --- ChangeLog | 3 ++- sql/expressions.lisp | 10 ++++++++++ 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9aea50c..113bc61 100644 --- a/ChangeLog +++ b/ChangeLog @@ -12,7 +12,8 @@ * db-mysql/mysql-api.lisp: Remove old mysql C API functions that no longer exist in the mysql client library. * doc/ref-fdml.lisp: Correct default field-type. - + * sql/expressions.lisp: Use database-output-as-type if value exists for boolean output + 28 Aug 2006 Kevin Rosenberg * Version 3.6.7 * sql/oodml.lisp: Remove high debugging level declaration diff --git a/sql/expressions.lisp b/sql/expressions.lisp index cd1a6d3..5bce5d8 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -898,6 +898,16 @@ 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)))) + (if val + (typecase val + (string val) + (t (format nil "~A" val))) + "'Y'")) + "'Y'")) + +#+nil(defmethod database-output-sql ((tee (eql t)) database) (declare (ignore database)) "'Y'") -- 2.34.1