;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.53
;;; Reason:
;;;  For printing MAKE-SYSTEM file transformations, when an input file arg is
;;;  NIL, print nothing at all.  Print, for example, "Loading FOO.QFASL",
;;;  instead of "Loading FOO.QFASL and NIL".
;;;  
;;;  Also, for LOAD-SITE-FILE transformation, changed "Loading site files on
;;;  account of" to "Loading site files because of".
;;; Written 16-Aug-88 17:30:50 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 2
;;; with Experimental System 126.52, ZWEI 125.16, ZMail 73.2, Local-File 75.2, File-Server 24.1, Tape 24.2, Lambda-Diag 17.0, Experimental Unix-Interface 14.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.SYS2; MAKSYS.LISP#214 at 16-Aug-88 17:31:15
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "


(FORMAT:DEFFORMAT FILE-XFORM-ARGS (:ONE-ARG) (FILE-TRANSFORMATION IGNORE)
  (LET ((ARGS (FILE-TRANSFORMATION-ARGS FILE-TRANSFORMATION)))
    (IF (NULL ARGS)
	(LET* ((TYPE (FILE-TRANSFORMATION-TRANSFORMATION-TYPE FILE-TRANSFORMATION))
	       (IMPERATIVE (TRANSFORMATION-TYPE-PRETTY-IMPERATIVE TYPE)))
	  (IF (MEMQ (TRANSFORMATION-TYPE-NAME TYPE) *WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*)
	      (FORMAT T IMPERATIVE (SYSTEM-NAME
				     (FILE-TRANSFORMATION-SYSTEM FILE-TRANSFORMATION)))
	    (SEND *QUERY-IO* :STRING-OUT IMPERATIVE)))
      (DO ((FILE-LIST ARGS (CDR FILE-LIST))
	   (OUTPUTS (FILE-TRANSFORMATION-OUTPUTS FILE-TRANSFORMATION))
	   (FIRST-P T NIL))
	  ((EQ FILE-LIST OUTPUTS))
	(when (car file-list)
	  (unless FIRST-P
	    (SEND *STANDARD-OUTPUT* :STRING-OUT (IF (EQ (CDR FILE-LIST) OUTPUTS)
						     " and " ", ")))
	  (PRINC (CAR FILE-LIST)))))))

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#214 at 16-Aug-88 17:31:18
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "


(DEFINE-SIMPLE-TRANSFORMATION LOAD-SITE-FILE LOAD-SITE-FILE-1
  FILE-NEWER-THAN-INSTALLED-P (:QFASL) NIL
  ("Load site files because of changes in"
   "Loading site files because of"
   "loaded") NIL)

))