(defmethod read-sql-value (val (type (eql 'float)) database)
(declare (ignore database))
;; writing 1.0 writes 1, so we we *really* want a float, must do (float ...)
(defmethod read-sql-value (val (type (eql 'float)) database)
(declare (ignore database))
;; writing 1.0 writes 1, so we we *really* want a float, must do (float ...)