(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