meta-model enhancements

[clinton/lisp-on-lines.git] / src / mewa / mewa.lisp

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 0164802..e384f74 100644 (file)
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -85,6 +85,7 @@ attributes is an alist keyed on the attribute nreeame."
 
 
 (defmethod default-attributes ((model t))
 
 
 (defmethod default-attributes ((model t))

+  "return the default attributes for a given model using the meta-model's meta-data"

   (append (mapcar #'(lambda (s) 
                      (cons (car s) 
                            (gen-pslot 
   (append (mapcar #'(lambda (s) 
                      (cons (car s) 
                            (gen-pslot