;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.73
;;; Reason:
;;;  Set fs:*ftp-probe-before-open-p* to T and fs:*ftp-probe-before-open-directions*
;;;  to '(:input).  A single host unit now suffices for reading a file with FTP.
;;; Written 25-Oct-87 13:22:58 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.71, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP-ACCESS.LISP#31 at 25-Oct-87 13:22:58
#10R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS  "

#|
With *ftp-probe-before-open-p* set to T, a probe stream is associated with each open
FTP-STREAM before the file is actually opened.  This allows a single FTP-ACCESS host
unit to be used for the probe and for the open file, and only has one data connection
open at once to deal with a particular opening of a file.

*ftp-probe-before-open-directions* determines which directions this occurs for.
:input is safe and efficient.
:output is bogus for two reasons:
  (1) file might not already exist.
  (2) creation date is screwed up.
|#

(defvar *ftp-probe-before-open-p* t "If T then probe-stream before opening")

(defvar *ftp-probe-before-open-directions* '(:input))

))