From: Kevin M. Rosenberg Date: Tue, 13 Jul 2004 16:11:44 +0000 (+0000) Subject: r9769: 12 Jul 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~278 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=a5cb52ef667cae9fd232a4775175b694f3871ff0 r9769: 12 Jul 2004 Kevin Rosenberg * db-oracle/oracle-objects.lisp: Change *default-varchar-length* to *default-string-length* --- diff --git a/ChangeLog b/ChangeLog index 2841a0d..67be2c4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +12 Jul 2004 Kevin Rosenberg + * db-oracle/oracle-objects.lisp: Change *default-varchar-length* to + *default-string-length* + 12 Jul 2004 Marcus Pearce * tests/test-syntax.lisp, tests/test-fdml.lisp: add tests for escaping of single quotes. diff --git a/db-oracle/oracle-objects.lisp b/db-oracle/oracle-objects.lisp index ac85445..ea9c15b 100644 --- a/db-oracle/oracle-objects.lisp +++ b/db-oracle/oracle-objects.lisp @@ -17,7 +17,7 @@ (defmethod database-get-type-specifier (type args database (db-type (eql :oracle))) (declare (ignore type args database)) - (format nil "VARCHAR2(~D)" *default-varchar-length*)) + (format nil "VARCHAR2(~D)" *default-string-length*)) (defmethod database-get-type-specifier ((type (eql 'integer)) args database (db-type (eql :oracle))) @@ -42,14 +42,14 @@ (declare (ignore database)) (if args (format nil "CHAR(~A)" (car args)) - (format nil "VARCHAR2(~D)" *default-varchar-length*))) + (format nil "VARCHAR2(~D)" *default-string-length*))) (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)) - (format nil "VARCHAR2(~D)" *default-varchar-length*))) + (format nil "VARCHAR2(~D)" *default-string-length*))) (defmethod database-get-type-specifier ((type (eql 'float)) args database (db-type (eql :oracle)))