int on_lua_alert(lua_State *L)
{
if(lua_isstring(L, -1)){
print_lua_log("%s", lua_tostring(L, -1));
}
return 0;
}

lua_register(L, "_ALERT", on_lua_alert);

でエラーメッセージ出してるか？

おまけ
http://www.tt.rim.or.jp/~rudyard/torii009.html