[Specialize insert-item and remove-item on spell indexing mixin
clinton@unknownlamer.org**20080427142808
 * Allows specialization on subclasses (to enable support for compound
   subschools mostly)
] {
hunk ./src/spells.lisp 7
+(defmethod insert-item ((item spell) (set spells-reverse-index-mixin))
+  (insert-item item (spells set)))
+
+(defmethod remove-item ((item spell) (set spells-reverse-index-mixin))
+  (remove-item item (spells set)))
+
hunk ./src/spells.lisp 89
-  (format *debug-io* "==~W==~%~A: ~A~%"
-	  (spell-name self)
-	  (spell-levels self)
-  (pset-list (spell-levels self)))
-  (insert-item self (spells (spell-school self)))
-  (map-pset (compose (curry #'insert-item self) #'spells)
+  (insert-item self (spell-school self))
+  (map-pset (curry #'insert-item self)
hunk ./src/spells.lisp 94
-  (remove-item spell (spells (spell-school spell)))
-  (map-pset (compose (curry #'remove-item spell) #'spells)
+  (remove-item spell (spell-school spell))
+  (map-pset (curry #'remove-item spell)
}