(FILECREATED " 5-Sep-86 12:16:16" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH099.;1
 920    

      changes to:  (VARS RHTPATCH099COMS)
		   (FNS NC.InsureIntegerDate))


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

(PRETTYCOMPRINT RHTPATCH099COMS)

(RPAQQ RHTPATCH099COMS
 ((* * Change to NCCARDS)
			  (FNS NC.InsureIntegerDate)))
(* * Change to NCCARDS)


(DEFINEQ

(NC.InsureIntegerDate

  (LAMBDA (Date)                                             (* rht: " 5-Sep-86 12:15")


          (* * Convert a date to IDATE format if necessary)




          (* * rht 9/5/86: Now returns 0 if IDATE returns nil.)



    (
COND

      ((
NULL
 Date)
	0)
      ((
FIXP
 Date))
      ((
STRINGP
 Date)
	(
OR
 (
IDATE
 Date)
	      0))
      (T (
NC.ReportError
 NIL "Unknown date format")))))
)
(PUTPROPS RHTPATCH099 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (383 838 (NC.InsureIntegerDate 393 . 836)))))
STOP