;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.96
;;; Reason:
;;;  Add :CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT defsystem macro,
;;;  :FASLOAD-FALCON-ENVIRONMENT and :CROSS-COMPILE transformations.
;;;  Only use these in the rare case when you need to cross-compile
;;;  during a compilation for the Lambda. Normally, you use the normal
;;;  transformations, and the :FOR-FALCON keyword to MAKE-SYSTEM.
;;; Written 29-Sep-88 11:56:49 by RWK at site Gigamos Cambridge
;;; while running on Alex from band 3
;;; with Experimental System 126.95, Experimental ZWEI 126.14, Experimental ZMail 74.2, 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 102, Lambda/Falcon Development System.



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

(define-simple-transformation :cross-compile qc-file-cross-1 file-newer-than-file-p
			      (:LISP) (:fbin :fdef))

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#215 at 29-Sep-88 11:57:30
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

(DEFUN QC-FILE-cross-1 (INFILE OUTFILE &optional defs-file)
  (unless defs-file
    (setq defs-file (send outfile :new-pathname :type :fdef)))
  (let ((compiler:*target-computer* 'compiler:k)
	(*system-default-binary-file-type* :fbin)
	(*system-load-binary-file-type* :fdef)
	(compiler:*compilation-environment*
	  (compiler:make-compilation-environment :target 'compiler:falcon
						 :next compiler:*falcon-environment*)))
    (qc-file-1 infile outfile defs-file)))

))


; From modified file DJ: L.SYS2; MAKSYS.LISP#215 at 29-Sep-88 11:59:11
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

(DEFUN FASLOAD-falcon-environment-1 (INFILE &optional defs-file)
  (SETQ *SOMETHING-LOADED* T)
  (unless defs-file
    (setq defs-file (send infile :new-pathname :type :fdef)))
  (compiler:load-fdef-file defs-file))

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#215 at 29-Sep-88 11:59:16
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

(define-simple-transformation :fasload-falcon-environment fasload-falcon-environment-1 FILE-NEWER-THAN-INSTALLED-P
			      (:fbin :fdef) NIL ("Read" "Reading" "read") NIL)

))

; From modified file DJ: L.SYS2; MAKSYS.LISP#215 at 29-Sep-88 11:59:29
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

(defmacro (:cross-compile-load-falcon-environment defsystem-macro) (input &optional com-dep load-dep com-cond load-cond)
  `(:fasload-falcon-environment (:cross-compile ,input ,com-dep ,com-cond) ,load-dep ,load-cond))

))