(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "28-Apr-88 14:16:23" {PHYLUM}<LISP>LYRIC>PATCHES>RESETLSTPATCH.\;1
 793    

      |changes| |to:|  (ADVICE \\OPENLEAFCONNECTION)
                       (VARS RESETLSTPATCHCOMS))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT RESETLSTPATCHCOMS)

(RPAQQ RESETLSTPATCHCOMS
 ((ADVISE \\OPENLEAFCONNECTION)))
(XCL:REINSTALL-ADVICE '\\OPENLEAFCONNECTION :AROUND '((:LAST (LET ((RESETSTATE NIL))
                                                                  (DECLARE (CL:SPECIAL RESETSTATE))
                                                                  *))))
(READVISE \\OPENLEAFCONNECTION)
(PUTPROPS RESETLSTPATCH COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP