X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=f981c900be363b18be8e67cd8db6895e800d465e;hb=5953db07cc2276392d0a81052d2d8c71d3252b5a;hp=a8b1563e3f061d26ee83e0c92d4eccf217fec280;hpb=fcb0cac1b206dacdb3d1043b5393bbb510a00882;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index a8b1563..f981c90 100644
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -62,11 +62,11 @@
 
 #+lispworks
 (dolist (slot-option +extra-slot-options+)
-  (process-slot-option standard-db-class slot-option))
+  (eval `(process-slot-option standard-db-class ,slot-option)))
 
 #+lispworks
 (dolist (class-option +extra-class-options+)
-  (process-class-option standard-db-class class-option))
+  (eval `(process-class-option standard-db-class ,class-option)))
 
 (defmethod validate-superclass ((class standard-db-class)
 				(superclass standard-class))