(FILECREATED "16-Apr-87 12:55:58" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH032.;3
 2032   

      changes to:  (VARS PMIPATCH032COMS)
		   (FNS NC.ReadDate)

      previous date: " 6-Apr-87 12:51:12" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH032.;1)


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

(PRETTYCOMPRINT PMIPATCH032COMS)

(RPAQQ PMIPATCH032COMS
 ((* * pmi 4/6/87: Removed call to NC.ReportError in NC.ReadDate if bad date 
			     was found; instead, just return NIL.)
			  (* * Change to NCDATABASE)
			  (FNS NC.ReadDate)))
(* * pmi 4/6/87: Removed call to NC.ReportError in NC.ReadDate if bad date was found; instead,
 just return NIL.)


(* * Change to NCDATABASE)


(DEFINEQ

(NC.ReadDate

  (LAMBDA (NoteFileOrStream)                                 (* pmi: " 6-Apr-87 12:52")


          (* * Read a date string from Stream. All dates have the same length, so can use that as a check.

	  I'm allowing null date since we may be compacting an old style (non-dated) notefile. Thus we won't give it a 

	  misleadingly new date.)




          (* * rht 11/11/85: Now handles new notefile object.)




          (* * rht 1/23/86: Now takes notefile or stream as arg.)




          (* * rht 11/1/86: Now uses our readtable when reading.)




          (* * pmi 4/6/87: Removed call to NC.ReportError if bad date was found; instead, just return NIL.)



    (DECLARE
 (
GLOBALVARS
 NC.OrigReadTable NC.DateStringLength))
    (LET ((Stream (
NC.CoerceToNoteFileStream
 NoteFileOrStream))
	  Date)

          (* * Read Date)



         (
SETQ
 Date (
READ
 Stream NC.OrigReadTable))

          (* * Read past CR)



         (
BIN
 Stream)
         (
COND

	   ((
OR
 (
NULL
 Date)
		  (
EQ
 (
NCHARS
 Date)
			NC.DateStringLength))
	     Date)
	   (T 

          (* * (NC.ReportError "NC.ReadDate" (CONCAT Date " is not a proper date.")))



	      NIL)))))
)
(PUTPROPS PMIPATCH032 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (701 1950 (NC.ReadDate 711 . 1948)))))
STOP