anchor.diff:  (defmethod initialize-instance :after ((server http-server) &key)
     (add-listener server "connection"
                   (lambda (client)
  -                  (make-instance 'http-peer :socket client))))
  +                  (make-instance 'http-peer :server server :socket client))))
   
   ;; HTTP Parser
   ;;; Request line parser
  
positive.code: 
  ;;; Body dumper
  (deffsm body-fsm ()
    ())
  
  
  ;;; Overall request parser
  (deffsm request-parser ()
    ((peer :initarg :peer :accessor peer)
  
     (request-fsm :initform (make-instance 'request-fsm) :accessor request-fsm)
     (headers-fsm :initform (make-instance 'header-fsm) :accessor headers-fsm)
     (body-fsm :initform (make-instance 'body-fsm) :accessor body-fsm)
  
     (buffer :initform nil :accessor buffer))
    (:default-initargs . (:state :read-request)))
  
negative.code:            (emit (peer parser) "error" "Header Parser Error")
             (return :error))
           (when (eql (state (headers-fsm parser)) :done)
             (let* ((con-len (cdr (assoc "content-length" (headers (headers-fsm parser)) :test #'string-equal)))
                    (con-len (parse-integer (or con-len "") :junk-allowed t))
                    (con-len (or con-len 0)))
               (format t "=> Content-Length: ~S~%" con-len)
               (when (zerop con-len)
                 (setf (state (body-fsm parser)) :skip)
                 (emit (peer parser) "request" parser)))
             (return (1+ i))))))))
  
  (defstate request-parser :read-body (parser data)
  