anchor.diff:             (emit `(sys.lap-x86:xor64 :r8 :r9))
              (setf *r8-value* (list (gensym))))))
   
  -(defbuiltin sys.int::binary-logand (x y)
  +(defbuiltin sys.int::binary-logand (x y) ()
     (when (constant-type-p y 'fixnum)
       (psetf x y
              y x))
  
positive.code:   (emit `(sys.lap-x86:cmp64 :r9 :r8))
    (predicate-result :le))
  
  (defbuiltin sys.int::binary-> (x y)
    (load-in-reg :r9 x t)
    (fixnum-check :r9)
    (load-in-r8 y t)
  
negative.code:                    `(sys.lap-x86:mov64 :r8 :rax))
               (setf *r8-value* (list (gensym)))))))
  
  (defbuiltin sys.int::binary-< (x y) ()
    (load-in-reg :r9 x t)
    (fixnum-check :r9)
    (load-in-r8 y t)
  