X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=scratch.lisp;h=67540bc03200e05d224e0c19a4beb89d313ae6c4;hp=ab5e8e9979d98be86113ce3eda9d20edf860a747;hb=96d5b46f8a408652757fb21a801c005697dc45f7;hpb=007a52ce7b04a24281a7f713838c5c7aecd27e61

diff --git a/scratch.lisp b/scratch.lisp
index ab5e8e9..67540bc 100644
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -46,3 +46,6 @@
 		     ':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))
+