[Merge all scraped entries into a unified alist
clinton@unknownlamer.org**20080417174033
 * Replace string keys with proper keywords
] {
hunk ./src/srd-import.lisp 208
-		      (cons (stp:string-value (stp:nth-child 0 row))
+		      (cons (intern
+			     (substitute
+			      #\- #\space
+			      (string-upcase
+			       (string-right-trim
+				":"
+				(stp:string-value (stp:nth-child 0 row)))))
+			     'keyword)
hunk ./src/srd-import.lisp 220
-  (cdr
-   (assoc item table :test (lambda (item key)
-			     (string= (arnesi:strcat (symbol-name item) ":")
-				      (string-upcase key))))))
-
+  (cdr (assoc item table)))
hunk ./src/srd-import.lisp 238
-      (list (stp:string-value (aref spell-elements 0))
-	    (stp:string-value (aref spell-elements 1))
-	    (table-stp->alist (aref spell-elements 2))
-	    (string-trim '(#\space #\newline #\tab)
-			 (stp:string-value (aref spell-elements 3)))))))
+      (append
+       (table-stp->alist (aref spell-elements 2))
+       (list (cons :name (stp:string-value (aref spell-elements 0)))
+	     (cons :school (stp:string-value (aref spell-elements 1)))
+	     (cons :description
+		   (string-trim '(#\space #\newline #\tab)
+				(stp:string-value (aref spell-elements 3)))))))))
}