X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=b7b2e50b98f979927b5b6986ec4d760e5072905f;hb=270e7b5d19d51c1a19d30b54996d89576c63d358;hp=aafd3f4120e5eee65980599b487cf7c3074ced6a;hpb=ed4847a3ca88803bad88e72a514c855e85b50ba7;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index aafd3f4..b7b2e50 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -56,9 +56,9 @@
 
 ;;; Lispworks 4.2 and before requires special processing of extra slot and class options
 
-(defconstant +extra-slot-options+ '(:column :db-kind :db-reader :nulls-ok
+(defvar +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-class-options+ '(:base-table))
 
 (dolist (slot-option +extra-slot-options+)
   (process-slot-option standard-db-class slot-option))