X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Foodml.lisp;h=10bd5cf31beb46beaff278150fe44f0e9f25de66;hb=024b440ffa34c524702a648eb962d2ee6e62dee9;hp=dc4f7bb3b2512246e96163a7aeb325e848e2b6e6;hpb=d535823479987a0d3bf45d08b02e106e69378ff7;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index dc4f7bb..10bd5cf 100644
--- 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