(FILECREATED " 2-May-86 23:53:11" {QV}<NOTECARDS>1.3K>FGHPATCH033.;1
 1040   

      changes to:  (VARS FGHPATCH033COMS))


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

(PRETTYCOMPRINT FGHPATCH033COMS)

(RPAQQ FGHPATCH033COMS
 ((* * Minor fix to hash card)
			  (FNS NC.LookupCardByName)))
(* * Minor fix to hash card)


(DEFINEQ

(NC.LookupCardByName

  (LAMBDA (RegistryCard Name)                                (* fgh: " 2-May-86 22:25")


          (* * Look up in RegistryCard's hash array the card hash'ed by key Name. Note that RegistryCard must be active when 

	  this is called.)




          (* * fgh 5/2/86 Now handles case where no match is found in registry table!)



    (LET ((UIDFound (
GETHASH
 (
MKATOM
 Name)
			       (
NC.FetchSubstance
 RegistryCard))))
         (if
 UIDFound
	     then
 (
NC.CardFromUID
 UIDFound (fetch
 (Card NoteFile) of
 RegistryCard))))))
)
(PUTPROPS FGHPATCH033 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (355 958 (NC.LookupCardByName 365 . 956)))))
STOP