(FILECREATED " 5-Jun-87 15:05:22" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH273.;1
 2437   

      changes to:  (VARS RHTPATCH273COMS))


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

(PRETTYCOMPRINT RHTPATCH273COMS)

(RPAQQ RHTPATCH273COMS
 ((* * Fixes yet another half-link problem.)
			  (* * Change to NCLINKS)
			  (FNS NC.DelReferencesToCardFromGlobalList)))
(* * Fixes yet another half-link problem.)


(* * Change to NCLINKS)


(DEFINEQ

(NC.DelReferencesToCardFromGlobalList

  (LAMBDA (SourceCard LinkOrDestinationCard)                 (* rht: " 5-Jun-87 14:56")


          (* * LinkOrDestinationCard is being deleted. Remove all references to it from the global links list of SourceCard)




          (* * rht 11/19/84: Fixed a naming typo changing ID to SourceCard everywhere. Also fixed DestinationID arg to be 

	  LinkOrDestinationID.)




          (* * kirk: 14Nov85: deleted use of of DatabaseStream and LinkID and changed EQs to NC.Same*Ps)




          (* * rg 5/15/87 now calls NC.LinksCachedP instead of NC.ActiveCardP)




          (* * rht&pmi 6/5/87: Added call to NC.UncacheLinks.)



    (
COND

      ((
NC.LinksCachedP
 SourceCard)
	(
NC.SetGlobalLinks
 SourceCard (for
 Link in
 (
NC.FetchGlobalLinks
 SourceCard)
					   when
 (if
 (
NC.CardP
 LinkOrDestinationCard)
						      then
 (
NOT
 (
NC.SameCardP

								      LinkOrDestinationCard
								      (fetch
 (Link DestinationCard)
									 of
 Link)))
						    else
 (
NOT
 (
NC.SameLinkP
 
									    LinkOrDestinationCard 
										  Link)))
					   collect
 Link)))
      (T (WITH.MONITOR (
NC.FetchMonitor
 (fetch
 (Card NoteFile) of
 SourceCard))
		       (
NC.GetLinks
 SourceCard)
		       (
NC.SetGlobalLinks
 SourceCard
					    (for
 Link in
 (
NC.FetchGlobalLinks
 SourceCard)
					       when
 (if
 (
NC.CardP
 LinkOrDestinationCard)
							  then
 (
NOT
 (
NC.SameCardP

									  LinkOrDestinationCard
									  (fetch
 (Link 
										  DestinationCard)
									     of
 Link)))
							else
 (
NOT
 (
NC.SameLinkP
 
									    LinkOrDestinationCard 
										      Link)))
					       collect
 Link))
		       (
NC.PutLinks
 SourceCard)
		       (
NC.UncacheLinks
 SourceCard))))))
)
(PUTPROPS RHTPATCH273 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (464 2355 (NC.DelReferencesToCardFromGlobalList 474 . 2353)))))
STOP