anchor.diff:  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+1, L-1) 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-1),")"];
  -                    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
  +        true -> lfe_io:print1_string(List, $"); %"
  +        false ->
  +            case print1_list_max(List, D-1, I+1, L-1) 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-1),")"];
  +                        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([], _, _, _) -> "()";
  
positive.code:     print1_tail_max([], D-1, I + flatlength(Cs) + 3, L, [Cs," . "|Acc]).
  
  %% print1_list(List, Depth, Indentation, LineLength)
  %%  Print a list, one element per line. No leading/trailing ().
  
  print1_list([], _, _, _) -> [];
  print1_list(_, 0, _, _) -> "...";
  print1_list([Car|Cdr], D, I, L) ->
      [print1(Car, D, I, L),print1_tail(Cdr, D-1, I, L)].
  
  %% print1_tail(Tail, Depth, Indentation, LineLength)
  %%  Print the tail of a list decreasing the depth for each element. We
  %%  know about dotted pairs.
  
  print1_tail([], _, _, _) -> "";
  print1_tail(_, 0, _, _) -> "...";
  print1_tail([Car|Cdr], D, I, L) ->
      ["\n",blanks(I, []),print1(Car, D, I, L),print1_tail(Cdr, D-1, I, L)];
  print1_tail(S, D, I, L) ->
      [" .\n",blanks(I, print1(S, D, I, L))].
  
  blanks(N, Tail) -> string:chars($\s, N, Tail).
  
  
negative.code:     [print1_map_assoc(KV, D, I, L)|print1_map_rest(KVs, D-1, I, L)].
  
  print1_map_rest([], _, _, _) -> [];
  print1_map_rest(_, 0, _, _) -> " ...";
  print1_map_rest([KV|KVs], D, I, L) ->
      Massoc = print1_map_assoc(KV, D, I, L),
      [$\n,blanks(I, []),Massoc|print1_map_rest(KVs, D-1, I, L)].
  