[Fixup spell school parser
clinton@unknownlamer.org**20080425042528
 * dequote subschool
 * split alignments and other descriptors
] {
hunk ./src/srd-import.lisp 193
-	,@(if subschool `((:subschool . subschool)))
+	,@(if subschool `((:subschool . ,subschool)))
hunk ./src/srd-import.lisp 195
-		 `(,@(let ((alignments '(good chaotic lawful evil)))
-			  (list
-			   (if-bind alignment
-			       (remove-if-not (lambda (item) (member item alignments))
-					      modifiers)
-			     `(:alignment . ,(car alignment)))
-			   (if-bind other
-			       (remove-if (lambda (item) (member item alignments))
-					  modifiers)
-			     `(:modifiers . ,other)))))))
+		 (let ((alignments '(good chaotic lawful evil)))
+		   (list
+		    (if-bind alignment
+			(remove-if-not (lambda (item) (member item alignments))
+				       modifiers)
+		      `(:alignment . ,(car alignment)))
+		    (if-bind other
+			(remove-if (lambda (item) (member item alignments))
+				   modifiers)
+		      `(:modifiers . ,other))))))
}