X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fooddl.lisp;h=25308e171a9e1474a1914d270f596c7ac2d84212;hp=2d1d73b6252eda74e08881df79d12b2f59c259cb;hb=39e2802cd264ddacb3ca59b3b2c5c38f202149de;hpb=f1d668746523a72a6893a46380468a9e033545e4

diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp
index 2d1d73b..25308e1 100644
--- a/sql/ooddl.lisp
+++ b/sql/ooddl.lisp
@@ -106,9 +106,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
 (defmethod %install-class ((self standard-db-class) database
                            &key (transactions t))
   (let ((schemadef '())
-        (ordered-slots (if (normalizedp self)
-                           (ordered-class-direct-slots self)
-                           (ordered-class-slots self))))
+        (ordered-slots (slots-for-possibly-normalized-class self)))
     (dolist (slotdef ordered-slots)
       (let ((res (database-generate-column-definition self slotdef database)))
         (when res
@@ -139,7 +137,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
 
 (defmethod database-generate-column-definition (class slotdef database)
   (declare (ignore class))
-  (when (member (view-class-slot-db-kind slotdef) '(:base :key))
+  (when (key-or-base-slot-p slotdef)
     (let ((cdef
            (list (sql-expression :attribute (database-identifier slotdef database))
                  (specified-type slotdef))))