(FILECREATED "10-Sep-86 15:39:47" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH106.;1
 890    

      changes to:  (VARS RHTPATCH106COMS)
		   (FNS NCP.MarkCardDirty))


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

(PRETTYCOMPRINT RHTPATCH106COMS)

(RPAQQ RHTPATCH106COMS
 ((* * Change to NCPROGINT)
			  (FNS NCP.MarkCardDirty)))
(* * Change to NCPROGINT)


(DEFINEQ

(NCP.MarkCardDirty

  (LAMBDA (Card ResetFlg)                                    (* rht: "10-Sep-86 15:39")


          (* * Mark Card's substance as dirty thus forcing it to be written down at the next save. If ResetFlg is non-nil, 

	  then unmark it as dirty.)




          (* * rht 9/10/86: Fixed typo. Card wasn't being passed to NC.MarkCardDirty.)



    (
NC.MarkCardDirty
 Card ResetFlg)))
)
(PUTPROPS RHTPATCH106 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (381 808 (NCP.MarkCardDirty 391 . 806)))))
STOP