(when pk-slot
(if (or (and (listp (view-class-slot-db-constraints pk-slot))
(member :auto-increment (view-class-slot-db-constraints pk-slot)))
(eql (view-class-slot-db-constraints pk-slot) :auto-increment))
(when pk-slot
(if (or (and (listp (view-class-slot-db-constraints pk-slot))
(member :auto-increment (view-class-slot-db-constraints pk-slot)))
(eql (view-class-slot-db-constraints pk-slot) :auto-increment))