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

(FILECREATED "13-Sep-88 12:32:03" {PHYLUM}<LISP>LYRIC>PATCHES>INACCESSIBLE-NET-PATCH.\;1
 719    

      |changes| |to:|  (ADVICE (NSNET.DISTANCE :IN SPP.OPEN))
                       (VARS INACCESSIBLE-NET-PATCHCOMS))


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

(PRETTYCOMPRINT INACCESSIBLE-NET-PATCHCOMS)

(RPAQQ INACCESSIBLE-NET-PATCHCOMS
 ((ADVISE (NSNET.DISTANCE :IN SPP.OPEN))))

(XCL:REINSTALL-ADVICE '(NSNET.DISTANCE :IN SPP.OPEN)
       :AFTER
       '((:LAST (RETURN (OR !VALUE 1)))))

(READVISE (NSNET.DISTANCE :IN SPP.OPEN))
(PUTPROPS INACCESSIBLE-NET-PATCH COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP