;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.229
;;; Reason:
;;;  Fix (si:make-patch-system-binary-pathname) to not leave version as :newest --
;;;  let (compile-file) match the version to that of the source file.
;;; Written 11-Apr-88 12:30:00 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 1
;;; with Experimental System 123.226, Experimental Local-File 73.4, Experimental FILE-Server 22.2, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.0, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.SYS2; PATCH.LISP#183 at 11-Apr-88 12:30:00
#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.
  (setq pathname (if patch-system
		     (make-system-binary-pathname (patch-system patch-system) pathname)
		   (send pathname :new-type (PATHNAME-DEFAULT-BINARY-FILE-TYPE pathname))))
  (when (eq (send pathname :version) :newest)
    ;;If version is >, remove it so that (compile-file) will match it to the source file
    (setq pathname (send pathname :new-version nil)))
  pathname)

))