(FILECREATED "22-SEP-83 15:22:19" ("compiled on " {INDIGO}SOURCES>LOOPSKERNEL.;22) "20-SEP-83 19:27:00" recompiled exprs: Class.CreateInstance Class.New Class.NewClass MetaClass.CreateClass MetaClass.New Object.NewInstance in LOOPS.SYSOUT dated "21-SEP-83 18:53:36") (FILECREATED "22-SEP-83 15:21:20" {INDIGO}SOURCES>LOOPSKERNEL.;22 96123 changes to: (FNS MetaClass.CreateClass Class.NewClass Class.CreateInstance MetaClass.New Class.New Object.NewInstance) (CLASSES MetaClass Class) previous date: "21-SEP-83 12:40:51" {INDIGO}SOURCES>LOOPSKERNEL.;21) AllSubClasses D1 (P 1 SUB I 1 currentSubs I 0 class) *@HAYIYAIdA bHX(40Q AllSubClasses) (3 class) NIL Class.Add D1 (I 4 prop I 3 value I 2 name I 1 type I 0 self) BoA A bDedgdgd @BCD gAdg@BCD gAgAdg@BC gAdg@BCD o Adg@BC g@BC AgAdg@C gAdg@BC o (300Q ERROR 270Q AddMethod 244Q PutClass 220Q AddCV 204Q AddCIV 165Q ERROR 155Q PutMethod 130Q PutClassOnly 76Q PutClassValueOnly 51Q PutValueOnly 16Q U-CASE 11Q ERROR) (257Q SELECTOR 250Q METHOD 234Q METACLASS 225Q META 210Q CV 173Q IV 143Q SELECTOR 134Q METHOD 117Q CLASS 110Q METACLASS 102Q META 64Q CV 55Q CVPROP 35Q IV 27Q IVPROP) (275Q "is not an alterable part of class. Use one of IV CV META METHOD" 162Q "is not an alterable property of class. Use one of IV CLASS METHOD " 5 "You must specify a name to add a ") Class.CommentMethodsA0876 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 class F 3 sel F 4 fn F 5 def) RHg HSlIc c i(30Q GETDEF 12Q FetchMethodOrHelp) (7 FetchMethod) NIL Class.CommentMethods D1 (P 6 args P 5 comment P 4 def P 3 fn P 2 sel I 2 useDefaultComment I 1 selectors I 0 class) A@ bHg HglIQIho KK ^@Jg @JNg Ll ]gJBG`B`gKmMhh +LEl oKo gK K \l ]LMdgl Ko M@Jg @JMg IYG(326Q PutMethod 314Q EQUAL 311Q GetMethod 276Q PrintStatus 266Q CHARACTER 241Q NTH 233Q GETDEF 226Q APPLY 216Q PrintStatus 202Q CHARACTER 170Q APPLY 123Q NTH 114Q PutMethod 102Q EQUAL 77Q GetMethod 65Q ARGLIST 57Q Class.CommentMethodsA0876 22Q FetchMethodOrHelp 6 GetClassRec) (323Q doc 306Q doc 255Q * 222Q EDITF 153Q EDITF 147Q DefaultComment 142Q DefaultComment 131Q * 111Q args 74Q args 27Q Selectors 17Q List) (273Q " has not been commented. " 213Q " " 206Q "Please comment the function " 54Q (DUMMY.FOR.ERRORSET)) Class.Copy D1 (P 32Q selector P 31Q cv P 30Q iv P 7 newRuleSet P 6 newRuleSetName P 5 oldRuleSet P 4 oldRuleSetName P 3 cvs P 2 ivs P 1 supers P 0 newClass I 1 name I 0 self) Aohoi b@_g _OglOY@d`d` _g _OAIlOX@_g _OglO d@_g _OO0HlO@_"g _ O"glO  d@_&g _$O&O2HlO$@_*g _(O*glO("d@_.g _,O.O4HO4lO,H(365Q FetchMethodOrHelp 327Q FetchMethodOrHelp 273Q FetchMethodOrHelp 235Q FetchMethodOrHelp 201Q FetchMethodOrHelp 143Q FetchMethodOrHelp 114Q FetchMethodOrHelp 104Q GetLispClass 40Q FetchMethodOrHelp 24Q INTTY) (362Q CopyMethod 337Q Methods 324Q List 270Q CopyCV 245Q CVS 232Q List 176Q CopyIV 153Q IVS 140Q List 111Q New 74Q classTYPE# 65Q instanceTYPE# 50Q Supers 35Q List) (20Q "Name of new class" 13Q "Name of new class: ") Class.CopyCV D1 (P 2 prop I 2 toClass I 1 cvName I 0 self) TBHg HgA@A lI@Hg HgAlIdBA@AJ J h(113Q PutClassValueOnly 107Q COPY 104Q GetClassValueOnly 51Q FetchMethodOrHelp 30Q COPY 25Q GetClassValueOnly 12Q FetchMethodOrHelp) (56Q CV 46Q List 17Q CV 7 Add) NIL Class.CopyIV D1 (P 2 prop I 2 toClass I 1 ivName I 0 self) TBHg HgA@A lI@Hg HgAlIdBA@AJ J h(113Q PutClassIV 107Q COPY 104Q GetClassIV 51Q FetchMethodOrHelp 30Q COPY 25Q GetClassIV 12Q FetchMethodOrHelp) (56Q IV 46Q List 17Q IV 7 Add) NIL Class.CopyMethod D1 (P 16Q prop P 15Q supers P 14Q index P 13Q class P 6 newRuleSet P 5 newRuleSetName P 4 oldRuleSetName P 3 oldRuleSet P 2 newFn P 1 def P 0 myMethName I 3 newSelector I 2 newClass I 1 selector I 0 self) 4CAb@ A  He@! @d`h%_AOh _OO X Ao@o OO__Ao@ H YHo B`B Bo @b@Agg \g2L AB g K_g _OMBlOBAM B CI I g@_g _OgAlO dBA@AO O J(453Q PutMethod 446Q GetMethod 426Q DREMOVE 404Q FetchMethodOrHelp 367Q DM 364Q COPY 355Q COPY 346Q ClassName 340Q DefRSM 314Q FetchMethodOrHelp 302Q PACK* 274Q ClassName 266Q GetObjectRec 253Q GetItHere 232Q HELPCHECK 220Q GetClassRec 203Q ERROR 171Q GETDEF 164Q ERROR 161Q CONCAT 127Q HELPCHECK 106Q GetNthMethod 73Q \FindEntryIndex 15Q FindLocalMethod 11Q GetClassRec) (414Q Method 401Q List 373Q RuleSet 311Q CopyRules 277Q Rules 257Q ? 250Q METHOD 245Q RuleSet 211Q classTYPE# 61Q class 46Q class 35Q classTYPE#) (227Q " is not a class. Type OK to use oldClass: " 200Q " is not a defined function" 155Q "is not a selector for " 124Q " To copy anyway, type OK" 117Q " is not local for ") Class.CreateInstance D1 (I 0 self) @ (3 BlankInstance) NIL 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.Delete D1 (I 3 prop I 2 name I 1 type I 0 self) |BoA A dgdgd@BC dgdg@BC dgdgdgC@C @g dgdg@BC Ao (171Q ERROR 157Q DeleteMethod 133Q PutClass 123Q DeleteClassProp 67Q DeleteCV 43Q DeleteCIV 16Q U-CASE 11Q ERROR) (146Q SELECTOR 140Q METHOD 130Q Class 110Q CLASS 102Q METACLASS 74Q META 56Q CVPROP 50Q CV 30Q IVPROP 22Q IV) (166Q "is not an alterable part of class. Use one of IV CV META METHOD" 5 "You must specify a name to delete a ") Class.Destroy D1 (I 0 class) K@@o @Hg HkI@d`d` Hg H@lI(100Q FetchMethodOrHelp 66Q GetLispClass 32Q FetchMethodOrHelp 17Q HELPCHECK) (75Q DestroyClass 56Q classTYPE# 47Q instanceTYPE# 27Q Destroy! 3 class) (14Q "has subclasses. You cannot Destroy classes that have subclasses. Type OK to use Destroy! if that is what you want. ") Class.Destroy! D1 (P 5 sc P 0 subClasses I 0 class) E@AH*@hHdMMZg JkI@\g LkKh(73Q FetchMethodOrHelp 50Q FetchMethodOrHelp) (70Q Destroy 45Q Destroy! 17Q class 3 class) NIL Class.DestroyClass D1 (P 7 superName P 2 entity P 1 super P 0 uid I 1 classToDestroy I 0 self)  AaAd`o  g A\g LglKLdO Y=I0 I%dAMdd_O Oh_O&_OAgAhAhAhAhAAg h^NAhAhAh AhAh AhAhAg AhHH Z`Jhg(375Q GetEntityRec 355Q GetObjectRec 251Q GetObjectRec 74Q GetClassRec 46Q FetchMethodOrHelp 36Q DELDEF 30Q ClassName 24Q HELP) (416Q DestroyedClass 410Q Entity 402Q EntityTYPE# 363Q class 352Q DestroyedClass 347Q class 340Q class 331Q class 322Q class 313Q class 304Q class 275Q class 266Q class 246Q DestroyedObject 243Q class 237Q class 214Q class 206Q *aDestroyedClass* 203Q class 112Q class 103Q class 53Q Supers 43Q List 33Q CLASSES 13Q classTYPE#) (21Q "not a class for DestroyClass") Class.DestroyInstance D1 (P 0 name I 1 self I 0 class F 3 entity F 4 uid) r0Ad`o \ XAZg JHlIHg Ag AhAhAh AhTd c` Shh(136Q GetEntityRec 75Q GetObjectRec 62Q UNMARKASCHANGED 42Q FetchMethodOrHelp 27Q GetObjectName 21Q HELP) (153Q Entity 144Q EntityTYPE# 116Q instance 72Q DestroyedObject 67Q instance 57Q INSTANCES 37Q UnSetName 10Q instanceTYPE#) (16Q "not instance for DestroyInstance") Class.DisplaySubClasses D1 (I 2 window/title I 1 otherClassNames I 0 self F 2 Browser) Dg Hg HkIcdHg HA@@d`AAdhBlI(43Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (57Q OBJECT 40Q Show 14Q New 2 ClassBrowser) NIL Class.EM! D1 (P 0 selector I 0 self) `@Zg JglI dKdg dgjdndhdL Xh@H !oHo@ @^g NHlM@_g _OHlO(166Q FetchMethodOrHelp 144Q FetchMethodOrHelp 133Q PrintStatus 114Q FindLocalMethod 103Q MENU 33Q SORT 16Q FetchMethodOrHelp) (163Q EditMethod 141Q MakeLocalMethod 54Q DEFAULTMENUHELDFN 45Q CLRPROMPT 23Q Methods 13Q List! 5 MENUTYPE#) (127Q " local method of " 122Q "Making ") Class.Edit D1 (I 1 commands I 0 self) @ A@ (13Q EditClassSource 10Q ClassName 3 GetClassSource) NIL NIL Class.FetchMethod D1 (P 2 supers P 1 index P 0 class I 1 selector I 0 self) 6@!@d`hAHh YHI JJX(51Q GetNthMethod 42Q \FindEntryIndex) (30Q class 20Q class 11Q classTYPE#) NIL Class.HasCV D1 (I 2 prop I 1 CVName I 0 self) AB#@A 7B@Hg HgAlIA@Hg HglIi(57Q FetchMethodOrHelp 25Q FetchMethodOrHelp 7 Class.HasCV) (64Q CVs 54Q List! 32Q CVProps 22Q List!) NIL Class.Initialize D1 (I 1 self I 0 class) @A A(4 FastClassInitialize) NIL NIL Class.HasIV D1 (I 2 prop I 1 IVName I 0 self) SB5@Hg HAlI:B@Hg HgAlIiA@Hg HglIi(101Q FetchMethodOrHelp 44Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (106Q IVs 76Q List 51Q IVProps 41Q List! 12Q HasIV) NIL Class.HasIV! D1 (I 2 prop I 1 IVName I 0 self) SB5@Hg HAlI:B@Hg HgAlIiA@Hg HglIi(101Q FetchMethodOrHelp 44Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (106Q IVs 76Q List! 51Q IVProps 41Q List! 12Q HasIV!) NIL 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 HELP 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.MakeLocalMethod D1 (P 0 methClass I 2 dontBitchFlg I 1 selector I 0 self) -@A !@HBAo@ hHYg IA@AlJ(40Q FetchMethodOrHelp 26Q PrintStatus 4 FetchMethodClass) (35Q CopyMethod) (22Q " is already local in ") Class.MethodDoc D1 (P 3 temp P 2 menu P 1 items P 0 sel I 1 selector I 0 self F 11Q PPDefault) 0 AAJ@]g MglL Y`dIdidg dgjdndhdN HJ X@_g _OHglO W W oW `W @ W `W K@ oo@ hoKo W oW `W HW `W oW @Hg W oW @Hg W AhX$(444Q PRIN1 437Q GetMethod 426Q PRIN1 414Q PRIN1 407Q GetMethod 376Q PRIN1 364Q CHANGEFONT 353Q PRIN1 344Q CHANGEFONT 333Q PRIN1 321Q PRIN1 314Q CONCAT 276Q WRITE 256Q ClassName 250Q CHANGEFONT 237Q PRIN1 232Q ClassName 225Q CHANGEFONT 214Q PRIN1 202Q TERPRI 174Q TERPRI 166Q ClassName 144Q FetchMethodOrHelp 124Q MENU 33Q SORT 16Q FetchMethodOrHelp) (434Q doc 404Q args 357Q DEFAULTFONT 337Q LAMBDAFONT 243Q DEFAULTFONT 220Q LAMBDAFONT 155Q Method 141Q WhereIs 71Q DEFAULTMENUHELDFN 62Q CLRPROMPT 43Q MENUTYPE# 23Q Selectors 13Q List!) (421Q " doc: " 371Q " args: " 326Q " selector: " 311Q ")" 304Q " (from " 272Q "No methods in " 264Q "" 207Q "class: ") Class.MoveMethod D1 (I 2 selector I 1 newClass I 0 self) @ A B (13Q MoveMethod 7 ClassName 3 ClassName) NIL NIL 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) NIL Class.NewClass D1 (L (3 init3 2 init2 1 init1 0 self)) @NIL NIL NIL Class.NewTemp D1 (P 0 self I 1 name I 0 class) -@ A@Zg JHlIAH\g LAlKH(41Q FetchMethodOrHelp 16Q FetchMethodOrHelp 3 BlankInstance) (36Q SetName 13Q Initialize) NIL Class.OnFile D1 (I 1 file I 0 self) @g AHA(6 WHEREIS) (3 CLASSES) NIL Class.PP D1 (I 1 file I 0 self F 0 PPDefault) @ A iP (21Q PrettyPrintClass 11Q OUTPUT 3 ClassName) NIL NIL Class.PP!A0982 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 22Q methodProp P 21Q supers P 20Q index P 17Q class P 14Q selector P 13Q cvp P 10Q cv P 7 ivp P 4 iv P 3 cp P 0 X F 23Q file F 24Q self F 25Q RESETVARSLST F 26Q RESETY) gd gl W*c*oHW& hhW*c*`W& W(W& W& `W& oW& W& `W& oW& W(d`d` W& W(Ig IglJ8d`W& oW& KW& oW& W(K W& W& `W& oW& W& `W& oW& W(Ig IglJW& W& `W& oW& W& W(Ig IglJd!`W& oW& LW& oW& W(L W& W(^g NgLlM;d`W& oW& OW& oW& W(LO W& W& n`W& oW& W& W(Ig IglJd! `W& oW& OW& oW& W(O W& W(_g _OgOlO to continue and rename class: ") Class.RenameMethod D1 (I 2 newSelector I 1 oldSelector I 0 self) @ AB (10Q RenameMethod 3 ClassName) NIL NIL Class.ReplaceSupers D1 (I 1 supers I 0 self) @A g@ (16Q ChangedClass 4 InstallSupers) (7 NoUpdateRequired) NIL Class.SetName D1 (P 6 fn P 3 namePair P 2 file P 1 newName P 0 oldName I 1 name I 0 self) @ Q@A @H @A@ Hg ZHIgJ @]g MglLCdHNg [/AgK JNIgJ NIg N @KI h(200Q DefineMethod 170Q DELDEF 163Q COPYDEF 151Q RENAME 135Q PACK* 117Q SplitAtom 66Q FetchMethodOrHelp 55Q CHANGECALLERS 42Q WHEREIS 33Q ChangedClass 20Q UnNameEntity 13Q NameEntity 3 ClassName) (160Q FNS 145Q FNS 130Q %. 114Q %. 73Q Functions 63Q List 51Q CLASSES 37Q CLASSES 24Q class) NIL 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#) NIL Class.SubClasses D1 (L (0 self)) &@@d[KIHhZH&JNIL (6 class) NIL Class.Subclass D1 (I 1 super I 0 self) #@A HdHIiJJX(4 GetClassRec) (16Q class) NIL Class? D1 (I 1 object I 0 className) AHg H@lI(12Q FetchMethodOrHelp) (7 InstOf!) NIL 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)) 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) NIL CopyLoopsStruc D1 (I 0 desc) 2@ dg@Hg HkIg@ @ @(54Q CopyLoopsStruc 47Q CopyLoopsStruc 26Q FetchMethodOrHelp 3 TYPENAME) (40Q LISTP 23Q CopyDeep 7 instance) NIL DefRSM D1 (P 1 classRec P 0 ruleSet I 2 ruleSetName I 1 selector I 0 className) `@ Yo@o hAo b@d``@ bB9A@ bg [g KhBlJXg@ H]g MkL Xg@ B XIAB IABg B(223Q PutMethod 212Q PutMethod 202Q GetObjectRec 175Q PutValue 165Q GetObjectRec 152Q FetchMethodOrHelp 141Q PutValue 120Q FetchMethodOrHelp 111Q GetObjectRec 100Q PACK* 65Q ClassName 37Q PromptRead 24Q PROMPT 6 GetClassRec) (220Q RuleSet 171Q workSpace 147Q ER 135Q workSpace 115Q New 106Q RuleSet 57Q classTYPE# 51Q instanceTYPE#) (34Q "Type selector for RuleSet Method: " 21Q " not found." 14Q "Class") 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 HH Z`Jhg(243Q GetEntityRec 232Q GetObjectRec 214Q GetObjectRec 54Q GetClassRec 27Q FetchMethodOrHelp 17Q DELDEF 11Q ClassName) (264Q DestroyedClass 256Q Entity 250Q EntityTYPE# 227Q DestroyedClass 224Q class 211Q DestroyedObject 206Q class 163Q class 72Q class 63Q class 34Q Supers 24Q List 14Q CLASSES) NIL DestroyedClass.DestroyInstance D1 (I 2 self I 1 class I 0 self F 0 entity F 1 uid) 9@g @h@h@h @hQd c` Phh(45Q GetEntityRec 11Q GetObjectRec) (62Q Entity 53Q EntityTYPE# 27Q instance 6 DestroyedObject 3 instance) NIL DestroyedClass.PrintOn D1 (I 1 file I 0 self) gA (6 PRIN1) (2 DestroyedClass) NIL DestroyedObject.Destroy! D1 (L (0 self)) @NIL NIL NIL DestroyedObject.PP D1 (I 1 file I 0 self F 1 PPDefault) AQH oH H (26Q TERPRI 22Q PRIN1 12Q TERPRI) NIL (16Q "***Destroyed Object***") DestroyedObject.PrintOn D1 (I 1 file I 0 self) oA (7 PRIN1) NIL (3 "***DestroyedObject***") GetLastDefaultValue D1 NIL `NIL (2 LastDefaultValue) NIL 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 *) NIL 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) NIL 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!) NIL 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) NIL MetaClass.CreateClass D1 (I 2 supers I 1 name I 0 self) AB@ (5 DefineClass) NIL 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 HH Z`Jhg(243Q GetEntityRec 232Q GetObjectRec 214Q GetObjectRec 54Q GetClassRec 27Q FetchMethodOrHelp 17Q DELDEF 11Q ClassName) (264Q DestroyedClass 256Q Entity 250Q EntityTYPE# 227Q DestroyedClass 224Q class 211Q DestroyedObject 206Q class 163Q class 72Q class 63Q class 34Q Supers 24Q List 14Q CLASSES) NIL 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) NIL Object.AssocKB D1 (P 0 uid I 1 newKBName I 0 self) -A@Hd @i @iH AA(43Q GetEntityRec 30Q UID 22Q EntityKB 17Q GetEntityRec) (46Q Entity) NIL Object.AssocKB? D1 (P 0 uid I 0 self) @Hd (17Q EntityKB 14Q GetEntityRec) NIL NIL Object.BreakIt D1 (I 4 brkOnGetAlsoFlg I 3 type I 2 propName I 1 varName I 0 self) (@A@ADgggBC BCh`@(25Q MakeActiveValue) (44Q BrokenVariables 40Q BrokenVariables 17Q EMBED 14Q SettingBrokenVariable 11Q GettingBrokenVariable) NIL Object.ChangeAssocKB D1 (I 1 newKBName I 0 self) @i@i AA(13Q GetEntityRec 10Q UID) (16Q Entity) NIL Object.Class D1 (I 0 self) @d`d` (24Q GetLispClass) (14Q classTYPE# 5 instanceTYPE#) NIL Object.CopyDeep D1 (P 1 newInstance P 0 source I 1 KBC I 0 oldInstance) /@ h@d`d` H @I I(53Q NewEntity 43Q FillIVs 37Q GetLispClass 6 CopyDeepDescr 3 IVSource) (27Q classTYPE# 20Q instanceTYPE#) NIL Object.Destroy D1 (P 1 entity P 0 uid I 0 self) <@1@d` '`@d`@ [g K@lJh(60Q FetchMethodOrHelp 51Q GetLispClass 20Q Class.Destroy) (55Q DestroyInstance 37Q classTYPE# 27Q instanceTYPE# 13Q classTYPE#) NIL Object.Destroy! D1 (P 0 obj% I 0 self) v@d`]!g HY!Id`h!gKh \KL  go HkJMM[Ig IkJ(155Q FetchMethodOrHelp 122Q ERROR 105Q GetNthMethod 75Q \FindEntryIndex 21Q GetObjectRec) (152Q Destroy 113Q Destroy! 63Q class 57Q Destroy! 51Q class 40Q classTYPE# 16Q Class 5 classTYPE#) (117Q "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) e @!BHY!Id`hAKh \*KL  Ao HCDEFGGGGGGl JMM[װ(101Q ERROR 66Q GetNthMethod 56Q \FindEntryIndex) (44Q class 34Q class 23Q classTYPE#) (76Q "not found for DoMethod") Object.Edit D1 (P 1 name P 0 newInst I 1 commands I 0 self) "@ A `H Ydg h(36Q MARKASCHANGED 25Q GetObjectName 12Q EVAL 7 EDITE 3 GetInstanceSource) (33Q INSTANCES 20Q CurrentEnvironment) NIL Object.HasIV D1 (I 2 prop I 1 ivName I 0 self) PB2@Hg HAlI7B@Hg HgAlIA@Hg HglIi(76Q FetchMethodOrHelp 44Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (103Q IVs 73Q List! 51Q IVProps 41Q List! 12Q HasIV) NIL 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.Inspect D1 (I 1 INSPECTLOC I 0 self) @hA (5 INSPECT) NIL NIL Object.InstOf D1 (I 1 class I 0 self) %@d`d` Adl (41Q ClassName 27Q ClassName 24Q GetLispClass) (14Q classTYPE# 5 instanceTYPE#) NIL Object.InstOf! D1 (I 1 class I 0 self) )@d`d` Hg HAlI(36Q FetchMethodOrHelp 24Q GetLispClass) (33Q Subclass 14Q classTYPE# 5 instanceTYPE#) NIL Object.Instantiate D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 CopyShallow) NIL 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) NIL 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) NIL 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.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) 3A@Hg HAlI@d`d` @ @(57Q FastClassInitialize 53Q GetLispClass 15Q FetchMethodOrHelp) (43Q classTYPE# 34Q instanceTYPE# 12Q SetName) NIL 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.PP!A1128 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 41Q methodProp P 40Q supers P 37Q index P 36Q class P 35Q selector P 34Q cvp P 33Q cv P 32Q ivp P 31Q iv P 30Q index P 25Q ivp P 24Q iv P 1 class P 0 X F 42Q file F 43Q self F 44Q RESETVARSLST F 45Q RESETY) ,"gd gl WHcHoHWD hhWHcHWFd`d` 0`WD WFWD WD `WD oWD WD WF[g KglJdO(g`WD oWD O(WD oWD WFO( WD WF]g MgO(lL+O WD I_&g _$O&gO:lO$JO@O@_@_<Ӱd!`WD oWD OBWD oWD IO:OB WD WD )`WD WD WFcJi(2042Q TERPRI 2034Q CHANGEFONT 2013Q TERPRI 2001Q PRIN1 1774Q GetMethodOnly 1763Q PRIN1 1751Q PRIN1 1741Q PRIN1 1727Q CHANGEFONT 1651Q FetchMethodOrHelp 1637Q PRIN1 1631Q GetNthMethod 1616Q \FindEntryIndex 1543Q PRIN1 1531Q PRIN1 1521Q PRIN1 1507Q CHANGEFONT 1467Q SORT 1446Q FetchMethodOrHelp 1434Q TERPRI 1426Q PRIN1 1414Q CHANGEFONT 1373Q TERPRI 1361Q PRIN1 1354Q GetClassValueOnly 1343Q PRIN1 1331Q PRIN1 1321Q PRIN1 1307Q CHANGEFONT 1250Q FetchMethodOrHelp 1236Q PRIN1 1231Q GetClassValueOnly 1222Q PRIN1 1210Q PRIN1 1200Q PRIN1 1166Q CHANGEFONT 1130Q TERPRI 1116Q PRIN1 1111Q GetValueOnly 1077Q PRIN1 1065Q PRIN1 1055Q PRIN1 1043Q CHANGEFONT 1004Q FetchMethodOrHelp 771Q PRIN1 764Q GetValueOnly 754Q TAB 743Q PRIN1 733Q PRIN1 721Q CHANGEFONT 655Q FetchMethodOrHelp 643Q TERPRI 635Q PRIN1 623Q CHANGEFONT 601Q GetValueOnly 557Q FetchMethodOrHelp 544Q TERPRI 536Q PRIN1 524Q CHANGEFONT 477Q FetchMethodOrHelp 453Q TERPRI 441Q PRIN1 434Q GetValueOnly 422Q PRIN1 410Q PRIN1 400Q PRIN1 366Q CHANGEFONT 333Q FetchMethodOrHelp 321Q PRIN1 314Q GetValueOnly 304Q PRIN1 272Q PRIN1 262Q PRIN1 250Q CHANGEFONT 204Q FetchMethodOrHelp 172Q TERPRI 164Q PRIN1 152Q CHANGEFONT 141Q TERPRI 133Q PRIN1 123Q CHANGEFONT 105Q GetLispClass 43Q DSPFONT 17Q SETTOPVAL 6 GETTOPVAL) (2027Q DEFAULTFONT 1722Q COMMENTFONT 1661Q METHOD 1646Q List! 1604Q class 1570Q class 1557Q classTYPE# 1502Q DEFAULTFONT 1456Q SELECTORS 1443Q List! 1407Q BOLDFONT 1302Q COMMENTFONT 1260Q CV 1245Q List! 1161Q DEFAULTFONT 1036Q COMMENTFONT 1014Q IV 1001Q List! 714Q DEFAULTFONT 665Q CVS 652Q List! 616Q BOLDFONT 576Q indexedVars 554Q Length 517Q BOLDFONT 505Q VarLength 474Q InstOf! 361Q COMMENTFONT 340Q IV 330Q List! 243Q DEFAULTFONT 233Q indexedVars 211Q IVS 201Q List! 145Q BOLDFONT 116Q LAMBDAFONT 75Q classTYPE# 66Q instanceTYPE# 12Q FIRSTCOL 2 FIRSTCOL) (1756Q " " 1734Q " " 1536Q " " 1514Q " " 1421Q "Methods" 1336Q " " 1314Q " " 1215Q " " 1173Q " " 1072Q " " 1050Q " " 726Q " " 630Q "Class Variables" 531Q "Indexed Variables" 415Q " " 373Q " " 277Q " " 255Q " " 157Q "Instance Variables" 32Q (LAMBDA (X) (DSPFONT X file))) Object.PP! D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 file I 0 self F 3 PPDefault F 4 LISPXHIST F 5 RESETVARSLST) (ASbT!Uog hgZ JI(43Q ERROR! 36Q RESETRESTORE 24Q Object.PP!A1128) (32Q ERROR 21Q INTERNAL) (16Q (DUMMY.FOR.ERRORSET)) Object.PPIVs D1 (P 6 vars P 5 v I 1 file I 0 self) P@\g LglKdM@M hIHhZH&JoA `A @A A `A lhA NA idhA oA A A h(206Q TERPRI 201Q TERPRI 174Q PRIN1 163Q PRINTDEF 153Q POSITION 145Q TAB 135Q CHANGEFONT 125Q TERPRI 120Q PRIN1 112Q CHANGEFONT 102Q PRIN1 41Q GetValueOnly 12Q FetchMethodOrHelp) (131Q DEFAULTFONT 106Q LAMBDAFONT 17Q IVs 7 List) (170Q "]" 76Q "[ ") Object.PPV!A1149 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 30Q cvp P 27Q cv P 26Q ivp P 25Q iv P 24Q index P 21Q ivp P 20Q iv P 1 class P 0 X F 31Q file F 32Q self F 33Q RESETVARSLST F 34Q RESETY) gd gl W6c6oHW2 hhW6c6W4d`d` `W2 W4W2 W2 `W2 oW2 W2 W4[g KglJdO g`W2 oW2 O W2 oW2 W4O W2 W4]g MgO lL