anchor.diff:                 (if (typep string 'ascii-simple-string)
                      string
                      (make-ascii-simple-string string)))
  -  (handler-case (funcall (parser-state-parser-stage-function parser-state) parser-state)
  +  (handler-case (funcall (the function (parser-state-parser-stage-function parser-state)) parser-state)
       (buffer-lacks-data (bld)
         (setf (parser-state-parser-stage-function parser-state)
               (recover-function bld))
  
positive.code: 
  (declaim (ftype (function (list string-designator) (or null simple-string)) request-header))
  (defun request-header (header-info-headers header)
    (let ((match (find (string header) header-info-headers :key #'car :test #'string=)))
      (when match (cdr match))))
  
  ;; methods for http.lisp
  
negative.code:   (declare (type multi-buffer buffer)
             (type function callback))
    (let ((current-char (current-char buffer callback)))
      (declare (type ascii-char current-char))
      (or (eql current-char #\Space)
         (eql current-char #\Tab))))
  
  