[Destroy database properly
clinton@unknownlamer.org**20080430050116
 Deletes all instances and destroys derived indices rather than disconnecting
 and deleting the bdb files
] hunk ./src/initialize-database.lisp 108
-  (disconnect)
-  (cl-fad:delete-directory-and-files "/home/clinton/misc/bdb/dnd")
-  (ensure-directories-exist "/home/clinton/misc/bdb/dnd/foo"))
+  (destroy-derived-indices)
+  (mapcar (compose #'drop-instances #'get-instances-by-class)
+	  '(player-class player-level
+	    spell-level spell-domain-level
+	    spell-domain spell-school spell-subschool
+	    spell-descriptor spell-component
+	    spell
+	    spell-compound-descriptor spell-compound-subschool)))
+