test setup
[eow] / empire.lisp
index 433f29fd470634ebf4cab588af24c7ebbe9f8896..edb8316846ed5ede51dadfbd2b9eac86c7a77118 100644 (file)
                            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))))