anchor.diff:       for (atom new-p index internal) across entries
        collect (logior index (if new-p (ash 1 3) 0)) into half-bytes
        nconc (if new-p
  -	       (let ((atom-string (symbol-name atom)))
  -		 `(,internal
  -		   ,@(if long-atoms
  -			 (coerce (uint16-to-bytes (length atom-string)) 'list)
  -			 (list (length atom-string)))
  -		   ,@(map 'list #'char-code atom-string)))
  -	       `(,internal)) into refs
  +               (let ((atom-string (symbol-name atom)))
  +                 `(,internal
  +                   ,@(if long-atoms
  +                         (coerce (uint16-to-bytes (length atom-string)) 'list)
  +                         (list (length atom-string)))
  +                   ,@(map 'list #'char-code atom-string)))
  +               `(,internal)) into refs
        finally
          (nconc half-bytes
  -	      (list (logior (if long-atoms 1 0)
  -			    (ash currently-unused 1))))
  +              (list (logior (if long-atoms 1 0)
  +                            (ash currently-unused 1))))
          (return (concatenate '(vector octet) (encode-flags half-bytes) refs)) ))
   
   (defun encode-flags (half-bytes)
  
positive.code: 
  (defun long-atom-p (atom)
    (< 255 (atom-length atom)))
    
  (defun atom-length (atom)
    (length (symbol-name atom)))
  
  
negative.code: 
  (defun decode-atom-cache-ref (flags bytes &optional long-atoms (pos 0))
    (let ((new-entry (= 1 (ldb (byte 1 3) flags)))
          (segment-index (ldb (byte 3 0) flags))
          (internal-segment-index (aref bytes pos)))
      (if new-entry
          (let (pos1 len)
            (if long-atoms
                (progn
                  (setf len (bytes-to-uint16 bytes (1+ pos)))
                  (setf pos1 (+ 3 pos)))
                (progn
                  (setf len (aref bytes (1+ pos)))
                  (setf pos1 (+ 2 pos))))
            (let ((atom (make-atom (bytes-to-string bytes len pos1))))
              (atom-cache-add atom
                              *atom-cache*
                              segment-index
                              internal-segment-index)
              (values atom
                      (+ pos1 len))))
          (values (atom-cache-get *atom-cache*
                                  segment-index
                                  internal-segment-index)
                  (1+ pos)))))
  