;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.131
;;; Reason:
;;;  Remove somebody's debug print statements from MAKSYS.LISP.
;;;  
;;;  They weren't patched into system 126, but they were in the source.  When
;;;  I recompiled for system 127, this caused much grief; basically,
;;;  MAKE-SYSTEM went into a (DO-FOREVER (PRINT STUFF)) loop...
;;; Written 24-Oct-88 18:46:56 by keith at site Gigamos Cambridge
;;; while running on Johannes Brahms from band 1
;;; with Experimental System 126.111, Experimental ZWEI 126.20, Experimental ZMail 74.9, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, 10/17.



; From modified file DJ: L.SYS2; MAKSYS.LISP#217 at 24-Oct-88 18:50:19
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "


(DEFUN (:DEFAULTED-BATCH MAKE-SYSTEM-KEYWORD) (&AUX PATHNAME)
  (SETQ PATHNAME (OR (SYSTEM-WARNINGS-PATHNAME-DEFAULT *SYSTEM-BEING-MADE*)
		     (SEND (FS:USER-HOMEDIR) :NEW-PATHNAME
			   :NAME (format nil "~A-CWARNS"
					 (string-upcase (or (si:system-symbolic-name *system-being-made*)
							    (si:system-short-name *system-being-made*))))
			   :TYPE :LISP
			   :VERSION :NEWEST)))
  (SETQ INHIBIT-FDEFINE-WARNINGS :JUST-WARN
	TV:MORE-PROCESSING-GLOBAL-ENABLE NIL
	*BATCH-MODE-P* T
	*QUERY-TYPE* :NOCONFIRM)
  (FORMAT *QUERY-IO* "~&Writing compiler warnings data base to file ~A.~%" PATHNAME)
  (SETQ *WARNINGS-STREAM* (OPEN PATHNAME :DIRECTION :OUTPUT :CHARACTERS T))
  (FORMAT *WARNINGS-STREAM*
	  "~&;System ~A made by ~A at ~\DATIME\  -*-Mode: Lisp; Package: User; Base: 10-*-~2%"
	  (SYSTEM-NAME *SYSTEM-BEING-MADE*) USER-ID)
  (write-responsibility-comment *warnings-stream*)
  (PUSH `(CLOSE *WARNINGS-STREAM*)
	*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*))

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#217 at 24-Oct-88 18:50:53
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "


(DEFUN (:BATCH MAKE-SYSTEM-KEYWORD) (&AUX PATHNAME)
  (SETQ PATHNAME (OR (SYSTEM-WARNINGS-PATHNAME-DEFAULT *SYSTEM-BEING-MADE*)
		     (SEND (FS:USER-HOMEDIR) :NEW-PATHNAME
			   :NAME (format nil "~A-CWARNS"
					 (string-upcase (or (si:system-symbolic-name *system-being-made*)
							    (si:system-short-name *system-being-made*))))
			   :TYPE :LISP
			   :VERSION :NEWEST)))
  (SETQ PATHNAME (PROMPT-AND-READ
		   `(:PATHNAME :DEFAULTS ,PATHNAME)
		   "~&Write compiler warnings data base to file: (default ~A) " PATHNAME))
  (SETQ *WARNINGS-STREAM* (OPEN PATHNAME :DIRECTION :OUTPUT :CHARACTERS T))
  (SETQ INHIBIT-FDEFINE-WARNINGS :JUST-WARN
	TV:MORE-PROCESSING-GLOBAL-ENABLE NIL
	*BATCH-MODE-P* T
	*QUERY-TYPE* :NOCONFIRM)
  (FORMAT *WARNINGS-STREAM*
	  "~&;System ~A made by ~A at ~\DATIME\  -*-Mode: Lisp; Package: User; Base: 10-*-~2%"
	  (SYSTEM-NAME *SYSTEM-BEING-MADE*) USER-ID)
  (write-responsibility-comment *warnings-stream*)
  (PUSH `(CLOSE *WARNINGS-STREAM*)
	*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*))

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#217 at 24-Oct-88 18:50:58
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "


(DEFUN FIND-DEPENDENCY-1 (TRANSFORMATION-TYPE SYSTEM MODULE)
  (SETQ SYSTEM (FIND-SYSTEM-NAMED SYSTEM)
	MODULE (AND MODULE (FIND-MODULE-NAMED MODULE SYSTEM)))
  (OR (DOLIST (TRANSFORMATION (SYSTEM-TRANSFORMATIONS (FIND-SYSTEM-NAMED SYSTEM)))
;	(format t "~&TRANSFORMATION: ~A, TYPE ~A" transformation-type (transformation-transformation-type transformation))
	(AND
;	  (progn
;	       (format t "~&EQual: ~A" (equal transformation-type (transformation-transformation-type transformation)))
;	       t)
	     (EQ TRANSFORMATION-TYPE (TRANSFORMATION-TRANSFORMATION-TYPE TRANSFORMATION))
	     (EQ MODULE
		 (DO ((X TRANSFORMATION (TRANSFORMATION-INPUT X)))
		     ((NOT (TYPEP X 'TRANSFORMATION)) X)
;		   (progn (format t "~&~A" transformation))
		   ))
	     (RETURN TRANSFORMATION)))
      (FERROR NIL "Transformation ~S not found on ~S in ~S"
	      TRANSFORMATION-TYPE MODULE SYSTEM)))

;;; This perhaps needs a better name

))