(FILECREATED " 6-Jan-87 14:57:35" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH008.;1
 1601   

      changes to:  (VARS RGPATCH008COMS))


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

(PRETTYCOMPRINT RGPATCH008COMS)

(RPAQQ RGPATCH008COMS
 ((* * Added FORCEOUTPUT at end of checkpoint process)
			 (* * Changes to NCLOCALDEVICE)
			 (FNS NCLocalDevice.CheckpointNoteFile)))
(* * Added FORCEOUTPUT at end of checkpoint process)


(* * Changes to NCLOCALDEVICE)


(DEFINEQ

(NCLocalDevice.CheckpointNoteFile

  [LAMBDA (NoteFile InterestedWindow OperationMsg QuietFlg)
                                                             (* Randy.Gobbel " 6-Jan-87 11:26")


          (* * Checkpoint a local device notefile.)




          (* * fgh 5/26/86 First created.)




          (* * fgh 9/1/86 Reimplemented QuietFlg, etc.)




          (* * rg 1/6/87 Added FORCEOUTPUT)



    (if
 (
NOT
 (
NCLocalDevice.NoteFileOpenP
 NoteFile))
	then
 (
QUOTE
 NoteFileNotOpen)
      elseif
 [
NULL
 (
ERSETQ
 (
PROGN
 (
NCLocalDevice.PutHashArray
 NoteFile InterestedWindow NIL 
									OperationMsg QuietFlg)
					  (replace
 (NoteFile CheckptPtr) of
 NoteFile
					     with
 (
GETEOFPTR
 (fetch
 (NoteFile Stream)
								    of
 NoteFile)))
					  (
NCLocalDevice.PutNoteFileHeader
 NoteFile)
					  (
FORCEOUTPUT
 (fetch
 (NoteFile Stream) of
 NoteFile)
							 T]
	then
 (
QUOTE
 CheckpointFailed)
      else
 NoteFile])
)
(PUTPROPS RGPATCH008 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (488 1520 (NCLocalDevice.CheckpointNoteFile 498 . 1518)))))
STOP