anchor.diff:           ;; Convert to fixnum.
            (emit '(sys.lap-x86:lea64 :r8 ((:rax ,(ash 1 sys.int::+n-fixnum-bits+)))))
            (setf *r8-value* (list (gensym)))))
  +     (defbuiltin ,(intern (format nil "~A-UNSCALED" name) (symbol-package name)) (object offset) ()
  +       (let ((constant-offset (and (constant-type-p offset `(signed-byte ,(- 64 sys.int::+n-fixnum-bits+)))
  +                                   (second offset))))
  +         (unless constant-offset
  +           (load-in-reg :rdi offset t)
  +           ;; Convert to unboxed integer.
  +           (emit `(sys.lap-x86:sar64 :rdi ,sys.int::+n-fixnum-bits+)))
  +         (load-in-reg :r9 object t)
  +         (smash-r8)
  +         ;; Read.
  +         (cond (constant-offset
  +                (emit `(,',read-op :eax (:r9 ,(+ (- sys.int::+tag-object+) 8 constant-offset)))))
  +               (t
  +                (emit `(,',read-op :eax ,(object-ea :r9 :index `(:rdi 1))))))
  +         ;; Convert to fixnum.
  +         (emit '(sys.lap-x86:lea64 :r8 ((:rax ,(ash 1 sys.int::+n-fixnum-bits+)))))
  +         (setf *r8-value* (list (gensym)))))
        (defbuiltin (setf ,name) (new-value object offset) ()
          (let ((constant-offset (and (constant-type-p offset `(signed-byte ,(- 64 sys.int::+n-fixnum-bits+)))
                                      (second offset))))
  
positive.code:                 (emit `(,',write-op ,(list :r9 (+ (- sys.int::+tag-object+) 8 (* constant-offset ,width))) ,',register)))
                 (t
                  (emit '(,write-op ,(object-ea :r9 :index `(:rdi ,width)) ,register))))
           *r8-value*))))
  
  (define-u-b-object-ref sys.int::%%object-ref-unsigned-byte-8  1 sys.lap-x86:movzx8  sys.lap-x86:mov8  :al)
  
negative.code:          ;; Convert to fixnum.
           (emit '(sys.lap-x86:lea64 :r8 ((:rax ,(ash 1 sys.int::+n-fixnum-bits+)))))
           (setf *r8-value* (list (gensym)))))
       (defbuiltin ,(intern (format nil "~A-UNSCALED" name) (symbol-package name)) (object offset) ()
         (let ((constant-offset (and (constant-type-p offset `(signed-byte ,(- 64 sys.int::+n-fixnum-bits+)))
                                     (second offset))))
           (unless constant-offset
             (load-in-reg :rdi offset t)
             ;; Convert to unboxed integer.
             (emit `(sys.lap-x86:sar64 :rdi ,sys.int::+n-fixnum-bits+)))
           (load-in-reg :r9 object t)
           (smash-r8)
           ;; Read.
           (cond (constant-offset
                  (emit `(,',read-op :rax (:r9 ,(+ (- sys.int::+tag-object+) 8 constant-offset)))))
                 (t
                  (emit '(,read-op :rax ,(object-ea :r9 :index `(:rdi 1))))))
           ;; Convert to fixnum.
           (emit '(sys.lap-x86:lea64 :r8 ((:rax ,(ash 1 sys.int::+n-fixnum-bits+)))))
           (setf *r8-value* (list (gensym)))))
       ;; Write function.
       (defbuiltin (setf ,name) (new-value object offset) ()
         (let ((constant-offset (and (constant-type-p offset `(signed-byte ,(- 64 sys.int::+n-fixnum-bits+)))
  