;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.278
;;; Reason:
;;;  Add :readfile-init defsystem transformation by analogy to :compile-load-init
;;; Written 12-May-88 13:56:10 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.277, Experimental Local-File 73.6, Experimental FILE-Server 22.5, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.2, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.SYS2; MAKSYS.LISP#206 at 12-May-88 13:56:11
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

;;;readfile-init
(DEFMACRO (:READFILE-INIT DEFSYSTEM-MACRO) (INPUT ADD-DEP &OPTIONAL READ-DEP 
							      &AUX FUNCTION)
  (SETQ FUNCTION (LET-CLOSED ((*ADDITIONAL-DEPENDENT-MODULES*
				(PARSE-MODULE-COMPONENTS ADD-DEP *SYSTEM-BEING-DEFINED*)))
		   'READFILE-INIT-CONDITION))
  `(:READFILE ,INPUT ,READ-DEP ,FUNCTION))

(DEFUN READFILE-INIT-CONDITION (SOURCE-FILE)
  (OR (FILE-NEWER-THAN-INSTALLED-P SOURCE-FILE)
      (LOCAL-DECLARE ((SPECIAL *ADDITIONAL-DEPENDENT-MODULES*))
	(OTHER-FILES-NEWER-THAN-FILE-P *ADDITIONAL-DEPENDENT-MODULES* SOURCE-FILE))))


))