(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (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)) ; Copyright (c) 1988 by Xerox Corporation. All rights reserved. (PRETTYCOMPRINT SEND-FILE-TO-PRINTER-PATCHCOMS) (RPAQQ SEND-FILE-TO-PRINTER-PATCHCOMS ((ADVISE (OPENSTREAM :IN SEND.FILE.TO.PRINTER)))) (XCL:REINSTALL-ADVICE '(OPENSTREAM :IN SEND.FILE.TO.PRINTER) :BEFORE '((:LAST (SETQ PARAMETERS NIL)))) (READVISE (OPENSTREAM :IN SEND.FILE.TO.PRINTER)) (PUTPROPS SEND-FILE-TO-PRINTER-PATCH COPYRIGHT ("Xerox Corporation" 1988)) (DECLARE\: DONTCOPY (FILEMAP (NIL))) STOP