(if (and (<= dump-index (fill-pointer dump-queue))
(not (null (aref dump-queue dump-index))))
(send-message connection (format nil "xdump meta ~a" (xdump-data:name (aref dump-queue dump-index))))))
(if (and (<= dump-index (fill-pointer dump-queue))
(not (null (aref dump-queue dump-index))))
(send-message connection (format nil "xdump meta ~a" (xdump-data:name (aref dump-queue dump-index))))))