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

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))))