anchor.diff:  (defstate request-parser :read-headers (parser data)
     (let ((data (or (buffer parser) data)))
       (setf (buffer parser) nil)
  -    (format t "Headers data: ~S~%" (babel:octets-to-string data))
   
       (flet ((finish (at)
                (if (not (equalp at :error))
  
positive.code:          (when (eql (state (headers-fsm parser)) :done)
             (return (1+ i))))))))
  
  ;; HTTP Peer
  (defclass http-peer (emitter)
    ((socket :initarg :socket
  
negative.code: (deffsm body-fsm ()
    ())
  
  
  ;;; Overall request parser
  (deffsm request-parser ()
    ((peer :initarg :peer :accessor peer)
  
  