X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/13ebe12f373ec67aa3d4a1c6ee35f8f5892719b7..8c6914bd27843fc74d07da3965fafaac09c85c4e:/src/mewa.lisp

diff --git a/src/mewa.lisp b/src/mewa.lisp
index 203fdf3..1dea1fe 100644
--- 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)
+  (:method (thing)
+    nil)
   (:method ((name symbol))
     (find-or-create-occurence name))
-  (:method (instance)
+  (:method ((instance standard-object))
     (find-or-create-occurence (class-name (class-of instance)))))