1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
// $Id$ 
 
#define TRACE werror("### %s:%d\n"    \ 
                     "  %O()\n"         \ 
                     "  %{%O, %}\n",    \ 
                     __FILE__, __LINE__,\ 
                     backtrace()[-1][2],\ 
                     column(map(indices(allocate(5)),peek), 1)) 
#define SHOW(x) werror("### %s(%d) %s == %O\n", __FILE__, __LINE__, #x, (x))