(declare (ignore database))
(when (char-equal #\t (schar val 0))
t))
(defmethod read-sql-value (val (type (eql 'generalized-boolean))
(declare (ignore database))
(when (char-equal #\t (schar val 0))
t))
(defmethod read-sql-value (val (type (eql 'generalized-boolean))