anchor.diff:                          (prog1 :read-body
                             :TODO-parse-headers)
                           nil)
  -                    (buffer parser)))
  +                    recur))
                    :error)))
   
         (finish
  
positive.code: 
  ;;; Header block parser
  (deffsm header-fsm ()
    ()
    (:default-initargs . (:state :seek-return-1)))
  
  (defstate header-fsm :seek-return-1 (fsm data)
    (format t "~S[~S] => ~S~%" fsm state (code-char data))
  
negative.code:          (return (1+ i)))))))
  
  (defstate request-parser :read-headers (parser data)
    (let ((data (or (buffer parser) data))
          (recur (prog1 (buffer parser) (setf (buffer parser) nil))))
      (format t "Headers data: ~S~%" (babel:octets-to-string data))
  
      (flet ((finish (at)
  