Update testcase

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 433f29fd470634ebf4cab588af24c7ebbe9f8896..edb8316846ed5ede51dadfbd2b9eac86c7a77118 100644 (file)
--- 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))
                            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))))
                         do (incf dump-index))
                      (if (and (<= dump-index (fill-pointer dump-queue))
                               (not (null (aref dump-queue dump-index))))