(defmethod default-attributes ((model t))
(append (mapcar #'(lambda (s) (cons (car s) (gen-pslot (if (meta-model:foreign-key-p model (car s))
- 'ucw::foreign-key
(cadr s))
(string (car s)) (car s))))
(meta-model:list-slot-types model))
:accessor use-instance-class-p
:initform t)
(initializedp :initform nil)
- (modifiedp :accessor modifiedp :initform nil)))
+ (modifiedp :accessor modifiedp :initform nil)
+ (modifications :accessor modifications :initform nil)))
(defmethod attributes :around ((self mewa))