(FILECREATED " 7-Nov-86 17:23:10" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH140.;1
 1283   

      changes to:  (VARS RHTPATCH140COMS)
		   (FNS NCP.DeleteCards))


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

(PRETTYCOMPRINT RHTPATCH140COMS)

(RPAQQ RHTPATCH140COMS
 ((* * Fix of Tad's bug in NCP.DeleteCards)
			  (* * Change to NCPROGINT)
			  (FNS NCP.DeleteCards)))
(* * Fix of Tad's bug in NCP.DeleteCards)


(* * Change to NCPROGINT)


(DEFINEQ

(NCP.DeleteCards

  (LAMBDA (Cards)                                            (* rht: " 7-Nov-86 17:22")


          (* * Delete the given cards and boxes. Or just one, if Cards is atomic.)




          (* * rht 11/17/85: Updated to handle new card and notefile objects.)




          (* * rht 11/7/86: Now passes flg args to NC.DeleteNoteCards to prevent confirm messages to user.)



    (
SETQ
 Cards (for
 Card in
 (
MKLIST
 Cards) unless
 (if
 (
NOT
 (
NC.ValidCardP
 Card))
								 then
 (
NCP.ReportError
 Card 
							       " is not an existing card or box.")
									T)
		     collect
 Card))
    (
AND
 Cards (
NC.DeleteNoteCards
 Cards T NIL NIL T T))))
)
(PUTPROPS RHTPATCH140 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (472 1201 (NCP.DeleteCards 482 . 1199)))))
STOP