Getting started on unit tests

[eow] / scratch.lisp

diff --git a/scratch.lisp b/scratch.lisp
index ab5e8e9979d98be86113ce3eda9d20edf860a747..67540bc03200e05d224e0c19a4beb89d313ae6c4 100644 (file)
--- 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))
+