From e33bcd0b1966aee3a549ec646fab374b62d30924 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Sun, 8 Nov 2009 16:37:23 +0100 Subject: [PATCH] Skip meta table when dumping all tables --- empire.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.43.0