fixed ordering in get-foreign-instances
[clinton/lisp-on-lines.git] / src / mewa.lisp
index fcfead4..1dea1fe 100644 (file)
@@ -1,5 +1,7 @@
+(declaim (optimize (speed 2) (space 3) (safety 0)))
+
 (in-package :lisp-on-lines)
 (in-package :lisp-on-lines)
+
 (defparameter *default-type* :ucw)
 
 ;;;; I think these are unused now
 (defparameter *default-type* :ucw)
 
 ;;;; I think these are unused now
@@ -55,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)))))