(FILECREATED " 3-Jul-84 00:43:08" ("compiled on " {INDIGO}SOURCES>LOOPSKERNEL.;71) " 8-Jun-84 11:17:20" recompiled exprs: Class.EM! Class.SpecializeMethod Object.MoveToFile in WORK dated "26-Jun-84 15:50:19") (FILECREATED " 3-Jul-84 00:41:54" {INDIGO}SOURCES>LOOPSKERNEL.;71 76211 changes to: (METHODS Class.SpecializeMethod Object.MoveToFile) (INSTANCES Class.SpecializeMethod Object.MoveToFile) (VARS LOOPSKERNELCOMS KERNELCLASSES) (FNS Class.EM! Class.SpecializeMethod Object.MoveToFile) previous date: "26-Jun-84 14:05:35" {INDIGO}SOURCES>LOOPSKERNEL.;69) Class.CreateInstance D1 (I 2 oldInstanceFlg I 1 oldObject I 0 self) @AB (5 BlankInstance) NIL () Class.DefMethod D1 (I 3 exp I 2 args I 1 selector I 0 self) Ao bo @ABC (33Q DefineMethod 23Q PrintStatus 11Q PromptRead) NIL ( 20Q "No method defined." 6 "Type the selector for the new method: ") Class.DefRSM D1 (I 2 ruleSetName I 1 selector I 0 self) @AB (5 DefRSM) NIL () Class.EM! D1 (P 1 classForMethod P 0 items I 1 selector I 0 self F 17Q MakeLocalMethodMenu) 5AW`@[g KglJ dHH l#kؼdLdg dgjdndhdM bh@_g OAlNYdo @Ig `W;g`didodg dgjdndh_dO dg+oAo@ @_g _OAlO@Y&dgg-@_g _OAlOI_g _OAlO(446Q FetchMethodOrHelp 420Q FetchMethodOrHelp 351Q FetchMethodOrHelp 337Q PrintStatus 312Q MENU 307Q SETTOPVAL 204Q GETTOPVAL 166Q PROMPT 143Q FetchMethodOrHelp 125Q MENU 50Q FLENGTH 36Q SORT 21Q FetchMethodOrHelp) (443Q EditMethod 415Q SpecializeMethod 404Q SpecializeMethod 376Q Edit 346Q MakeLocalMethod 316Q MakeLocal 255Q DEFAULTMENUHELDFN 246Q CLRPROMPT 224Q MENUTYPE# 221Q MakeLocalMethodMenu 210Q MENUTYPE# 201Q MakeLocalMethodMenu 140Q WhereIs 76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 26Q Methods 16Q List! 10Q MENUTYPE#) ( 333Q " local method of " 326Q "Making " 237Q (("Make method local" (QUOTE MakeLocal) "Copy method to this class and edit") ("Edit Method in Place" (QUOTE Edit) "Edit method in class where found") ("Specialize Method" (QUOTE SpecializeMethod) "Define a template for a method specialization")) 163Q "No class for method") Class.Edit D1 (P 3 methodWindow P 2 editSource I 1 commands I 0 self) <@Hg HkI@ JA@gg hbK @ (66Q ClassName 61Q CLOSEW 46Q EDITE 30Q MakeMethodMenu 12Q FetchMethodOrHelp) (71Q LASTCLASS 42Q ChangeEditedClass 37Q CLASSES 7 MakeEditSource) () Class.Edit! D1 (P 2 editSource I 1 commands I 0 self) 2@Hg HkIJA@gg hb@ (54Q ClassName 41Q EDITE 12Q FetchMethodOrHelp) (57Q LASTCLASS 35Q ChangeEditedClass 32Q CLASSES 7 MakeFullEditSource) () Class.EditMethod D1 (P 24Q supers P 23Q index P 22Q meth P 21Q pos P 20Q class P 3 ruleSet P 2 selectors P 1 method P 0 index I 2 commands I 1 selector I 0 class) Aa@]g MglL ZH`didJJ l#kؾdNdg dgjdndh_dO bh@A Y@AO `h`2O Al_"O d`O"A`O"`O"_O _(AO h _&O(O(_(_ 5O O& _$`"`O"O `O"A`O"O$O$Y\Ao@o oo gj@_g _OAlO@Ag [gPK _g _OkOAl<@_g _OglOihdgi bkAo@ hI Io gIB @_g _OAhilO(710Q FetchMethodOrHelp 677Q APPLY 665Q PrintStatus 654Q GETDEF 646Q PrintStatus 626Q FIXSPELL 575Q FetchMethodOrHelp 546Q FetchMethodOrHelp 536Q GetObjectRec 523Q GetMethod 476Q FetchMethodOrHelp 457Q INTTY 444Q CONCAT 351Q GetNthMethod 320Q \FindEntryIndex 154Q FindLocalMethod 142Q MENU 62Q FLENGTH 35Q SORT 20Q FetchMethodOrHelp) (705Q CommentMethods 671Q EDITF 621Q PICKONE 605Q Selectors 572Q List! 543Q ER 527Q ? 520Q RuleSet 473Q MakeLocalMethod 462Q YES 411Q MethodBlock 377Q SelectorBlock 364Q ClassBlock 357Q UseMethodCacheFlg 306Q class 273Q class 257Q MethodBlock 245Q SelectorBlock 230Q ClassBlock 204Q UseMethodCacheFlg 173Q classTYPE# 110Q DEFAULTMENUHELDFN 101Q CLRPROMPT 43Q MENUTYPE# 25Q Selectors 15Q List) ( 662Q " is not a known function." 642Q " is not a selector of " 454Q "Type yes to edit locally defined copy of method" 450Q (YES NO) 441Q ". Should I make it local for editing? " 434Q " is not a local method of ") Class.EditMethodObject D1 (I 1 selector I 0 self) oAS`@Hg HglI HdIdg dgjdndhHdI  b@A dHg HkIh(145Q FetchMethodOrHelp 130Q GetMethodObj 117Q MENU 37Q SORT 21Q FetchMethodOrHelp) (142Q Edit 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 26Q Methods 16Q List 5 MENUTYPE#) () Class.FetchMethod D1 (P 4 supers P 3 index P 2 meth P 1 pos P 0 class I 1 selector I 0 self) @A@`h`*@Al@d`IA`I`I@AHh [LLX*HK ``I@`IA`IJJ(140Q GetNthMethod 117Q \FindEntryIndex) (173Q MethodBlock 162Q SelectorBlock 151Q ClassBlock 144Q UseMethodCacheFlg 105Q class 75Q class 64Q MethodBlock 53Q SelectorBlock 37Q ClassBlock 17Q UseMethodCacheFlg 10Q classTYPE#) () Class.FileIn D1 (P 2 obj I 1 fileSource I 0 self) 8@Hg HAlIAJ\g LAlKJ]g MkN(57Q FetchMethodOrHelp 36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (54Q OldInstance 33Q InstallFileSource 7 Old) () Class.FileOutA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 source F 3 file F 4 self F 5 className) {gl THg HkIJUo MoS `S JS `S lhS JS idhS oS S S hh(164Q TERPRI 157Q TERPRI 152Q PRIN1 141Q PRINTDEF 131Q POSITION 121Q TAB 111Q CHANGEFONT 101Q PRIN1 71Q CHANGEFONT 61Q PRIN1 47Q HELPCHECK 23Q FetchMethodOrHelp 7 SETTOPVAL) (105Q DEFAULTFONT 65Q LAMBDAFONT 20Q MakeFileSource 2 FIRSTCOL) ( 146Q "]" 55Q "[DEFCLASS " 44Q " is not defined as a class. Type OK to ignore this class and go on.") Class.FileOut D1 (P 1 MACROY P 0 MACROX I 1 file I 0 self F 2 RESETVARSLST) 2 gd Rcog gH HcI@(56Q ERROR! 43Q SETTOPVAL 31Q Class.FileOutA0001 11Q GETTOPVAL) (35Q FIRSTCOL 26Q INTERNAL 5 FIRSTCOL) ( 23Q (DUMMY.FOR.ERRORSET)) Class.Fringe D1 (P 7 C I 0 self) Ip@\g LglK.dO ^g NglMdIHhZH&J(47Q FetchMethodOrHelp 40Q GetClassRec 12Q FetchMethodOrHelp) (54Q Subs 44Q List 17Q Subs 7 List!) () Class.IndexedInstances D1 (I 0 self) @ (6 FindIndexedObjects 3 ClassName) NIL () Class.Initialize D1 (I 1 self I 0 class) @A A(4 FastClassInitialize) NIL () Class.InstallEditSource D1 (P 0 className I 1 editedDescription I 0 self F 1 INITIALS) E@ AH k Hoi g HA @hQ g @ g h(101Q MARKASCHANGED 73Q ClassName 66Q PutClass 60Q EDITDATE 51Q InstallClassSource 42Q RETFROM 33Q PROMPTPRINT 21Q RINGBELLS 13Q CheckClassSource 3 ClassName) (76Q CLASSES 63Q Edited: 37Q EDITE) ( 27Q " not defined -- bad form ") Class.List D1 (P 4 descr P 3 index I 2 name I 1 type I 0 self) A bdg@ g@ AgAdg@ g@ AgAdg%0@d IHhZH&JgAdg%0@d IHhZH&JgAdg@ @ gAgA.@B@jHIJIYh htJkذk ggAdg8B@ jHIJIYhK@Kk )Jkذg@Adg@B o AgAgL L (607Q ListPropNames 601Q ListPropNames 556Q LoopsHelp 546Q FetchMethodDescr 503Q FNTH 406Q FNTH 315Q \APPEND2 304Q ClassName 233Q ClassName 153Q ClassName 113Q \ListFromBlock 74Q \ListFromBlock 44Q \APPEND2 25Q \APPEND2 3 U-CASE) (573Q METHOD 565Q CLASS 536Q METHOD 525Q class 517Q CLASS 473Q class 434Q class 423Q CVPROPS 414Q CV 330Q IVPROPS 322Q IV 310Q class 277Q class 267Q METACLASS 260Q META 222Q class 207Q SUBCLASSES 200Q SUBS 142Q class 127Q SUPERCLASSES 120Q SUPERS 106Q class 100Q FUNCTIONS 67Q class 60Q SELECTORS 51Q METHODS 37Q class 31Q CVS 20Q class 11Q IVS) ( 553Q "not recognized part of class") Class.List! D1 (P 6 attList P 5 supers P 4 class P 3 name P 2 nameList I 3 verboseFlg I 2 name I 1 type I 0 class)  @ dgdgihibA bdgddg@Hg HAlIgA @ gAdg4hh@LL [JJK MM\JgAg@ 0@LDL Cho'L_g _OABlOddNN^MM\AgN N(374Q DREVERSE 315Q FetchMethodOrHelp 271Q ClassName 242Q SubsTree 205Q TCONC 173Q ClassName 123Q \APPEND2 71Q FetchMethodOrHelp 35Q U-CASE 3 ClassName) (366Q CLASS 312Q List 262Q class 234Q SUBCLASSES 226Q SUBS 164Q class 136Q SUPERCLASSES 127Q SUPERS 116Q class 105Q IVS 66Q List 52Q METACLASS 43Q META 15Q Object 7 Class) ( 301Q (Object Class)) Class.MakeEditSource D1 (I 0 self) 'g@ g@ g@ g@ h(36Q GetSourceIVs 26Q GetSourceCVs 16Q GetSourceSupers 6 GetSourceMeta) (32Q InstanceVariables 22Q ClassVariables 12Q Supers 2 MetaClass) () Class.MakeFileSource D1 (P 2 tail P 1 ivs P 0 cvs I 1 file I 0 self F 3 DumpMethodsInClass) Q@ @ H gHhI gIhS g@ h Zg@ g@ g@ J(110Q GetSourceSupers 100Q GetSourceMeta 71Q ClassName 61Q \NCONC2 56Q \NCONC2 50Q GetSourceMethods 7 GetSourceIVs 3 GetSourceCVs) (104Q Supers 74Q MetaClass 65Q DEFCLASS 44Q Methods 32Q InstanceVariables 20Q ClassVariables) () Class.MakeFullEditSource D1 (I 0 self) *@Hg HkIg@ g@ h (47Q \NCONC2 40Q GetSourceInhCVs 30Q GetSourceInhIVs 12Q FetchMethodOrHelp) (34Q CVsInherited 24Q IVsInherited 7 MakeEditSource) () Class.New D1 (I 6 arg5 I 5 arg4 I 4 arg3 I 3 arg2 I 2 arg1 I 1 name I 0 class) +@Hg HkIHg HABCDEFlI(33Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (30Q NewInstance 7 CreateInstance) () Class.NewClass D1 (L (3 init3 2 init2 1 init1 0 self)) @NIL NIL () Class.NewTemp D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 New) () Class.Old D1 (P 1 uid P 0 names I 1 fileSource I 0 self) AHHH  Y@I (30Q NewObject 22Q MKATOM 16Q LAST) NIL () Class.Rename D1 (I 2 environment I 1 newName I 0 self) #Ao@ b@Hg HABlI(27Q FetchMethodOrHelp 11Q HELPCHECK) (24Q SetName) ( 5 "Can't rename a class without specifying name. Type RETURN to continue and rename class: ") Class.RenameMethod D1 (I 2 newSelector I 1 oldSelector I 0 self) @ AB (10Q RenameMethod 3 ClassName) NIL () Class.ReplaceSupers D1 (I 1 supers I 0 self) @A g@ (16Q ChangedClass 4 InstallSupers) (7 NoUpdateRequired) () Class.SetName D1 (P 12Q selector P 5 changeMsg P 4 namePair P 3 fnFile P 2 file P 1 newFnName P 0 oldName I 1 newClassName I 0 self) @  HAh@H Hg @A @A@ @_g OglN&d HO _g _OAlOHg ZIAgJ HgJ oHoAo HJggMhhggHAhh @(267Q EDITCALLERS 224Q CONCAT 201Q DELFROMFILE 170Q ADDTOFILE 154Q WHEREIS 124Q FetchMethodOrHelp 114Q $! 111Q MethName 61Q FetchMethodOrHelp 50Q ChangedClass 35Q NameEntity 30Q UNMARKASCHANGED 21Q DeleteObjectName 3 ClassName) (252Q R 247Q TTY: 235Q PROMPTPRINT 232Q E 175Q CLASSES 164Q CLASSES 151Q CLASSES 121Q ChangeClassName 67Q Selectors 56Q List 41Q class 25Q CLASSES) ( 220Q "; Exit with STOP to abort change." 213Q " to " 206Q "Exit with OK to change ") Class.Specialize D1 (P 1 myName P 0 N I 1 newName I 0 self) JAj@ IHkX b @d`d` Jg JA@ hlK(100Q ClassName 71Q FetchMethodOrHelp 57Q GetLispClass 27Q GetObjectRec 22Q PACK* 7 ClassName) (66Q New 47Q classTYPE# 40Q instanceTYPE#) () Class.SpecializeMethod D1 (P 15Q supers P 14Q index P 13Q meth P 12Q pos P 11Q class P 2 classForMethod P 1 items P 0 fn I 1 selector I 0 self F 16Q UseMethodCacheFlg F 17Q ClassBlock F 20Q SelectorBlock F 21Q MethodBlock) ;AZ`@\g LglK dII l#kؽdMdg dgjdndhdN b@A @`hW-@Al_@dWOAW OW"OY@_AOh _OO__0OO _WWO@W OAW"OOOXo @ AH oggAH h @_g _OAlOh(453Q FetchMethodOrHelp 442Q DM 437Q COPY 425Q ARGLIST 406Q ARGLIST 401Q ClassName 374Q PROMPT 315Q GetNthMethod 264Q \FindEntryIndex 125Q MENU 50Q FLENGTH 36Q SORT 21Q FetchMethodOrHelp) (450Q EditMethod 420Q self 415Q _Super 252Q class 237Q class 146Q classTYPE# 76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 26Q Methods 16Q List! 10Q MENUTYPE#) ( 412Q (* Specialization) 371Q "No method for selector") Class.SubClasses D1 (L (0 self)) &@@d[KIHhZH&JNIL (6 class) () Class.Subclass D1 (I 1 super I 0 self) #@A HdHIiJJX(4 GetClassRec) (16Q class) () Class.UnSetName D1 (P 0 files I 1 name I 0 self) )@A `@iAg X AgH h(45Q DELFROMFILE 32Q WHEREIS 7 DeleteObjectName) (41Q CLASSES 27Q CLASSES 14Q CurrentNameTable) () DestroyedClass.DestroyClass D1 (P 6 superName P 2 entity P 1 super P 0 uid I 1 classToDestroy I 0 self) AQA g A\g LglKKdN Y=I0 I%dAMdd_O Oh_O&_OAhAhAhAhAg hAg @ g(240Q DeleteObjectUID 232Q GetObjectRec 214Q GetObjectRec 54Q GetClassRec 27Q FetchMethodOrHelp 17Q DELDEF 11Q ClassName) (243Q DestroyedClass 227Q DestroyedClass 224Q class 211Q DestroyedObject 206Q class 163Q class 72Q class 63Q class 34Q Supers 24Q List 14Q CLASSES) () DestroyedClass.DestroyInstance D1 (I 2 self I 1 class I 0 self) %@g @h@h@h @h@ (42Q DeleteObjectUID 11Q GetObjectRec) (27Q instance 6 DestroyedObject 3 instance) () DestroyedClass.SubClasses D1 (L (0 self)) hNIL NIL () DestroyedObject.Destroy! D1 (L (0 self)) @NIL NIL () MetaClass.CreateClass D1 (I 2 supers I 1 name I 0 self) AB@ (5 DefineClass) NIL () MetaClass.DestroyInstance D1 (P 6 superName P 2 entity P 1 super P 0 uid I 0 classToDestroy) @Q@ g @\g LglKKdN Y=I0 I%d@Mdd_O Oh_O&_O@h@h@h@h@g h@g @ g(240Q DeleteObjectUID 232Q GetObjectRec 214Q GetObjectRec 54Q GetClassRec 27Q FetchMethodOrHelp 17Q DELDEF 11Q ClassName) (243Q DestroyedClass 227Q DestroyedClass 224Q class 211Q DestroyedObject 206Q class 163Q class 72Q class 63Q class 34Q Supers 24Q List 14Q CLASSES) () MetaClass.New D1 (I 5 init3 I 4 init2 I 3 init1 I 2 supers I 1 name I 0 self) +@Hg HABlIHg HCDElI(36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (33Q NewClass 7 CreateClass) () Method.ChangeClassName D1 (P 2 newMethName P 1 selector P 0 oldMethName I 1 newClassName I 0 self) \@ @g 2AI ZH@g HJg @gJ A I@g @gA @\g LHJlKJ(117Q FetchMethodOrHelp 107Q PutValue 77Q AddMethod 74Q GetValue 64Q GetClassRec 57Q PutValue 46Q COPYDEF 33Q GetValue 22Q MethName 12Q GetValue 3 GetObjectName) (114Q ChangeName 103Q className 71Q method 53Q method 43Q FNS 30Q method 7 selector) () Method.ChangeName D1 (P 0 file I 3 newSelector I 2 newMethName I 1 oldMethName I 0 self) eP@Zg JAlIAg Ag Ag @\g LBlK@gC Ag XBgH AgH @(141Q DELFROMFILE 130Q ADDTOFILE 114Q WHEREIS 104Q PutValue 63Q FetchMethodOrHelp 52Q UNMARKASCHANGED 42Q UNMARKASCHANGED 32Q UNMARKASCHANGED 12Q FetchMethodOrHelp) (135Q METHODS 124Q METHODS 111Q METHODS 100Q selector 60Q SetName 47Q INSTANCES 37Q FNS 27Q METHODS 7 UnSetName) () Method.EditMethod D1 (I 0 self) $@g Hg H@g lI(34Q GetValue 23Q FetchMethodOrHelp 11Q $! 6 GetValue) (31Q selector 20Q EditMethod 3 className) () Method.FileOut D1 (P 3 pos P 2 source I 1 file I 0 self) @Hg HkIoA `A JA kA A JA `A lA JA kA JA `A KhA JA hihA oA A @(225Q TERPRI 220Q PRIN1 207Q PRINTDEF 177Q POSITION 165Q TAB 156Q CHANGEFONT 146Q PRIN1 134Q SPACES 126Q PRIN1 115Q SPACES 106Q CHANGEFONT 76Q PRIN1 66Q POSITION 61Q SPACES 53Q PRIN1 44Q CHANGEFONT 34Q PRIN1 12Q FetchMethodOrHelp) (152Q DEFAULTFONT 102Q LAMBDAFONT 40Q DEFAULTFONT 7 MakeFileSource) ( 214Q "]" 30Q "[") Method.MakeFileSource D1 (P 5 iv P 2 source P 1 className P 0 name I 0 self) @ A@\g LkKYg@gIg @ ZodMJ ZH@g gJ gJ g@g @g @g @g hJ (205Q \NCONC2 174Q GetValue 165Q GetValue 156Q GetValue 147Q GetValue 134Q DELASSOC 122Q FASSOC 110Q GetValue 72Q DELASSOC 52Q IVSource 45Q PutValue 16Q FetchMethodOrHelp 3 GetObjectName) (171Q doc 162Q args 153Q selector 144Q className 140Q METH 130Q method 116Q method 105Q method 42Q methodClass 36Q method 30Q Method 13Q ClassName) ( 57Q (className selector args doc)) Method.NewInstance D1 (I 3 arg2 I 2 arg1 I 1 name I 0 self) $@Hg HABClI@ gi @(40Q MARKASCHANGED 31Q GetObjectName 12Q GetSuperMethod) (34Q METHODS 7 NewInstance) () Method.OldInstance D1 (P 0 class I 0 self F 5 methClass F 6 cName) V AH/@g o g Zg J@g lIH@g @g @gg c +@d`d` U@\g LUlKh(170Q FetchMethodOrHelp 155Q GetLispClass 124Q $! 121Q GetValue 107Q AddMethod 104Q GetValue 75Q GetValue 57Q GetValue 46Q FetchMethodOrHelp 37Q GetObjectRec 27Q HELPCHECK 20Q GetValue 3 GetClassRec) (165Q ChangeClass 145Q classTYPE# 136Q instanceTYPE# 116Q methodClass 113Q method 101Q method 72Q selector 54Q className 43Q New 34Q Class 15Q className) ( 24Q "not a currently defined class. Cannot add method to class. Type OK to create class and go on.") Object.ChangeClass D1 (P 1 classRec P 0 source I 1 newClass I 0 self) 7@ Ad` Ao "HA@ @[g KkJ@(55Q FetchMethodOrHelp 44Q FillInst 41Q BlankInstance 30Q ERROR 16Q GetClassRec 3 IVSource) (52Q OldInstance 11Q classTYPE#) ( 25Q " not a class for ChangeClass") Object.Class D1 (I 0 self) @d`d` (24Q GetLispClass) (14Q classTYPE# 5 instanceTYPE#) () Object.DelFromFile D1 (P 2 name P 1 type P 0 names I 0 self) &@ @`ggHdZI h(35Q DELFROMFILE 3 GetObjectNames) (21Q CLASSES 15Q INSTANCES 10Q instanceTYPE#) () Object.Destroy D1 (I 0 self) )@d`d` Hg H@lI(36Q FetchMethodOrHelp 24Q GetLispClass) (33Q DestroyInstance 14Q classTYPE# 5 instanceTYPE#) () Object.Destroy! D1 (P 0 obj% I 0 self) @d`!g HYAI`h`/IglId`L`Lg`LUI_gKh ^OO_[-KN ``LI`Lg`LMM go HkJIg IkJ(312Q FetchMethodOrHelp 271Q ERROR 210Q GetNthMethod 163Q \FindEntryIndex 23Q GetObjectRec) (307Q Destroy 262Q Destroy! 245Q MethodBlock 237Q Destroy! 232Q SelectorBlock 221Q ClassBlock 214Q UseMethodCacheFlg 151Q class 145Q Destroy! 135Q class 123Q MethodBlock 116Q Destroy! 107Q SelectorBlock 74Q ClassBlock 61Q Destroy! 52Q UseMethodCacheFlg 41Q classTYPE# 20Q Class 5 classTYPE#) ( 266Q "not found for DoMethod") Object.DoMethod D1 (P 0 obj% I 14Q arg10 I 13Q arg9 I 12Q arg8 I 11Q arg7 I 10Q arg6 I 7 arg5 I 6 arg4 I 5 arg3 I 4 arg2 I 3 arg1 I 2 class I 1 selector I 0 self)  @!BHYAI`h`+IAlId`LA`L`LQI_AKh ^OO_[+KN ``LI`LA`LMM Ao HCDEFGGGGGGl J(240Q ERROR 163Q GetNthMethod 136Q \FindEntryIndex) (216Q MethodBlock 205Q SelectorBlock 174Q ClassBlock 167Q UseMethodCacheFlg 124Q class 112Q class 100Q MethodBlock 67Q SelectorBlock 53Q ClassBlock 33Q UseMethodCacheFlg 22Q classTYPE#) ( 235Q "not found for DoMethod") Object.Edit D1 (I 1 commands I 0 self) !@Hg HkIA@gg @(35Q EDITE 12Q FetchMethodOrHelp) (31Q ChangeEditedInstance 26Q INSTANCES 7 MakeEditSource) () Object.FileOut D1 (P 3 pos P 2 source I 1 file I 0 self) @Hg HkIoA `A JA kA A JA `A kA JA `A KhA JA hihA oA A @(203Q TERPRI 176Q PRIN1 165Q PRINTDEF 155Q POSITION 144Q TAB 135Q CHANGEFONT 125Q PRIN2 114Q SPACES 106Q CHANGEFONT 76Q PRIN1 66Q POSITION 61Q SPACES 53Q PRIN1 44Q CHANGEFONT 34Q PRIN1 12Q FetchMethodOrHelp) (131Q DEFAULTFONT 102Q LAMBDAFONT 40Q DEFAULTFONT 7 MakeFileSource) ( 172Q "]" 30Q "[") Object.IVMissing D1 (P 0 fixedName I 2 createDescrFlg I 1 varName I 0 self) P@`AddB@A @A Ao@ @d`d` Zg JglI<@ dd@ d@dd`d`@@ @ i AAl<@\g LglKi XAo@o @A bAo@ @AB (334Q GetIVDescr 325Q ERROR 322Q CONCAT 305Q AddIV 277Q HELPCHECK 257Q FIXSPELL 241Q FetchMethodOrHelp 224Q FillIVs 220Q IVSource 214Q GetLispClass 161Q ReadLeafObj 117Q FetchMethodOrHelp 110Q GetLispClass 62Q ERROR 57Q CONCAT 44Q FetchNthDescr 36Q FetchNthDescr!) (246Q IVs 236Q List 202Q classTYPE# 172Q instanceTYPE# 140Q instance 124Q IVs 114Q List! 100Q classTYPE# 71Q instanceTYPE# 7 instanceTYPE#) ( 316Q " not an IV of " 274Q " Type OK to automatically add it." 267Q " not an IV of " 53Q "out of bounds for ") Object.InstallEditSource D1 (I 1 editedDescription I 0 self) @d`d` @ A@ (35Q FillInst 30Q BlankInstance 24Q GetLispClass) (14Q classTYPE# 5 instanceTYPE#) () Object.InstallFileSource D1 (I 1 fileSource I 0 self) @A A@ @(14Q FillInst 6 NameObject) NIL () Object.Instantiate D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 CopyShallow) () Object.List D1 (I 2 name I 1 type I 0 self) A dgdgdBd@B @B  g+@0@ dIHhZH&J @d`d` Hg HABlI(171Q FetchMethodOrHelp 157Q GetLispClass 131Q \APPEND2 52Q ListPropNames 46Q GetIVDescr 40Q FetchNthDescr 3 U-CASE) (166Q List 147Q classTYPE# 140Q instanceTYPE# 76Q instance 65Q instance 56Q IVS 15Q IVPROPS 7 IV) () Object.List! D1 (I 3 verboseFlg I 2 name I 1 type I 0 self) A dg@Hg HABlIdgdgdE@Hg HABlI@d`d` Hg HABlI @d`d` Hg HABClI(222Q FetchMethodOrHelp 210Q GetLispClass 161Q UNION 144Q FetchMethodOrHelp 132Q GetLispClass 73Q FetchMethodOrHelp 26Q FetchMethodOrHelp 3 U-CASE) (217Q List! 200Q classTYPE# 171Q instanceTYPE# 141Q List! 122Q classTYPE# 113Q instanceTYPE# 70Q List 52Q IVPROPS 44Q IV 23Q List 7 IVS) () Object.MakeEditSource D1 (I 0 self) @i (4 IVSource) NIL () Object.MakeFileSource D1 (I 1 file I 0 self) g@ @ @i (17Q IVSource 12Q GetObjectNames 6 ClassName) (2 DEFINST) () Object.MessageNotUnderstood D1 (I 2 superFlg I 1 selector I 0 self) SAl<@d`d` Hg HghglIi Bgg@Agho (120Q ERROR 64Q FIXSPELL 41Q FetchMethodOrHelp 27Q GetLispClass) (104Q -- 77Q _ 73Q _Super 52Q verboseFlg 46Q METHODS 36Q List! 17Q classTYPE# 10Q instanceTYPE#) ( 115Q "not understood") Object.MoveToFile D1 (P 0 name I 1 file I 0 self) [Ao bo@ dgA@ g .g!A@ X@ g g Ho h(127Q SHOULDNT 113Q WHEREIS 103Q MOVEITEM 75Q UID 66Q GetObjectName 51Q MOVEITEM 43Q ClassName 27Q TYPENAME 13Q PromptRead) (110Q INSTANCES 100Q INSTANCES 56Q instance 46Q CLASSES 33Q class) ( 124Q "Bad item type for MoveToFile" 22Q "Nothing Moved!" 10Q "Type in name of file to move to:") Object.NameString D1 (P 0 name I 0 self) .@ HoH @ o@ o@  (53Q CONCAT 46Q LOC 35Q LOC 25Q ClassName 20Q CONCAT 3 GetObjectName) NIL ( 42Q "." 31Q "." 14Q "$") Object.NewInstance D1 (I 6 arg5 I 5 arg4 I 4 arg3 I 3 arg2 I 2 arg1 I 1 name I 0 self) HA@Hg HAlI@d`d` @ @Hg HABClI@(72Q FetchMethodOrHelp 57Q FastClassInitialize 53Q GetLispClass 15Q FetchMethodOrHelp) (67Q SaveInstance 43Q classTYPE# 34Q instanceTYPE# 12Q SetName) () Object.NoObjectForMsg D1 (I 1 selector I 0 self) &@d`g @o o (43Q ERROR 40Q CONCAT 30Q ERROR 16Q GetObjectRec) (13Q Object 5 instanceTYPE#) ( 35Q "has no class." 25Q "had no class. Has been made an Object.") Object.OldInstance D1 (L (0 self)) @NIL NIL () Object.Prototype D1 (P 0 proto I 1 newProtoFlg I 0 self) SP@Zg JglI@g A@Hd`d` @g@\g LkKX H(117Q PutCVHere 105Q FetchMethodOrHelp 66Q GetLispClass 34Q GetClassValue 12Q FetchMethodOrHelp) (102Q New 75Q Prototype 56Q classTYPE# 47Q instanceTYPE# 31Q Prototype 17Q Prototype 7 HasCV) () Object.Rename D1 (P 0 oldName I 1 newName I 0 self) .@ AH@Zg JHlI@\g LAlKh(42Q FetchMethodOrHelp 21Q FetchMethodOrHelp 3 GetObjectName) (37Q SetName 16Q UnSetName) () Object.SaveInstance D1 (I 3 arg2 I 2 arg1 I 1 name I 0 self) Adg (10Q MARKASCHANGED) (5 INSTANCES) () Object.SetName D1 (I 1 name I 0 self) @A `@iAg @(25Q MARKASCHANGED 4 NameEntity) (22Q INSTANCES 10Q CurrentNameTable) () Object.UnSetName D1 (P 0 files I 1 name I 0 self) )@A `@i@g X AgH h(45Q DELFROMFILE 32Q WHEREIS 7 DeleteObjectName) (41Q INSTANCES 27Q INSTANCES 14Q CurrentNameTable) () AddCIV D1 (P 2 p I 3 otherProps I 2 defaultValue I 1 varName I 0 class) Ao bd@Hg HglI!@AB Cd@AJJ h@d ABCh g@Hg HgAlI!@Agggghi hg A(226Q PutClassIV 212Q USERNAME 150Q FetchMethodOrHelp 132Q InstallInstanceVariables 127Q \NCONC2 115Q GetSourceIVs 100Q PutClassIV 57Q PutClassIV 33Q FetchMethodOrHelp 11Q PromptRead) (223Q doc 205Q by 202Q added 177Q IV 174Q * 155Q IVPROPS 145Q List! 135Q doc 40Q IVs 30Q List) ( 6 "Please type the name of the new IV: ") AddCV D1 (I 2 newValue I 1 varName I 0 class) Ao bdt@Hg HglIB @AB h@d ABhh @Hg HAglI%@Aggggghi hg i(177Q PutClassValue 162Q USERNAME 116Q FetchMethodOrHelp 103Q InstallClassVariables 100Q \NCONC2 66Q GetSourceCVs 57Q PutClassValueOnly 31Q FetchMethodOrHelp 11Q PromptRead) (174Q doc 155Q by 152Q added 147Q CV 144Q Undocumented 141Q * 124Q doc 113Q HasCV 36Q CVs 26Q List) ( 6 "Please type name of new CV: ") AddIV D1 (I 3 prop I 2 value I 1 name I 0 self) aAo @Hg HAlI@ABC 8@dd`d`@@ @ ACgCBhBhh B(135Q FillIVs 132Q \NCONC2 104Q IVSource 100Q GetLispClass 45Q PutValueOnly 24Q FetchMethodOrHelp 10Q ERROR) (112Q ? 66Q classTYPE# 56Q instanceTYPE# 21Q HasIV) ( 5 "A name must be given to add an IV") AllSubClasses D1 (P 1 SUB I 1 currentSubs I 0 class) *@HAYIYAIdA bHX(40Q AllSubClasses) (3 class) () Class? D1 (I 1 object I 0 className) AHg H@lI(12Q FetchMethodOrHelp) (7 InstOf!) () ClassIVAddDelete D1 (P 3 name P 2 varName I 2 window I 1 datum I 0 self F 13Q AddDeleteMenu)  @Hg HglI @g  g `W8g`didodg dgjdndhdL dg;ohdi J@g JhK q@g ^g NgKhlMUgPohdi J#@g _g _OgJKlO @g _g _OgKlOB h(402Q INSPECTW.REDISPLAY 356Q FetchMethodOrHelp 346Q GetValue 315Q FetchMethodOrHelp 305Q GetValue 272Q INTTY 234Q FetchMethodOrHelp 225Q GetValue 214Q PutValueOnly 206Q GetValue 174Q INTTY 152Q MENU 147Q SETTOPVAL 47Q GETTOPVAL 36Q GetValue 12Q FetchMethodOrHelp) (366Q IV 353Q Delete 343Q class 325Q IVProp 312Q Delete 302Q class 255Q Delete 241Q IV 231Q Add 222Q class 203Q class 156Q Add 120Q DEFAULTMENUHELDFN 111Q CLRPROMPT 67Q MENUTYPE# 64Q AddDeleteMenu 53Q MENUTYPE# 44Q AddDeleteMenu 33Q iv 17Q InspectorClassIVs 7 InstOf) ( 264Q "Type name to be deleted: " 166Q "Type name to be added: " 102Q (Add Delete)) ClassName D1 (I 0 self) !@d``@@o (36Q LoopsHelp) (16Q instanceTYPE# 5 classTYPE#) ( 33Q "has no class name") CopyDeepDescr D1 (I 0 descr) @ dg@Hg HkIdg@`@ HdI@ HdI@ HdIg0@d IHhZH&J@(163Q CopyDeepDescr 130Q CopyDeepDescr 105Q CopyDeepDescr 62Q CopyDeepDescr 26Q FetchMethodOrHelp 3 TYPENAME) (145Q LISTP 123Q activeValue 100Q activeValue 55Q activeValue 50Q activeValueTYPE# 41Q activeValue 23Q CopyDeep 7 instance) () CopyInstance D1 (I 1 newInstance I 0 oldInstance) JA@d`d` 0@ d IHhZH&J b@dd A(106Q UID 70Q FillIVs 43Q \APPEND2 34Q IVSource 25Q GetLispClass) (15Q classTYPE# 6 instanceTYPE#) () CopyLoopsStruc D1 (I 0 desc) 2@ dg@Hg HkIg@ @ @(54Q CopyLoopsStruc 47Q CopyLoopsStruc 26Q FetchMethodOrHelp 3 TYPENAME) (40Q LISTP 23Q CopyDeep 7 instance) () DeleteIV D1 (I 2 propName I 1 varName I 0 self) @Hg HAlIAo BG@d`d` Hg HAlIAo @A@  n@`@o U`A@jJKIK[hX@ @ H$IkذA@ @]g MAhlLHY@BIIdI(302Q FetchMethodOrHelp 270Q ASSOC 235Q ReadLeafObj 167Q ERROR 143Q DELASSOC 124Q ERROR 102Q FetchMethodOrHelp 70Q GetLispClass 34Q ERROR 12Q FetchMethodOrHelp) (277Q IVMissing 263Q instance 155Q instanceTYPE# 136Q instance 131Q instance 77Q HasIV 60Q classTYPE# 51Q instanceTYPE# 7 HasIV) ( 164Q "not instance for FetchIVDescr" 121Q "in class. Cannot be deleted from instance" 31Q "Not instance variable in this instance") DumpInstanceFacts D1 (P 11Q descr P 10Q exceptions P 7 name P 3 i P 0 filePos I 1 fileHandle I 0 instanceRec) A gA @@jb JL@ A H_@Og _g@ @ K_OOgOSOgOhEOAgOgO0 O$dYOh IIh_O+O__OMNh]JKkػNN& _O(332Q LAST 123Q ReadLeafObj 100Q GetValueOnly 61Q PRINT 54Q \NCONC2 15Q PRIN1 3 GETFILEPTR) (211Q ? 202Q Value 164Q Value 147Q ? 105Q Any 75Q DontSave 47Q instance 27Q instance 21Q instance 11Q i) () GetLastDefaultValue D1 NIL `NIL (2 LastDefaultValue) () GetMethodObj D1 (P 1 obj P 0 methName I 2 createIfNotFoundFlg I 1 selector I 0 class) C@ gA 1H /B,g [g KHlJYdg@ IgA I(77Q PutValue 67Q PutValue 64Q ClassName 43Q FetchMethodOrHelp 34Q GetObjectRec 21Q GetObjectRec 12Q PACK* 3 ClassName) (73Q selector 60Q className 40Q New 31Q Method 6 %.) () IVSublis D1 (P 0 pair I 1 alist I 0 value) @A QH@dEdg0 d%@`@Zg JAlIH@A &HA @A `7`@A dK@A dL@A dM@(207Q IVSublis 167Q IVSublis 147Q IVSublis 120Q IVSublis 112Q IVSublis 77Q IVSublis 60Q FetchMethodOrHelp 32Q \APPEND2 4 FASSOC) (201Q activeValue 161Q activeValue 141Q activeValue 134Q activeValueTYPE# 126Q activeValueTYPE# 55Q Sublis 45Q instanceTYPE# 24Q *) () METHCOM D1 (P 3 M I 0 MS) 7g@g@@ d[d g dIHhZH&Jh(32Q GetValue 24Q $!) (27Q method 7 FNS 2 INSTANCES) () MapIVs D1 (P 5 propName P 2 ivName I 1 mapfn I 0 self) L@Hg HglI0d!h@\g LgJlKd@JM hh(75Q mapfn 45Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (52Q IVPROPS 42Q List 17Q IVs 7 List) () MapIVs! D1 (P 5 propName P 2 ivName I 1 mapfn I 0 self) N@Hg HglI2d!h@\g LgJlKd@JMlAhh(45Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (52Q IVPROPS 42Q List! 17Q IVs 7 List!) () MessageNotUnderstood D1 (I 2 superFlg I 1 selector I 0 self) ?Al<@Hg HghglIi Bgg@Agho (74Q ERROR 40Q FIXSPELL 15Q FetchMethodOrHelp) (60Q -- 53Q _ 47Q _Super 26Q verboseFlg 22Q METHODS 12Q List!) ( 71Q "not understood") MessageValue D1 (I 0 value) @gg (14Q RETFROM) (11Q ReturnDefaultValue 6 Object.MessageNotUnderstood 3 LastDefaultValue) () NewWithValues D1 (I 1 description I 0 class) h@A (5 FillIVs) NIL () SubsTree D1 (P 2 cl I 1 currentList I 0 class) :@ Hg HglIdJAJAJh b A(60Q SubsTree 53Q \NCONC2 15Q FetchMethodOrHelp 3 GetClassRec) (22Q Subs 12Q List) () TypeInMethods D1 (P 4 M P 0 methList I 2 type I 1 name I 0 com) @dg BgBdgAAdiHlAHAH gA50H*dL Ld g dJIh[I&KiiAlAHLA FAd g 0H/dLAL Ld g dJIh[I&K(277Q GetValue 271Q $! 262Q $! 234Q GetValue 226Q $! 217Q $! 143Q GetValue 135Q $! 126Q $! 71Q INTERSECTION 16Q EVAL) (274Q method 231Q method 140Q method 75Q FNS 36Q INSTANCES 27Q METHODS 6 *) () WhoHas D1 (P 17Q cl P 13Q f I 3 editFlg I 2 files I 1 type I 0 name F 20Q self F 21Q FILELST) BW"lBhb Bd 0Og dAAgAdgO @ 1gW \g L@lKAg^W ^g N@lMKCDAAgAgO _g _O@lOO _g _OkOOh_O1O__QOXIHZY(J YH _O(377Q LAST 367Q LAST 265Q FetchMethodOrHelp 255Q $! 232Q FetchMethodOrHelp 222Q $! 161Q FetchMethodOrHelp 131Q FetchMethodOrHelp 110Q FindLocalMethod 104Q $! 47Q FILECOMSLST) (262Q Edit 227Q EditMethod 212Q METHOD 204Q Method 156Q HasCV 145Q CV 126Q HasIV 115Q IV 74Q METHOD 65Q Method 44Q CLASSES) () MakeMethodMenu D1 (P 5 yPos P 4 xPos P 3 window P 2 menu P 1 numColumns P 0 selectors I 0 class) @l@ b @_g OglNXkH l Y`dHdIdgo@ _dOdg dgjdndh_dO ZnJ \nJ ]JhLM [dg@ K(251Q PUTWINDOWPROP 240Q ADDMENU 221Q CHECK/MENU/IMAGE 203Q CHECK/MENU/IMAGE 120Q CONCAT 115Q ClassName 57Q MAX 51Q FLENGTH 30Q FetchMethodOrHelp 11Q $!) (245Q Class 224Q BITMAP 206Q BITMAP 144Q DEFAULTMENUHELDFN 135Q CLRPROMPT 102Q MethodMenuWhenSelectedFn 63Q MENUTYPE# 36Q Methods 25Q List) ( 111Q "Methods for ") MethodMenuWhenSelectedFn D1 (I 2 key I 1 menu I 0 selector) 8BdgA g g@h gA g g@h (65Q ApplyMethodInTtyProcess 54Q GETWINDOWUSERPROP 46Q WFROMMENU 33Q ApplyMethodInTtyProcess 22Q GETWINDOWUSERPROP 14Q WFROMMENU) (57Q EditMethod 51Q Class 37Q MIDDLE 25Q PPM 17Q Class 4 LEFT) () (PRETTYCOMPRINT LOOPSKERNELCOMS) (RPAQQ LOOPSKERNELCOMS ((* Copyright (c) 1982 by Xerox Corporation) (* Metabraid of kernel classes in the system) (CLASSES * KERNELCLASSES) (VARS (DumpMethodsInClass) (DefaultObject ($ Object)) (OBJECT ($ Object))) (METHODS Class.CreateInstance Class.DefMethod Class.DefRSM Class.EM! Class.Edit Class.Edit! Class.EditMethod Class.EditMethodObject Class.FetchMethod Class.FileIn Class.FileOut Class.Fringe Class.IndexedInstances Class.Initialize Class.InstallEditSource Class.List Class.List! Class.MakeEditSource Class.MakeFileSource Class.MakeFullEditSource Class.New Class.NewClass Class.NewTemp Class.NewWithValues Class.Old Class.Rename Class.RenameMethod Class.ReplaceSupers Class.SetName Class.Specialize Class.SpecializeMethod Class.SubClasses Class.Subclass Class.UnSetName DestroyedClass.DestroyClass DestroyedClass.DestroyInstance DestroyedClass.SubClasses DestroyedObject.Destroy! MetaClass.CreateClass MetaClass.DestroyInstance MetaClass.New MetaClass.NewWithValues Method.ChangeClassName Method.ChangeName Method.EditMethod Method.FileOut Method.MakeFileSource Method.NewInstance Method.OldInstance Object.ChangeClass Object.Class Object.ClassName Object.DelFromFile Object.Destroy Object.Destroy! Object.DoMethod Object.Edit Object.FileOut Object.IVMissing Object.InstallEditSource Object.InstallFileSource Object.Instantiate Object.List Object.List! Object.MakeEditSource Object.MakeFileSource Object.MessageNotUnderstood Object.MoveToFile Object.NameString Object.NewInstance Object.NoObjectForMsg Object.OldInstance Object.Prototype Object.Rename Object.SaveInstance Object.SetName Object.UnSetName) (* * Functions called by kernel classses) (FNS * KERNELFNS) (FNS MakeMethodMenu MethodMenuWhenSelectedFn) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA METHCOM) (NLAML) (LAMA))))) (RPAQQ KERNELCLASSES (AbstractClass Class DestroyedClass DestroyedObject MetaClass Method Object)) (DEFCLASSES AbstractClass Class DestroyedClass DestroyedObject MetaClass Method Object) (DEFCLASS AbstractClass (MetaClass MetaClass doc (* * Abstract classes are placeholders in the inheritance network, which cannot themselves be instantiated.) Edited: (* mjs: "30-JUN-82 16:41")) ( Supers MetaClass)) (DEFCLASS Class (MetaClass MetaClass doc (* * This is the default metaClass for all classes) Edited: ( * dgb: "19-NOV-82 16:55")) (Supers Object)) (DEFCLASS DestroyedClass (MetaClass AbstractClass Edited: (* dgb: "26-NOV-82 19:24") doc (* Becomes the class for any destroyed class)) (Supers DestroyedObject)) (DEFCLASS DestroyedObject (MetaClass Class Edited: (* sm: "12-SEP-83 16:25")) (Supers Object)) (DEFCLASS MetaClass (MetaClass MetaClass Edited: (* mjs: "30-JUN-82 16:38")) (Supers Class)) (DEFCLASS Method (MetaClass Class doc (* Connects class to function implementing method, plus properties) Edited: (* dgb: "18-OCT-83 15:25")) (Supers Object) (ClassVariables (ivProperties (doc args) doc (* names of IVs which should be made properties of the method))) (InstanceVariables ( className NIL doc (* name of class in which this method appears)) (selector NIL doc (* An atom which is the selector for the method;)) (method NIL doc (* Atom name of unction which does the work other properties of this IV are properties of the method)) (args NIL doc (* arguments of the method)) (doc NIL doc (* documentation of the method)))) (DEFCLASS Object (MetaClass Class doc (* Default behavior stored here) Edited: (* edited: "13-NOV-83 16:30")) (Supers)) (RPAQQ DumpMethodsInClass NIL) (RPAQ DefaultObject ($ Object)) (RPAQ OBJECT ($ Object)) (METH Class CreateInstance NIL (* Creates the data structure for an instance based on the class)) (METH Class DefMethod (selector args exp) (* Adds a method for selector to class. If args and expr are NIL, puts user into editor)) (METH Class DefRSM (selector ruleSetName) (* Installs a RuleSet as a method in the class. If ruleSetName is NIL, then DefRSM creates a RuleSet, invokes the RuleSet editor, compiles the RuleSet, and installs it as a method in the class. Also initializes the workspace instance variable.)) (METH Class EM! NIL (* provide a menu of all methods and allow editing of any, making method local if it is not already)) (METH Class Edit (commands) (* Use Interlisp editor on source of object)) (METH Class Edit! (commands) (* Use Interlisp editor on source of class including inherited values)) (METH Class EditMethod (selector commands) (* Called by Class.EditMethod. Finds the function associated with selector in class, and calls editor on it)) (METH Class EditMethodObject (selector) (* Edit the object corresponding to the method)) (METH Class FetchMethod (selector) (* Find the name of the function which implements this method in this class)) (METH Class FileIn (fileSource) (* Create an instance from expr, which was read from a file)) (METH Class FileOut NIL (* Print out a class definition to a file)) (METH Class Fringe NIL (* List classes which have now subclasses)) (METH Class IndexedInstances NIL (* Find IndexedInstances of this class)) (METH Class Initialize (self) (* Run initial expression for IVs with active value defaults with ls = INITIAL or gfn = AtCreation. In that case, makes a value which is the expression in GetFn. Other active values are copied to instance by PutValue)) (METH Class InstallEditSource NIL (* make class conform to new edited description)) (METH Class List (type name) (* Fn to list local parts of a class.)) (METH Class List! (type name verboseFlg) (* Recursive version of List message. Omits things inherited from Object and Class unless verboseFlg is T. Sets it to T for Class and Object)) (METH Class MakeEditSource NIL (* Make a source for editing the class)) (METH Class MakeFileSource NIL (* Make a source for editing the class)) (METH Class MakeFullEditSource NIL (* Make source including inherited values)) (METH Class New (name) (* Creates an instance of a particular class. The variable name if given is used to name the object. Called by (_ class New) %. NewEntity creates the Entity record and UID)) (METH Class NewClass (init1 init2 init3) (* Just returns newly created class)) (METH Class NewTemp NIL (* Patch to make it work. Same as New)) (METH Class NewWithValues (description) (* * Creates a new instance, substituting values given explicitly in description Does not initialize variables in the usual way.) (method NewWithValues)) (METH Class Old (fileSource) (* Find an old object or create a new one with this uid)) (METH Class Rename (newName environment) (* Same as SetName. Classes can have only one name)) (METH Class RenameMethod (oldSelector newSelector) (* Rename selector, and change function name)) (METH Class ReplaceSupers (supers) (* replace supers of class by new supers list)) (METH Class SetName (newClassName) (* Change the newClassName of the class, forgetting old name. Change the names of all methods which are of the form oldName.selector)) (METH Class Specialize (newName) (* Creates a class with name newName with self as its only super. If newName is NIL, then makes up an unused name consisting of current name followed by integer)) (METH Class SpecializeMethod (selector) (* Specialize method for selector given)) (METH Class SubClasses NIL (* Returns a list of immediate subclasses currently known for this class.)) (METH Class Subclass (super) NIL) (METH Class UnSetName (name) (* Unname class)) (METH DestroyedClass DestroyClass (classToDestroy) (* Destroy the class specified by smashing its contents)) (METH DestroyedClass DestroyInstance (class self) (* smash back pointer to entity rec, the list of vars and var descriptions)) (METH DestroyedClass SubClasses NIL (* Non subclasses)) (METH DestroyedObject Destroy! NIL (* Do nothing. I am already destroyed)) (METH MetaClass CreateClass (name supers) (* Create the data object for a class, checking the inputs)) (METH MetaClass DestroyInstance NIL (* Destroy the class specified by smashing its contents)) (METH MetaClass New (name supers) (* * New method for MetaClass. Since MetaClass is its own metaClass, this needs to work correctly whether the self is Class or MetaClass or a subClass of MetaClass. Work is done by DefineClass in LOOPS.)) (METH MetaClass NewWithValues (selector superFlg) (* * Invoked when a selector is not found for an object during a message sending operation. Attempts to do spelling correction on the selector. Causes an error if this fails.) (method MessageNotUnderstood)) (METH Method ChangeClassName (newClassName) (* Change name of class -- called when className is changed)) (METH Method ChangeName (oldMethName newMethName newSelector) (* Change the name of the method and update the file)) (METH Method EditMethod NIL (* Edit the method defintion)) (METH Method FileOut (file) (* Print out filesource for methods)) (METH Method MakeFileSource NIL NIL) (METH Method NewInstance NIL NIL) (METH Method OldInstance NIL (* Adds Method to those known in class.)) (METH Object ChangeClass (newClass) (* Change object to be new class, keeping old IVs)) (METH Object Class NIL (* Returns class of object)) (METH Object ClassName NIL (* Returns className of class of object) (method ClassName)) (METH Object DelFromFile NIL (* Remove object from any file it is on)) (METH Object Destroy NIL (* All the work is normally done by the class in DestroyInstance)) (METH Object Destroy! NIL (* Same as Object.Destroy except when self is a class)) (METH Object DoMethod (selector class arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10) (* Message form of DoMethod. Maximum of 10 arguments allowed)) (METH Object Edit (commands) (* Use Interlisp editor on source of object)) (METH Object FileOut (file) (* Print out file source on file so it can be reread)) (METH Object IVMissing (varName createDescrFlg) (* * Called from macro FetchIVDescr when there is no IV varName. If varName is an IV the class, or user requests, then Object.IVMisssing adds IV to the instance. Returns the IVDescr as needed for FetchIVDescr.)) (METH Object InstallEditSource (editedDescription) (* Blank instance and make it conform to new description)) (METH Object InstallFileSource (fileSource) (* Fill the given instance based on expression fileSource read from file, and name it)) (METH Object Instantiate NIL (* same as copyShallow)) (METH Object List (type name) (* For type= IVs, list the iv names in instance. For IVProps lists IV properties for name found in instance. Otherwise lists properties inherited from class)) (METH Object List! (type name verboseFlg) (* * Recursive form of List for objects. Omits things inherited from Object unless verboseFlg is T.)) (METH Object MakeEditSource NIL (* Get a lst showing all instance variables, values, and properties for Editing)) (METH Object MakeFileSource (file) (* create a list structure source to be dumped on a file)) (METH Object MessageNotUnderstood (selector superFlg) (* * Invoked when a selector is not found for an object during a message sending operation. Attempts to do spelling correction on the selector. Causes an error if this fails.)) (METH Object MoveToFile (file) (* Move this object to a file)) (METH Object NameString NIL (*)) (METH Object NewInstance (name arg1 arg2 arg3 arg4 arg5) (* This allows initialization by the classes of objects themselves, rather than going to a metaClass)) (METH Object NoObjectForMsg (selector) (* Called from FethMethodOrHelp when self is not an object with a class. A specialized response to this can be tailored in a given LOOPS application by first reseting the global LISP variable DefaultObject to point to an object. This default object will field NoObjectForMsg messages from FetchMethodOrHelp. The method for NoObjectForMsg on DefaultObject should return a default value, usually dependent on the selector. This version of NoObjectForMsg just calls the user.)) (METH Object OldInstance NIL (* Allow fixup of object after reading in. Default is to do nothing)) (METH Object Prototype NIL (* * Find an instance of class on CV Prototype, or create an puts one there. Used to send messages for effect to a prototype object)) (METH Object Rename (newName) (* Remove an old name, and give it new name)) (METH Object SaveInstance (name arg1 arg2) (* Used to save the instance on a file. Justs marks it as changed as a default)) (METH Object SetName (name) (* Call on NameEntity)) (METH Object UnSetName (name) (* Unname entity)) (RPAQQ KERNELFNS (AddCIV AddCV AddIV AllSubClasses Class? ClassIVAddDelete ClassName CopyDeepDescr CopyInstance CopyLoopsStruc DeleteIV DumpInstanceFacts GetLastDefaultValue GetMethodObj IVSublis METHCOM MapIVs MapIVs! MessageNotUnderstood MessageValue NewWithValues SubsTree TypeInMethods WhoHas)) (PUTPROPS LOOPSKERNEL COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL