+
+;;;;;;;;;;;;;;;;;;
+
+(defclass meta-type ()
+ (value name))
+
+(sb-mop:ensure-class 'meta-type
+ ':direct-superclasses '()
+ ':direct-slots (list (list ':name 'value)
+ (list ':name 'name)))
+
+
+(loop for entry across (xdump::table-entries (xdump::get-table "table")) if entry collect (xdump-data::table-name entry))
+