(FILECREATED " 4-Jul-86 20:57:13" {QV}<NOTECARDS>1.3K>RHTPATCH054.;1
 1899   

      changes to:  (MACROS NC.ProtectedNoteFileOperation)
		   (VARS RHTPATCH054COMS))


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

(PRETTYCOMPRINT RHTPATCH054COMS)

(RPAQQ RHTPATCH054COMS
 ((* * CHanges to NCCARDS)
			  (MACROS NC.ProtectedCardOperation)
			  (* * Changes to NCDATABASE)
			  (MACROS NC.ProtectedNoteFileOperation)))
(* * CHanges to NCCARDS)


(DECLARE: EVAL@COMPILE 
(DEFMACRO NC.ProtectedCardOperation (Card Operation &REST Body)
	  (BQUOTE (RESETLST (RESETSAVE (NC.SetUserDataProp , Card (QUOTE OperationInProgress)
							   (QUOTE , Operation))
				       (BQUOTE (NC.SetUserDataProp , , Card OperationInProgress ,
								   (NC.FetchUserDataProp
								     , Card (QUOTE 
									      OperationInProgress)))))
			    (RESETSAVE (NC.SetUserDataProp , Card (QUOTE ProcessInProgress)
							   (THIS.PROCESS))
				       (BQUOTE (NC.SetUserDataProp , , Card ProcessInProgress ,
								   (NC.FetchUserDataProp
								     , Card (QUOTE ProcessInProgress))
								   )))
			    ,@ Body)))
)
(* * Changes to NCDATABASE)


(DECLARE: EVAL@COMPILE 
(DEFMACRO NC.ProtectedNoteFileOperation (NoteFile Operation &REST Body)
	  (BQUOTE (RESETLST (RESETSAVE (NC.NoteFileProp , NoteFile (QUOTE OperationInProgress)
							(QUOTE , Operation))
				       (BQUOTE (NC.NoteFileProp , , NoteFile OperationInProgress ,
								(NC.NoteFileProp , NoteFile
										 (QUOTE 
									      OperationInProgress)))))
			    (RESETSAVE (NC.NoteFileProp , NoteFile (QUOTE ProcessInProgress)
							(THIS.PROCESS))
				       (BQUOTE (NC.NoteFileProp , , NoteFile ProcessInProgress ,
								(NC.NoteFileProp , NoteFile
										 (QUOTE 
										ProcessInProgress)))))
			    ,@ Body)))
)
(PUTPROPS RHTPATCH054 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP