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:
0fd9d74
)
removed the poorly named and poorly located INSTANCE-IS-STORED-P
author
Drew Crampsie
<drewc@tech.coop>
Thu, 27 Oct 2005 22:31:34 +0000
(15:31 -0700)
committer
Drew Crampsie
<drewc@tech.coop>
Thu, 27 Oct 2005 22:31:34 +0000
(15:31 -0700)
darcs-hash:
20051027223134
-5417e-
2e3eb0080cb4a190834e12c12133fc46ebb915f8
.gz
src/mewa.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/mewa.lisp
b/src/mewa.lisp
index
dc8b278
..
4ef3ef8
100644
(file)
--- a/
src/mewa.lisp
+++ b/
src/mewa.lisp
@@
-374,11
+374,8
@@
attributes is an alist keyed on the attribute name."
(call-next-method)
(render-on res (slot-value self 'body)))
(call-next-method)
(render-on res (slot-value self 'body)))
-(defmethod instance-is-stored-p ((instance clsql:standard-db-object))
- (slot-value instance 'clsql-sys::view-database))
-(defmethod instance-is-stored-p ((mewa mewa))
- (instance-is-stored-p (instance mewa)))
+
(defaction cancel-save-instance ((self mewa))
(cond
(defaction cancel-save-instance ((self mewa))
(cond