anchor.diff:    (cond ((typep (value form) 'ast-call)
            (let* ((matching-transform (match-transform (value form) (the-type form) target-architecture))
                   (new-form (if matching-transform
  -                              (apply-transform matching-transform (arguments (value form)))
  +                              (apply-transform matching-transform
  +                                               (arguments (value form))
  +                                               (value form))
                                 nil)))
              (cond (new-form
                     (change-made)
  
positive.code:   `(define-transform ,binary-fn ((lhs fixnum) (rhs fixnum))
        ((:result-type ,result)
         (:optimize (= safety 0) (= speed 3)))
       (ast `(the fixnum (call ,',fast-fn ,lhs ,rhs)))))
  
  (define-fast-fixnum-transform-arith-two-arg sys.int::binary-+ %fast-fixnum-+)
  (define-fast-fixnum-transform-arith-two-arg sys.int::binary-- %fast-fixnum--)
  
negative.code:   `(progn
       (define-transform sys.int::aref-1 ((array (simple-array ,type (*))) index)
           ((:optimize (= safety 0) (= speed 3)))
         `(the ,',type (call ,',accessor ,array ,index)))
       (define-transform (setf sys.int::aref-1) (value (array (simple-array ,type (*))) index)
           ((:optimize (= safety 0) (= speed 3)))
         `(the ,',type (call (setf ,',accessor) ,value ,array ,index)))))
  
  (define-fast-array-transform t sys.int::%object-ref-t)
  (define-fast-array-transform fixnum sys.int::%object-ref-t)
  