(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