(FILECREATED "23-Apr-87 15:20:57" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH033.;1
 1082   

      changes to:  (VARS RGPATCH033COMS)
		   (FNS NCP.LockListOfCards))


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

(PRETTYCOMPRINT RGPATCH033COMS)

(RPAQQ RGPATCH033COMS
 ((* * rg 4/23/87 pgmr's interface fn for LockListOfCards, also checks that 
			    resetvar is bound)
			 (* * new for NCPROGINT)
			 (FNS NCP.LockListOfCards)))
(* * rg 4/23/87 pgmr's interface fn for LockListOfCards, also checks that resetvar is bound)


(* * new for NCPROGINT)


(DEFINEQ

(NCP.LockListOfCards

  [LAMBDA (CardIdentifiers Operation)                        (* Randy.Gobbel "23-Apr-87 14:57")


          (* * rg 4/23/87 created)



    (if
 (
NOT
 (
BOUNDP
 (
QUOTE
 CardListResetVar)))
	then
 (
NC.ReportError
 (
QUOTE
 NCP.LockListOfCards)
				 "NCP.LockListOfCards called without RESETLST wrapper"))
    (
NC.LockListOfCards
 CardIdentifiers Operation])
)
(PUTPROPS RGPATCH033 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (580 1001 (NCP.LockListOfCards 590 . 999)))))
STOP