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: ;;; Simple remote file protocol client.
  
  (defpackage #:simple-file-client
    (:use #:cl))
  