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

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 95b9c11..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 :db-constraints
+(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))