From 77ce65c55497291959c8ad3839ea23b0b1f9ef9c Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@pond.sub.org>
Date: Sat, 10 Oct 2009 19:14:38 +0200
Subject: [PATCH 1/1] Record test recipe

---
 scratch.lisp | 3 +++
 1 file changed, 3 insertions(+)

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