X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=empire.lisp;h=edb8316846ed5ede51dadfbd2b9eac86c7a77118;hp=433f29fd470634ebf4cab588af24c7ebbe9f8896;hb=fb7b2e3dffd4b1750c6ed6ddc6a0e1b9ea75e8d2;hpb=533bda0403b92e00abab4e828aefad936e2cd555;ds=sidebyside

diff --git a/empire.lisp b/empire.lisp
index 433f29f..edb8316 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -337,7 +337,9 @@
 			    parser (xdump:make-parser))
 		      (incf dump-index)
 		      (loop while (and (< dump-index (fill-pointer dump-queue))
-				       (null (aref dump-queue dump-index)))
+				       (let ((dump-queue-entry (aref dump-queue dump-index)))
+					 (or (null dump-queue-entry)
+					     (string= "meta" (xdump-data::table-name dump-queue-entry)))))
 			 do (incf dump-index))
 		      (if (and (<= dump-index (fill-pointer dump-queue))
 			       (not (null (aref dump-queue dump-index))))