anchor.diff:  
   ;;; Unboxed fixnum arithmetic.
   ;;; These only apply at safety 0 as they can produce invalid values which
  -;;; can damage the system.
  +;;; can damage the system if the tpe declarations are incorrect;.
   
   (defmacro define-fast-fixnum-transform-arith-two-arg (binary-fn fast-fn &key (result 'fixnum))
     `(define-transform ,binary-fn ((lhs fixnum) (rhs fixnum))
  
positive.code:   `(the double-float
          (call mezzano.runtime::%%coerce-fixnum-to-double-float ,number)))
  
  (define-transform sys.int::binary-= ((lhs double-float) (rhs double-float))
      ((:optimize (= safety 0) (= speed 3)))
    `(call eq ,lhs ,rhs))
  
  (define-transform sys.int::binary-< ((lhs double-float) (rhs double-float))
      ((:optimize (= safety 0) (= speed 3)))
  
negative.code:     ((:optimize (= safety 0) (= speed 3)))
    `(call not (call sys.int::%%double-float-< ,rhs ,lhs)))
  
  ;;; Fast array accesses, avoid type-dispatch in AREF.
  ;;; These check bounds, but not the type.
  ;;; Currently only functional on simple 1d arrays.
  
  (defmacro define-fast-array-transform (type accessor)
  