anchor.diff:  (declaim (inline can-not-read))
   (defun can-not-read (reader)
     "Checks if READER can be read without calling fill-buffer"
  -  (declare (type reader reader))
  -
     (= (reader-ibyte reader)
        (reader-end reader)))
   
  
positive.code:                0) :type function)
    stream)
  
  (declaim (inline reset-counters))
  (defun reset-counters (reader)
    "Resets ibit and ibyte in reader struct"
    (setf (reader-ibit reader) 0
          (reader-ibyte reader) 0))
  
  (declaim (inline move-forward))
  (defun move-forward (reader &optional (bits 1))
    "Moves position in READER bit reader in range [0; 8-ibit] BITS.
  
negative.code: (declaim (ftype (function (reader) (integer 0 1)) read-bit))
  (defun read-bit (reader)
    "Read a single bit from READER"
    (if (can-not-read reader) (fill-buffer reader))
  
    (prog1
  