;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Private patches made by JIM
;;; Reason:
;;;  Define some new make-system keywords
;;; Written 6-May-88 12:33:40 by JIM at site Gigamos Cambridge
;;; while running on Maurice Ravel from band 1
;;; with Experimental System 123.254, Experimental Local-File 73.5, Experimental FILE-Server 22.4, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1755, SDU Boot Tape 3.14, SDU ROM 102, the old ones.



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

(defun always-t (&rest args)
  args
  t)

))

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

(DEFINE-SIMPLE-TRANSFORMATION :FASLOAD-force FASLOAD-1 always-t
			      (*SYSTEM-DEFAULT-BINARY-FILE-TYPE*) NIL "load" NIL)

))

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

(DEFINE-SIMPLE-TRANSFORMATION :READFILE-force READFILE-1 always-t
			      (:LISP) NIL ("Read" "Reading" "read") NIL)

))

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

(DEFMACRO (:COMPILE-LOAD-FORCE DEFSYSTEM-MACRO) (INPUT &OPTIONAL COM-DEP LOAD-DEP
					   COM-COND LOAD-COND)
  `(:FASLOAD-FORCE (:COMPILE ,INPUT ,COM-DEP ,COM-COND) ,LOAD-DEP ,LOAD-COND))

))