(in-package :xdump-data)

(defun name (entry &optional (parser xdump::*current-parser*))
  (with-slots (xdump::table-classes-package) parser
    (slot-value entry (find-symbol "NAME" xdump::table-classes-package))))