;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.127
;;; Reason:
;;;  Remove USER:SOURCE-COMPARE which earlier patch accidentally interned,
;;;  and was distinct from SRCCOM:SOURCE-COMPARE, which causes an error from
;;;  EXPORT when SYS:IO1;SRCCOM gets reloaded later.
;;; Written 23-Oct-88 18:47:58 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Johannes Brahms from band 1
;;; with Experimental System 126.123, Experimental ZWEI 126.21, 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, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, 10/17.



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

;;;Remove USER:SOURCE-COMPARE which earlier patch accidentally interned
(let (pkg sym)
  (and (setq pkg (find-package :user))
       (setq sym (find-symbol "SOURCE-COMPARE" pkg))
       (eq (symbol-package sym) pkg)
       (unintern sym pkg)
       (format t "~&>> Removed SOURCE-COMPARE from USER package")))

))