;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Lambda-Diag version 16.2
;;; Reason:
;;;  The "Assure LAM Symbols Loaded" initialization needs to happen BEFORE the
;;;  "Deconfigure Network" initialization on the :before-cold (disk-save)
;;;  initialization list.  Also offer to load the current symbols before the
;;;  network is deconfigured in a :system-release full garbage collection.
;;; Written 15-Jun-88 14:06:54 by pld at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 124.58, Experimental Local-File 74.2, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1759, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.LAMBDA-DIAG; LAMLD.LISP#10 at 15-Jun-88 14:07:06
#8R LAMBDA#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "LAMBDA")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: LAMBDA-DIAG; LAMLD  "

(net:move-initialization si:before-cold-initialization-list "Deconfigure Network System" "Assure LAM Symbols Loaded")

(ADD-INITIALIZATION "Assure LAM Symbols Loaded"
		    '(ASSURE-LAM-SYMBOLS-LOADED (not si:*in-cold-load-p*))
		    '(:head-of-list :gc-system-release))

))