From: Kevin M. Rosenberg Date: Sun, 15 Aug 2004 09:10:37 +0000 (+0000) Subject: r9882: Add optional size to VARCHAR type X-Git-Tag: v3.8.6~254 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=024b440ffa34c524702a648eb962d2ee6e62dee9;ds=sidebyside r9882: Add optional size to VARCHAR type --- diff --git a/ChangeLog b/ChangeLog index 7c03b70..c913238 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,8 @@ 14 Aug 2004 Kevin Rosenberg * 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 * Version 3.0.0 Release * sql/expressions.lisp: Change declaration that 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