anchor.diff:  
   (defun bit-quotient (&rest rest)
     "Division for bit-vectors.  Return results QUOTIENT and REMAINDER forced to absolute ceiling values."
  -  (let* ((intlist (loop for i in rest collect (bits->int i))))
  +  (let* ((intlist (loop for i in rest collect (int<- i))))
       (multiple-value-bind (quotient remainder)
           (floor (apply #'/ intlist))
  -      (values (int->bits (abs (ceiling quotient))) (int->bits (abs (ceiling remainder)))))))
  +      (values (bits<- (abs (ceiling quotient))) (bits<- (abs (ceiling remainder)))))))
   
   (defmacro bit/ (&rest rest)
     "Shorthand for BIT-QUOTIENT function."
  
positive.code: (defun rshift (n count)
    "Return a bit vector of N right-shifted by COUNT. N may be an integer, bit-vector, octet-vector, or hex-string."
    (cond ((typep n 'integer)
           (int->bits (ash n (- 0 count))))
          ((typep n 'bit-vector)
           (int->bits (ash (bits->int n) (- 0 count))))
          ((or (typep n '(vector (unsigned-byte 8)))
               (typep n '(simple-array (unsigned-byte 8) (*))))
           (int->bits (ash (octets->int n) (- 0 count))))
          ((typep n 'string)
           (int->bits (ash (hex->int n) (- 0 count))))
          (t (error "Type of value N not recognized."))))
  
  (defmacro >> (n count)
  
negative.code: 
  (defun bit-difference (&rest rest)
    "Subtraction for bit-vectors.  Return result DIFFERENCE forced to absolute ceiling value."
    (let* ((intlist (loop for i in rest collect (int<- i)))
           (difference (apply #'- intlist)))
      (bits<- (abs (ceiling difference)))))
  
  (defmacro bit- (&rest rest)
    "Shorthand for BIT-DIFFERENCE function."
  