X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=f981c900be363b18be8e67cd8db6895e800d465e;hp=a8b1563e3f061d26ee83e0c92d4eccf217fec280;hb=5953db07cc2276392d0a81052d2d8c71d3252b5a;hpb=737c27605b8d2308b95d9717644ba496f37fcd20 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))