(FILECREATED "25-Apr-86 18:24:19" {QV}<NOTECARDS>1.3K>FGHPATCH025.;1
 1826   

      changes to:  (VARS FGHPATCH025COMS))


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

(PRETTYCOMPRINT FGHPATCH025COMS)

(RPAQQ FGHPATCH025COMS
 ((* * Fix to a fix of RHT's in autoloading code.)
			  (MACROS NC.GetCardTypeField)))
(* * Fix to a fix of RHT's in autoloading code.)


(DECLARE: EVAL@COMPILE 
(PUTPROPS NC.GetCardTypeField MACRO ((FieldName TypeVariableName)
	   (* * Fetch the card type datatype field specified by FieldName for the card type datatype 
	      named by the variable TypeVariableName.)
	   (* * rht 4/11/86: Was trying to autoload if field of card type was nil. Now only tries to 
	      autoload if CardTypeRecord is nil or if StubFlg is non-nil.)
	   (* * fgh 4/25/86 Fix to above fix. Checks for CardTypeRecord before doing fetch's in 2 
	      cluase of COND.)
	   (LET ((CardTypeRecord (NC.CardTypeRecord TypeVariableName)))
		(COND ((AND CardTypeRecord (NULL (fetch (NoteCardType StubFlg)
							of CardTypeRecord)))
		       (fetch (NoteCardType FieldName)
			      of CardTypeRecord))
		      ((AND CardTypeRecord (fetch (NoteCardType StubFlg)
						  of CardTypeRecord)
			    (fetch (NoteCardType FieldName)
				   of CardTypeRecord)))
		      ((NC.AutoLoadCardType TypeVariableName (QUOTE FieldName)
					    (AND CardTypeRecord (fetch (NoteCardType 
									       FullDefinitionFile)
								       of CardTypeRecord)))
		       (fetch (NoteCardType FieldName)
			      of
			      (NC.CardTypeRecord TypeVariableName)))
		      (T (NC.ReportError NIL (CONCAT "Unknown note card type:  " TypeVariableName 
						     "   or card type field name: "
						     (QUOTE FieldName))))))))
)
(PUTPROPS FGHPATCH025 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP