(defmethod find-class-attributes ((model symbol))
(find-or-create-attributes model))
+(defmethod clear-class-attributes ((model t))
+ (setf (cdr (find-class-attributes model)) nil))
+
(defmethod add-attribute ((model t) name def)
(let ((map (find-class-attributes model)))
(setf (cdr map) (acons name def (cdr map)))))
(meta-model:list-has-many model))))
(defmethod set-default-attributes ((model t))
+ (clear-class-attributes model)
(mapcar #'(lambda (x)
(setf (find-attribute model (car x)) (cdr x)))
(default-attributes model)))