;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 121.22
;;; Reason:
;;;  Repair private patch feature, broken by recent change.
;;; Written 2-Feb-87 14:35:05 by RG at site LMI Cambridge
;;; while running on Alex from band 3
;;; with Experimental System 121.17, Experimental Lambda-Diag 15.0, Experimental ZMail 70.2, Experimental KERMIT 32.0, Experimental Unix-Interface 10.0, Experimental Local-File 72.0, Experimental FILE-Server 21.0, Experimental Tape 13.0, microcode 1730, SDU Boot Tape 3.12, SDU ROM 102.



; From modified file DJ: L.SYS2; PATCH.LISP#181 at 2-Feb-87 14:35:06
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; PATCH  "

(defun make-patch-system-binary-pathname (patch-system pathname)
  ;patch-system can be NIL for private patch.
  (if patch-system (make-system-binary-pathname (patch-system patch-system) pathname)
    (send pathname :new-type (PATHNAME-DEFAULT-BINARY-FILE-TYPE pathname))))

))