From a5cb52ef667cae9fd232a4775175b694f3871ff0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 13 Jul 2004 16:11:44 +0000 Subject: [PATCH] r9769: 12 Jul 2004 Kevin Rosenberg * db-oracle/oracle-objects.lisp: Change *default-varchar-length* to *default-string-length* --- ChangeLog | 4 ++++ db-oracle/oracle-objects.lisp | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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))) -- 2.34.1