anchor.diff:                   (vector-push-extend (char hex-digit (ldb (byte 4 0) byte)) result))))
       result))
   
  +(defun decode-buffer (buffer external-format)
  +  ;; Babel doesn't seem to understand external-formats properly, and ignores the EOL style.
  +  (let ((decoded (babel:octets-to-string buffer
  +                                         :encoding (if (eql external-format :default)
  +                                                       :utf-8
  +                                                       external-format)
  +                                         :errorp nil)))
  +    (if (eql external-format :default)
  +        (remove #\Carriage-Return decoded)
  +        decoded)))
  +
   (defun decode-status-line (line)
     (let* ((version-end (position #\Space line))
            (code-end (position #\Space line :start (1+ version-end)))
  
positive.code:                 :format-control "HTTP ~D ~A"
                  :format-arguments (list status-code reason-phrase)))))))
  
  (defmethod directory-using-host ((host http-host) pathname &key)
    (declare (ignore host pathname))
    '())
  
negative.code:   (if (mezzano.internals::type-equal element-type 'character)
        (make-instance 'http-character-stream
                       :path pathname
                       :position 0
                       :buffer (decode-buffer body external-format)
                       :external-format (mezzano.internals::make-external-format
                                         'character external-format))
        (make-instance 'http-binary-stream
                       :path pathname
                       :position 0
                       :buffer body)))
  
  (defun decode-location (location)
    ;; This should parse an absoluteURI from rfc2396.
  