Array dump support. Create access function package xdump-data.

[eow] / xdump-data.lisp

diff --git a/xdump-data.lisp b/xdump-data.lisp
new file mode 100644 (file)
index 0000000..b4606f5
--- /dev/null
+++ b/xdump-data.lisp
@@ -0,0 +1,5 @@
+(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))))