(FILECREATED " 4-Aug-86 12:54:12" {PHYLUM}<LANNING>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