anchor.diff:              (host-address object)
               (host-port object))))
   
  -(defclass simple-file-stream (sys.int::stream-object)
  +(defclass simple-file-stream (sys.int::stream-object file-stream)
     ((path :initarg :path :reader path)
      (host :initarg :host :reader host)
      (position :initarg :position :accessor sf-position)
  
positive.code:       (prog1 (aref (read-buffer stream) (read-buffer-offset stream))
          (incf (read-buffer-offset stream))
          (incf (sf-position stream)))))
    (with-connection (con (host stream))
      (format con "(:OPEN ~S :DIRECTION :INPUT)~%" (path stream))
      (let ((id (read-preserving-whitespace con)))
  
negative.code:                      (pathname-type object) (pathname-version object))))))
  
  (defun pathname (pathname)
    (cond ((pathnamep pathname)
           pathname)
          (t (parse-simple-file-path (pathname-host *default-pathname-defaults*) pathname))))
  
  (defgeneric open-file (host pathname &key direction element-type if-exists if-does-not-exist external-format))
  
  (defmethod open-file ((host simple-file-host) pathname
                        &key direction element-type if-exists if-does-not-exist external-format)
    (cond ((subtypep element-type 'character)
           (assert (eql external-format :default) (external-format))
           (make-instance 'simple-file-character-stream
                          :path (unparse-simple-file-path pathname)
                          :host host
                          :direction direction))
          ((and (subtypep element-type '(unsigned-byte 8))
                (subtypep '(unsigned-byte 8) element-type))
           (assert (eql external-format :default) (external-format))
           (make-instance 'simple-file-stream
                          :path (unparse-simple-file-path pathname)
                          :host host
                          :direction direction))
          (t (error "Unsupported element-type ~S." element-type))))
  
  (defmacro with-connection ((var host) &body body)
    `(sys.net::with-open-network-stream (,var (host-address ,host) (host-port ,host))
  