X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=e4b0ca13c50c328d9035cc0a46899b04995ce983;hb=fa32c4233b4a02ae631602dbb0a234ab10df8aaf;hp=0d87e0ed65850e91dea75f3048a1395bc4fbd8d1;hpb=e3ed4080f0a28d94e81aad7452fb1f81e1e50253;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 0d87e0e..e4b0ca1 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -113,7 +113,7 @@
                                       &key (database *default-database*))
   (let ((schemadef nil)
         (tclass (find-class view-class-name)))
-    (dolist (slotdef (ordered-class-slots tclass))
+    (dolist (slotdef (class-slots tclass))
       (let ((res (database-generate-column-definition view-class-name
                                                       slotdef database)))
         (when res (setf schemadef (cons res schemadef)))))