X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fobjects.lisp;h=63cef6a2d27f97dc394b78d645bc76165704cd74;hp=3d031e2cd58c28ad851464b93bc7775a4e4255a1;hb=21ae7203d719886a1f044992e463d5f463727ac0;hpb=7308bdf188da6424e615ca14096ef53cfb845a90

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 3d031e2..63cef6a 100644
--- 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))
-  (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))