From: Gerd Flaig <gefla@pond.sub.org>
Date: Sat, 10 Oct 2009 17:14:38 +0000 (+0200)
Subject: Record test recipe
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=77ce65c55497291959c8ad3839ea23b0b1f9ef9c;hp=2e975dcc816ad77a61e0837175b8f0ab9854f7e4

Record test recipe
---

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))
+