+(declaim (optimize (speed 2) (space 3) (safety 0)))
+
(in-package :lisp-on-lines)
-
+
(defparameter *default-type* :ucw)
;;;; I think these are unused now
(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)))))