HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes, enhancements, and more update-to-latest-ucw stuff. minor, all of it.
[clinton/lisp-on-lines.git]
/
src
/
mewa.lisp
diff --git
a/src/mewa.lisp
b/src/mewa.lisp
index
203fdf3
..
1dea1fe
100644
(file)
--- a/
src/mewa.lisp
+++ b/
src/mewa.lisp
@@
-57,9
+57,11
@@
Attributes are the metadata used to display, validate, and otherwise manipulate
(setf (attribute-map occurence) (make-hash-table)))
(defgeneric find-occurence (name)
(setf (attribute-map occurence) (make-hash-table)))
(defgeneric find-occurence (name)
+ (:method (thing)
+ nil)
(:method ((name symbol))
(find-or-create-occurence name))
(:method ((name symbol))
(find-or-create-occurence name))
- (:method (
instance
)
+ (:method (
(instance standard-object)
)
(find-or-create-occurence (class-name (class-of instance)))))
(find-or-create-occurence (class-name (class-of instance)))))