r9882: Add optional size to VARCHAR type

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index dc4f7bb3b2512246e96163a7aeb325e848e2b6e6..10bd5cf31beb46beaff278150fe44f0e9f25de66 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -342,8 +342,9 @@
   (declare (ignore args database db-type))
   "BIGINT")
 
-(deftype varchar () 
+(deftype varchar (&optional size) 
   "A variable length string for the SQL varchar type."
+  (declare (ignore size))
   'string)
 
 (defmethod database-get-type-specifier ((type (eql 'varchar)) args