anchor.diff:                `(let ((,stemp (deposit-field ,store ,btemp ,access-form)))
                    ,store-form
                    ,store)               ;Storing form.
  -              `(mask-field ,btemp ,access-form) ;Accessing form.
  -              ))))
  +              `(mask-field ,btemp ,access-form))))) ;Accessing form.
   
   (declaim (inline deposit-field))
   (defun deposit-field (newbyte bytespec integer)
  
positive.code:       (get-setf-expansion int env);Get setf expansion for int.
      (let ((btemp (gensym))     ;Temp var for byte specifier.
            (store (gensym))     ;Temp var for byte to store.
            (stemp (first stores)) ;Temp var for int to store.
            (bs-size (gensym))   ; Temp var for byte specifier size.
            (bs-position (gensym))) ; Temp var for byte specifier position.
        (when (cdr stores) (error "Can't expand this."))
        ;; Return the setf expansion for LDB as five values.
        (values (cons btemp temps)       ;Temporary variables.
  
negative.code:               `(let ((,stemp (dpb ,store ,btemp ,access-form)))
                   ,store-form
                   ,store)               ;Storing form.
                `(ldb ,btemp ,access-form))))) ;Accessing form.
  
  (declaim (inline dpb))
  (defun dpb (newbyte bytespec integer)
  