(defmethod database-get-type-specifier ((type (eql 'varchar)) args
database (db-type (eql :oracle)))
(declare (ignore database))
(if args
(format nil "VARCHAR2(~A)" (car args))
(defmethod database-get-type-specifier ((type (eql 'varchar)) args
database (db-type (eql :oracle)))
(declare (ignore database))
(if args
(format nil "VARCHAR2(~A)" (car args))