anchor.diff:      NewI = I + length(Cs) + 2,
       {Spec,Rest} = split(N, Cdr),
       Tcs = [print1_list(Spec, D-1, NewI, L),
  -       print1_tail(Rest, D-2, I+2, L)],
  +           print1_tail(Rest, D-2, I+2, L)],
       ["(" ++ Cs," ",Tcs,")"];
   print1_type(List, D, I, L, _) ->
       %% Too short to get worked up about or not enough depth.
  
positive.code: print1([Car|_]=List, D, I, L) ->
      %% Handle printable lists specially.
      case io_lib:printable_list(List) of
      true -> lfe_io:print1_string(List, $");    %"
      false ->
          case print1_list_max(List, D-1, I+2, L) of
          {yes,Print} -> ["(",Print,")"];
          no ->
              %% Customise printing of lists.
              case indent_type(Car) of
              none ->                     %Normal lists.
                  ["(",print1_list(List, D-1, I+1, L),")"];
              defun ->                    %Special case for defuns
                  print1_defun(List, D, I, L);
              N when is_integer(N) ->     %Special N first elements
                  print1_type(List, D, I, L, N)
              end
          end
      end;
  print1([], _, _, _) -> "()";
  print1({}, _, _, _) -> "#()";
  print1(Tup, D, I, L) when is_tuple(Tup) ->
      Es = tuple_to_list(Tup),
      case print1_list_max(Es, D-1, I+3, L) of
      {yes,Print}  -> ["#(",Print,")"];
      no -> ["#(",print1_list(Es, D-1, I+2, L),")"]
      end;
  print1(Bit, _, _, _) when is_bitstring(Bit) ->
      ["#B(",lfe_io:print1_bits(Bit, 30),$)];     %First 30 bytes
  print1(Other, _, _, _) ->
      lfe_io:print1(Other).                       %Use standard LFE for rest
  
  
negative.code: print1_tail_max([], _, _, _, Acc) -> {yes,reverse(Acc)};
  print1_tail_max(_, 0, _, _, Acc) -> {yes,reverse(Acc, [" ..."])};
  print1_tail_max([Car|Cdr], D, I, L, Acc) ->
      Cs = print1(Car, D, 0, 99999),              %Never break the line
      print1_tail_max(Cdr, D-1, I + flatlength(Cs) + 1, L, [Cs," "|Acc]);
  print1_tail_max(S, D, I, L, Acc) ->
      Cs = print1(S, D, 0, 99999),                %Never break the line
      print1_tail_max([], D-1, I + flatlength(Cs) + 3, L, [Cs," . "|Acc]).
  
  %% print1_list(List, Depth, Indentation, LineLength)
  