; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 1)) -> BIT
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 2)) -> (UNSIGNED-BYTE 2)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 3)) -> (UNSIGNED-BYTE 4)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 4)) -> (UNSIGNED-BYTE 4)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 5)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 6)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 7)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 8)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 9)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 10)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 11)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 12)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 13)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 14)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 15)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 16)) -> (UNSIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 17)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 18)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 19)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 20)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 21)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 22)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 23)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 24)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 25)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 26)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 27)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 28)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 29)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 30)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 31)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 32)) -> (UNSIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 33)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 34)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 35)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 36)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 37)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 38)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 39)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 40)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 41)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 42)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 43)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 44)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 45)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 46)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 47)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 48)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 49)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 50)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 51)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 52)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 53)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 54)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 55)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 56)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 57)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 58)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 59)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 60)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 61)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 62)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 63)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 64)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 65)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 1)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 2)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 3)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 4)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 5)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 6)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 7)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 8)) -> (SIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 9)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 10)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 11)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 12)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 13)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 14)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 15)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 16)) -> (SIGNED-BYTE 16)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 17)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 18)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 19)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 20)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 21)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 22)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 23)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 24)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 25)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 26)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 27)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 28)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 29)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 30)) -> FIXNUM
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 31)) -> (SIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 32)) -> (SIGNED-BYTE 32)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 33)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 34)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 35)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 36)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 37)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 38)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 39)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 40)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 41)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 42)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 43)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 44)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 45)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 46)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 47)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 48)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 49)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 50)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 51)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 52)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 53)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 54)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 55)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 56)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 57)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 58)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 59)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 60)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 61)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 62)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 63)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 64)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (SIGNED-BYTE 65)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE RATIO) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE RATIONAL)
;  -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE REAL) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE BIGNUM) ->
; T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE FLOAT) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE SHORT-FLOAT) -> SINGLE-FLOAT
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE SINGLE-FLOAT) -> SINGLE-FLOAT
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE DOUBLE-FLOAT) -> DOUBLE-FLOAT
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE LONG-FLOAT)
;  -> DOUBLE-FLOAT
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 1))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 2))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 3))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 4))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 5))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 6))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 7))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 8))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 9))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 10))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 11))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 12))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 13))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 14))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 15))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 16))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 17))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 18))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 19))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 20))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 21))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 22))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 23))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 24))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 25))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 26))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 27))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 28))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 29))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 30))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 31))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 32))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 33))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 34))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 35))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 36))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 37))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 38))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 39))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 40))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 41))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 42))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 43))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 44))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 45))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 46))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 47))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 48))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 49))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 50))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 51))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 52))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 53))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 54))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 55))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 56))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 57))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 58))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 59))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 60))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 61))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 62))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 63))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 64))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (UNSIGNED-BYTE 65))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 1))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 2))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 3))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 4))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 5))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 6))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 7))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 8))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 9))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 10))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 11))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 12))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 13))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 14))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 15))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 16))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 17))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 18))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 19))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 20))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 21))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 22))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 23))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 24))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 25))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 26))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 27))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 28))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 29))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 30))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 31))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 32))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 33))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 34))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 35))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 36))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 37))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 38))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 39))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 40))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 41))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 42))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 43))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 44))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 45))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 46))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 47))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 48))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 49))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 50))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 51))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 52))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 53))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 54))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 55))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 56))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 57))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 58))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 59))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 60))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 61))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 62))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 63))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 64))) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE `(COMPLEX ,TYPE)) ->
; (UPGRADED-ARRAY-ELEMENT-TYPE (COMPLEX (SIGNED-BYTE 65))) -> T
* 
* 
1
*