CS problem ?

Todd_coxeter example of Groups section reveals
two problems:

First:

(%i1) symnet(n):=cteate_list(if (j-1)=1 then (p(i,j))^^3 else
if (not i=j) then (p(i,j))^^2 else p(i,j), j, 1, n-1, i, i, j);

                                                        <3>
(%o1) symnet(n) := cteate_list(IF j - 1 = 1 THEN p(i, j)

                                       <2>
        ELSE (IF NOT i = j THEN p(i, j)    ELSE p(i, j)), j, 1, n - 1, 
i, i, j)

Keywords if, then, else are printed in UC.  Is this CS bug?


Second:

(%o9) {Array: ixnum #(0 2 1 3 7 6 5 4 8 11 17 9 12 14 13 20 16 10 18 19 
15 0 #

0 0 0 0 0 0 0

  0 0 0 0 0 0 0)}

Take a look at this final array.  Here ixnum actually
should be fixnum.  Stange.

-- 
     Vadim V. Zhytnikov

      <vvzhy@mail.ru> 
     <vvzhy@netorn.ru>