X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=a397b87eead6f1e035d98203a38b58a7e6f0db31;hb=8b04a5bd96195c55a77192910bba6b06ff5bab78;hp=1991b70c151f6e9b86f2781dc7ccf29ee3fde70b;hpb=5a6f424f3c8920f8f11bbf1e3aed6b4c2c7e6af8;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 1991b70..a397b87 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -1,14 +1,17 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; ======================================================================
-;;;; $Id: $
+;;;; *************************************************************************
 ;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
+;;;; $Id$
 ;;;;
 ;;;; The CLSQL Object Oriented Data Definitional Language (OODDL)
 ;;;; and Object Oriented Data Manipulation Language (OODML).
 ;;;;
-;;;; ======================================================================
+;;;; This file is part of CLSQL.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
 
 (in-package #:clsql-sys)
 
@@ -101,9 +104,9 @@
 
 (defun ensure-schema-version-table (database)
   (unless (table-exists-p "clsql_object_v" :database database)
-    (create-table [clsql_object_v] '(([name] (string 32))
+    (create-table [clsql_object_v] '(([name] string)
                                     ([vers] integer)
-                                    ([def] (string 32)))
+                                    ([def] string))
                   :database database)))
 
 (defun update-schema-version-records (view-class-name