(defmethod default-attributes ((model t))
"return the default attributes for a given model using the meta-model's meta-data"
(append (mapcar #'(lambda (s)
(defmethod default-attributes ((model t))
"return the default attributes for a given model using the meta-model's meta-data"
(append (mapcar #'(lambda (s)