(FILECREATED "20-Oct-86 16:41:16" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH117.;2
 1246   

      changes to:  (FNS NC.SetSystemDate)

      previous date: "14-Oct-86 10:13:14" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH117.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH117COMS)

(RPAQQ RHTPATCH117COMS
 ((* * Change to NOTECARDS)
			  (FNS NC.SetSystemDate)))
(* * Change to NOTECARDS)


(DEFINEQ

(NC.SetSystemDate

  (LAMBDA NIL                                                (* rht: "20-Oct-86 16:41")


          (* * Set the NC.SystemDate from the stored file dates)



    (DECLARE
 (
GLOBALVARS
 NC.SystemDate NC.Files))
    (LET (ThisFileDate)
         (
SETQ
 NC.SystemDate "23-Aug-70 13:28:52")
         (for
 File in
 NC.Files
	    do
 (
SETQ
 ThisFileDate (
CAAR
 (
GETPROP
 File (
QUOTE
 FILEDATES))))
		 (if
 (
AND
 ThisFileDate (
GREATERP
 (
IDATE
 ThisFileDate)
						       (
IDATE
 NC.SystemDate)))
		     then
 (
SETQ
 NC.SystemDate ThisFileDate)
			    (
PUTPROP
 (
QUOTE
 NC.SystemDate)
				       (
QUOTE
 NewestFile)
				       File))))))
)
(PUTPROPS RHTPATCH117 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (434 1164 (NC.SetSystemDate 444 . 1162)))))
STOP