[Add initializers for spell components and descriptors
clinton@unknownlamer.org**20080425160456] {
hunk ./src/initialize-database.lisp 79
+(defun initialize-spell-components ()
+  (mapc (lambda (component)
+	  (make-instance 'spell-component
+			 :name (first component) :abbreviation (second component)))
+	*spell-components*))
hunk ./src/initialize-database.lisp 85
+(defun initialize-spell-descriptors ()
+  (mapc (lambda (descriptor)
+	  (make-instance 'spell-descriptor :name descriptor))
+	*spell-descriptors*))
hunk ./src/initialize-database.lisp 99
-	 #'initialize-spell-schools)))
+	 #'initialize-spell-schools
+	 #'initialize-spell-components
+	 #'initialize-spell-descriptors)))
}