;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tape version 21.1
;;; Reason:
;;;  In v20, Tar-Format had wrong nickname; should be "TAR", not "TAR-FORMAT".
;;;  Delete old name from *tape-format-alist* if present
;;;  (e.g. through reloading).
;;; Written 20-Jan-88 16:02:23 by keith (Keith M. Corbett) at site LMI
;;; while running on Opus from band 2
;;; with Experimental System 123.174, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tiger 27.0, Experimental Site Data Editor 8.4, Experimental Laser1+ 2.0, Experimental Tape 21.0, microcode 1754, SDU Boot Tape 3.14, SDU ROM 8, Beta I/site/dvi/patches.



; From modified buffer *Buffer-1* at 20-Jan-88 16:02:32
#10R TAPE#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TAPE")))
  (COMPILER::PATCH-SOURCE-FILE NIL

;;;In case the old name "TAR-FORMAT" got loaded:

(setq *tape-format-alist*
      (delete "tar-format" *tape-format-alist*
	      :test #'string-equal
	      :key #'car))
))