(let ((res (database-generate-column-definition view-class-name
slotdef database)))
(when res (setf schemadef (cons res schemadef)))))
(let ((res (database-generate-column-definition view-class-name
slotdef database)))
(when res (setf schemadef (cons res schemadef)))))