(FILECREATED "19-Jun-84 10:29:46" ("compiled on " {INDIGO}SOURCES>LOOPSAV.;10) " 8-Jun-84 11:17:20" recompiled exprs: ALISTUNION AttachListAP AtCreation CopyAV DefAVP FirstFetch GetFromIV GetIndirect GetSuperClassValue GettingBrokenVariable GettingTracedVariable HasAV HasActiveGetFn HasActivePutFn MakeActiveValue NoUpdatePermitted PutIndirect PutLocalState PutLocalState! PutLocalStateOnly RemoteCall RemoteSend RemoveListAP ReplaceActiveValue ReplaceMe SendAVMessage SettingBrokenVariable SettingTracedVariable SnapLink StoreUnmarked SubstInAV Temporary UnSnapLink UnionSuperValue UpdateMethodsList in WORK dated " 8-Jun-84 11:31:06") (FILECREATED "19-Jun-84 10:28:49" {INDIGO}SOURCES>LOOPSAV.;10 20244 changes to: (FNS Temporary) previous date: "26-DEC-83 18:30:05" {INDIGO}SOURCES>LOOPSAV.;9) ALISTUNION D1 (P 1 e P 0 newList I 1 L2 I 0 L1) 3hh@!dIAIlIA HI HA (57Q LCONC 44Q TCONC 36Q FASSOC) NIL () AttachListAP D1 (P 1 currentVal P 0 propVals I 6 otherArgs I 5 selector I 4 receiver I 3 prop I 2 avProc I 1 ivName I 0 object) 7 @AC X@A YdB @AhBg @ADEFHC @A (64Q GetValue 57Q PutValueOnly 41Q MakeActiveValue 25Q HasActivePutFn 17Q GetValueOnly 10Q GetIVHere) (35Q EMBED) () AtCreation D1 (I 5 type I 4 av I 3 propName I 2 locState I 1 varName I 0 self) !DBd B @AlB@ACE (36Q ReplaceActiveValue 16Q EVAL 7 EVAL) NIL () CopyAV D1 (I 0 av) ;`@ HdI@ HdI@HdI(37Q COPY 14Q COPY) (55Q activeValue 32Q activeValue 7 activeValue 2 activeValueTYPE#) () DefAVP D1 (I 1 putFlg I 0 fnName) "o@hAooi @kg(30Q DEFINE 25Q SUBPAIR) (35Q EDITF) ( 21Q ((fnName (self varName localSt propName activeVal type) (* This is a getFn. The value of this getFn is returned as the value of the enclosing GetValue.) localSt)) 14Q ((fnName (self varName newValue propName activeVal type) (* This is a putFn. ***NOTE*** The value of this function will be returned as the value of any enclosing PutValue. This usually means that you want to return the value returned by PutLocalState.) (PutLocalState activeVal newValue self varName propName type))) 3 (fnName)) FirstFetch D1 (I 5 type I 4 av I 3 propName I 2 locState I 1 varName I 0 self) !DBd B @AlB@ACE (36Q ReplaceActiveValue 16Q EVAL 7 EVAL) NIL () GetFromIV D1 (I 5 type I 4 activeVal I 3 propName I 2 localSt I 1 varName I 0 self) @B (4 GetValue) NIL () GetIndirect D1 (I 5 type I 4 activeVal I 3 propName I 2 ls I 1 varName I 0 self) gB (6 APPLY) (2 GetIt) () GetSuperClassValue D1 (P 14Q ls P 13Q fn P 12Q value P 11Q c P 7 cls P 6 sup P 0 class I 3 activeVal I 2 propName I 1 varName I 0 self) @d`d`d` AHd!M^_N&OZg JAlI OABg C N! O gN_\g LAlKOABg _dgO_`7OOHABg  OOHAOBOglO O(322Q EVAL 261Q GetLocalState 207Q GetItHere 163Q FetchMethodOrHelp 125Q HasAV 121Q GetItHere 75Q FetchMethodOrHelp 34Q GetLispClass) (310Q CV 255Q CV 243Q activeValue 233Q activeValueTYPE# 215Q ? 204Q CV 160Q HasCV 144Q ? 116Q CV 72Q HasCV 44Q class 24Q classTYPE# 15Q instanceTYPE# 5 instanceTYPE#) () GettingBrokenVariable D1 (I 5 type I 4 av I 3 propName I 2 value I 1 varName I 0 self) gigo (15Q BREAK1) (6 GettingValue 2 value) ( 12Q (?= (self varName propName value))) GettingTracedVariable D1 (I 4 av I 3 propName I 2 value I 1 varName I 0 self) gigo (15Q BREAK1) (6 TracedValue 2 value) ( 12Q (TRACE ?= (self varName propName) GO)) HasAV D1 (L (1 activeVal 0 value)) @`A@ @bNIL (20Q activeValue 4 activeValueTYPE#) () HasActiveGetFn D1 (L (1 getF 0 value)) @`A@@ @bNIL (27Q activeValue 14Q activeValue 4 activeValueTYPE#) () HasActivePutFn D1 (L (1 putF 0 value)) @`A@@ @bNIL (27Q activeValue 14Q activeValue 4 activeValueTYPE#) () MakeActiveValue D1 (P 1 av P 0 oldValue I 6 type I 5 propName I 4 newLocalSt I 3 newPutFn I 2 newGetFn I 1 varOrSelector I 0 self) b@AEF H`DgH`dHBIBdihCICdihD @AIEF IgID(116Q PutItOnly 6 GetItHere) (132Q activeValue 123Q EMBED 70Q activeValue 50Q activeValue 33Q activeValueTYPE# 24Q EMBED 16Q activeValueTYPE#) () NoUpdatePermitted D1 (I 4 av I 3 propName I 2 value I 1 entry I 0 self) o@ACh (15Q ERROR) NIL ( 3 "No entry permitted on ") PutIndirect D1 (P 0 ls I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) D HHBHH (31Q PutIt 3 GetLocalState) NIL () PutLocalState D1 (P 1 locState P 0 fn I 5 type I 4 propName I 3 varName I 2 self I 1 newValue I 0 activeVal)  B`