anchor.diff:             ;; look for next frame
              (let ((f (extract-read-chunk-as-utf-8 client)))
                (client-enqueue-read client (list client f))
  -             (lg "got frame, next=~s, ff=~s, len=~s~%  frame = ~s~%"
  +             #++(lg "got frame, next=~s, ff=~s, len=~s~%  frame = ~s~%"
                    next ff (length b) f))
              (values :frame-00 (if next (list :start next))))
             ((> (client-read-buffer-octets client)
  
positive.code:                        for state = (client-read-state client) then next-state
                         for data = nil then next-data
                         do
                           (lg "parsing packet in state ~s~%" state)
                           (lg "from client ~s~%" client)
                           (setf (values next-state next-data)
                                 (funcall (gethash state *reader-fsm*)
                                          octets client data))
                           (lg "  -> state ~s~%" next-state)
                           (case next-state
                             ((:close :close-read)
                              (client-enqueue-read client (list client :eof))
  
negative.code:                     (format t "(frame) read ~s octets...~%" count)
                      (when (zerop count)
                        (error 'end-of-file))
                      #++(format t "  ==  |~s|~%"
                              (babel:octets-to-string octets
                                                      :encoding :utf-8
                                                      :errorp nil))
  