anchor.diff:  
   (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=)))
  +  (let ((match (find (string header) header-info-headers
  +                     :key #'car
  +                     :test (lambda (a b)
  +                             (declare (type ascii-simple-string a b))
  +                             (string= a b)))))
       (when match (cdr match))))
   
   ;; methods for http.lisp
  
positive.code:   (declare (type multi-buffer buffer)
             (type function callback))
    (let ((current-char (current-char buffer callback)))
      (or (eql current-char #\Space)
         (eql current-char #\Tab))))
  
  
negative.code:                (if (typep string 'ascii-simple-string)
                     string
                     (make-ascii-simple-string string)))
    (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))
  