X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fooddl.lisp;h=02c11f021df00c7d3bf1502c612ff4c4994696cc;hp=33dca0408a0a3d9e7de51bc10324247098335d05;hb=bad0cc74f5574b40b8f1f7338dee3cd7bdf56228;hpb=4a30248613bca9864145306a00bb801cf5348017

diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp
index 33dca04..02c11f0 100644
--- a/sql/ooddl.lisp
+++ b/sql/ooddl.lisp
@@ -106,7 +106,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
                            (ordered-class-direct-slots self)
                            (ordered-class-slots self))))
     (dolist (slotdef ordered-slots)
-      (let ((res (database-generate-column-definition (class-name self)
+      (let ((res (database-generate-column-definition self
                                                       slotdef database)))
         (when res
           (push res schemadef))))