X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=38c5f498ace16816ff1556eb09bd6bb28019150f;hb=a4097e19c5157e87b9991549bc44f3ef598aeb90;hp=e1bc241e09cdf26c4be92f3e9d1ff7517052063a;hpb=b89f494d185b0ba98b06175404704cc9d762e321;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index e1bc241..38c5f49 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -234,6 +234,7 @@ superclass of the newly-defined View Class."
     (let ((cdef
            (list (sql-expression :attribute (view-class-slot-column slotdef))
                  (slot-type slotdef))))
+      (setf cdef (append cdef (list (view-class-slot-db-type slotdef))))
       (let ((const (view-class-slot-db-constraints slotdef)))
         (when const 
           (setq cdef (append cdef (list const)))))