(dolist (slotdef ordered-slots)
;; ensure that referenceed sequences are dropped with the table
(let ((sequence-name (auto-increment-sequence-name table slotdef database)))
(dolist (slotdef ordered-slots)
;; ensure that referenceed sequences are dropped with the table
(let ((sequence-name (auto-increment-sequence-name table slotdef database)))