(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "13-Sep-88 14:32:49" ("compiled on " 
{PHYLUM}<LISP>LYRIC>PATCHES>SEND-FILE-TO-PRINTER-PATCH.\;1) "27-Apr-87 16:48:49" |tcompl'd| |in| 
"Xerox Lisp 24-Aug-88 ..." |dated| "24-Aug-88 17:59:05")
(FILECREATED "13-Sep-88 11:57:45" {PHYLUM}<LISP>MEDLEY>PATCHES>SEND-FILE-TO-PRINTER-PATCH.\;1 772 
|changes| |to:| (ADVICE (OPENSTREAM :IN SEND.FILE.TO.PRINTER)) (VARS SEND-FILE-TO-PRINTER-PATCHCOMS))
(PRETTYCOMPRINT SEND-FILE-TO-PRINTER-PATCHCOMS)
(RPAQQ SEND-FILE-TO-PRINTER-PATCHCOMS ((ADVISE (OPENSTREAM :IN SEND.FILE.TO.PRINTER))))
(XCL:REINSTALL-ADVICE (QUOTE (OPENSTREAM :IN SEND.FILE.TO.PRINTER)) :BEFORE (QUOTE ((:LAST (SETQ 
PARAMETERS NIL)))))
(READVISE (OPENSTREAM :IN SEND.FILE.TO.PRINTER))
(PUTPROPS SEND-FILE-TO-PRINTER-PATCH COPYRIGHT ("Xerox Corporation" 1988))
NIL