(if args
(format nil "VARCHAR2(~A)" (car args))
(format nil "VARCHAR2(~D)" *default-string-length*)))
(defmethod database-get-type-specifier ((type (eql 'float)) args
(if args
(format nil "VARCHAR2(~A)" (car args))
(format nil "VARCHAR2(~D)" *default-string-length*)))
(defmethod database-get-type-specifier ((type (eql 'float)) args