;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 130.1
;;; Reason:
;;;  Once again, import some SI symbols into GC.  This has been necessary the
;;;  last 3 times after a cold load.  I think I fixed the source, with
;;;  Steve's help, in a way that will work from now on...
;;; Written 11-Nov-88 16:02:05 by fileserver at site Gigamos Cambridge
;;; while running on Tonic from band 4
;;; with Experimental System 130.0, Experimental ZWEI 128.0, Experimental ZMail 75.0, Experimental Local-File 77.0, Experimental File-Server 26.0, Experimental Unix-Interface 16.0, Experimental Tape 27.0, Experimental Lambda-Diag 19.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/11.



; From modified file DJ: L.SYS2; GC.LISP#359 at 11-Nov-88 16:02:05
#10R GARBAGE-COLLECTOR#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GARBAGE-COLLECTOR")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; GC  "

(eval-when (compile eval load)
  (shadowing-import '(si::%region-list-thread
		       si::%area-region-list
		       si::%area-type
		       si::with-quick-region-area-accessors
		       si::for-every-region-in-area)
		    (find-package :gc)))

))