From 024b440ffa34c524702a648eb962d2ee6e62dee9 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 15 Aug 2004 09:10:37 +0000 Subject: [PATCH] r9882: Add optional size to VARCHAR type --- ChangeLog | 3 ++- sql/oodml.lisp | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) 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 -- 2.34.1