r9882: Add optional size to VARCHAR type

diff --git a/ChangeLog b/ChangeLog
index 7c03b70975947700e566896b22501adad8b23f25..c913238f904f120208040b5885e8ef6d0fc826a2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 14 Aug 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * TODO: Add bug report about SQL generation with a table
        containing two join slots.
 14 Aug 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * TODO: Add bug report about SQL generation with a table
        containing two join slots.

-
+       * sql/oodml.lisp: Add optional size to VARCHAR type
+       

 3 Aug 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.0.0 Release
        * sql/expressions.lisp: Change declaration that
 3 Aug 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.0.0 Release
        * sql/expressions.lisp: Change declaration that

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")
 
   (declare (ignore args database db-type))
   "BIGINT")
 

-(deftype varchar () 
+(deftype varchar (&optional size) 

   "A variable length string for the SQL varchar type."
   "A variable length string for the SQL varchar type."

+  (declare (ignore size))

   'string)
 
 (defmethod database-get-type-specifier ((type (eql 'varchar)) args
   'string)
 
 (defmethod database-get-type-specifier ((type (eql 'varchar)) args