anchor.diff:  (require :babel)
   
   (defpackage :mezzano.file-system.http
  -  (:use #:cl #:mezzano.file-system #:mezzano.file-system-cache)
  +  (:use #:cl #:mezzano.file-system)
     (:export #:http-host))
   
   (in-package :mezzano.file-system.http)
  
positive.code:   (if (mezzano.internals::type-equal element-type 'character)
        (make-instance 'http-character-stream
                       :path pathname
                       :direction :input
                       :buffer body
                       :length (length body)
                       :external-format (mezzano.internals::make-external-format
                                         'character external-format))
        (make-instance 'http-binary-stream
                       :path pathname
                       :direction :input
                       :buffer body
                       :length (length body))))
  
  (defun decode-location (location)
    ;; This should parse an absoluteURI from rfc2396.
  
negative.code:   (declare (ignore host))
    ())
  
  (defclass http-binary-stream (mezzano.gray:fundamental-binary-input-stream
                                file-stream)
    ((path :initarg :path :reader path)
     (position :initarg :position :accessor stream-position)
     (buffer :initarg :buffer :reader stream-buffer)))
  
  (defclass http-character-stream (mezzano.gray:fundamental-character-input-stream
                                   file-stream)
    ((path :initarg :path :reader path)
     (position :initarg :position :accessor stream-position)
     (buffer :initarg :buffer :reader stream-buffer)))
  
  (defmethod print-object ((object http-binary-stream) stream)
    (print-unreadable-object (object stream :type t :identity t)
  