(FILECREATED " 5-Sep-86 17:12:56" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH111.;1
 1238   

      changes to:  (VARS FGHPATCH111COMS)
		   (FNS NC.CleanupCardObjects))


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

(PRETTYCOMPRINT FGHPATCH111COMS)

(RPAQQ FGHPATCH111COMS
 ((* * Minor fix tp NC.CleanUpCardObject analogous to that made in 
			     FGHPATCH110 -- From NCDATABASE)
			  (FNS NC.CleanupCardObjects)))
(* * Minor fix tp NC.CleanUpCardObject analogous to that made in FGHPATCH110 -- From 
NCDATABASE)


(DEFINEQ

(NC.CleanupCardObjects

  (LAMBDA (HashArray)                                        (* fgh: " 5-Sep-86 17:11")


          (* * For every cardobject in HashArray, smash CardCache and UserData fields cause they might cause circular links.)




          (* * fgh 9/5/86 Chack to make sure HashArray is real to avoid problems caused by MAPHASH of NIL.)



    (if
 (
HARRAYP
 HashArray)
	then
 (
MAPHASH
 HashArray (
FUNCTION
 (LAMBDA (Card Key)
			      (replace
 (Card CardCache) of
 Card with
 NIL)
			      (replace
 (Card UserData) of
 Card with
 NIL)))))))
)
(PUTPROPS FGHPATCH111 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (541 1156 (NC.CleanupCardObjects 551 . 1154)))))
STOP