r8906: fixes for allegro loop, start of lispworks loop - not working

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 0d87e0ed65850e91dea75f3048a1395bc4fbd8d1..e4b0ca13c50c328d9035cc0a46899b04995ce983 100644 (file)
--- 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)))))