(FILECREATED "15-Jul-86 10:46:36" {QV}<NOTECARDS>1.3K>RHTPATCH072.;1
 1969   

      changes to:  (MACROS NC.MapCards)
		   (VARS RHTPATCH072COMS))


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

(PRETTYCOMPRINT RHTPATCH072COMS)

(RPAQQ RHTPATCH072COMS
 ((* * Change to NCCARDS)
			  (MACROS NC.MapCards)
			  (* * Please remove FNS definition of NC.MapCards from NCCARDS and replace 
			     with above MACROS def'n. Then smash function def'n by
			     (MOVD (QUOTE aaaaa)
				   (QUOTE NC.MapCards)
				   T)
			     or some such before TCOMPL'ing NCDATABASE, etc.)))
(* * Change to NCCARDS)


(DECLARE: EVAL@COMPILE 
(DEFMACRO NC.MapCards (NoteFile Function &OPTIONAL CollectResultPredicate)
	  (* * Map over the entries in a NoteFiles hash array applying function to the CardID and 
	     Hash table value for each entry.)
	  (* * rht 7/14/86: Changed from function to macro.)
	  (BQUOTE (LET (CollectionList)
		       (COND (, CollectResultPredicate
				(MAPHASH (fetch (NoteFile HashArray)
						of , NoteFile)
					 (FUNCTION (LAMBDA (Value Key)
							   (LET (PredicateResult)
								(BLOCK)
								(COND ((SETQ PredicateResult
									     (APPLY* , 
									   CollectResultPredicate 
										     Value))
								       (SETQ CollectionList
									     (CONS (APPLY* , Function 
											   Value 
										  PredicateResult)
										   CollectionList)))
								      (T (APPLY* Function Value)))))))
				)
			     (T (MAPHASH (fetch (NoteFile HashArray)
						of , NoteFile)
					 (FUNCTION (LAMBDA (Value Key)
							   (BLOCK)
							   (APPLY* , Function Value))))))
		       CollectionList)))
)
(* * Please remove FNS definition of NC.MapCards from NCCARDS and replace with above MACROS 
def'n. Then smash function def'n by (MOVD (QUOTE aaaaa) (QUOTE NC.MapCards) T) or some such 
before TCOMPL'ing NCDATABASE, etc.)


(PUTPROPS RHTPATCH072 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP