(defmethod query ((obj command-object) &key (database *default-database*)
(result-types :auto) (flatp nil) (field-names t))
- (clsql-sys::record-sql-command (expression obj) database)
+ (clsql-sys::record-sql-command
+ (format nil "~&~A~&{Params: ~{~A~^, ~}}"
+ (expression obj)
+ (parameters obj))
+ database)
(multiple-value-bind (rows names)
(database-query obj database result-types field-names)
(let ((result (if (and flatp (= 1 (length (car rows))))
(defmethod read-sql-value (val (type (eql 'generalized-boolean)) (database postgresql-socket3-database) db-type)
(declare (ignore database db-type))
val)
-