(FILECREATED "29-Feb-84 15:57:18" ("compiled on " {INDIGO}SOURCES>LOOPSACCESS.;17) "25-Feb-84 17:16:34" recompiled exprs: GetClassValue GetClassValueOnly GetIt GetItHere GetItOnly PutClassValue PutClassValueOnly PutIt in LOOPS.SYSOUT dated "29-Feb-84 11:24:22") (FILECREATED "29-Feb-84 15:56:16" {INDIGO}SOURCES>LOOPSACCESS.;17 43186 changes to: (FNS GetClassValue GetClassValueOnly GetIt GetItHere GetItOnly PutClassValue PutClassValueOnly PutIt) previous date: "29-Feb-84 08:56:15" {INDIGO}SOURCES>LOOPSACCESS.;16) $ D1 (I 0 name) @ (3 GetObjectRec) NIL NIL DeleteCIV D1 (I 2 prop I 1 varName I 0 class) @ @Hg HAlIAo@ o BO@ @A@jHIJIYh hJkذk HYhBIIdBI@A@ (206Q InstallInstanceVariables 203Q DELASSOC 200Q GetSourceIVs 131Q FNTH 61Q ChangedClass 51Q HELPCHECK 42Q ClassName 16Q FetchMethodOrHelp 3 ChangedClass) (13Q HasIV) ( 46Q " Type OK to ignore error and go on." 36Q "is not a local instance variable of class ") DeleteCV D1 (P 12Q newDescr P 11Q newNames P 10Q descr P 7 varFoundFlg P 6 var P 3 index I 2 prop I 1 varName I 0 class) @ BUA@ jHIJIY"hK@Kk HY hJkذBIIdBI@@ R hh_hh_ML@O @OOA_NAON OO i_ML(257Q TCONC 247Q TCONC 62Q FNTH 3 ChangedClass) (215Q class 203Q class 143Q class 135Q class 52Q class 13Q class) NIL DeleteClassProp D1 (I 1 prop I 0 class) 8@ h@AY h@HHIIdHI(3 ChangedClass) (30Q class 10Q class) NIL FetchCIVDescr D1 (I 1 varName I 0 self) .@A@jHIJIYhdJkذHIk (52Q FNTH) NIL NIL FetchCIVValueOnly D1 (P 2 val P 1 supers P 0 class I 2 propName I 1 varName I 0 classRec) o@qHHd`AHjLMKM]h hKkذk _lBOO^BNNNgZgJIIXg(63Q FNTH) (154Q ? 135Q ? 131Q ? 7 class) NIL FetchCVOnly D1 (P 11Q index P 4 passedOnce P 3 value P 2 descr P 1 class P 0 supers I 3 firstFoundFlg I 2 propName I 1 varName I 0 classRec) @ oA @rAI _jNOMO_=h OIOk Z HHYDlg[g.C)KLMkذBJJ_BOOOKiLg@oAo `@e(247Q HELPCHECK 105Q FNTH 12Q ERROR) (231Q ? 141Q ? 135Q ? 74Q class 31Q class 16Q class) (244Q " Use (AddCV class varName) to add varName, and then type OK to try again" 237Q " does not have class variable: " 6 "No class given to find ") FetchMethodClass D1 (P 1 supers P 0 class I 1 selector I 0 class) +@HdAHh HIIX(34Q \FindEntryIndex) (22Q class 12Q class) () FetchMethodDescr D1 (P 0 meth I 1 selector I 0 self) pA@h }@A XughghH`Ho WgHjJKIK[h^H H N(IkذgH H]g MghlL(176Q FetchMethodOrHelp 164Q ASSOC 127Q ReadLeafObj 62Q ERROR 30Q GetMethodObj 21Q \FindEntryIndex) (203Q method 173Q IVMissing 157Q instance 153Q method 67Q method 50Q instanceTYPE# 42Q doc 36Q args 7 class) (57Q "not instance for FetchIVDescr") FetchNthDescr D1 (I 1 index I 0 self) @g A (12Q FNTH 6 GetValue) (3 indexedVars) NIL FetchNthDescr! D1 (P 4 N P 2 numVars P 1 last P 0 varList I 1 index I 0 self) E@A d=@g !H ZAJkLKHghY Lk\@gH I(101Q PutValueOnly 60Q TCONC 31Q LENGTH 21Q LCONC 16Q GetValue 4 FetchNthDescr) (74Q indexedVars 52Q ? 13Q indexedVars) NIL FetchNthValue D1 (P 4 ls P 3 fn P 1 value P 0 descr I 2 propName I 1 index I 0 self) n@g A !HgB%HlgBHZBJJJgHYd`$I@AB KL@ALBIhlK (153Q EVAL 121Q GetLocalState 12Q FNTH 6 GetValue) (110Q activeValue 102Q activeValueTYPE# 71Q ? 40Q ? 23Q ? 3 indexedVars) NIL FetchNthValueOnly D1 (I 2 propName I 1 index I 0 self) 5@g A HglBHHYBIII(12Q FNTH 6 GetValue) (24Q ? 3 indexedVars) NIL GetCVHere D1 (P 3 index I 2 propName I 1 varName I 0 classRec) YA@ jHIJIY%hK@Kk HlgJkذBHHYBIII(53Q FNTH) (71Q ? 43Q class 4 class) NIL GetClass D1 (P 6 ls P 5 fn P 2 value P 1 supers P 0 class I 1 propName I 0 classRec) @AHdd`@d`d` X@d`d` H\lALL[AKKKgZg8Jd`<JHhAg MNHhNAJglM IIX~g(250Q EVAL 214Q GetLocalState 103Q GetLispClass 47Q GetLispClass) (266Q ? 237Q CLASS 210Q CLASS 177Q activeValue 171Q activeValueTYPE# 160Q ? 154Q ? 107Q class 73Q classTYPE# 64Q instanceTYPE# 53Q class 37Q classTYPE# 30Q instanceTYPE# 16Q instanceTYPE#) NIL GetClassHere D1 (L (1 propName 0 classRec)) 3@@HlgAHHYAIIINIL (30Q ? 11Q class 3 class) NIL GetClassIV D1 (I 2 prop I 1 varName I 0 self) _@d`OA@jHIJIYh hJkذk HlgBHHYBIIIo (134Q ERROR 57Q FNTH) (74Q ? 5 classTYPE#) (131Q "should be a class to use GetClassIV") GetClassOnly D1 (I 2 firstFoundFlg I 1 propName I 0 classRec) A@d`d` @QHdEHH]lAMM\ALLLgZgBJKJ BgiiIIX찭g(27Q GetLispClass) (176Q ? 154Q ? 131Q ? 125Q ? 60Q class 52Q class 43Q class 17Q classTYPE# 10Q instanceTYPE#) NIL GetClassValue D1 (P 2 objClass P 1 ls P 0 fn I 2 prop I 1 varName I 0 self) @d`T@AB `?@AB @AB @ABg HI@AIB@AB glH @AB `@b@ J @o AB (177Q GetClassValue 171Q LoopsHelp 153Q GetLispClass 131Q FetchCVOnly 122Q EVAL 106Q FetchCVOnly 61Q GetLocalState 47Q FetchCVOnly 34Q FetchCVOnly 17Q FetchCVOnly) (136Q instanceTYPE# 111Q CV 55Q CV 37Q activeValue 23Q activeValueTYPE# 5 classTYPE#) ( 166Q "has no class.") GetClassValueOnly D1 (P 0 objClass I 2 prop I 1 varName I 0 classRec) M@ dg@d`d` AB g@AB @ H @o AB h(111Q GetClassValueOnly 103Q LoopsHelp 65Q GetLispClass 60Q FetchCVOnly 44Q FetchCVOnly 37Q GetLispClass 3 TYPENAME) (50Q class 27Q classTYPE# 20Q instanceTYPE# 7 instance) ( 100Q "has no instance variables.") GetIt D1 (P 0 objClass I 3 type I 2 propName I 1 varOrSelector I 0 self) CCdgZ@d`Add@AB @AB `@AB @ !H @o hYg I@ABlJg@AB Cdg@AB g@AB Co (222Q ERROR 211Q GetMethod 175Q GetClass 154Q GetClassValue 126Q FetchMethodOrHelp 115Q LoopsHelp 77Q GetLispClass 72Q FetchCIVValueOnly 55Q GetValue 46Q FetchNthValue) (201Q METHOD 162Q CLASS 144Q CV 123Q GetValue 62Q classTYPE# 20Q instanceTYPE# 6 IV) ( 217Q "not part of Class. Use one of NIL (for instance variables), CV, CLASS, METHOD" 112Q "has no instance variables.") GetItHere D1 (P 0 objClass I 3 type I 2 propName I 1 varOrSelector I 0 self) CCdgD@d`AB `@AB @ !H @o hYg I@ABlJg@AB Cdg@AB g@AB Co (174Q ERROR 163Q GetMethodHere 147Q GetClassHere 126Q GetCVHere 100Q FetchMethodOrHelp 67Q LoopsHelp 51Q GetLispClass 44Q GetClassIV 27Q GetIVHere) (153Q METHOD 134Q CLASS 116Q CV 75Q GetValueHere 34Q classTYPE# 20Q instanceTYPE# 6 IV) ( 171Q "not part of Class. Use one of NIL (for instance variables), CV, CLASS, METHOD" 64Q "has no instance variables.") GetItOnly D1 (P 0 objClass I 3 type I 2 propName I 1 varOrSelector I 0 self) CCdgD@d`AB `@AB @ !H @o hYg I@ABlJg@AB Cdg@AB g@AB Co (174Q ERROR 163Q GetMethodOnly 147Q GetClassOnly 126Q GetClassValueOnly 100Q FetchMethodOrHelp 67Q LoopsHelp 51Q GetLispClass 44Q GetClassIV 27Q GetValueOnly) (153Q METHOD 134Q CLASS 116Q CV 75Q GetValueOnly 34Q classTYPE# 20Q instanceTYPE# 6 IV) ( 171Q "not part of Class. Use one of NIL (for instance variables), CV, CLASS, METHOD" 64Q "has no instance variables.") GetLocalState D1 (P 13Q ivValue P 12Q ls P 11Q fn P 0 locState I 4 type I 3 propName I 2 varName I 1 self I 0 av)  @Hd`/HABCD  OOABOCHDlO gAd`g`Ao QBAjJKIK[h^A A N$IkذBA 7A]g MBhlL_l!g O`@O,ABC COO_COOOO_H(324Q GetInitialValue 250Q FetchMethodOrHelp 236Q ASSOC 203Q ReadLeafObj 140Q ERROR 75Q EVAL 37Q GetLocalState) (375Q activeValue 305Q activeValueTYPE# 274Q ? 245Q IVMissing 231Q instance 126Q instanceTYPE# 121Q ? 114Q instanceTYPE# 101Q ? 24Q activeValue 16Q activeValueTYPE# 3 activeValue) (135Q "not instance for FetchIVDescr") GetLocalStateOnly D1 (L (0 activeValue)) @NIL (3 activeValue) NIL GetMethod D1 (P 11Q methObj P 10Q index P 7 value P 6 supers P 5 class P 4 supers P 3 index P 2 meth P 1 pos P 0 class I 2 propName I 1 selector I 0 classRec F 12Q UseMethodCacheFlg) B@A@`W*@Al@d`IA`I`I@AHh [LLXHK W`I@`IA`IJJ@A MdTAMh _0MAi _BOg OB OgB _gONN]g(321Q GetValue 307Q GetValue 277Q GetClassValue 263Q GetMethodObj 251Q \FindEntryIndex 153Q GetNthMethod 126Q \FindEntryIndex) (346Q ? 326Q ? 315Q method 274Q ivProperties 237Q class 227Q class 205Q MethodBlock 174Q SelectorBlock 163Q ClassBlock 114Q class 104Q class 73Q MethodBlock 62Q SelectorBlock 46Q ClassBlock 15Q classTYPE#) () GetMethodHere D1 (P 1 methObj P 0 index I 2 propName I 1 selector I 0 classRec) AB@A A@h Hg@Ai YBIg IB IgB (76Q GetIVHere 65Q GetIVHere 56Q GetClassValue 45Q GetMethodObj 26Q \FindEntryIndex 6 FetchLocalMethod) (72Q method 53Q ivProperties 36Q ? 14Q class) NIL GetMethodOnly D1 (P 4 index P 3 value P 2 descr P 1 supers P 0 class I 2 propName I 1 selector I 0 classRec) :@AHd2AHh \@AB [gKIIXg(44Q GetMethodHere 34Q \FindEntryIndex) (67Q ? 50Q ? 22Q class 12Q class) NIL GetNthValue D1 (I 2 prop I 1 varIndex I 0 self) Add@AB @AB (30Q GetValue 21Q FetchNthValue) NIL NIL Parse@ D1 (P 4 val P 3 n P 2 trans P 1 obj P 0 v I 1 type I 0 exp) @g2@H@XHVoH [KIHkKk KH $H@ \h%Ldlggk LHggKk hA HAIk Z@XJgJk (202Q ParseAccess 160Q ParseAccess 150Q ParsePut@ 140Q ParseAccess 117Q ParseAccess 66Q LAST 56Q NCHARS 51Q SUBATOM 35Q STRPOSL) (175Q PROP 132Q self 127Q IV 113Q self 110Q IV 4 self) (31Q (137Q)) ParseAccess D1 (P 4 e P 3 a P 2 charList P 1 nt P 0 n I 3 start I 2 currentExpr I 1 exprType I 0 input) CAo#@dl@@dg#Igg@gBHkK \LdggBdg'@HkX dgg&gggdggggHkظ@H dg|g@HJ@H Xdk Idg!Kddidd gKhIBK HLhLHbbb(351Q ParseExpr 274Q SUBATOM 264Q STRPOSL 235Q NTHCHAR 143Q NTHCHAR 76Q ParseBang) (336Q QUOTE 302Q LISP 252Q LOOPSNAME 241Q $ 223Q MSG 215Q %. 211Q PERSP 203Q , 174Q IV 167Q PROP 162Q , 155Q CV 147Q : 127Q : 121Q LISP 113Q \ 65Q IV 60Q MSG! 53Q MSG 43Q !) (5 (54Q 56Q 72Q)) ParseBang D1 (P 3 a P 2 charList P 1 nt P 0 n I 3 start I 2 currentExpr I 1 exprType I 0 input) CAo@H dggIdg+@HkX dgg-go gdgo ggYHkظ@HJ@H Xdk IgIgKKddidd gKh H(243Q ParseExpr 166Q SUBATOM 156Q STRPOSL 127Q ERROR 101Q ERROR 51Q NTHCHAR 15Q NTHCHAR) (234Q QUOTE 177Q LISP 173Q self 140Q MSG 133Q %. 115Q , 106Q IV 70Q , 63Q CV 55Q : 35Q : 27Q LISP 21Q \) (124Q "Can't use perspective as name" 76Q "Can't have a property at top level" 5 (54Q 56Q 72Q)) ParseExpr D1 (I 2 firstAtom I 1 currentExpr I 0 type F 0 input) @dgAgoP BgAgoP gBh@dggABhggABh@dgABh ggABh@dggABhggAgBho (243Q SHOULDNT 145Q \NCONC2 54Q ERROR 26Q ERROR) (225Q GetPersp 221Q _ 214Q PERSP 200Q _ 172Q MSG 156Q _! 151Q MSG! 133Q PROP 117Q GetClassValue 112Q CV 100Q GetValue 72Q IV 60Q GetObjectRec 42Q self 33Q LOOPSNAME 14Q self 4 LISP) (240Q "Bad exprType in ParseAccess" 50Q "$ must appear at beginning" 22Q "\ must follow ! or appear at beginning") ParsePut@ D1 (P 2 trans P 1 first P 0 last I 1 type I 0 arg) j@ !@H A ZdYdggggJHJJIg#JgJgJHJJo h(146Q SHOULDNT 17Q Parse@ 13Q LDIFF 3 LAST) (116Q AddPersp 105Q GetPersp 73Q _ 47Q PutClassValue 41Q GetClassValue 35Q PutValue 27Q GetValue) (143Q "Bad translation in Parse@") PushClassValue D1 (I 3 propName I 2 newValue I 1 varName I 0 self) @AB@AC C (15Q PutClassValue 10Q GetClassValue) NIL NIL PushNewValue D1 (P 0 oldValues I 3 prop I 2 newValue I 1 varName I 0 self) @AC BH @ABHC (26Q PutValue 5 GetValue) NIL NIL PushValue D1 (I 3 prop I 2 item I 1 varName I 0 self) @AB@AC C (16Q PutValue 10Q GetValue) NIL NIL PutCIVHere D1 (I 3 prop I 2 value I 1 varName I 0 self) @ACBhCdBh B(20Q AddCIV) NIL NIL PutCVHere D1 (I 2 value I 1 varName I 0 self) @AB B(5 AddCV) NIL NIL PutClass D1 (P 4 fn P 3 av P 2 oldValue I 2 propName I 1 newValue I 0 classRec) @ B*@A Ao@o g HII@Bg J[`@AB JKg@K [B KL KA@hB h@hBAKglL (217Q EVAL 170Q PutLocalState 142Q PutClassOnly 135Q CopyAV 110Q PutClassOnly 66Q GetClassOnly 45Q GetObjectRec 35Q HELPCHECK 16Q GetClassRec 3 ChangedClass) (205Q CLASS 147Q activeValue 126Q SHARED 121Q activeValue 100Q activeValueTYPE# 63Q FirstFoundFlg 42Q Class 12Q class) (32Q "with $Class" 25Q "is not a class. Type OK to replace metaclass of ") PutClassIV D1 (I 3 propName I 2 newValue I 1 varName I 0 self) A@Hg HglIAo@ @A@jHIJIYh hJkذk CBIHJJHIJK^hNLMhMLNNMMN(115Q FNTH 44Q ERROR 41Q CONCAT 13Q FetchMethodOrHelp) (20Q IVs 10Q List) (35Q "is not a local IV, so cannot be changed in ") PutClassOnly D1 (P 0 ocd I 2 propName I 1 newValue I 0 classRec) MB&@A Ao@o g @H@BAh@ ABA (111Q LISTPUT 102Q ChangedClass 41Q GetObjectRec 31Q HELPCHECK 12Q GetClassRec) (66Q class 52Q class 36Q Class 6 class) (26Q " with $Class." 21Q "not a class. Type OK to replace metaclass of ") PutClassValue D1 (P 21Q objClass P 11Q fn P 4 oldValue P 3 index P 2 descr P 1 class P 0 supers I 3 propName I 2 newValue I 1 varName I 0 classRec) |@`@d`d` b@d`7@rAI _jNOMO_;h[IKk ZghIKk JC.Jlg%MkذCJ_COOOgJ@ L`2L OLBIACg IABCLglO IiCNJCB OOOOOOO_ ,O OOhOO O OO JBBHHYAo@o @ O" @o hABC (571Q PutClassValue 561Q LoopsHelp 542Q GetLispClass 530Q HELPCHECK 350Q EVAL 322Q PutLocalState 261Q ChangedClass 170Q FNTH 142Q FNTH 34Q GetLispClass) (336Q CV 316Q CV 275Q activeValue 266Q activeValueTYPE# 251Q ? 207Q ? 160Q class 151Q ? 132Q class 71Q class 56Q class 46Q classTYPE# 24Q classTYPE# 15Q instanceTYPE# 4 instanceTYPE#) ( 556Q "has no class variables." 525Q "Use (AddCV class name) to add the variable to the desired class.Then type OK to try again" 520Q " not found in ") PutClassValueOnly D1 (P 20Q objClass P 5 oldValue P 4 value P 3 index P 2 descr P 1 supers P 0 class I 3 propName I 2 newValue I 1 varName I 0 classRec) "@ dg@d`d` bg@H@AH __jOONO_Ah[HKk ZghHKk JCSJCB OOONkذOOOO_-OOOhOOOOOJB@ BIIXQAo@o @=@ O @o hABC (437Q PutClassValueOnly 427Q LoopsHelp 410Q GetLispClass 375Q HELPCHECK 344Q ChangedClass 205Q FNTH 157Q FNTH 40Q GetLispClass 3 TYPENAME) (175Q class 166Q ? 147Q class 103Q class 73Q class 47Q class 30Q classTYPE# 21Q instanceTYPE# 7 instance) ( 424Q "has no instance variables." 372Q "Use (AddCV class name) to add the variable to the desired class.Then type OK to try again" 365Q " not found in ") PutIt D1 (P 0 objClass I 4 type I 3 propName I 2 newValue I 1 varOrSelector I 0 self) DDdg\@d`ABC `Add@ABC @ABC @ !H @o hYg I@ABClJg@ABC Ddg@BAC g@ABC Do (227Q ERROR 216Q PutMethod 201Q PutClass 157Q PutClassValue 127Q FetchMethodOrHelp 116Q LoopsHelp 100Q GetLispClass 73Q PutValue 63Q StoreNthValue 30Q PutClassIV) (205Q METHOD 165Q CLASS 146Q CV 124Q PutValue 35Q instanceTYPE# 20Q classTYPE# 6 IV) ( 224Q "not part of Class. Use one of NIL (for instance variables), CV, CLASS, METHOD" 113Q "has no instance variables.") PutItNested D1 (P 0 oldValue I 4 type I 3 propName I 2 newValue I 1 varName I 0 self) @@ACD Hdg@ACD X`H `HB b@ABCD (75Q PutItOnly 61Q PutLocalState! 45Q CopyAV 31Q GetItOnly 6 GetItHere) (52Q activeValueTYPE# 36Q activeValueTYPE# 16Q ?) NIL PutItOnly D1 (I 4 type I 3 propName I 2 newValue I 1 varOrSelector I 0 self) WDDdg@d`ABC ABC g@ABC Ddg@BAC g@ABC Do (124Q ERROR 113Q PutMethodOnly 76Q PutClassOnly 54Q PutClassValueOnly 37Q PutValueOnly 30Q PutClassIV) (102Q METHOD 62Q CLASS 43Q CV 20Q classTYPE# 6 IV) (121Q "not part of Class. Use one of NIL (for instance variables), CV, CLASS, METHOD") PutMethod D1 (P 1 methObj P 0 index I 3 propName I 2 newValue I 1 selector I 0 classRec F 2 class) NA@h C@AB HAoR @Ai YCIg ICB IgBC B(112Q PutValue 100Q PutValue 70Q GetClassValue 57Q GetMethodObj 50Q ERROR 45Q CONCAT 31Q DefineMethod 16Q \FindEntryIndex) (105Q method 65Q ivProperties 4 class) (41Q "not a local method of ") PutMethodOnly D1 (P 1 methObj P 0 index I 3 propName I 2 newValue I 1 selector I 0 classRec F 2 class) NA@h C@AB HAoR @Ai YCIg ICB IgBC B(112Q PutValueOnly 100Q PutValueOnly 70Q GetClassValue 57Q GetMethodObj 50Q ERROR 45Q CONCAT 31Q DefineMethod 16Q \FindEntryIndex) (105Q method 65Q ivProperties 4 class) (41Q "not a local method of ") PutNthValue D1 (I 3 propName I 2 newValue I 1 varIndex I 0 self) Add@ABC @ABC (32Q PutValue 22Q StoreNthValue) NIL NIL StoreNthValue D1 (P 3 fn P 0 descr I 3 propName I 2 newValue I 1 index I 0 self)  @A QHlCHHYCIIIg`HlCHHZCJJJg[HlCgB@AC @ABCHlghlK CHH\CLLLCHH]CMMM@iCKHCBONONOO O_,OOOhOOOOOHBB(211Q EVAL 156Q PutLocalState 4 FetchNthDescr!) (177Q ? 146Q ? 127Q activeValue 124Q ? 55Q activeValueTYPE# 51Q ?) NIL StoreNthValueOnly D1 (P 2 numVars P 1 varLst P 0 descr I 3 propName I 2 newValue I 1 index I 0 self) @g A !Ha@g Yd ZIAJkk2LKgh_NOh^Lk\O&M YdCgCBhBhh Y@gI BCBLKMMKLM N_hOOOhOOOOOOO(156Q PutValueOnly 145Q \NCONC2 117Q \APPEND2 35Q LENGTH 30Q GetValueOnly 12Q FNTH 6 GetValue) (152Q indexedVars 126Q ? 60Q ? 25Q indexedVars 3 indexedVars) NIL (PRETTYCOMPRINT LOOPSACCESSCOMS) (RPAQQ LOOPSACCESSCOMS ((* Copyright (c) 1983 by Xerox Corporation) (* Access functions which don't know the structure of the underlying datatypes) (FNS * VARACCESSFNS) (* Short Synonym for GetObjectRec ) (P (MOVD? (QUOTE GetObjectRec) (QUOTE $!))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML $) (LAMA))))) (RPAQQ VARACCESSFNS ($ DeleteCIV DeleteCV DeleteClassProp FetchCIVDescr FetchCIVValueOnly FetchCVOnly FetchMethodClass FetchMethodDescr FetchNthDescr FetchNthDescr! FetchNthValue FetchNthValueOnly GetCVHere GetClass GetClassHere GetClassIV GetClassOnly GetClassValue GetClassValueOnly GetIt GetItHere GetItOnly GetLocalState GetLocalStateOnly GetMethod GetMethodHere GetMethodOnly GetNthValue Parse@ ParseAccess ParseBang ParseExpr ParsePut@ PushClassValue PushNewValue PushValue PutCIVHere PutCVHere PutClass PutClassIV PutClassOnly PutClassValue PutClassValueOnly PutIt PutItNested PutItOnly PutMethod PutMethodOnly PutNthValue StoreNthValue StoreNthValueOnly)) (MOVD? (QUOTE GetObjectRec) (QUOTE $!)) (PUTPROPS LOOPSACCESS COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL