(FILECREATED "29-Feb-84 09:08:08" ("compiled on " {INDIGO}SOURCES>LOOPSMIXIN.;14) "20-Feb-84 18:33:29" recompiled exprs: RememberName in LOOPS.SYSOUT dated "22-Feb-84 09:56:25") (FILECREATED "29-Feb-84 09:06:47" {INDIGO}SOURCES>LOOPSMIXIN.;14 34653 changes to: (FNS RememberName) previous date: "26-DEC-83 23:20:41" {INDIGO}SOURCES>LOOPSMIXIN.;13) GlobalNameA0354 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 self F 2 RESETY F 3 varName F 4 name F 5 prop F 6 av F 7 type) 8gd g Pcgd g PcQSTUVW ci(62Q RememberName 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (36Q CurrentUIDTable 26Q CurrentUIDTable 12Q CurrentNameTable 2 CurrentNameTable) NIL GlobalName D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 type I 4 av I 3 prop I 2 name I 1 varName I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q GlobalNameA0354) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) RememberName D1 (P 1 oldName P 0 GetValue I 5 type I 4 av I 3 prop I 2 name I 1 varName I 0 self) 9@@B B@ ggg IdB@I DB@ACE B(65Q PutLocalState 52Q DeleteObjectName 35Q MARKASCHANGED 16Q TYPENAME 10Q NameEntity) (32Q INSTANCES 26Q CLASSES 21Q class) () TemplateCopy D1 (P 10Q obj% P 5 newpf P 4 newgf P 3 newloc P 2 pf P 1 gf P 0 ls I 2 specSelector I 1 alist I 0 oldValue) 8@ dgN@@@3HAB [IAB \JAB ]HKJMIL@`dKdLdMdg0@dg@AB @AB Nd@O@@NOg@Ng _NglO@A Bf@! O_! Od`h%_BOh _!OO  Bo _OAlOOO__ݰ@Ng _NAlO(452Q FetchMethodOrHelp 403Q ERROR 370Q GetNthMethod 355Q \FindEntryIndex 261Q FASSOC 234Q FetchMethodOrHelp 164Q TemplateCopy 155Q TemplateCopy 63Q TemplateCopy 54Q TemplateCopy 45Q TemplateCopy 3 TYPENAME) (447Q New 343Q class 330Q class 317Q classTYPE# 243Q Template 231Q InstOf! 216Q class 143Q * 132Q LISTP 105Q activeValueTYPE# 32Q activeValue 24Q activeValue 16Q activeValue 7 activeValue) (400Q "not found for DoMethod") 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) =@g oA @ @g hA @Hg HAlI@(61Q GetSuperMethod 43Q PRIN2 34Q GetValue 25Q ClassName 20Q PRIN1 6 GetValue) (56Q PrintOn 31Q name 3 name) (14Q "#&") NamedObject.SetName D1 (I 1 name I 0 self) @gA @(7 PutValue) (3 name) NIL NamedObject.UnSetName D1 (I 1 name I 0 self) !@Hg HAlI@gg @(35Q PutValueOnly 12Q GetSuperMethod) (32Q ? 27Q name 7 UnSetName) NIL 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 TempClass.New D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 NewTemp) NIL Template.CopyA1361 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.CopyA1361 7 Copy) NIL Template.NewA1364 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.NewA1364 7 New) NIL Template.SpecializeA1367 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.SpecializeA1367 7 Specialize) NIL VarLength.Length D1 (I 0 self) @g (11Q LENGTH 6 GetValue) (3 indexedVars) 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