anchor.diff:            `(sys.lap-x86:cmp8 :al ,sys.int::+tag-object+)
             `(sys.lap-x86:jne ,out)
             `(sys.lap-x86:mov8 :al ,(object-ea :r8 :slot -1))
  +          `(sys.lap-x86:and8 :al ,(ash (1- (ash 1 sys.int::+array-type-size+))
  +                                       sys.int::+array-type-shift+))
             `(sys.lap-x86:or8 :al ,(ash sys.int::+array-type-simple-bit+
                                         sys.int::+array-type-shift+))
             `(sys.lap-x86:cmp8 :al ,(ash sys.int::+object-tag-string+
  
positive.code:           `(sys.lap-x86:jne ,type-error)
            ;; Check object tag.
            `(sys.lap-x86:mov8 :al ,(object-ea :r8 :slot -1))
            `(sys.lap-x86:sub8 :al ,(ash sys.int::+first-complex-array-object-tag+
                                         sys.int::+array-type-shift+))
            `(sys.lap-x86:cmp8 :al ,(ash (- sys.int::+last-complex-array-object-tag+
  
negative.code:           `(sys.lap-x86:jne ,type-error)
            ;; Check object tag.
            `(sys.lap-x86:mov8 :al ,(object-ea :r8 :slot -1))
            `(sys.lap-x86:and8 :al ,(ash (1- (ash 1 sys.int::+array-type-size+))
                                         sys.int::+array-type-shift+))
            `(sys.lap-x86:sub8 :al ,(ash sys.int::+first-complex-array-object-tag+
                                         sys.int::+array-type-shift+))
            `(sys.lap-x86:cmp8 :al ,(ash (- sys.int::+last-complex-array-object-tag+
  