git.pond.sub.org Git - eow/blob - xdump-data.lisp

   1 (in-package :xdump-data)
   2
   3 (defun name (entry &optional (parser xdump::*current-parser*))
   4   (with-slots (xdump::table-classes-package) parser
   5     (slot-value entry (find-symbol "NAME" xdump::table-classes-package))))