[Create alternative descriptor objects in importer
clinton@unknownlamer.org**20080427172658] hunk ./src/srd-import.lisp 339
-	  (spell-descriptors (mapcar #'find-spell-descriptor
-				     (spell-table-ref :modifiers (cdr school))))
+	  (spell-descriptors
+	   (mapcar (lambda (d)
+		     (typecase d
+		       (symbol (find-spell-descriptor d))
+		       (cons (make-instance
+			      'spell-alternative-descriptors
+			      :descriptor-1 (find-spell-descriptor (second d))
+			      :descriptor-2 (find-spell-descriptor (third d))))))
+		   (spell-table-ref :modifiers (cdr school))))