(FILECREATED "20-SEP-83 18:12:48" ("compiled on " {INDIGO}SOURCES>LOOPSUTILITY.;6) "14-SEP-83 19:33:36" recompiled exprs: AddIV AddValue BreakIt BreakMethod CalledFns ClassName CopyInstance DC DELASSOC DM DefTemplate DeleteIV DeleteMethod GetObjectNames HELPCHECK MapSupers MatchIVs MatchListDescr MatchDescr MoveClassVariable MoveMethod MoveVariable PPC RemoveClassDef RenameInClass RenameMethod RenameMethodFunction SplitAtom TraceIt TraceMethod UnBreakIt FindObjectNames in WORK dated "14-SEP-83 19:46:38") (FILECREATED "20-SEP-83 18:12:32" {INDIGO}SOURCES>LOOPSUTILITY.;6 25002 changes to: (FNS AddIV) previous date: "22-JUL-83 15:06:05" {INDIGO}SOURCES>LOOPSUTILITY.;5) 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") AddValue D1 (I 3 prop I 2 item I 1 entry I 0 self) @A@AC Bh C (22Q PutValue 16Q \APPEND2 7 GetValue) NIL NIL BreakIt D1 (I 4 brkOnGetAlsoFlg I 3 type I 2 propName I 1 varName I 0 self) @Hg HABCDlI(12Q FetchMethodOrHelp) (7 BreakIt) NIL BreakMethod D1 (I 1 selector I 0 className) [@hi H!Hd`hAIh ZIJ Ao@ kgKKY(110Q ERROR 105Q CONCAT 70Q GetNthMethod 60Q \FindEntryIndex 10Q GetObjectRec 5 GoodClassName) (114Q BREAK 46Q class 36Q class 25Q classTYPE#) (101Q " not found in ") CalledFns D1 (P 3 fn P 2 fns P 1 className I 1 definedFlg I 0 classes) V@dlhb!HJ Y  )dAAdiK AkK KdJJZHX(100Q FNTYP 67Q FNTYP 43Q \ListFromBlock 33Q GetClassRec 25Q SORT) (36Q class) NIL ClassName D1 (I 0 self) !@d``@@o (36Q HELP) (16Q instanceTYPE# 5 classTYPE#) (33Q "has no class name") CopyInstance D1 (I 1 newInstance I 0 oldInstance) JA@d`d` 0@ d IHhZH&J b@dd A(106Q NewEntity 70Q FillIVs 43Q \APPEND2 34Q IVSource 25Q GetLispClass) (15Q classTYPE# 6 instanceTYPE#) NIL DC D1 (I 1 supers I 0 name) )@ @o g Hg H@AlI(35Q FetchMethodOrHelp 23Q GetObjectRec 14Q HELPCHECK 3 GetObjectRec) (32Q New 20Q Class) (11Q "is already a defined object. Type OK to go on and define this class anyway.") DELASSOC D1 (L (1 alist 0 key)) #@Ad@KdIHhZH&JNIL NIL NIL DM D1 (I 3 expr I 2 argsOrFn I 1 selector I 0 className) "@hi bd Hg HABClI(25Q FetchMethodOrHelp 13Q GetClassRec 5 GoodClassName) (22Q DefMethod) NIL DefTemplate D1 (I 1 super I 0 className) @Ah @ g @(23Q GetObjectRec 12Q GetClassRec 6 DefineClass) (20Q Template 15Q class) NIL DeleteIV D1 (P 1 descr P 0 source I 2 propName I 1 varName I 0 self) JAo 0@ XAH YgBIZBJJdJIH H (107Q EVAL 102Q DREMOVE 30Q FASSOC 20Q GetInstanceSource 10Q ERROR) (35Q NotFound) (5 "Name of variable to be deleted not specified") DeleteMethod D1 (P 7 \INTERRUPTABLE P 5 sel P 4 freePos P 3 fn P 2 pl P 1 index P 0 oth I 2 prop I 1 selector I 0 class) p@ bA@h Y@oAo b@ Bdi?hb` l ` o` @A [` ` K B7@hHIZ^ hHIJBNNdBN@] MIL @IL @IL h(330Q \DeleteNthEntry 314Q \DeleteNthEntry 300Q \DeleteNthEntry 271Q \FreeEntryIndex 163Q DELDEF 156Q TERPRI 147Q PRIN1 140Q GetMethod 132Q PRIN1 117Q PRIN1 111Q CHARACTER 103Q CLEARW 61Q ChangedClass 50Q HELPCHECK 30Q \FindEntryIndex 6 GetClassRec) (321Q class 305Q class 263Q class 173Q class 153Q PROMPTWINDOW 144Q PROMPTWINDOW 127Q PROMPTWINDOW 114Q PROMPTWINDOW 100Q PROMPTWINDOW 16Q class) (124Q "Deleting function definition for " 45Q "Type RETURN 'selectorName to try again" 40Q " does not contain the selector ") GetObjectNames D1 (P 0 objectNames I 1 noNameFlg I 0 object) ,@Ah#@ h`g ``g H(50Q MAPHASH 33Q MAPHASH 14Q UID) (45Q FindObjectNames 42Q CurrentNameTable 36Q CurrentNameTable 30Q FindObjectNames 25Q GlobalNameTable) NIL HELPCHECK D1 (I 3 mess4 I 2 mess3 I 1 mess2 I 0 mess1) ,@i AAi BBi CCi i ido (51Q BREAK1 40Q TERPRI 33Q PRIN1 23Q PRIN1 13Q PRIN1 4 PRIN1) NIL (46Q (QUOTE HELPCHECK)) MapSupers D1 (P 1 supers P 0 class I 1 applyFn I 0 classRec) @HdHkAIIXNIL (12Q class) NIL MatchIVs D1 (P 6 ivTail P 4 val P 3 ivProp P 2 ivName P 1 ivDescr I 2 alist I 1 ivDescrs I 0 self) GAAHB@IZ \IB bhIM^@JN NB bNHX(70Q MatchDescr 61Q GetValue 32Q MatchDescr 22Q GetIVHere) NIL NIL MatchListDescr D1 (P 7 obj P 6 descr P 3 al P 2 descr I 2 alist I 1 description I 0 self) Adg@AA@B bpdg@AB \dgdgdgA@kH:dg@A B b"dgdgdgdgO@`+@Hg HAlI@AB bA A@kHdgdgdg@AB hdgdgdg$A!Ihy@JB [IYbdgdgdg#AIiD@JB bhIYg@A #@"A @ @A"MLiB_NB bhML(626Q MatchDescr 565Q LENGTH 561Q LENGTH 547Q EQUAL 520Q MatchDescr 433Q MatchDescr 355Q MatchDescr 275Q GETD 262Q MatchIVs 231Q FetchMethodOrHelp 146Q MatchDescr 142Q EVAL 54Q FASSOC 30Q MatchDescr) (536Q QUOTE 467Q and 461Q And 453Q AND 402Q or 374Q Or 366Q OR 342Q not 334Q Not 326Q NOT 226Q InstOf! 213Q instanceTYPE# 202Q A 174Q An 166Q an 157Q a 127Q EVAL 101Q test 73Q Test 65Q TEST 41Q = 5 =:) NIL MatchDescr D1 (I 2 alist I 1 description I 0 self) sBh@hbAi`A@ VAd`d`Hg H@lIb/@AB b#@d`Hg HAlIA B(155Q EQUAL 137Q FetchMethodOrHelp 110Q MatchListDescr 63Q FetchMethodOrHelp 27Q STRPOS) (134Q InstOf! 122Q instanceTYPE# 60Q Match 46Q classTYPE# 37Q instanceTYPE#) NIL MoveClassVariable D1 (P 6 propName P 1 newClass P 0 oldClass I 2 varName I 1 newClassName I 0 oldClassName) `@hi bAhi b@ XA YBH[g KglJBoHo IBHB H]g MgBlLdIBHBN N HB h(175Q DeleteCV 163Q PutClassValue 157Q GetClassValue 125Q FetchMethodOrHelp 115Q AddCV 112Q GetClassValue 102Q ERROR 77Q CONCAT 45Q FetchMethodOrHelp 33Q GetClassRec 26Q GetClassRec 20Q GoodClassName 10Q GoodClassName) (132Q CVPROPS 122Q List 52Q CVs 42Q List) (74Q " so cannot be moved from there" 67Q "is not a CV of ") MoveMethod D1 (P 10Q prop P 5 fnPair P 4 newLocalFn P 3 oldDef P 2 localFn P 1 newClass P 0 oldClass I 4 files I 3 newSelector I 2 selector I 1 newClassName I 0 oldClassName) @hi bAdbhi bCBb@ A @ B SJBi oi @i hg ]@J J ACKK \IBJ H_g OgBlNdICHBO O HB LJ(244Q DeleteMethod 232Q PutMethodOnly 225Q GetMethodOnly 171Q FetchMethodOrHelp 157Q AddMethod 147Q DM 134Q DELDEF 126Q GETDEF 114Q SplitAtom 104Q PRIN1 76Q PRIN1 65Q PRIN1 52Q FindLocalMethod 46Q GetClassRec 42Q GetClassRec 36Q GetClassRec 22Q GoodClassName 5 GoodClassName) (177Q Method 166Q List 111Q %.) (72Q " not found in ") MoveVariable D1 (P 2 descr P 1 newC P 0 oldC I 2 varName I 1 newClassName I 0 oldClassName) @hi bAhi b@ A bBH\g LglKBoHo HBH_jNOMO_h hMkذk ZIBJJ HB I(174Q DeleteCIV 167Q AddCIV 154Q FNTH 100Q ERROR 75Q CONCAT 43Q FetchMethodOrHelp 27Q GetClassRec 23Q GetClassRec 15Q GoodClassName 5 GoodClassName) (50Q IVs 40Q List) (72Q " so can not be moved from there" 65Q "not a local IV of ") PPC D1 (I 0 className) @ oHg HkI@(24Q FetchMethodOrHelp 3 GetClassRec) (21Q PP) (11Q "No such class") RemoveClassDef D1 (P 1 file P 0 classRec I 0 name) %@ Hh@g Y@gI H@ H(41Q UnNameEntity 33Q DELFROMFILE 21Q WHEREIS 3 GetClassRec) (27Q CLASSES 16Q CLASSES) NIL RenameInClass D1 (P 2 valForm P 1 propForm P 0 source I 4 prop I 3 place I 2 newName I 1 name I 0 className) @ 1H@o&CgH YCoDCdgDo CgDIA3IB,ICgIBAI AI DJBJ[H hDKBK(174Q EVAL 151Q FASSOC 137Q DSUBST 66Q ERROR 33Q FASSOC 3 GetClassSource) (125Q Supers 73Q MetaClass 53Q Supers 25Q InstanceVariables) (63Q "is not available for this aspect of definition" 42Q "not part of class definition" 15Q "not a defined class") RenameMethod D1 (P 3 fnPair P 2 oldDef P 1 newLocalFn P 0 localFn I 2 newSelector I 1 oldSelector I 0 className) d@hi bd A 1HAi oi @i hg [@H Z@ A H @BJJ @ A @BH (141Q DM 133Q DeleteMethod 127Q GetClassRec 122Q DM 111Q DELDEF 105Q DeleteMethod 101Q GetClassRec 73Q GETDEF 61Q SplitAtom 51Q PRIN1 43Q PRIN1 32Q PRIN1 17Q FindLocalMethod 13Q GetClassRec 5 GoodClassName) (56Q %.) (37Q " not found in ") RenameMethodFunction D1 (P 1 index P 0 classRec I 2 newFnName I 1 oldFnName I 0 className) D@hi bd AHh YAo@ ABhA HdI B B(100Q AddMethod 74Q GetNthMethod 66Q RENAME 63Q WHEREIS 53Q ERROR 50Q CONCAT 35Q \FindEntryIndex 13Q GetClassRec 5 GoodClassName) (23Q class) (44Q "not used as function in ") SplitAtom D1 (P 0 pos I 1 splitChar I 0 atom) A@ Hh@kHk @Hk (32Q SUBATOM 23Q SUBATOM 4 STRPOS) NIL NIL TraceIt D1 (I 4 traceGetAlsoFlg I 3 type I 2 propName I 1 varName I 0 self) @Hg HABCDlI(12Q FetchMethodOrHelp) (7 TraceIt) NIL TraceMethod D1 (I 1 selector I 0 className) [@hi H!Hd`hAIh ZIJ Ao@ kgKKY(110Q ERROR 105Q CONCAT 70Q GetNthMethod 60Q \FindEntryIndex 10Q GetObjectRec 5 GoodClassName) (114Q TRACE 46Q class 36Q class 25Q classTYPE#) (101Q " not found in ") UnBreakIt D1 (P 1 V I 3 type I 2 propName I 1 varName I 0 self) @=`H `hYIIIII HX`H@ABho h@IEAI>BI5CI+II@ABC I` @ABhHX(226Q DREMOVE 216Q ReplaceActiveValue 125Q HELPCHECK 67Q ReplaceActiveValue) (231Q BrokenVariables 223Q BrokenVariables 204Q activeValue 100Q BrokenVariables 41Q activeValue 23Q BrokenVariables 17Q BrokenVariables 5 BrokenVariables) (122Q "not broken. Type OK to go on.") FindObjectNames D1 (I 1 key I 0 entity F 0 objectNames F 1 object) '@QA@APcPA h c(42Q \NCONC2 35Q MKSTRING) (16Q Entity 3 Entity) NIL (PRETTYCOMPRINT LOOPSUTILITYCOMS) (RPAQQ LOOPSUTILITYCOMS ((* Copyright (c) 1982 by Xerox Corporation) (* * Functions the user expects to call) (FNS * LOOPSUSERFNS))) (RPAQQ LOOPSUSERFNS (AddIV AddValue BreakIt BreakMethod CalledFns ClassName CopyInstance DC DELASSOC DM DefTemplate DeleteIV DeleteMethod GetObjectNames HELPCHECK MapSupers MatchIVs MatchListDescr MatchDescr MoveClassVariable MoveMethod MoveVariable PPC RemoveClassDef RenameInClass RenameMethod RenameMethodFunction SplitAtom TraceIt TraceMethod UnBreakIt FindObjectNames)) NIL