Skip meta table when dumping all tables
authorGerd Flaig <gefla@pond.sub.org>
Sun, 8 Nov 2009 15:37:23 +0000 (16:37 +0100)
committerGerd Flaig <gefla@pond.sub.org>
Sun, 8 Nov 2009 15:37:23 +0000 (16:37 +0100)
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))))