anchor.diff:  	  (ash (aref vector (+ index 6)) 48)
   	  (ash (aref vector (+ index 7)) 56)))
   (defun (setf ub64ref/le) (value vector index)
  +  (check-type value (unsigned-byte 64))
     (setf (aref vector index) (ldb (byte 8 0) value)
   	(aref vector (+ index 1)) (ldb (byte 8 8) value)
   	(aref vector (+ index 2)) (ldb (byte 8 16) value)
  
positive.code: 	  (ash (aref vector (+ index 2)) 8)
  	  (aref vector (+ index 3))))
  (defun (setf ub32ref/be) (value vector index)
    (setf (aref vector index) (ash value -24)
  	(aref vector (+ index 1)) (logand (ash value -16) #xFF)
  	(aref vector (+ index 2)) (logand (ash value -8) #xFF)
  
negative.code:   (logior (ash (aref vector index) 8)
  	  (aref vector (1+ index))))
  (defun (setf ub16ref/be) (value vector index)
    (check-type value (unsigned-byte 16))
    (setf (aref vector index) (ash value -8)
  	(aref vector (1+ index)) (logand value #xFF))
    value)
  