r8879: fix sequence, fix sqlite uffi, fix schema table

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index f4caac808716395e01318547f3358a097ba6cc86..a397b87eead6f1e035d98203a38b58a7e6f0db31 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -104,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