HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d0c4001
)
added record of modifications to mewa object
author
drewc
<drewc@tech.coop>
Fri, 17 Jun 2005 03:02:43 +0000
(20:02 -0700)
committer
drewc
<drewc@tech.coop>
Fri, 17 Jun 2005 03:02:43 +0000
(20:02 -0700)
darcs-hash:
20050617030243
-39164-
0e7124d198ba40e113cbdf100a26d4b321b8bf10
.gz
src/mewa/mewa.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/mewa/mewa.lisp
b/src/mewa/mewa.lisp
index
ef3ae70
..
919adb3
100644
(file)
--- 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))
(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))
(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)
: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))
(defmethod attributes :around ((self mewa))