;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.17
;;; Reason:
;;;  Added canonical file types :FBIN and :FDEF.
;;;  Obsoleted :KFASL.
;;; Written 8-Aug-88 17:02:20 by smh (Steve Haflich) at site Gigamos Cambridge
;;; while running on Harpo from band 3
;;; with Experimental System 126.15, ZWEI 125.11, ZMail 73.2, 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.12, SDU ROM 102, kold 4aug88.



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

(DEFINE-CANONICAL-TYPE :FBIN "FBIN")	;compiled files for the FALCON.

))

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

(DEFINE-CANONICAL-TYPE :FDEF "FDEF")	;cross-compilation environments for the FALCON.

))