(FILECREATED "31-Jul-86 10:34:59" {QV}<NOTECARDS>1.3K>RHTPATCH081.;1
 1112   

      changes to:  (VARS RHTPATCH081COMS))


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

(PRETTYCOMPRINT RHTPATCH081COMS)

(RPAQQ RHTPATCH081COMS
 ((* * More MOVD's for NCPROGINT for backward compatibility.)
			  (* * These should be added to the other MOVD's at the end of NCPROGINT's 
			     coms.)
			  (P (MOVD (QUOTE NCP.CardTypeP)
				   (QUOTE NCP.ValidCardType)
				   T)
			     (MOVD (QUOTE NCP.CardTypeFnP)
				   (QUOTE NCP.ValidCardTypeFn)
				   T)
			     (MOVD (QUOTE NCP.CardTypeVarP)
				   (QUOTE NCP.ValidCardTypeVar)
				   T))))
(* * More MOVD's for NCPROGINT for backward compatibility.)


(* * These should be added to the other MOVD's at the end of NCPROGINT's coms.)


(MOVD (QUOTE NCP.CardTypeP)
      (QUOTE NCP.ValidCardType)
      T)
(MOVD (QUOTE NCP.CardTypeFnP)
      (QUOTE NCP.ValidCardTypeFn)
      T)
(MOVD (QUOTE NCP.CardTypeVarP)
      (QUOTE NCP.ValidCardTypeVar)
      T)
(PUTPROPS RHTPATCH081 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP