;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.48
;;; Reason:
;;;  (net:configuration) must be before (fs:reset-file-access) initialization on system
;;;  initialization list, otherwise you hang waiting for FTP connections to close when
;;;  you warm boot.
;;; Written 9-Oct-87 18:04:08 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.47, 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.KERNEL; CONFIGURE.LISP#82 at 9-Oct-87 18:04:09
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; CONFIGURE  "

(defun move-network-configuration-initialization ()
  (do* ((pre-file-access-reset nil)
	(list si:system-initialization-list (cdr list))
	(next (second list) (second list)))
       ((null list))
    (cond ((string-equal "Forget old file access" (car next))
	   (setq pre-file-access-reset list))
	  ((string-equal "Configure Network System" (car next))
	   (when pre-file-access-reset
	     (setf (cdr list) (cddr list))	;Splice out Network Configuration initialization
	     (setf (cdr pre-file-access-reset) (nconc (ncons next) (cdr pre-file-access-reset))))
	   (return))
	  (t))))

(add-initialization "Move network configuration initialization"
		    '(move-network-configuration-initialization)
		    '(:once))

))