;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.112
;;; Written 18-Oct-88 10:18:13 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.108, Experimental ZWEI 126.19, Experimental ZMail 74.9, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, Experimental IMicro 20.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.IO1; SRCCOM.LISP#41 at 7-Oct-88 18:16:55
#8R SRCCOM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SRCCOM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO1; SRCCOM  "

(unintern (find-symbol "SOURCE-COMPARE" :user))
  
))