(FILECREATED "22-SEP-83 15:26:00" ("compiled on " {INDIGO}SOURCES>LOOPSMIXIN.;4) "20-SEP-83 19:27:00" recompiled exprs: ListMetaClass.DestroyInstance ListMetaClass.New in LOOPS.SYSOUT dated "21-SEP-83 18:53:36") (FILECREATED "22-SEP-83 15:25:24" {INDIGO}SOURCES>LOOPSMIXIN.;4 33846 changes to: (FNS ListMetaClass.New ListMetaClass.DestroyInstance) previous date: "20-SEP-83 12:09:19" {INDIGO}SOURCES>LOOPSMIXIN.;3) GlobalNameA0245 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 4 obj% P 1 oldName P 0 GetValue F 10Q self F 11Q name F 12Q prop F 13Q av F 14Q varName) g` W1Wg LZ!Jd`h#_gMh ^&MN  go LWlKIdW&OO_]װWI WWWWW Wh(222Q PutLocalState 203Q UnNameEntity 134Q ERROR 117Q GetNthMethod 107Q \FindEntryIndex 31Q GetObjectRec 10Q SETTOPVAL) (125Q SetName 75Q class 71Q SetName 61Q class 50Q classTYPE# 26Q Object 5 GlobalNameTable 2 CurrentNameTable) (131Q "not found for DoMethod") GlobalName D1 (P 1 MACROY P 0 MACROX I 4 av I 3 prop I 2 name I 1 varName I 0 self F 2 RESETVARSLST) 3 gd RcXog YgH HcIh(55Q ERROR! 43Q SETTOPVAL 31Q GlobalNameA0245 11Q GETTOPVAL) (35Q CurrentNameTable 26Q INTERNAL 5 CurrentNameTable) (23Q (DUMMY.FOR.ERRORSET)) IndirectObj.ForwardMessage D1 (I 5 dummyArg5 I 4 dummyArg4 I 3 dummyArg3 I 2 dummyArg2 I 1 dummyArg1 I 0 self F 0 ForwardedSelector) `PABCDEh (21Q ApplyMethod) (2 DefaultObject) NIL IndirectObj.IVMissing D1 (I 2 createDescrFlg I 1 ivName I 0 self) @Hg HAlI@Hg HABlIAB I`d`d` A`d`d` jHIJIYhdJkذk (206Q FNTH 145Q GetLispClass 113Q GetLispClass 62Q GetIVDescr 43Q GetSuperMethod 12Q FetchMethodOrHelp) (135Q classTYPE# 126Q instanceTYPE# 121Q DefaultObject 103Q classTYPE# 74Q instanceTYPE# 67Q DefaultObject 40Q IVMissing 26Q DefaultObject 7 FindIVHolder) NIL IndirectObj.MessageNotUnderstood D1 (I 1 selector I 0 self F 2 ForwardedSelector) 4@Hg HAlIAcg@Hg HAlI(51Q GetSuperMethod 12Q FetchMethodOrHelp) (46Q MessageNotUnderstood 35Q ForwardMessage 26Q DefaultObject 7 FindReceiver) NIL ListMetaClass.DestroyInstance D1 (I 1 object I 0 class) (@A@g  g @Hg HAlI(35Q GetSuperMethod 22Q PutClass 14Q DREMOVE 10Q GetClass) (32Q DestroyInstance 17Q AllInstances 5 AllInstances) NIL ListMetaClass.New D1 (P 2 newInstance I 1 name I 0 class) +@Hg HAlI@J@g g J(47Q PutClass 37Q GetClass 12Q GetSuperMethod) (44Q AllInstances 34Q AllInstances 7 New) NIL NamedObject.Copy D1 (P 2 obj I 1 name I 0 self) (@Hg HkI!J\g LAlKJ(34Q FetchMethodOrHelp 12Q GetSuperMethod) (31Q SetName 7 Copy) NIL NamedObject.PrintOn D1 (I 1 file I 0 self) #oA @ @g @ hA @(37Q PRIN2 30Q UID 22Q GetValue 13Q ClassName 7 PRIN1) (17Q name) (3 "#&") NamedObject.SetName D1 (I 1 name I 0 self) @gA @(7 PutValue) (3 name) NIL Perspective.Copy D1 (I 0 self) *@g Hg HkIg@gg (47Q GetValue 44Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (41Q myViewName 36Q perspectiveNode 32Q perspectives 15Q Copy 3 perspectiveNode) NIL Perspective.FindIVHolder D1 (I 1 ivName I 0 self) @g Hg HAlI(20Q FetchMethodOrHelp 6 GetValue) (15Q FindIVHolder 3 perspectiveNode) NIL Perspective.FindReceiver D1 (I 1 selector I 0 self) @g Hg HAlI(20Q FetchMethodOrHelp 6 GetValue) (15Q FindReceiver 3 perspectiveNode) NIL Perspective.ListViews D1 (I 0 self) @g Hg HkI(20Q FetchMethodOrHelp 6 GetValue) (15Q ListViews 3 perspectiveNode) NIL RememberName D1 (P 3 obj% P 0 oldName I 5 type I 4 av I 3 propName I 2 newName I 1 varName I 0 self) @A !@g KY!Id`h!gLh ]6LM  go KBlJH@H @AC B@ACE BNN\˰(162Q PutLocalState 151Q GetValueOnly 142Q UnNameEntity 122Q ERROR 105Q GetNthMethod 75Q \FindEntryIndex 21Q GetObjectRec 4 GetValue) (113Q SetName 63Q class 57Q SetName 51Q class 40Q classTYPE# 16Q Object) (117Q "not found for DoMethod") StrucMeta.New D1 (P 14Q cv P 13Q iv P 2 newClass I 2 supers I 1 name I 0 self) @Hg HABlI @\g LglKd @^g NOJlM@_g _OglO.d @Og i@_g _OOJlOJ(173Q FetchMethodOrHelp 156Q GetCVHere 120Q FetchMethodOrHelp 70Q FetchMethodOrHelp 37Q FetchMethodOrHelp 12Q GetSuperMethod) (170Q CopyCV 153Q Local 130Q CVs 115Q List 65Q CopyIV 44Q IVs 34Q List! 7 New) NIL VarLength.Length D1 (I 0 self) @g (11Q LENGTH 6 GetValue) (3 indexedVars) NIL Node.Copy D1 (I 0 self) h @1Hg H@[g KgglJQ L MlI_@gO _gOg Oh_N Oh^L\O&(112Q PutValue 75Q GetIVHere 24Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (107Q myViewName 102Q perspectiveNode 70Q perspectives 34Q perspectives 31Q IVPROPS 21Q List 7 Sublis) NIL Node.FindIVHolder D1 (P 2 v I 1 ivName I 0 self) 5@Hg HkI1IhZ\g LAlKJIY(43Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (40Q HasIV 7 ListViews) NIL Node.FindReceiver D1 (P 3 v P 2 p I 1 selector I 0 self) E@Hg HgglIAIh@gJ []g MAlLKIY(63Q FetchMethodOrHelp 53Q GetValue 12Q FetchMethodOrHelp) (60Q Understands 47Q perspectives 22Q perspectives 17Q IVPROPS 7 List) NIL Node.GetPersp D1 (P 0 persp I 2 causeError I 1 perspName I 0 self) !@gA XHB@oA h(33Q HELPCHECK 12Q GetValue) (6 perspectives) (27Q " has no perspective ") Node.ListViews D1 (P 5 view P 4 viewName I 0 self) I@Hg HgglIQHI@gL ]d`J KhZYHXK&Z(53Q GetValue 12Q FetchMethodOrHelp) (61Q instanceTYPE# 47Q perspectives 22Q perspectives 17Q IVPROPS 7 List) NIL TempClass.New D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 NewTemp) NIL Template.CopyA0306 D1 (P 1 oldValue P 0 tcValue I 2 propName I 1 varName I 0 self F 2 alist)  @AB YdRg X@AHB h(33Q PutValueOnly 21Q TemplateCopy 10Q GetValueOnly) (16Q Copy) NIL Template.Copy D1 (P 4 tcValue P 3 oldValue P 2 newClass I 2 alist I 1 class I 0 self F 5 instance) *AHg HkI!BAJh bUg J(46Q MapIVs! 35Q \NCONC2 12Q GetSuperMethod) (43Q Template.CopyA0306 7 Copy) NIL Template.NewA0309 D1 (P 1 oldValue P 0 tcValue I 2 propName I 1 varName I 0 self F 2 alist)  @AB YdR X@AHB h(30Q PutValueOnly 16Q TemplateCopy 10Q GetValueOnly) NIL NIL Template.New D1 (P 4 tcValue P 3 oldValue P 2 instance I 1 alist I 0 class) *@Hg HkI!A@Jh bJg J(46Q MapIVs! 35Q \NCONC2 12Q GetSuperMethod) (43Q Template.NewA0309 7 New) NIL Template.SpecializeA0312 D1 (P 1 oldValue P 0 tcValue I 2 propName I 1 varName I 0 self F 4 newClass F 5 alist) 7@@AB YdUg X T[g KAlJTA TAHB h(63Q PutClassIV 53Q AddCIV 35Q FetchMethodOrHelp 21Q TemplateCopy 10Q GetValueOnly) (32Q HasIV 16Q Specialize) NIL Template.Specialize D1 (P 4 tcValue P 3 oldValue P 2 newClass I 1 alist I 0 class) 9@Hg HAdlAhblI!A@Jh b@g J(65Q MapIVs! 54Q \NCONC2 12Q GetSuperMethod) (62Q Template.SpecializeA0312 7 Specialize) NIL Node.AddPersp D1 (P 2 oldView P 1 oldViewName P 0 oldNode I 3 dontCauseError I 2 view I 1 viewName I 0 self) Bg aHOBgg H@C