anchor.diff:    `(progn
        (define-transform ,predicate ((object ,type))
            ((:optimize (= safety 0) (= speed 3)))
  -       (ast `'t))
  +       `'t)
        (define-transform ,predicate ((object (not ,type)))
            ((:optimize (= safety 0) (= speed 3)))
  -       (ast `'nil))))
  +       `'nil)))
   
   (define-type-predicate-transform consp cons)
   (define-type-predicate-transform vectorp vector)
  
positive.code:   (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)))
                                nil)))
             (cond (new-form
                    (change-made)
  
negative.code:   `(define-transform ,binary-fn ((lhs fixnum) (rhs fixnum))
        ((:result-type ,result)
         (:optimize (= safety 0) (= speed 3)))
       `(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--)
  