;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.47
;;; Reason:
;;;  Bump the FASL version to 2. Version 1 QFASL files are still compatible, but
;;;  this obsoletes version 1 FBIN files.
;;; Written 12-Aug-88 05:14:53 by RWK at site Gigamos Cambridge
;;; while running on Love from band 2
;;; with Experimental System 126.44, ZWEI 125.15, ZMail 73.2, Local-File 75.2, File-Server 24.1, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.13, SDU ROM 102, Kcold Loaded -- 8/3/88.



; From modified file DJ: L.SYS; QFASL.LISP#512 at 12-Aug-88 05:14:54
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QFASL  "

(defvar *fasl-version* 2)

))

; From modified file DJ: L.SYS; QFASL.LISP#512 at 12-Aug-88 05:14:58
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QFASL  "

(defun fasl-op-version-info ()
  (let ((machine (fasl-next-value))
	(version (fasl-next-value)))
    (unless (eq machine *machine-fasling-on*)
      (ferror "File was compiled for ~A and is being loaded on ~A." machine *machine-fasling-on*))
    (cond ((eql version *fasl-version*))
	  ;; Versions 1 and 2 are compatible on the Lambda.
	  ((and (eql version 1)
		(eql *fasl-version* 2)
		(eq *machine-fasling-on* :lambda)))
	  (t (ferror "Fasl version is ~A, was expecting version ~A." version *fasl-version*)))
    (enter-fasl-table ())))

))