(FILECREATED "21-Feb-84 17:53:59" ("compiled on " {INDIGO}SOURCES>LOOPSRULESC.;6) "26-Jan-84 01:37:00" recompiled exprs: CompileGetTerm CompileParenExpr CompileRuleList ForTemplate in LOOPS.SYSOUT dated "20-Feb-84 17:49:21") (FILECREATED "21-Feb-84 17:53:26" {INDIGO}SOURCES>LOOPSRULESC.;6 53581 changes to: (FNS CompileGetTerm CompileParenExpr CompileRuleList ForTemplate ContainsItem) (VARS LOOPSRULESCCOMS ASSUMELISPFLG) previous date: "17-Feb-84 18:17:38" {INDIGO}SOURCES>LOOPSRULESC.;4) AuditRecordCodeGen D1 (P 12Q assnVar P 5 metaVal P 4 code P 3 allSpecifications P 2 setStatements P 1 auditVars P 0 auditTemplate) oa`` [dd^INI0 Imd OK  ggOddidd gOhM`Md`g` hh_O Oh_O&_OZ` gH \JgL (260Q LSUBST 247Q SUBST 240Q ClassName 165Q UID 67Q CompileGetTerm 63Q ASSOC 17Q \APPEND2) (254Q ^setStatements 243Q ^auditClassName 235Q rsAuditClass 162Q ruleObject 157Q GetObjFromUID 151Q classTYPE# 141Q instanceTYPE# 127Q QUOTE 76Q ^auditRecord 73Q PutValue 14Q auditSpecification 11Q ruleAuditSpecification) (3 (PROGN (* Make an audit record for this rule and set its audit values.) (SETQ ^auditRecord (_ ($ ^auditClassName) NewTemp)) ^setStatements)) BreakLHSCodeGen D1 (P 7 var P 3 code P 2 ruleCode P 1 traceCode P 0 varCode) @`Bg0`0doO o O h\ML^]Ngg` hghZg`ddidd g`h`ddidd g`h`hYghh[HJgoIKKK ]Li(322Q LAST 123Q UID 54Q CompileGetTerm 47Q CONCAT 40Q UnParseTerm) (273Q PROGN 255Q RE 244Q ruleNumber 236Q ruleLabel 233Q QUOTE 204Q ruleLabel 176Q rsName 173Q QUOTE 144Q rsName 141Q TraceLHS 131Q Print 120Q ruleObject 115Q GetObjFromUID 112Q _ 20Q debugVars 12Q WRITETTY 5 debugVars) (277Q (* Rule Breaking and Tracing Code) 44Q "=" 33Q " ") BreakRHSCodeGen D1 (P 7 var P 3 code P 2 ruleCode P 1 traceCode P 0 varCode) @`Bg0`0doO o O h\ML^]N`ggg` hghg`ddidd g`h`ddidd g`h`hYghh[HJgoIKKK ]L`(333Q LAST 134Q UID 54Q CompileGetTerm 47Q CONCAT 40Q UnParseTerm) (304Q PROGN 266Q RE 255Q ruleNumber 247Q ruleLabel 244Q QUOTE 215Q ruleLabel 207Q rsName 204Q QUOTE 155Q rsName 152Q TraceRHS 142Q Print 131Q ruleObject 126Q GetObjFromUID 123Q _ 115Q B 112Q rsBreakFlg 20Q debugVars 12Q WRITETTY 5 debugVars) (310Q (* Rule Breaking and Tracing Code) 44Q "=" 33Q " ") CheckVariableNameConflict D1 (P 3 vl1 P 2 vl2 P 1 badVars P 0 varLists) =o1H/dH%dIKJK-J- YioI h(60Q FlushRule 41Q INTERSECTION) (47Q parseErrorFlg) (54Q "Variable name conflict for " 3 (wsClassVars wsVars taskVars tempVars lispVars)) CompileAssnStmnt D1 (P 1 assnVal P 0 assnVar) " ``X`YHI (37Q CompilePutTerm 31Q CompileExpr) (26Q ruleSetTokens 22Q ruleSetTokens 15Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) NIL CompileComment D1 (P 2 commentCode P 1 doneFlg P 0 token) U0```XdggigHJIJ Z`dgdghJhhJ(70Q DREVERSE 40Q CompileComment) (106Q CYCLE1 100Q DO1 74Q controlType 53Q * 44Q %) 32Q %( 24Q ruleSetTokens 20Q ruleSetTokens 14Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) NIL CompileCompositeGetTerm D1 (I 0 term) @dgg@ @hdg@dgg@ @ hdgdgKg@ @dg&Hddidd gHhg @ hdgdgKg@ @dg&Hddidd gHhg @ hdg9g@ Hddidd gHh@ hdg$gog@ @ ghdg!gg@ @ ghhdgdg@ g@o@ (633Q FlushRule 613Q CompilePropGetTerm 557Q CompileGetTerm 550Q CompileGetTerm 512Q CompileGetTerm 503Q CompileGetTerm 447Q CompileGetTerm 376Q CompileGetTerm 351Q CompileGetTerm 256Q CompileGetTerm 223Q CompileGetTerm 130Q CompileGetTerm 75Q CompileGetTerm 66Q CompileGetTerm 21Q CompileGetTerm) (617Q $ 605Q :,! 577Q :, 562Q ^rs 542Q LIST 537Q RuleSetTransfer 531Q ..* 515Q ^rs 475Q New 466Q _ 460Q ., 433Q QUOTE 370Q RunRS 362Q .. 337Q ::! 325Q QUOTE 264Q :: 250Q GetClassValue 242Q ::! 234Q :: 211Q :! 177Q QUOTE 136Q : 122Q GetValue 114Q :! 106Q : 60Q DoMethod 51Q .! 36Q \ 13Q _ 5 %.) (627Q "Bad Term " 472Q ($ Task)) CompileCompositePutTerm D1 (I 1 assnVal I 0 term) @dgg@Aho`Z`Uig@ @dg&Hddidd gHhg @ Aghg@ @dg&Hddidd gHhg @ Ah@do`Z`Uig@ @dg&Hddidd gHhg @ Aghg@ @dg&Hddidd gHhg @ Aho@A o@ h(621Q FlushRule 610Q CompilePropPutTerm 565Q CompileGetTerm 472Q CompileGetTerm 446Q CompileGetTerm 353Q CompileGetTerm 300Q CompileGetTerm 205Q CompileGetTerm 161Q CompileGetTerm 66Q CompileGetTerm) (553Q ::! 541Q QUOTE 500Q :: 464Q PutClassValue 452Q ^auditRecord 434Q :! 422Q QUOTE 361Q : 345Q PutClassAuditRec 342Q ruleNeedsAuditFlg 334Q ruleRHSFlg 327Q ruleAuditFlg 266Q :! 254Q QUOTE 213Q : 177Q PutValue 165Q ^auditRecord 147Q :! 135Q QUOTE 74Q : 60Q PutAuditRec 55Q ruleNeedsAuditFlg 47Q ruleRHSFlg 42Q ruleAuditFlg 13Q SETQ 5 \) (615Q "Bad Term on left in Assignment Statement:" 601Q (:, :,!) 316Q (:: ::!) 32Q (: :!)) CompileExpr D1 NIL h``dgdgg`dgg`g`oo` (145Q CompileOpPrecedenceExpr 141Q FlushRule 102Q CompileQuotedConstant 70Q CompilePopStmnt 50Q CompilePushStmnt 35Q CompileAssnStmnt 6 SkipRule) (135Q ruleSetTokens 117Q ruleSetTokens 112Q ; 106Q ruleSetTokens 75Q ' 62Q _- 54Q ruleSetTokens 43Q _+ 27Q %( 20Q _ 12Q ruleSetTokens 2 parseErrorFlg) (132Q "Unexpected " 124Q (THEN Then then ->)) CompileGetTerm D1 (I 0 term F 0 PPDefault F 1 ASSUMELISPFLG)  @ddd@dld`*gg@ddidd g@hho@-@ o@ @d`*gg@ddidd g@hh`[@doSdoKd`Ddg=Q8P P oP `P @P `P oP P @o@ @ (407Q CompileCompositeGetTerm 402Q FlushRule 366Q TERPRI 361Q PRIN1 350Q CHANGEFONT 340Q PRIN1 332Q CHANGEFONT 322Q PRIN1 311Q TERPRI 304Q TERPRI 146Q FlushRule 135Q LetterP) (344Q DEFAULTFONT 326Q BOLDFONT 271Q CLISPWORD 262Q rsArgs 232Q tempVars 216Q QUOTE 166Q self 163Q GetValue 154Q wsVars 107Q QUOTE 57Q ^task 54Q GetValue 45Q taskVars) ( 376Q "Unrecognized Term:" 355Q " is a Lisp variable." 316Q "*** Assuming that " 253Q (self ruleApplied) 243Q (NIL T) 142Q "Unrecognized term:" 124Q (ruleNumber ruleLabel ruleObject)) CompileLHS D1 (P 0 exprCode I 2 specialFlg I 1 newFlg I 0 augmentedFlg) h@M0`B`dgooo i `oJ KhZK&IB5`H`H`gH`gH`hH k HgH(230Q EQP 224Q FLENGTH 207Q BreakLHSCodeGen 171Q TraceLHSCodeGen 153Q OSTestCode 141Q OSSetCode 136Q OSTestCode 101Q CompileExpr 54Q FlushRule) (237Q AND 215Q parseErrorFlg 202Q BT 177Q ruleBreakFlg 164Q TT 161Q ruleTraceFlg 147Q oneShotFlg 132Q oneShotBangFlg 66Q ruleSetTokens 61Q parseErrorFlg 31Q ; 24Q ruleSetTokens 17Q parseErrorFlg 6 ruleRHSFlg) (73Q (THEN Then then ->) 51Q "in rule" 45Q "THEN" 41Q "Missing") CompileOpPrecedenceExpr D1 (P 7 argStack P 6 oprStack P 5 term P 4 prevType P 3 nextToken P 2 operators P 1 specOprs P 0 endTokens) oooSgh^``KHKdo`NOdJXLg`dg]O_g\g]O_g\`` ]O_g\tKILggN K ``NFAO(323Q ExprCodeGen 273Q GPrecedence 267Q FPrecedence 225Q CompileGetTerm 171Q CompileParenExpr 143Q CompileQuotedConstant 107Q ExprCodeGen) (312Q ruleSetTokens 306Q ruleSetTokens 302Q ruleSetTokens 261Q operator 253Q operand 237Q operand 221Q ruleSetTokens 215Q ruleSetTokens 211Q ruleSetTokens 203Q operand 164Q %( 155Q operand 134Q ' 127Q ruleSetTokens 121Q operand 62Q parseErrorFlg 35Q parseErrorFlg 30Q ruleSetTokens 21Q endExpr) (53Q (THEN Then then ->) 13Q (%[ %] + - ++ -- -1- * / < > <= >= = == ~ ~= << _ endExpr) 7 (-1- ~ %[) 3 (; ->)) CompileParenExpr D1 (P 3 args P 2 selector P 1 object P 0 fnName F 7 PPDefault) @`d`XdoHg``0`L[`dg0o *g`gM Nh]N&HdggIJhKogIJKHdogogKgghh @Hdg9W W oW `W HW `W W HK(413Q TERPRI 405Q CHANGEFONT 374Q PRIN1 365Q CHANGEFONT 354Q PRIN1 342Q TERPRI 334Q TERPRI 314Q FNTYP 153Q CompileExpr 125Q FlushRule 51Q CompileExpr 37Q CompileExpr) (400Q DEFAULTFONT 360Q BOLDFONT 323Q CLISPWORD 300Q QUIT 275Q GO 270Q RuleSetStop 261Q PROGN 235Q _ 213Q DoMethod 205Q _! 177Q ruleSetTokens 145Q ; 141Q ruleSetTokens 133Q %) 112Q %) 105Q ruleSetTokens 75Q ruleSetTokens 65Q ruleSetTokens 61Q ruleSetTokens 55Q ruleSetTokens 44Q _! 22Q ruleSetTokens 16Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) ( 347Q "*** Warning Unrecognized LISP fn " 265Q (* ^value set by RuleSetStop) 252Q (STOP Stop stop) 230Q (_! _ SEND Send send) 122Q "Missing right parenthesis" 31Q (_! _ SEND Send send)) CompilePopStmnt D1 (P 1 stackVar P 0 assnVar) ) ``X`d`YHI (46Q CompilePopTerms) (37Q ruleSetTokens 33Q ruleSetTokens 26Q ruleSetTokens 22Q ruleSetTokens 15Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) NIL CompilePopTerms D1 (P 3 putItemCode P 2 putStackCode P 1 getStackCode P 0 popTemplate I 1 stackVar I 0 assnVar) Ho1A YAg Z@g [IgH XJgH KgH @gH AgH H(104Q DSUBST 74Q DSUBST 64Q DSUBST 54Q DSUBST 43Q SUBST 32Q CompilePutTerm 22Q CompilePutTerm 12Q CompileGetTerm) (100Q ^stackVar 70Q ^assnVar 60Q ^putItemCode 50Q ^putStackCode 37Q ^getStackCode 27Q ^item 17Q ^stack) (3 (PROG (^item ^stack) (* Pop Statement. ^assnVar _- ^stackVar) (SETQ ^stack ^getStackCode) (SETQ ^item (CAR ^stack)) (SETQ ^stack (CDR ^stack)) ^putStackCode ^putItemCode (RETURN ^item))) CompilePropGetTerm D1 (P 0 term1 I 0 term) $@d0@XdodoggH Hdo"Yd!diddgIh @dg"Zd)di$ddgJhg @ h`@oo@ gg@Iddidd gIh@dg&Iddidd gIhg @ h(434Q CompileGetTerm 267Q FlushRule 231Q CompileGetTerm 142Q CompileGetTerm 62Q CompileGetTerm) (422Q :,! 410Q QUOTE 347Q :, 334Q QUOTE 276Q self 273Q GetValue 244Q ruleVars 217Q :,! 206Q QUOTE 150Q :, 127Q QUOTE 54Q GetValue 50Q GetClassValue) (263Q "Illegal to fetch property of this var: " 255Q (ruleNumber ruleLabel ruleObject) 71Q (: ::) 43Q (:: ::!) 26Q (: :! :: ::!)) CompilePropPutTerm D1 (P 0 term1 I 1 assnVal I 0 term) .@d0@XdodoggH Hdo"Yd)di$ddgIhg H A@dg"Zd)di$ddgJhg @ ho@ `o@ gg@Iddidd gIhA@dg&Iddidd gIhg @ h(445Q CompileGetTerm 277Q FlushRule 257Q FlushRule 240Q CompileGetTerm 150Q CompileGetTerm 60Q CompileGetTerm) (433Q :,! 421Q QUOTE 360Q :, 344Q QUOTE 306Q self 303Q PutValue 265Q ruleVars 226Q :,! 215Q QUOTE 157Q :, 136Q :! 125Q QUOTE 52Q PutValue 46Q PutClassValue) (273Q "Illegal to store property of RuleVar:" 253Q "Invalid property access term" 67Q (: ::) 41Q (:: ::!) 26Q (: :! :: ::!)) CompilePushStmnt D1 (P 1 stackVar P 0 assnVal) " ``Y`XIH (37Q CompilePushTerm 31Q CompileExpr) (26Q ruleSetTokens 22Q ruleSetTokens 15Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) NIL CompilePushTerm D1 (P 3 putItemCode P 2 putStackCode P 1 getStackCode P 0 pushTemplate I 1 assnVal I 0 stackVar) 0o1@ Y@g ZIgH XJgH AgH H(54Q DSUBST 44Q DSUBST 33Q SUBST 22Q CompilePutTerm 12Q CompileGetTerm) (50Q ^assnVal 40Q ^putStackCode 27Q ^getStackCode 17Q ^stack) (3 (PROG (^stack ^item) (* Push Statement.) (SETQ ^item ^assnVal) (SETQ ^stack (CONS ^item ^getStackCode)) ^putStackCode (RETURN ^item))) CompilePutTerm D1 (I 1 assnVal I 0 term) @dddo@ l@`@d`g@Ah`+gg@ddidd g@hAh@o@doo@  o@ @`o@ `8`3igg@ddidd g@hAghgg@ddidd g@hAh@ o@ A (417Q CompileCompositePutTerm 412Q FlushRule 231Q FlushRule 212Q FlushRule 201Q LetterP 175Q FlushRule 25Q FlushRule) (363Q QUOTE 333Q self 330Q PutValue 316Q ^auditRecord 306Q QUOTE 256Q self 253Q PutAuditRec 250Q ruleNeedsAuditFlg 242Q ruleRHSFlg 235Q ruleAuditFlg 217Q wsVars 132Q QUOTE 102Q ^task 77Q PutValue 71Q taskVars 57Q SETQ 51Q rsArgs 42Q tempVars) (406Q "Bad Term on left in Assignment Statement" 225Q "Unrecognized IV:" 206Q "Unexpected " 171Q "Unexpected constant on left in Assignment Statement:" 162Q (self ruleApplied) 152Q (ruleNumber ruleLabel ruleObject) 21Q "Unexpected Number on left in Assignment Statement:") CompileQuotedConstant D1 (P 3 doneFlg P 2 qTokens P 1 token P 0 qEndTokens) o1`d`Ydg!diddicdddUgIh0``YdH9LIgooo Jddidd gJhM Nh]N&(154Q FlushRule) (205Q QUOTE 133Q ; 114Q ruleSetTokens 110Q ruleSetTokens 104Q ruleSetTokens 71Q QUOTE 34Q %( 26Q ruleSetTokens 22Q ruleSetTokens 15Q ruleSetTokens 11Q ruleSetTokens) (151Q "in quoted constant" 145Q "semicolon" 141Q "Unexpected" 3 (%) ;)) CompileRHS D1 (P 1 exprCode P 0 token)  i`o`0``gK Lh[L&JY``I`I`I`IYI k ggIgggIh(165Q EQP 161Q FLENGTH 151Q AuditRecordCodeGen 137Q BreakRHSCodeGen 125Q TraceRHSCodeGen 113Q OSSetCode 55Q CompileExpr) (207Q PROGN 204Q ^value 201Q SETQ 174Q ^value 171Q SETQ 145Q ruleNeedsAuditFlg 133Q ruleBreakFlg 121Q ruleTraceFlg 107Q oneShotBangFlg 103Q oneShotFlg 47Q ; 43Q ruleSetTokens 36Q parseErrorFlg 27Q ruleSetTokens 23Q ruleSetTokens 11Q ruleSetTokens 6 ruleRHSFlg) (16Q (THEN Then then ->)) CompileRule D1 (P 1 ruleOldSource P 0 ruleCode I 1 ruleSetSource I 0 self) ' `kk ` `` (44Q CompileRule1 35Q NTH 24Q PRIN1 16Q SPACES) (41Q ruleObject 32Q ruleNumber 27Q rsRuleObjects 21Q ruleNumber 12Q ruleNumber 5 ruleNumber) () CompileRule1 D1 (P 3 ruleCode P 2 ruleForm P 1 firstLastFlg P 0 ruleBndry I 0 specialFlg F 4 firstRules F 5 lastRules) o1`dogo,`gZdg```gIgoH g`dgdgdgKJdghd@ hgihJggh@ ho dgdgdgRJdgghd@ hhgJgggh@ hh|o sdgdg[Jdg`ghd@ hhhBg`h2Jgggh@ hho o` [`g`IdgTKh cgUKh c hKh(703Q \NCONC2 663Q \NCONC2 622Q FlushRule 606Q FlushRule 567Q CompileRHS 564Q CompileLHS 535Q CompileRHS 507Q CompileRHS 504Q CompileLHS 437Q FlushRule 420Q CompileRHS 415Q CompileLHS 370Q CompileRHS 347Q CompileRHS 344Q CompileLHS 273Q FlushRule 256Q CompileRHS 253Q CompileLHS 226Q CompileRHS 207Q CompileRHS 204Q CompileLHS 130Q ScanFor 11Q GetRuleMetaDecls) (672Q L 651Q F 643Q ruleSetTokens 637Q ruleSetTokens 632Q ; 626Q ruleSetTokens 617Q controlType 557Q Augmented 554Q COND 546Q AugmentedOnlyThen 532Q ruleNumber 525Q OnlyThen 476Q COND 473Q ruleNumber 464Q IfThen 453Q WHILENEXT 445Q DONEXT 410Q Augmented 405Q COND 377Q AugmentedOnlyThen 363Q OnlyThen 336Q COND 327Q IfThen 316Q FORALL 310Q WHILEALL 302Q DOALL 246Q Augmented 240Q AugmentedOnlyThen 220Q OnlyThen 173Q IfThen 162Q FOR1 154Q WHILE1 146Q DO1 142Q controlType 135Q IfThen 116Q DOALL 107Q AugmentedOnlyThen 103Q oneShotFlg 77Q ruleTraceFlg 73Q ruleBreakFlg 66Q OnlyThen 61Q OnlyThen 55Q ruleSetTokens 51Q ruleSetTokens 34Q IfThen 30Q ruleSetTokens 14Q ruleSetTokens) ( 614Q "Unrecognized controlType: " 603Q "Unrecognized Rule Syntax" 434Q "Unrecognized Rule Syntax" 270Q "Unrecognized Rule Syntax" 124Q (THEN Then then ->) 43Q (THEN Then then ->) 22Q (IF If if) 3 (;)) CompileRuleList D1 (P 7 ASSUMELISPFLG P 5 lastRules P 4 firstRules P 3 progVars P 2 rules P 1 whileTemplate P 0 codeTemplate I 1 ruleSetSource I 0 self) p`ooo hjh``8`3`.`dg``hNh@A NZ``gdoh X[dgH X`oV`o`o igh ihgg Y`dgdgHI IgH JgH XLLgH MMgH @g` H(422Q CheckVariableNameConflict 417Q PutValue 404Q LSUBST 371Q LSUBST 356Q LSUBST 345Q DSUBST 333Q ForTemplate 304Q CompileLHS 262Q \NCONC2 245Q FlushRule 207Q SUBST 176Q GetProgVars 172Q GetRuleSetTemplate 166Q \NCONC2 133Q \NCONC2 130Q CompileRuleOrLabel 26Q FlushRule) (414Q taskVars 411Q taskVars 400Q ^lastRules 365Q ^firstRules 352Q ^rules 341Q ^whileCondition 323Q FORALL 315Q FOR1 311Q controlType 301Q Special 276Q New 265Q ruleSetTokens 255Q -> 252Q rsWhileCondition 236Q controlType 225Q rsWhileCondition 213Q controlType 203Q ^progVars 152Q WHILE1 147Q controlType 142Q rsRuleAppliedFlg 122Q parseErrorFlg 110Q ruleSetTokens 104Q ruleSetTokens 100Q ruleSetTokens 71Q ; 64Q ruleSetTokens 57Q parseErrorFlg 52Q ruleSetTokens 44Q rsNumRules 41Q ruleNumber 34Q ruleNumber 5 wsClass) ( 242Q ". Assuming T." 233Q "No While Condition specified for " 217Q (WHILE1 WHILEALL WHILENEXT FOR1 FORALL) 161Q (T (* Here if no rules were executed.) (SETQ ^ruleApplied NIL)) 23Q "set yet. " 17Q " workSpace " 13Q "No ") CompileRuleOrLabel D1 (I 1 ruleSetSource I 0 self) 1h`g```@A (56Q CompileRule 51Q FlushComment?) (45Q ruleSetTokens 41Q ruleSetTokens 35Q ruleLabel 31Q ruleSetTokens 25Q ruleSetTokens 21Q ruleSetTokens 13Q : 6 ruleSetTokens 3 ruleLabel) NIL ContainsItem D1 (I 1 expr I 0 item) A@A@A Ab(14Q ContainsItem) NIL () ExprCodeGen D1 (P 4 arg2 P 3 arg1 P 2 operator P 1 unaryOprs P 0 noPops F 5 argStack F 6 oprStack F 7 nextToken F 10Q reducedArg F 11Q prevType) oo2VVc ZddIdHUUc \UUc Jdg'Wg`cgcho Cgo 4JdggKLh ggKLhJdggKhggKLhJdggKLhggKLhJdggKLhggKLhJdggKLhggKLh}JdggKLhjggKLhZJdggKLhGggKLh7JdggKLh$ggKhJgKL oJ cdUc h(633Q FlushRule 622Q CompilePutTerm 147Q FlushRule 130Q FlushRule) (613Q _ 601Q NOT 574Q ~ 561Q FMEMB 553Q << 536Q NEQ 531Q ~= 516Q EQUALS 510Q == 473Q EQ 466Q = 453Q GEQ 445Q >= 430Q GREATERP 423Q > 407Q LEQ 401Q <= 363Q LESSP 356Q < 342Q QUOTIENT 334Q / 316Q TIMES 311Q * 275Q MINUSMINUS 267Q -- 251Q PLUSPLUS 244Q ++ 232Q MINUS 224Q -1- 206Q DIFFERENCE 201Q - 165Q PLUS 157Q + 136Q %] 115Q operand 106Q ruleSetTokens 102Q ruleSetTokens 74Q %] 63Q %[) (627Q "Unrecognized operator " 144Q "Bracket error in expression" 125Q "Bracket error in expression" 7 (-1- ~) 3 (%[ %])) FPrecedence D1 (I 0 operator) @dgmgl@dglg@dgg@dgdgldggk@dgg@dgg@dgg@dgdgldggmo@ (240Q FlushRule) (223Q endExpr 215Q ~ 204Q _ 175Q << 165Q ~= 157Q == 147Q = 141Q >= 131Q > 123Q <= 112Q < 104Q / 73Q * 64Q -- 54Q ++ 46Q -1- 36Q - 26Q + 14Q %] 4 %[) (234Q "Unrecognized operator") ForTemplate D1 (P 0 wt I 1 whileTemplate I 0 codeTemplate) IgggA Aggh Ah`ggghggH g@ (106Q DSUBST 77Q SUBST 32Q \APPEND2 14Q ContainsItem) (102Q ^forLoop 73Q ruleSet 70Q ^rules 61Q ^rules 56Q COND 51Q FOR1 46Q controlType 24Q ruleSet 21Q DO 10Q ruleSet 5 ^value 2 SETQ) () GPrecedence D1 (I 0 operator) @dglgm@dglg@dgg@dgdgldggk@dgg@dgg@dgg@dgg@dggmo@ (236Q FlushRule) (221Q endExpr 213Q ~ 203Q _ 175Q ~= 165Q << 157Q == 147Q = 141Q >= 131Q > 123Q <= 112Q < 104Q / 73Q * 64Q -- 54Q ++ 46Q -1- 36Q - 26Q + 14Q %] 4 %[) (232Q "Unrecognized operator") GetRuleStrings D1 (P 2 ruleStrings P 1 stopPos P 0 startPos I 0 sourceRules) 00jY0Ikظg@H Y@HI L Mh\M&K(34Q SUBSTRING 23Q STRPOS) (16Q ;) NIL OSSetCode D1 NIL !`gg`ihg`ihNIL (31Q oneShotFlg 26Q SETQ 14Q oneShotFlg 11Q ^task 6 _@ 2 rsTaskFlg) NIL OSTestCode D1 NIL $`ggg`hhg`hNIL (36Q oneShotFlg 33Q NOT 20Q oneShotFlg 15Q ^task 12Q @ 7 NOT 2 rsTaskFlg) NIL TraceLHSCodeGen D1 (P 7 var P 3 code P 2 ruleCode P 1 traceCode P 0 varCode) @`Bg0`0doO o O h\ML^]Ngg` hghZg`ddidd g`h`ddidd g`h`hYh[HJgoIKKK ]Lo(314Q LAST 123Q UID 54Q CompileGetTerm 47Q CONCAT 40Q UnParseTerm) (265Q PROGN 244Q ruleNumber 236Q ruleLabel 233Q QUOTE 204Q ruleLabel 176Q rsName 173Q QUOTE 144Q rsName 141Q TraceLHS 131Q Print 120Q ruleObject 115Q GetObjFromUID 112Q _ 20Q debugVars 12Q WRITETTY 5 debugVars) (271Q (* Rule Tracing Code) 44Q "=" 33Q " ") TraceRHSCodeGen D1 (P 7 var P 3 code P 2 ruleCode P 1 traceCode P 0 varCode) @`Bg0`0doO o O h\ML^]Ngg` hghZg`ddidd g`h`ddidd g`h`hYh[HJgoIKKK ]Lo(314Q LAST 123Q UID 54Q CompileGetTerm 47Q CONCAT 40Q UnParseTerm) (265Q PROGN 244Q ruleNumber 236Q ruleLabel 233Q QUOTE 204Q ruleLabel 176Q rsName 173Q QUOTE 144Q rsName 141Q TraceRHS 131Q Print 120Q ruleObject 115Q GetObjFromUID 112Q _ 20Q debugVars 12Q WRITETTY 5 debugVars) (271Q (* Rule Tracing Code) 44Q "=" 33Q " ") (PRETTYCOMPRINT LOOPSRULESCCOMS) (RPAQQ LOOPSRULESCCOMS ((* Copyright (c) 1982 by Xerox Corporation) (* Written in August 1982 by Mark Stefik, Alan Bell, and Danny Bobrow) (* Fns for compiling LOOPS RuleSets.) (FNS * RULECOMPILEFNS) ( VARS (ASSUMELISPFLG)))) (RPAQQ RULECOMPILEFNS (AuditRecordCodeGen BreakLHSCodeGen BreakRHSCodeGen CheckVariableNameConflict CompileAssnStmnt CompileComment CompileCompositeGetTerm CompileCompositePutTerm CompileExpr CompileGetTerm CompileLHS CompileOpPrecedenceExpr CompileParenExpr CompilePopStmnt CompilePopTerms CompilePropGetTerm CompilePropPutTerm CompilePushStmnt CompilePushTerm CompilePutTerm CompileQuotedConstant CompileRHS CompileRule CompileRule1 CompileRuleList CompileRuleOrLabel ContainsItem ExprCodeGen FPrecedence ForTemplate GPrecedence GetRuleStrings OSSetCode OSTestCode TraceLHSCodeGen TraceRHSCodeGen)) (RPAQQ ASSUMELISPFLG NIL) NIL