(FILECREATED "23-Aug-85 13:41:38" {QV}<NOTECARDS>RELEASE1.2I>FGHPATCH021.;2
 1407   

      changes to:  (VARS FGHPATCH021COMS)
		   (FNS NC.SetSystemDate)

      previous date: "23-Aug-85 13:33:38" {QV}<NOTECARDS>RELEASE1.2I>FGHPATCH021.;1)


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

(PRETTYCOMPRINT FGHPATCH021COMS)

(RPAQQ FGHPATCH021COMS
 ((E (SETQ NC.SystemDate (DATE))
			   (PUTPROP (QUOTE NC.SystemDate)
				    (QUOTE NewestFile)
				    (ROOTFILENAME (FULLNAME (OUTPUT)))))
			(* * To be added inside a P clause at end of NOTECARDS file)
			(FNS NC.SetSystemDate)))
(* * To be added inside a P clause at end of NOTECARDS file)


(DEFINEQ

(NC.SetSystemDate

  (LAMBDA NIL                                                (* fgh: "23-Aug-85 13:29")


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



    (LET (ThisFileDate)
      (
SETQ
 NC.SystemDate "23-Aug-70 13:28:52")
      (for
 File in
 (
CONS
 (
QUOTE
 NOTECARDS)
			 NC.Files)
	 do
 (
SETQ
 ThisFileDate (
CAAR
 (
GETPROP
 File (
QUOTE
 FILEDATES))))
	    (
COND

	      ((
GREATERP
 (
IDATE
 ThisFileDate)
			 (
IDATE
 NC.SystemDate))
		(
SETQ
 NC.SystemDate ThisFileDate)
		(
PUTPROP
 (
QUOTE
 NC.SystemDate)
			 (
QUOTE
 NewestFile)
			 File)))))))
)
(PUTPROPS FGHPATCH021 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (677 1325 (NC.SetSystemDate 687 . 1323)))))
STOP