X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Foodml.lisp;h=d701f0906e3a2352cbf01262c8b4179f6b02990a;hb=8a13e05588cb35ffeed91cca2dc26c313e387d70;hp=82f166e1da642108a48556f958bf90abf61c143e;hpb=b08c25a7a9e56fb125caa9f7d7a56a473615007e;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 82f166e..d701f09 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -307,11 +307,9 @@
 	  (sql-expression :table (view-table class))))
 
 
-(defparameter *default-varchar-length* 255)
-
 (defmethod database-get-type-specifier (type args database db-type)
   (declare (ignore type args database db-type))
-  (format nil "VARCHAR(~D)" *default-varchar-length*))
+  (format nil "VARCHAR(~D)" *default-string-length*))
 
 (defmethod database-get-type-specifier ((type (eql 'integer)) args database db-type)
   (declare (ignore database db-type))
@@ -336,13 +334,13 @@
   (declare (ignore database db-type))
   (if args
       (format nil "VARCHAR(~A)" (car args))
-      (format nil "VARCHAR(~D)" *default-varchar-length*)))
+      (format nil "VARCHAR(~D)" *default-string-length*)))
 
 (defmethod database-get-type-specifier ((type (eql 'string)) args database db-type)
   (declare (ignore database db-type))
   (if args
       (format nil "CHAR(~A)" (car args))
-      (format nil "VARCHAR(~D)" *default-varchar-length*)))
+      (format nil "VARCHAR(~D)" *default-string-length*)))
 
 (deftype universal-time () 
   "A positive integer as returned by GET-UNIVERSAL-TIME."