From d1bb68e0d5a36d6fd290ff82fd16d2663f207e4e Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Thu, 16 Jun 2005 20:02:43 -0700
Subject: [PATCH 1/1] added record of modifications to mewa object

darcs-hash:20050617030243-39164-0e7124d198ba40e113cbdf100a26d4b321b8bf10.gz
---
 src/mewa/mewa.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index ef3ae70..919adb3 100644
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -86,7 +86,6 @@ attributes is an alist keyed on the attribute nreeame."
 
 (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))
@@ -128,7 +127,8 @@ attributes is an alist keyed on the attribute nreeame."
     :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))
-- 
2.20.1