;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.10
;;; Reason:
;;;  Add :IMPRESS and :DVI to canonical file types.  Put them, and :BOTEX, on
;;;  the lists that COPY-FILE is supposed to look at to determine whether a
;;;  file is :CHARACTERS T or NIL.  (It doesn't, but that is the story for
;;;  another patch.)  
;;; Written 3-Aug-88 17:20:04 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.7, ZWEI 125.9, ZMail 73.0, Local-File 75.2, File-Server 24.1, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, falambka.



; From modified file DJ: L.IO.FILE; PATHNM.LISP#574 at 3-Aug-88 17:20:04
#8R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FILE; PATHNM  "


(DEFINE-CANONICAL-TYPE :IMPRESS "IMPRESS")
(DEFINE-CANONICAL-TYPE :DVI "DVI")

))

; From modified file DJ: L.IO.FILE; OPEN.LISP#210 at 3-Aug-88 17:22:23
#8R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FILE; OPEN  "


;Source now has:
;(DEFCONST *COPY-FILE-KNOWN-TEXT-TYPES* '(:LISP :TEXT :MIDAS :PALX :PATCH-DIRECTORY :C
;					       :INIT :UNFASL :BABYL :XMAIL :MAIL :QWABL :DOC :BOTEX
;					       "LPT" "XGP" "ULOAD")
;  "Files whose names have these canonical types are normally copied as characters.")
;(DEFCONST *COPY-FILE-KNOWN-BINARY-TYPES* '(:QFASL :PRESS :WIDTHS :KST
;						  :impress :dvi
;						  "FASL" "MCR" "QBIN" "EXE" "BIN")
;  "Files whose names have these canonical types are normally copied as binary.")

(pushnew :botex *copy-file-known-text-types*)

(pushnew :impress *copy-file-known-binary-types*)

(pushnew :dvi *copy-file-known-binary-types*)

))