(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "13-Sep-88 11:58:39" ("compiled on " 
{PHYLUM}<LISP>MEDLEY>PATCHES>SEND-FILE-TO-PRINTER-PATCH.\;1) "24-Aug-88 21:39:36" |tcompl'd| |in| 
"Medley  9-Sep-88 ..." |dated| " 9-Sep-88 16:48:41")
(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