(case (database-underlying-type database)
((:postgresql :postgresql-socket)
"TIMESTAMP WITHOUT TIME ZONE")
(case (database-underlying-type database)
((:postgresql :postgresql-socket)
"TIMESTAMP WITHOUT TIME ZONE")
(defmethod database-output-sql-as-type ((type (eql 'string)) val database)
(declare (ignore database))
(defmethod database-output-sql-as-type ((type (eql 'string)) val database)
(declare (ignore database))
(defmethod read-sql-value (val (type (eql 'boolean)) database)
(case (database-underlying-type database)
(defmethod read-sql-value (val (type (eql 'boolean)) database)
(case (database-underlying-type database)