From: drewc <drewc@tech.coop>
Date: Fri, 17 Jun 2005 03:02:43 +0000 (-0700)
Subject: added record of modifications to mewa object
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/d1bb68e0d5a36d6fd290ff82fd16d2663f207e4e

added record of modifications to mewa object

darcs-hash:20050617030243-39164-0e7124d198ba40e113cbdf100a26d4b321b8bf10.gz
---

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))