anchor.diff:  table(?TAIL, string) -> [?EXPR,?TAIL,{reduce,16}];
   table(?TAIL, binary) -> [?EXPR,?TAIL,{reduce,16}];
   table(?TAIL, '#\'') -> [?EXPR,?TAIL,{reduce,16}];
  +table(?TAIL, '#.') -> [?EXPR,?TAIL,{reduce,16}];
   table(?TAIL, '\'') -> [?EXPR,?TAIL,{reduce,16}];
   table(?TAIL, '`') -> [?EXPR,?TAIL,{reduce,16}];
   table(?TAIL, ',') -> [?EXPR,?TAIL,{reduce,16}];
  
positive.code:         true -> Error;
          false -> lfe_io:print1(Error)
      end.
  
negative.code: reduce(21, [T|Vs]) -> [val(T)|Vs];              %s->binary
  reduce(4, [T|Vs]) ->                            %s->fun
      [make_fun(val(T))|Vs];
  reduce(22, [S,D|Vs]) ->                         %s->#. s
      [eval_expr(line(D), S)|Vs];
  reduce(5, [S,_|Vs]) -> [[quote,S]|Vs];          %s->' s
  reduce(6, [S,_|Vs]) -> [[backquote,S]|Vs];      %s->` s
  reduce(7, [S,_|Vs]) -> [[unquote,S]|Vs];        %s->, s
  