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:          'base-char 'character))
  
  (deftype ascii-simple-string ()
    '(simple-array ascii-char))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; parser stages support
  
negative.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 (lambda (a b)
                               (declare (type ascii-simple-string a b))
                               (string= a b)))))
      (when match (cdr match))))
  
  ;; methods for http.lisp
  