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
fixed ordering in get-foreign-instances
[clinton/lisp-on-lines.git]
/
src
/
mewa.lisp
diff --git
a/src/mewa.lisp
b/src/mewa.lisp
index
fcfead4
..
1dea1fe
100644
(file)
--- a/
src/mewa.lisp
+++ b/
src/mewa.lisp
@@
-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)))))