(FILECREATED " 7-May-86 19:05:57" {QV}<NOTECARDS>1.3K>FGHPATCH035.;1
 1182   

      changes to:  (VARS FGHPATCH035COMS)
		   (FNS NC.CardOrCardHolderFromUID))


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

(PRETTYCOMPRINT FGHPATCH035COMS)

(RPAQQ FGHPATCH035COMS
 ((* * Fix for minor bug FROM NCCARDS)
			  (FNS NC.CardOrCardHolderFromUID)))
(* * Fix for minor bug FROM NCCARDS)


(DEFINEQ

(NC.CardOrCardHolderFromUID

  (LAMBDA (CardUID NoteFileUID)                              (* fgh: " 7-May-86 18:48")


          (* * Get the CardObject specified by CardUID and NoteFIleUID. This will have to be expanded a great deal when there

	  are crosslinked NFs.)




          (* * fgh 5/7/86 Added card holder notion. If NF does not exists send back a new card object holding just the given 

	  ID's)



    (LET (NoteFile)
         (if
 (
SETQ
 NoteFile (
NC.NoteFileFromNoteFileUID
 NoteFileUID))
	     then
 (
NC.CardFromUID
 CardUID NoteFile)
	   else
 (create
 Card
			    UID ← CardUID
			    NoteFile ← NoteFileUID)))))
)
(PUTPROPS FGHPATCH035 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (416 1100 (NC.CardOrCardHolderFromUID 426 . 1098)))))
STOP