[Remove obsolete code
clinton@unknownlamer.org**20080501115925] hunk ./src/spells.lisp 114
-
-(defmethod insert-item :around (spell (self spell-compound-subschool))
-  "Add spell to each subschool"
-  (call-next-method)
-  (insert-item spell (alternate-object self)))
-
-(defmethod remove-item :around (spell (self spell-compound-subschool))
-  "Remove spell from each subschool"
-  (call-next-method)
-  (remove-item spell (alternate-object self)))