(FILECREATED "17-Dec-86 14:30:19" {QV}<notecards>1.3k>next>RGPATCH005.;1
 1310   

      changes to:  (VARS RGPATCH005COMS)
		   (FNS NCP.CreateCardTypeStub))


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

(PRETTYCOMPRINT RGPATCH005COMS)

(RPAQQ RGPATCH005COMS
 ((* * changes to NCPROGINT)
			 (FNS NCP.CreateCardTypeStub)))
(* * changes to NCPROGINT)


(DEFINEQ

(NCP.CreateCardTypeStub

  [LAMBDA (TypeName SuperType FullDefinitionFileName FnsAssocList VarsAssocList ListOfFILLMEFields)
                                                             (* Randy.Gobbel "17-Dec-86 14:21")


          (* * Make a stub for a new card type. If there is already a card type by that name, then print message and 

	  overwrite.)




          (* * rht 11/16/86: Changed call to NCP.ReportError)




          (* * rg 12/17/86: Added ListOfFILLMEFields argument.)



    (if
 (
FMEMB
 TypeName (
NCP.CardTypes
))
	then
 (
NCP.ReportWarning
 "NCP.CreateCardTypeStub" (
CONCAT
 "Redefining NoteCard type: " 
								       TypeName)))
    (
NC.AddCardTypeStub
 TypeName SuperType FullDefinitionFileName FnsAssocList VarsAssocList 
			  ListOfFILLMEFields)
    TypeName])
)
(PUTPROPS RGPATCH005 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (388 1229 (NCP.CreateCardTypeStub 398 . 1227)))))
STOP