--- a/lm_types.c	Mon Feb 16 01:32:12 2009 +0200
+++ b/lm_types.c	Fri Feb 20 23:07:43 2009 +0200
@@ -3,11 +3,13 @@
 #include <lauxlib.h>
 #include <loudmouth/loudmouth.h>  // lm_*ref
 
+#include "config.h"
 #include "lm_types.h"
 #include "util.h"
 
 void llm_callback_destroy (llm_callback_t *cb)
 {
+	D ("Destroying callback %X", (int) cb);
 	luaL_unref (cb->L, LUA_REGISTRYINDEX, cb->reference);
 	luaL_free (cb->L, cb);
 }
@@ -31,6 +33,7 @@
 	if (!lua_isnil (L, -1)) {                                /* 2 object */ \
 		lua_remove (L, -2);                              /* 1 object */ \
 		object = lua_touserdata (L, -1);                                \
+		D ("Existing " #WHAT " object %X requested", (int) object);     \
 		return object;                                                  \
 	}                                                                       \
 	                                                            /* 2 nil */ \
@@ -44,6 +47,7 @@
 	lua_remove (L, -2);                                      /* 1 object */ \
 	object->WHAT = WHAT;                                                    \
 	lm_##WHAT##_ref (WHAT);                                                 \
+	D ("New " #WHAT " object %X blessed", (int) object);                    \
 	return object;                                                          \
 }