adapt to newer hunchentoot
[eow] / 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))))