(FILECREATED " 4-Aug-86 12:54:12" {PHYLUM}FILECACHE>FILECACHE-FIX.;1 692 changes to: (VARS FILECACHE-FIXCOMS) (FNS \New-FLUSHRIGHT) (ADVICE TAB-IN-FLUSHRIGHT)) (* Copyright (c) 1986 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT FILECACHE-FIXCOMS) (RPAQQ FILECACHE-FIXCOMS ((* * A patch for the FILECACHE, v 5.2) (ADVISE TAB-IN-FLUSHRIGHT))) (* * A patch for the FILECACHE, v 5.2) (PUTPROPS TAB-IN-FLUSHRIGHT READVICE [(FLUSHRIGHT . TAB) (BEFORE NIL (COND ((GEQ POS 1000000) (SETQ POS 0]) (READVISE TAB-IN-FLUSHRIGHT) (PUTPROPS FILECACHE-FIX COPYRIGHT ("Xerox Corporation" 1986)) (DECLARE: DONTCOPY (FILEMAP (NIL))) STOP