(defmethod database-get-type-specifier
((type (eql 'long-float)) args (database oracle-database))
(if args
(format nil "NUMBER(~A,~A)"
(or (first args) 38) (or (second args) 38))
(defmethod database-get-type-specifier
((type (eql 'long-float)) args (database oracle-database))
(if args
(format nil "NUMBER(~A,~A)"
(or (first args) 38) (or (second args) 38))