;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.4
;;; Reason:
;;;  Give correct byte specifications to sys:%%fasl-group-check and sys:%%fasl-group-flag.
;;; Written 29-Jul-88 11:38:28 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Cthulhu from band 1
;;; with Experimental System 126.3, ZWEI 125.6, ZMail 73.0, Local-File 75.1, File-Server 24.0, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.COLD; QDEFS.LISP#425 at 29-Jul-88 11:38:31
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: COLD; QDEFS  "

(DEFCONST FASL-GROUP-FIELD-VALUES `(
  %FASL-GROUP-CHECK		#o100000
  %FASL-GROUP-FLAG		#o40000
  %FASL-GROUP-LENGTH		#o37700
  FASL-GROUP-LENGTH-SHIFT	-6
  %FASL-GROUP-TYPE		#o77
  %%FASL-GROUP-CHECK		,(byte 1 15.)
  %%FASL-GROUP-FLAG		,(byte 1 14.)
  %%FASL-GROUP-LENGTH		,(byte 8 6.)
  %%FASL-GROUP-TYPE		,(byte 6 0)
  ))

))

; From modified file DJ: L.COLD; QDEFS.LISP#425 at 29-Jul-88 11:38:59
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: COLD; QDEFS  "

(ASSIGN-ALTERNATE FASL-GROUP-FIELD-VALUES)
))