;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tape version 21.3
;;; Reason:
;;;  There is no reason for the TAR-FORMAT dummy host to have a Chaos address.
;;; Written 5-Apr-88 15:46:40 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 1
;;; with Experimental System 123.220, 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 21.2, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.TAPE; TAR-FORMAT.LISP#27 at 5-Apr-88 15:46:41
#10R TAPE#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TAPE")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: TAPE; TAR-FORMAT  "

(add-initialization
  "Define TAR-Format dummy host"
  `(setq *dummy-unix-host*
	 (progn
	   (si:define-host *dummy-unix-host-name*
			   :host-names (ncons *dummy-unix-host-name*)
			   :machine-type :unix
			   :system-type :unix)
	   (fs:get-pathname-host *dummy-unix-host-name*)))
  '(:now)
  'si:tape-warm-initialization-list)

))