[Properly parse additional subschools
clinton@unknownlamer.org**20080427044650] {
hunk ./src/srd-import.lisp 53
-							       #\space)))
+							       #\space
+							       #\,)))
hunk ./src/srd-import.lisp 81
+	 (:register (:greedy-repetition 1 nil :word-char-class)))
+	(:sequence ", "
hunk ./src/srd-import.lisp 212
-	      `((:subschool . ,(car subschool))
-		,(if (cadr subschool) `(:alternative-subschool . ,(cadr subschool)))))
+	      `((:subschool . ,(first subschool))
+		,(if (second subschool)
+		     `(:alternative-subschool . ,(second subschool)))
+		,(if (third subschool)
+		     `(:additional-subschool . ,(third subschool)))))
}