r9456: relax type for server-version

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 3d031e2cd58c28ad851464b93bc7775a4e4255a1..63cef6a2d27f97dc394b78d645bc76165704cd74 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -89,7 +89,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
         (push res schemadef))))
   (unless schemadef
     (error "Class ~s has no :base slots" self))
         (push res schemadef))))
   (unless schemadef
     (error "Class ~s has no :base slots" self))

-  (create-table (sql-expression :table (view-table self)) schemadef
+  (create-table (sql-expression :table (view-table self)) (nreverse schemadef)

                 :database database
                 :constraints (database-pkey-constraint self database))
   (push self (database-view-classes database))
                 :database database
                 :constraints (database-pkey-constraint self database))
   (push self (database-view-classes database))