- (def-meta-model ,model-name ,supers ,slots (:base-type :clsql) ,@args)
- (def-base-class ,name (,model-name) ,@args))))
+ (let* ((m (def-meta-model ,model-name ,supers ,slots ,args))
+ (i (make-instance m)))
+ (setf (meta-model.base-type i) :clsql)
+ (prog1 (eval (def-base-class-expander i ',name ',args))
+ (defmethod meta-model.metadata ((self ,name))
+ (meta-model.metadata i)))))))