Problems with commute + rank

[paulapatience]

With ⍤0:

CL-USER> (april:april-c "4⍪⍨⍤0⍳3")
#2A((1 4) (2 4) (3 4)) ; correct result
CL-USER> (april:april-c "4⍪⍤0⍨⍳3")
#(1 4)

With ⍤1:

CL-USER> (april:april-c "⍪⍤1⍨⍳3")
#(1 2 3 1 2 3)
CL-USER> (april:april-c "4⍪⍤1⍨⍳3")
; Debugger entered on #<TYPE-ERROR expected-type: UNSIGNED-BYTE datum: -1>
[1] CL-USER> 
; Evaluation aborted on #<TYPE-ERROR expected-type: UNSIGNED-BYTE datum: -1>
CL-USER> (april:april-c "4⍪⍨⍤1⍳3")
#(1 2 3 4) ; correct result

[phantomics]

These bugs are fixed.