(FILECREATED "14-Aug-87 12:14:38" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH288.;1
 1142   

      changes to:  (VARS RHTPATCH288COMS)
		   (FNS NC.SmashCardObject NC.SmashLink))


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

(PRETTYCOMPRINT RHTPATCH288COMS)

(RPAQQ RHTPATCH288COMS
 ((FNS NC.SmashCardObject NC.SmashLink)))
(DEFINEQ

(NC.SmashCardObject

  (LAMBDA (Card)                                             (* rht: "14-Aug-87 11:58")


          (* * Smash the fields of given CardObject.)



    (create
 CardObject
       smashing
 Card UID ← NIL Monitor ← NIL Status ← NIL IndexDirtyFlg ← NIL Title ← NIL 
		  TitleDirtyFlg ← NIL ActiveFlg ← NIL CardCache ← NIL UserData ← NIL)))

(NC.SmashLink

  (LAMBDA (Link)                                             (* rht: "14-Aug-87 11:58")


          (* * Smash the fields of given Link.)



    (create
 Link
       smashing
 Link UID ← NIL SourceCard ← NIL DestinationCard ← NIL AnchorMode ← NIL Label ← NIL 
		  DisplayMode ← NIL UserData ← NIL)))
)
(PUTPROPS RHTPATCH288 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (345 1060 (NC.SmashCardObject 355 . 727) (NC.SmashLink 729 . 1058)))))
STOP