From: Gerd Flaig <gefla@pond.sub.org>
Date: Sun, 8 Nov 2009 15:37:23 +0000 (+0100)
Subject: Skip meta table when dumping all tables
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=e33bcd0b1966aee3a549ec646fab374b62d30924

Skip meta table when dumping all tables
---

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))))