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