-(defconstant +extra-slot-options+ '(:column :db-kind :db-reader :nulls-ok :db-constraints
- :db-writer :db-type :db-info))
-(defconstant +extra-class-options+ '(:base-table))
+(defvar +extra-slot-options+ '(:column :db-kind :db-reader :void-value :db-constraints
+ :db-writer :db-info))
+(defvar +extra-class-options+ '(:base-table))