anchor.diff:            `(sys.lap-x86:jne ,type-error)
             ;; Check object tag.
             `(sys.lap-x86:mov8 :al ,(object-ea :r9 :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+
  
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:           ;; Check object tag.
            `(sys.lap-x86:mov8 :al ,(object-ea :r9 :slot -1))
            `(sys.lap-x86:sub8 :al ,(ash sys.int::+first-function-object-tag+
                                         sys.int::+array-type-shift+))
            `(sys.lap-x86:and8 :al ,(ash (1- (ash 1 sys.int::+array-type-size+))
                                         sys.int::+array-type-shift+))
            `(sys.lap-x86:cmp8 :al ,(ash (- sys.int::+last-function-object-tag+
                                            sys.int::+first-function-object-tag+)
  