(FILECREATED "23-Apr-84 19:50:36" ("compiled on " {PHYLUM}OPS5S1.;4) "16-Apr-84 10:34:21" recompiled changes: RUN CHECK-LIMITS ACCUM-STATS CHECK-TAB-INDEX CHECK-PRINT-CONTROL CHECK-SUBSTR-INDEX CHECK-TERM CHECK-SUBSTR CHECK-0-ARGS CHECK-RJUST CHECK-TABTO CHECK-ACCEPT CHECK-LITVAL CHECK-RHS-VALUE CHECK-RHS-CE-VAR CHECK-BIND CHECK-CBIND CHECK-BUILD-COLLECT WRITE-ELMS BACK RECORD-INDEX-PLUS PPONLYVAL PPATTVAL IDENT PPWM TABTO RJUST LITVAL ARI-UNIT ARI SUBSTR ACCEPTLINE ACCEPT DO-TABTO DO-RJUST WRITE CBIND BIND $PARAMETER $VALUE $TAB $CHANGE BUILD-COLLECT GET-NUM-CE ADD-TO-WM CONFLICT-SET CONFLICT-SET-COMPARE CONFLICT-RESOLUTION DSORT NOT-RIGHT NOT-LEFT TNEB TEQB TNES TEQS TNEN TEQN &ANY ENCODE-PAIR CMP-CEVAR FIELD-NAME CMP-CE CMP-P MAKE-NUMS NOTE-USER-VECTOR-ASSIGNS I-G-V GELM in WORK dated "23-Apr-84 14:14:37") (FILECREATED "23-Apr-84 19:49:16" {PHYLUM}OPS5S1.;4 132118 changes to: (VARS OPS5S1COMS) ( MACROS // + - < >) (FNS ARI RUN CHECK-LIMITS ACCUM-STATS CHECK-TAB-INDEX CHECK-PRINT-CONTROL CHECK-SUBSTR-INDEX CHECK-RHS-CE-VAR CHECK-BIND BACK RECORD-INDEX-PLUS PPONLYVAL PPATTVAL IDENT PPWM TABTO RJUST SUBSTR ACCEPTLINE ACCEPT DO-TABTO DO-RJUST WRITE BIND $PARAMETER $VALUE $TAB GET-NUM-CE ADD-TO-WM CONFLICT-SET CONFLICT-SET-COMPARE CONFLICT-RESOLUTION DSORT NOT-RIGHT TNEB TEQB TNES TEQS TNEN TEQN &ANY ENCODE-PAIR MAKE-NUMS NOTE-USER-VECTOR-ASSIGNS I-G-V GELM NOT-LEFT CMP-CE CHECK-ACCEPT LITVAL CBIND CHECK-SUBSTR CHECK-0-ARGS CHECK-RJUST CHECK-TABTO CHECK-LITVAL CHECK-CBIND FIELD-NAME CMP-CEVAR CHECK-TERM CHECK-RHS-VALUE CHECK-BUILD-COLLECT WRITE-ELMS ARI-UNIT $CHANGE BUILD-COLLECT CMP-P) previous date: "27-Feb-84 19:25:35" {PHYLUM}OPS5S1.;3) BROKEN D1 (I 0 RULE) @` (6 MEMQ) (3 *BRKPTS*) () MEMQ D1 (L (1 Y 0 X)) Ah@AAAbNIL NIL () MYDOLOOP D1 (P 5 TMP P 4 ACTIONS P 3 CONDITION P 2 REP P 1 SP P 0 KKK I 0 N) S`@Xd H @Y@Z@[@\HI K Ld HJ HM h(117Q SET 107Q SET 104Q EVAL 72Q EVAL 61Q EVAL 55Q SET 52Q EVAL 17Q EVAL 11Q BOUNDP) NIL () REMATM D1 (I 1 LIST I 0 ATM) AlA@AAbA@A (32Q REMATM) NIL () PBREAK2 D1 (I 0 RULE) <@ o@ @g o@ @` @` @`(55Q REMATM 45Q MEMQ 35Q WARN 24Q GET 14Q WARN 3 SYMBOLP) (71Q *BRKPTS* 65Q *BRKPTS* 60Q *BRKPTS* 52Q *BRKPTS* 42Q *BRKPTS* 21Q TOPNODE) ( 31Q "NOT A PRODUCTION" 10Q "ILLEGAL NAME") SIMPLEOPSTEST D1 NIL do o o o o o o o o o o o o o (141Q MAKE 132Q MAKE 123Q MAKE 114Q MAKE 105Q MAKE 76Q MAKE 67Q P 60Q P 51Q P 42Q P 33Q P 24Q P 15Q P 6 LITERALIZE) NIL ( 136Q (GOAL ^ V1 12Q ^ V2 12Q) 127Q (GOAL ^ V1 0 ^ V2 0) 120Q (GOAL ^ V1 C1 ^ V2 C2) 111Q (GOAL B1 B2 B3) 102Q (GOAL ^ V1 A1 ^ V2 A2 ^ V3 A3) 73Q (GOAL) 64Q (P17 (GOAL ^ V1 { << A1 B1 >> }) --> (MODIFY 1 ^ V1 MODIFIED)) 55Q (P16 (GOAL) --> (REMOVEWM 1)) 46Q (P15 (GOAL ^ V1 { <> 0 }) --> (WRITE )) 37Q (P14 (GOAL ^ V1 { << A1 B1 >> }) --> (WRITE )) 30Q (P13 (GOAL ^ V1 << A1 B1 >>) --> (WRITE A1 B1)) 21Q (P12 (GOAL ^ V1 { <> A1 } ^ V2 { <> A2 }) --> (WRITE )) 12Q (P11 (GOAL) --> (WRITE P1 GOAL)) 3 (GOAL V1 V2 V3 V4)) SYMBOLP D1 (L (0 A)) @lNIL NIL () GET D1 (L (1 Y 0 X)) @ANIL NIL () GETCHAR D1 (I 1 N I 0 X) @A (4 NTHCHAR) NIL () PBREAK D1 (I 0 Z) @dl`d h(23Q PBREAK2 12Q TERPRI) (15Q *BRKPTS*) () EXTERNALP D1 (I 0 X) @ @g o@ h(24Q WARN 13Q GET 3 SYMBOLP) (10Q EXTERNAL-ROUTINE) ( 20Q "NOT A LEGAL FUNCTION NAME") EXTERNAL3 D1 (I 0 X) @ @gi o@ (25Q %%ERROR 14Q PUTPROP 3 SYMBOLP) (10Q EXTERNAL-ROUTINE) ( 21Q "NOT A LEGAL FUNCTION NAME") EXTERNAL2 D1 (I 0 Z) @d h(6 EXTERNAL3) NIL () EXTERNALA0001 D1 (P 0 \CATCH.TAG.!ERROR! F 1 Z) fQ (7 EXTERNAL2) NIL () EXTERNAL D1 (I 0 Z) jgNIL (3 EXTERNALA0001) () WATCH D1 (L (0 Z)) v@do hdjo hik@do idlo ido@dl`@l`@lg(103Q EQUAL 57Q EQUAL 33Q EQUAL 10Q EQUAL) (163Q WHAT? 147Q *WTRACE* 134Q *PTRACE* 114Q *PTRACE* 110Q *WTRACE* 71Q *PTRACE* 65Q *WTRACE* 44Q *PTRACE* 40Q *WTRACE* 22Q *PTRACE* 16Q *WTRACE*) ( 120Q "2 -- CONFLICT SET TRACE NOT SUPPORTED" 100Q (3) 54Q (2) 30Q (1) 5 (0)) CS D1 (I 0 Z) @lg(10Q CONFLICT-SET) (14Q WHAT?) () STRATEGY D1 (L (0 Z)) 1@dl`o o@o og(42Q EQUAL 21Q EQUAL) (56Q WHAT? 52Q *STRATEGY* 31Q *STRATEGY* 11Q *STRATEGY*) ( 47Q (MEA) 37Q (MEA) 26Q (LEX) 16Q (LEX)) RUN D1 (I 0 Z) <@dloh l@dd@j@h g(65Q DO-CONTINUE 22Q DO-CONTINUE) (71Q WHAT? 61Q *REMAINING-CYCLES* 16Q *REMAINING-CYCLES*) ( 13Q 3641100Q) EXCISE D1 (I 0 Z) @d h(6 EXCISE-P) NIL () TOP-LEVEL-REMOVE D1 (I 0 Z) @o hd @ (31Q PROCESS-CHANGES 26Q GET-WM 21Q PROCESS-CHANGES 16Q GET-WM 7 EQUAL) NIL ( 4 (*)) CHECK-LIMITS D1 NIL Y` `%o`g`h i``!o`g`h i(122Q PRINTLINEC 75Q TERPRI 72Q TERPRI 50Q PRINTLINEC 22Q TERPRI 16Q TERPRI 5 LENGTH) (126Q *HALT-FLAG* 112Q *P-NAME* 107Q AFTER 104Q *LIMIT-TOKEN* 64Q *LIMIT-TOKEN* 61Q *CURRENT-TOKEN* 55Q *HALT-FLAG* 40Q *P-NAME* 35Q AFTER 32Q *LIMIT-CS* 10Q *LIMIT-CS* 2 *CONFLICT-SET*) ( 101Q "TOKEN MEMORY SIZE EXCEEDED THE LIMIT OF" 27Q "CONFLICT SET SIZE EXCEEDED THE LIMIT OF") PM-SIZE D1 NIL &`g`g`ghh (43Q TERPRI 40Q PRINTLINEC 2 TERPRI) (24Q NODES 21Q *VIRTUAL-CNT* 16Q // 13Q *REAL-CNT* 10Q PRODUCTIONS 5 *PCOUNT*) () PRINT-TIMES D1 (P 1 AC P 0 CC I 0 MESS)  `@` oX` oY@ `g`gghh ` H gggg`ghh ` H gggg`ghh ` H gggg`ghh h(321Q TERPRI 316Q PRINTLINEC 257Q ROUND 252Q FLOAT 244Q TERPRI 241Q PRINTLINEC 202Q ROUND 175Q FLOAT 167Q TERPRI 164Q PRINTLINEC 125Q ROUND 120Q FLOAT 112Q TERPRI 107Q PRINTLINEC 55Q PM-SIZE 52Q PRIN1 46Q TERPRI 35Q FLOAT 21Q FLOAT 11Q TERPRI) (301Q MAXIMUM 276Q *MAX-TOKEN* 273Q SIZE 270Q MEMORY 265Q TOKEN 262Q MEAN 247Q *TOTAL-TOKEN* 224Q MAXIMUM 221Q *MAX-CS* 216Q SIZE 213Q SET 210Q CONFLICT 205Q MEAN 172Q *TOTAL-CS* 147Q MAXIMUM 144Q *MAX-WM* 141Q SIZE 136Q MEMORY 133Q WORKING 130Q MEAN 115Q *TOTAL-WM* 74Q ACTIONS 71Q RHS 66Q *ACTION-COUNT* 63Q FIRINGS 60Q *CYCLE-COUNT* 32Q *ACTION-COUNT* 16Q *CYCLE-COUNT* 5 *BREAK-FLAG*) ( 41Q 1.0E-20 25Q 1.0E-20) ACCUM-STATS D1 NIL <`k``````````NIL (71Q *MAX-WM* 66Q *CURRENT-WM* 60Q *MAX-WM* 55Q *CURRENT-WM* 52Q *TOTAL-WM* 46Q *CURRENT-WM* 43Q *TOTAL-WM* 37Q *MAX-TOKEN* 34Q *CURRENT-TOKEN* 27Q *MAX-TOKEN* 24Q *CURRENT-TOKEN* 21Q *TOTAL-TOKEN* 15Q *CURRENT-TOKEN* 12Q *TOTAL-TOKEN* 7 *CYCLE-COUNT* 2 *CYCLE-COUNT*) () DO-CONTINUE D1 (I 0 WMI) `o @  (31Q PRINT-TIMES 26Q MAIN 23Q PROCESS-CHANGES 16Q PRIN1 6 TERPRI) (2 *CRITICAL*) ( 13Q "WARNING: NETWORK MAY BE INCONSISTENT") MAIN D1 (P 1 R P 0 INSTANCE) t hg`o/`jgi`g`kX ohIHH H i(151Q BROKEN 143Q CHECK-LIMITS 137Q EVAL-RHS 127Q ACCUM-STATS 101Q CONFLICT-RESOLUTION) (157Q *BREAK-FLAG* 123Q *PHASE* 115Q *P-NAME* 75Q *REMAINING-CYCLES* 70Q *REMAINING-CYCLES* 63Q ***BREAK*** 57Q *BREAK-FLAG* 51Q *BREAK-FLAG* 44Q ***BREAK*** 36Q *REMAINING-CYCLES* 24Q *HALT-FLAG* 20Q *PHASE* 15Q CONFLICT-RESOLUTION 11Q *BREAK-FLAG* 6 *HALT-FLAG*) ( 110Q (END NO PRODUCTION TRUE) 31Q "END -- EXPLICIT HALT") PROCESS-CHANGES D1 (P 0 X I 1 DELS I 0 ADDS) 0AdlAbH @bH @dlh(43Q ADD-TO-WM 25Q REMOVE-FROM-WM) NIL () CE-BOUND? D1 (I 0 CE-VAR) @` @ (14Q CE-VAR-DOPE 6 MEMQ) (3 *RHS-BOUND-CE-VARS*) () NNREV D1 (L (1 Y 0 X)) @d@dA@dAbbNIL NIL () NOTE-CE-VARIABLE D1 (L (0 CE-VAR)) @`NIL (7 *RHS-BOUND-CE-VARS* 3 *RHS-BOUND-CE-VARS*) () NREVERSE D1 (I 0 X) @d (6 NNREV) NIL () NULLA D1 (I 0 X) @hl@@ i(22Q NULLA) NIL () BOUND? D1 (I 0 VAR) @` @ (14Q VAR-DOPE 6 MEMQ) (3 *RHS-BOUND-VARS*) () NOTE-VARIABLE D1 (L (0 VAR)) @`NIL (7 *RHS-BOUND-VARS* 3 *RHS-BOUND-VARS*) () CHECK-TAB-INDEX D1 (P 0 V I 0 X) 5@ @@ XdddokHHl o@ h(61Q WARN 15Q $LITBIND 6 BOUND?) NIL ( 55Q "INDEX OUT OF BOUNDS AFTER ^" 36Q "UNBOUND SYMBOL OCCURS AFTER ^") CHECK-PRINT-CONTROL D1 (I 0 X) (@ @@ddk@@l o@ h(44Q WARN 3 BOUND?) NIL ( 40Q "ILLEGAL VALUE FOR PRINTER CONTROL") CHECK-SUBSTR-INDEX D1 (P 0 V I 0 X) 5@ @@ XdddokHHl o@ h(61Q WARN 15Q $LITBIND 6 BOUND?) NIL ( 55Q "INDEX OUT OF BOUNDS IN TAB" 36Q "UNBOUND SYMBOL USED AS INDEX IN SUBSTR") CHECK-LAST-SUBSTR-INDEX D1 (I 0 X) @g@ (12Q CHECK-SUBSTR-INDEX) (3 INF) () CHECK-TERM D1 (I 0 X) @d  (12Q CHECK-RHS-ATOMIC 6 CHECK-ARITHMETIC) NIL () CHECK-ARITHMETIC D1 (I 0 L) @@dlo@ l@ @o o@ @ @b(65Q CHECK-TERM 57Q WARN 46Q MEMQ 33Q CHECK-TERM 17Q WARN) NIL ( 53Q "UNKNOWN OPERATOR" 43Q (+ - * // \\) 13Q "SYNTAX ERROR IN ARITHMETIC EXPRESSION") CHECK-COMPUTE D1 (I 0 X) @ (4 CHECK-ARITHMETIC) NIL () CHECK-SUBSTR D1 (I 0 X) (@ lo@ @ @ @ (45Q CHECK-LAST-SUBSTR-INDEX 35Q CHECK-SUBSTR-INDEX 26Q CHECK-RHS-CE-VAR 17Q WARN 3 LENGTH) NIL ( 13Q "WRONG NUMBER OF ARGUMENTS") CHECK-0-ARGS D1 (I 0 X) @ k o@ (17Q WARN 3 LENGTH) NIL ( 13Q "SHOULD NOT HAVE ARGUMENTS") CHECK-RJUST D1 (I 0 X) @ lo@ @ (26Q CHECK-PRINT-CONTROL 17Q WARN 3 LENGTH) NIL ( 13Q "WRONG NUMBER OF ARGUMENTS") CHECK-TABTO D1 (I 0 X) @ lo@ @ (26Q CHECK-PRINT-CONTROL 17Q WARN 3 LENGTH) NIL ( 13Q "WRONG NUMBER OF ARGUMENTS") CHECK-GENATOM D1 (I 0 X) @ (3 CHECK-0-ARGS) NIL () CHECK-CRLF D1 (I 0 X) @ (3 CHECK-0-ARGS) NIL () CHECK-ACCEPTLINE D1 (I 0 X) @d h(6 CHECK-RHS-ATOMIC) NIL () CHECK-ACCEPT D1 (I 0 X) @ dkhl@ o@ (34Q WARN 23Q CHECK-RHS-ATOMIC 3 LENGTH) NIL ( 30Q "TOO MANY ARGUMENTS") CHECK-LITVAL D1 (I 0 X) @ lo@ @ (26Q CHECK-RHS-ATOMIC 17Q WARN 3 LENGTH) NIL ( 13Q "WRONG NUMBER OF ARGUMENTS") CHECK-RHS-FUNCTION D1 (P 0 A I 0 X) @Xddg@ }g@ rHdg@ dg@ YHdg@ Kg@ @Hdg@ 2g@ 'Hdg@ g@ H oH h(216Q WARN 205Q EXTERNALP 200Q CHECK-RJUST 165Q CHECK-TABTO 147Q CHECK-LITVAL 134Q CHECK-GENATOM 116Q CHECK-CRLF 103Q CHECK-ACCEPTLINE 65Q CHECK-ACCEPT 52Q CHECK-SUBSTR 34Q CHECK-COMPUTE 21Q CHECK-COMPUTE) (172Q RJUST 156Q TABTO 141Q LITVAL 125Q GENATOM 110Q CRLF 74Q ACCEPTLINE 57Q ACCEPT 43Q SUBSTR 26Q ARITH 12Q COMPUTE) ( 212Q "RHS FUNCTION NOT DECLARED EXTERNAL") CHECK-RHS-ATOMIC D1 (I 0 X) @ @ h o@ (25Q WARN 11Q BOUND? 3 VARIABLEP) NIL ( 21Q "UNBOUND VARIABLE") CHECK-RHS-VALUE D1 (I 0 X) @d  (12Q CHECK-RHS-ATOMIC 6 CHECK-RHS-FUNCTION) NIL () CHECK-RHS-CE-VAR D1 (I 0 V) <@ddd o@ @ddk@@` o@ (71Q WARN 30Q WARN 17Q CE-BOUND?) (56Q *CE-COUNT*) ( 65Q "NUMERIC ELEMENT DESIGNATOR OUT OF BOUNDS" 24Q "UNBOUND ELEMENT VARIABLE") CHECK-CHANGE& D1 (P 1 TAB-FLAG P 0 R I 0 Z) O hY@dlh@bHdgIo@ i@ @bg h@b¹H (113Q CHECK-RHS-VALUE 61Q CHECK-TAB-INDEX 51Q WARN) (73Q // 32Q ^) ( 44Q "NO VALUE BEFORE THIS TAB") CHECK-BIND D1 (P 0 V I 0 Z) 2@ ko@ @Xd o@ H @ h(56Q CHECK-CHANGE& 50Q NOTE-VARIABLE 43Q WARN 32Q VARIABLEP 21Q WARN 6 LENGTH) NIL ( 37Q "TAKES VARIABLE AS ARGUMENT" 15Q "NEEDS ARGUMENTS") CHECK-CBIND D1 (P 0 V I 0 Z) -@ lo@ @Xd o@ H h(51Q NOTE-CE-VARIABLE 44Q WARN 33Q VARIABLEP 22Q WARN 6 LENGTH) NIL ( 40Q "TAKES VARIABLE AS ARGUMENT" 16Q "TAKES ONLY ONE ARGUMENT") CHECK-HALT D1 (I 0 Z) @h o@ (15Q WARN) NIL ( 11Q "DOES NOT TAKE ARGUMENTS") CHECK-CALL D1 (P 0 F I 0 Z) H@do@ @Xd o@ H oH H oH @ h(104Q CHECK-CHANGE& 75Q WARN 64Q EXTERNALP 57Q WARN 46Q SYMBOLP 41Q WARN 30Q VARIABLEP 17Q WARN) NIL ( 71Q "FUNCTION NAMED NOT DECLARED EXTERNAL" 53Q "FUNCTION NAME MUST BE A SYMBOLIC ATOM" 35Q "FUNCTION NAME MUST BE A CONSTANT" 13Q "NEEDS ARGUMENTS") CHECK-WRITE D1 (I 0 Z) @do@ @ (22Q CHECK-CHANGE& 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-MODIFY D1 (I 0 Z) +@do@ @ @do@ @ (50Q CHECK-CHANGE& 41Q WARN 23Q CHECK-RHS-CE-VAR 14Q WARN) NIL ( 35Q "NO CHANGES TO MAKE" 10Q "NEEDS ARGUMENTS") CHECK-DEFAULT D1 (I 0 Z) @do@ @ (22Q CHECK-CHANGE& 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-CLOSEFILE D1 (I 0 Z) @do@ @ (22Q CHECK-CHANGE& 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-OPENFILE D1 (I 0 Z) @do@ @ (22Q CHECK-CHANGE& 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-MAKE D1 (I 0 Z) @do@ @ (22Q CHECK-CHANGE& 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-REMOVE D1 (I 0 Z) @do@ @d h(25Q CHECK-RHS-CE-VAR 15Q WARN) NIL ( 11Q "NEEDS ARGUMENTS") CHECK-BUILD-COLLECT D1 (P 0 R I 0 ARGS) 7@d@bHd g@ oH @ @b(56Q CHECK-RHS-VALUE 50Q WARN 24Q CHECK-BUILD-COLLECT) (32Q \\) ( 44Q "NOTHING TO EVALUATE") CHECK-BUILD D1 (I 0 Z) @do@ @ (22Q CHECK-BUILD-COLLECT 14Q WARN) NIL ( 10Q "NEEDS ARGUMENTS") CHECK-ACTION D1 (P 0 A I 0 X) @dlo@ hXddg@ g@ Hdg@ xg@ mHdg@ _g@ THdg@ Fg@ ;Hdg@ -g@ "Hdg@ g@ oH h(270Q WARN 257Q CHECK-BUILD 244Q CHECK-DEFAULT 226Q CHECK-CLOSEFILE 213Q CHECK-OPENFILE 175Q CHECK-HALT 162Q CHECK-CALL 144Q CHECK-WRITE 131Q CHECK-REMOVE 113Q CHECK-MODIFY 100Q CHECK-MAKE 61Q CHECK-CBIND 45Q CHECK-BIND 22Q WARN) (251Q BUILD 235Q DEFAULT 220Q CLOSEFILE 204Q OPENFILE 167Q HALT 153Q CALL 136Q WRITE 122Q REMOVEWM 105Q MODIFY 71Q MAKE 53Q CBIND 36Q BIND 30Q *ACTION-TYPE*) ( 264Q "UNDEFINED RHS ACTION" 16Q "ATOMIC ACTION") CHECK-RHS D1 (I 0 RHS) @d h(6 CHECK-ACTION) NIL () FIND-RIGHT-MEM D1 (I 0 NODE) @ (7 MEMORY-PART) NIL () FIND-LEFT-MEM D1 (I 0 NODE) @dg (15Q MEMORY-PART) (5 &AND) () WRITE-ELMS2 D1 (I 0 X) o @ (15Q PRIN1 12Q CREATION-TIME 6 PRIN1) NIL ( 3 " ") WRITE-ELMS D1 (I 0 WME-OR-COUNT) @@d h(15Q WRITE-ELMS2 6 TERPRI) NIL () MATCHES3 D1 (I 2 PART I 1 CE I 0 NODES) l@io B o @ d o Ah o @ d @AkABbbb(111Q WRITE-ELMS 103Q FIND-RIGHT-MEM 76Q PRIN1 67Q PRIN1 61Q PRIN1 52Q TERPRI 42Q WRITE-ELMS 34Q FIND-LEFT-MEM 27Q PRIN1 20Q PRIN1 14Q PRIN1 5 TERPRI) NIL ( 73Q " ** " 56Q "** MATCHES FOR " 24Q " ** " 11Q "** MATCHES FOR ") MATCHES2 D1 (I 0 P) $@l@ @g lkh h(37Q MATCHES3 27Q GET 20Q PRIN1 14Q TERPRI 11Q TERPRI) (24Q BACKPOINTERS) () MATCHES D1 (I 0 RULE-LIST) @d (16Q TERPRI 6 MATCHES2) NIL () BACK-PRINT D1 (P 0 PORT I 0 X) Xd @H h(17Q PRINT 12Q TERPRI 5 TRACE-FILE) NIL () STILL-PRESENT D1 (I 0 DATA) @li@ @b(14Q CREATION-TIME) NIL () UNDO-RECORD D1 (P 4 RATE P 3 B P 2 A P 1 ACT P 0 SAVE I 0 R) P`h`g@@h @b@dlHh@@@b`gIJh IdgKJ gK IdgJK`g/K )JK` Jg JK JKL loIJh ](312Q WARN 273Q INSERTCS 264Q REMOVECS 256Q RATING-PART 253Q GET 240Q DREMOVE 225Q STILL-PRESENT 165Q REMOVE-FROM-WM 152Q ADD-TO-WM 134Q BACK-PRINT 41Q BACK-PRINT) (250Q TOPNODE 243Q *REFRACTS* 235Q *REFRACTS* 216Q =>REFRACT 211Q *REFRACTS* 205Q *REFRACTS* 174Q <=REFRACT 157Q =>WM 142Q <=WM 123Q UNDO: 117Q *WTRACE* 71Q *REFRACTS* 64Q *RECORDING* 25Q UNDO: 21Q *PTRACE* 15Q *RECORDING* 12Q *REFRACTS* 5 *RECORDING*) ( 302Q "BACK: CANNOT UNDO ACTION") BACK D1 (P 0 R I 0 K) 8k@h``k(Xo``kh*m H @kb(55Q UNDO-RECORD 50Q RECORD-INDEX-PLUS) (36Q *RECORD-INDEX* 33Q *RECORD-ARRAY* 16Q *RECORD-INDEX* 13Q *RECORD-ARRAY*) ( 27Q "NOTHING MORE STORED") GETVECTOR D1 (L (1 N 0 H)) @Ak(NIL NIL () PUTVECTOR D1 (L (2 V 1 N 0 H)) @AkB*NIL NIL () REFRACTED D1 (P 0 Z I 1 DATA I 0 RULE) `h@AXd` (23Q MEMBER) (20Q *REFRACTS* 5 *REFRACTS*) () RECORD-REFRACT D1 (L (1 DATA 0 RULE)) `g@A`NIL (22Q *RECORD* 14Q *RECORD* 7 <=REFRACT 2 *RECORDING*) () RECORD-CHANGE D1 (L (2 ELM 1 TIME 0 DIRECT)) `@AB`NIL (20Q *RECORD* 12Q *RECORD* 2 *RECORDING*) () END-RECORD D1 NIL -`(```k ``k`*hd(26Q RECORD-INDEX-PLUS) (52Q *RECORDING* 46Q *RECORD* 41Q *RECORD* 34Q *RECORD-INDEX* 31Q *RECORD-ARRAY* 22Q *RECORD* 15Q *RECORD* 12Q *P-NAME* 7 *CYCLE-COUNT* 2 *RECORDING*) () BEGIN-RECORD D1 (L (1 DATA 0 P)) ig@AhNIL (17Q *RECORD* 6 =>REFRACT 3 *RECORDING*) () INITIALIZE-RECORD D1 NIL jhl`kh*NIL (17Q *RECORD-ARRAY* 14Q *MAX-RECORD-INDEX* 7 *RECORDING* 3 *RECORD-INDEX*) () RECORD-INDEX-PLUS D1 (L (0 K)) $@`j````jNIL (41Q *RECORD-INDEX* 32Q *MAX-RECORD-INDEX* 27Q *RECORD-INDEX* 23Q *RECORD-INDEX* 20Q *MAX-RECORD-INDEX* 13Q *RECORD-INDEX* 7 *RECORD-INDEX* 3 *RECORD-INDEX*) () GETUPTO D1 (P 0 V I 0 END) &`dlhX`Hd@h@ (42Q GETUPTO) (26Q *PPLINE* 22Q *PPLINE* 5 *PPLINE*) () GETVAL D1 (P 1 V1 P 0 RES) Z `Y`Io IIdgg gIg Idg`h`hXH(70Q GETUPTO 52Q GETUPTO 33Q GETVAL 26Q MEMQ) (121Q *PPLINE* 115Q *PPLINE* 105Q *PPLINE* 77Q // 65Q >> 57Q << 47Q } 42Q { 16Q *PPLINE* 12Q *PPLINE* 5 *PPLINE*) ( 23Q (<> = < <+ => > <=>)) PPONLYVAL D1 (P 1 NEEDSPACE P 0 VAL) G hi H lLho HlhIo iH HX(77Q PRIN1 67Q PRIN1 45Q PRIN1 35Q TERPRI 23Q LENGTH 20Q UNPACK 14Q NWRITN 5 GETVAL) NIL ( 64Q " " 42Q " ") PPATTVAL D1 (P 2 Z P 1 VAL P 0 ATT) a `X`Yi H I lLoi g H Idoi J h(130Q PRIN1 123Q PRIN1 103Q PRIN1 77Q PRIN1 70Q PRIN1 57Q TERPRI 46Q LENGTH 43Q UNPACK 37Q LENGTH 34Q UNPACK 30Q NWRITN 23Q GETVAL) (74Q ^ 20Q *PPLINE* 13Q *PPLINE* 5 *PPLINE*) ( 117Q " " 64Q " ") PPLINE2 D1 (P 0 NEEDSPACE) /h`lhHoi `gi(51Q PPONLYVAL 45Q PPATTVAL 30Q PRIN1) (40Q ^ 34Q *PPLINE* 7 *PPLINE*) ( 24Q " ") PPLINE D1 (I 0 LINE) $@l@o @o h(40Q PRIN1 30Q PPLINE2 17Q PRIN1) (24Q *PPLINE*) ( 35Q " )" 14Q "(") PPRULE D1 (P 2 LAB P 1 NEXT P 0 MATRIX I 0 NAME) 0@ h@g Xoi @i Hdlo hHhIdgo HHX\go NIdg"Hlo HHHX'Igoi HHHXoi I Jioi J gP(315Q PRIN1 310Q PRIN1 272Q PPLINE 265Q PRIN1 237Q PRIN1 201Q PRIN1 147Q PRIN1 122Q PRIN1 101Q TERPRI 65Q PRIN1 45Q PRIN1 37Q PRIN1 26Q TERPRI 20Q GET 6 SYMBOLP) (321Q } 224Q { 156Q { 136Q --> 107Q - 15Q PRODUCTION) ( 304Q " " 261Q " " 233Q " {" 176Q " {" 144Q " " 117Q " - " 62Q ")" 33Q "(P ") PM D1 (I 0 Z) @d h(16Q TERPRI 6 PPRULE) NIL () PPVAL D1 (I 3 PORT I 2 LPOS I 1 ATT I 0 VAL) 'ABk gC AC oC @C (44Q PRIN1 36Q PRIN1 25Q PRIN1 17Q PRIN1 6 EQUAL) (13Q ^) ( 32Q " ") PPELM D1 (P 6 VLIST P 5 LASTPOS P 4 MODE P 3 ATT P 2 VAL P 1 SEP P 0 PPDAT I 1 PORT I 0 ELM) @p@ A gA g\@g XdgoYj]@^o oA h(74Q PRIN1 64Q MYDOLOOP 35Q GET 21Q PRIN1 12Q PRIN1 6 CREATION-TIME) (43Q A-V 32Q PPDAT 24Q VECTOR 15Q |:) ( 70Q ")" 61Q (CURPOS 1 (IPLUS 1 CURPOS) (ATOM VLIST) (SETQ VAL (CAR VLIST)) (SETQ VLIST (CDR VLIST)) (SETQ ATT (ASSOC CURPOS PPDAT)) (COND (ATT (SETQ ATT (CDR ATT))) (T (SETQ ATT CURPOS))) (AND (SYMBOLP ATT) (IS-VECTOR-ATTRIBUTE ATT) (SETQ MODE (QUOTE VECTOR))) (COND ((OR (NOT (NULL VAL)) (EQ MODE (QUOTE VECTOR))) (PRIN1 SEP PORT) (PPVAL VAL ATT LASTPOS PORT) (SETQ SEP " ") (SETQ LASTPOS CURPOS)))) 50Q "(") IDENT D1 (L (1 Y 0 X)) *@dA#ddhAdd@AjiNIL NIL () FILTER D1 (P 2 VAL P 1 INDX P 0 FL I 0 ELM) *0`HdliHHIk@ J (44Q IDENT 40Q NTH) (5 *FILTERS*) () PPWM2 D1 (I 0 ELM-TAG) @ @i (17Q PPELM 11Q TERPRI 4 FILTER) NIL () PPWM D1 (P 1 A P 0 NEXT I 0 AVLIST)  hk@dlg h@bIdg7@@bH XdjXddH`kHoH h oI hHI`Hkذ(155Q WARN 144Q VARIABLEP 137Q WARN 71Q $LITBIND 33Q TERPRI 27Q MAPWM) (171Q *FILTERS* 164Q *FILTERS* 120Q *SIZE-RESULT-ARRAY* 51Q ^ 24Q PPWM2 6 *FILTERS*) ( 151Q "PPWM DOES NOT TAKE VARIABLES" 133Q "ILLEGAL INDEX AFTER ^") TABTO D1 (P 0 VAL I 0 Z) G@ ko@ h@ XdddkHdlo@ ho H h(103Q $VALUE 77Q $VALUE 66Q WARN 30Q $VARBIND 21Q WARN 6 LENGTH) NIL ( 74Q "=== T A B T O ===" 62Q "TABTO: ILLEGAL COLUMN NUMBER" 15Q "TABTO: WRONG NUMBER OF ARGUMENTS") CRLF D1 (I 0 Z) @o@ o (21Q $VALUE 11Q WARN) NIL ( 16Q "=== C R L F ===" 5 "CRLF: DOES NOT TAKE ARGUMENTS") RJUST D1 (P 0 VAL I 0 Z) G@ ko@ h@ XdddkHdloH ho H h(103Q $VALUE 77Q $VALUE 66Q WARN 30Q $VARBIND 21Q WARN 6 LENGTH) NIL ( 74Q "=== R J U S T ===" 62Q "RJUST: ILLEGAL VALUE FOR FIELD WIDTH" 15Q "RJUST: WRONG NUMBER OF ARGUMENTS") LITVAL D1 (P 0 R I 0 Z) W@ ko@ j h@ddd h Xdddd ho@ j h(123Q $VALUE 117Q WARN 104Q $VALUE 63Q $LITBIND 60Q $VARBIND 52Q $VALUE 26Q $VALUE 21Q WARN 6 LENGTH) NIL ( 112Q "LITVAL: ARGUMENT HAS NO LITERAL BINDING" 15Q "LITVAL: WRONG NUMBER OF ARGUMENTS") LOADOPS5 D1 (P 0 X I 0 NAME F 1 ERRORTYPELST) &@g oQc@ XQch (41Q EVAL 25Q READ 11Q OPENFILE) (6 INPUT) ( 15Q (20Q NIL)) GENATOM D1 NIL  (5 $VALUE 2 GENSYM) NIL () ARI-UNIT D1 (P 0 R I 0 A) &@d Xdd o@ j(42Q WARN 15Q $VARBIND 11Q ARI) NIL ( 36Q "BAD VALUE IN ARITHMETIC EXPRESSION") ARI D1 (I 0 X) @dlo@ jl@ @dg @ g@ @ @dg @ g@ @ @g@ @ o@ j(216Q WARN 205Q IMOD 202Q ARI 174Q ARI-UNIT 155Q ARI 147Q ARI-UNIT 131Q ARI 123Q ARI-UNIT 104Q ARI 76Q ARI-UNIT 60Q ARI 52Q ARI-UNIT 34Q ARI-UNIT 17Q WARN) (165Q \\ 140Q / 115Q * 67Q - 44Q +) ( 212Q "BAD SYNTAX IN ARITHMETIC EXPRESSION" 13Q "BAD SYNTAX IN ARITHMETIC EXPRESSION") ARITH D1 (I 0 Z) @ (6 $VALUE 3 ARI) NIL () COMPUTE D1 (I 0 Z) @ (6 $VALUE 3 ARI) NIL () SUBSTR D1 (P 3 END P 2 START P 1 ELM P 0 K I 0 L) @@ lo@ h@ Yo@ h@ Z Zddo@ h@ [dgI [ [ddo@ hkXKJHI IHkذ(201Q $VALUE 160Q WARN 134Q $LITBIND 130Q LENGTH 114Q $VARBIND 103Q WARN 57Q $LITBIND 53Q $VARBIND 43Q WARN 31Q GET-CE-VAR-BIND 22Q WARN 6 LENGTH) (121Q INF) ( 154Q "THIRD ARGUMENT TO SUBSTR MUST BE A NUMBER" 77Q "SECOND ARGUMENT TO SUBSTR MUST BE A NUMBER" 37Q "FIRST ARGUMENT TO SUBSTR MUST BE A CE VAR" 16Q "SUBSTR: WRONG NUMBER OF ARGUMENTS") ACCEPTLINE D1 (P 4 TEM P 3 PORT P 2 ARG P 1 DEF P 0 C I 0 Z) Pi@`YI jI Z J J IKg [ l K K l K oK Ki \Lo#I [o` hd hK oK Ki \Lo(226Q \PEEKBIN 220Q SPAN-CHARS 207Q FLAT-VALUE 204Q READ 171Q $CHANGE 162Q WARN 145Q $IFILE 125Q \PEEKBIN 117Q SPAN-CHARS 100Q \PEEKBIN 65Q \PEEKBIN 61Q GETSTREAM 46Q $IFILE 41Q $IFILE 34Q SYMBOLP 30Q $VARBIND 17Q LENGTH) (157Q *ACCEPT-FILE* 56Q INPUT 11Q *ACCEPT-FILE*) ( 236Q (15Q 12Q) 214Q (11Q 40Q 203Q) 154Q "ACCEPTLINE: FILE HAS BEEN CLOSED" 134Q (15Q 12Q) 113Q (11Q 40Q 203Q)) SPAN-CHARS D1 (P 1 TEM P 0 STRM I 1 PRT I 0 X) Ag Hi Yd@H h(16Q \PEEKBIN 6 GETSTREAM) (3 INPUT) () FLAT-VALUE D1 (I 0 X) @dl d h(17Q FLAT-VALUE 11Q $VALUE) NIL () CHECK-FOR-EOF D1 (I 0 FILE) @dij m(11Q SKIPSEPRS) NIL () ACCEPT D1 (P 2 PEEK P 1 ARG P 0 PORT I 0 Z) z0@ ko@ hiX`@ k:@ Y oI h Xo` hI X oI hH Zdmg hHg h(166Q FLAT-VALUE 163Q READ 152Q $VALUE 136Q CHECK-FOR-EOF 130Q WARN 115Q $IFILE 107Q WARN 72Q $IFILE 65Q WARN 53Q SYMBOLP 47Q $VARBIND 36Q LENGTH 21Q WARN 6 LENGTH) (160Q END-OF-FILE 147Q END-OF-FILE 104Q *ACCEPT-FILE* 30Q *ACCEPT-FILE*) ( 124Q "ACCEPT: FILE NOT OPEN FOR INPUT" 101Q "ACCEPT: FILE HAS BEEN CLOSED" 61Q "ACCEPT: ILLEGAL FILE NAME" 15Q "ACCEPT: WRONG NUMBER OF ARGUMENTS") DEFAULT D1 (P 1 USE P 0 FILE I 0 Z)  @ l o@ hk Xl YH oH hIo oI hIo H*IdgHIg'H oH h oH hIdgHgH(212Q WARN 200Q $OFILE 173Q WARN 161Q $IFILE 121Q MEMQ 107Q WARN 76Q MEMQ 64Q WARN 53Q SYMBOLP 46Q $PARAMETER 40Q $PARAMETER 32Q WARN 21Q EQUAL 14Q $PARAMETERCOUNT 11Q EVAL-ARGS 5 $RESET) (245Q *TRACE-FILE* 236Q TRACE 230Q *ACCEPT-FILE* 221Q ACCEPT 153Q *WRITE-FILE* 144Q WRITE 132Q ACCEPT) ( 206Q "DEFAULT: FILE HAS NOT BEEN OPENED FOR OUTPUT" 167Q "DEFAULT: FILE HAS NOT BEEN OPENED FOR INPUT" 116Q (WRITE TRACE) 103Q "(DEFAULT: ILLEGAL USE FOR A FILE" 73Q (WRITE ACCEPT TRACE) 60Q "DEFAULT: ILLEGAL FILE IDENTIFIER" 26Q "DEFAULT: WRONG NUMBER OF ARGUMENTS") CLOSEFILE2 D1 (P 0 PORT I 0 FILE) <@ o@ )@ X@ Xd @g @g h(70Q REMPROP 60Q CLOSE 53Q REMPROP 43Q CLOSE 34Q $OFILE 25Q $IFILE 17Q WARN 6 SYMBOLP) (65Q INPUTFILE 50Q OUTPUTFILE) ( 13Q "CLOSEFILE: ILLEGAL FILE IDENTIFIER") CLOSEFILE D1 (I 0 Z) @ d h(17Q CLOSEFILE2 11Q USE-RESULT-ARRAY 6 EVAL-ARGS 2 $RESET) NIL () $OFILE D1 (I 0 X) @ @g (14Q GET 3 SYMBOLP) (11Q OUTPUTFILE) () $IFILE D1 (I 0 X) @ @g (14Q GET 3 SYMBOLP) (11Q INPUTFILE) () BUILD D1 (P 0 R I 0 Z) 7`og h@  X`dk`HH h(63Q COMPILE-PRODUCTION 37Q UNFLAT 34Q USE-RESULT-ARRAY 31Q BUILD-COLLECT 25Q $RESET 20Q WARN) (51Q *BUILD-TRACE* 43Q *BUILD-TRACE* 15Q BUILD 5 *IN-RHS*) ( 12Q "CANNOT BE CALLED AT TOP LEVEL") HALT D1 NIL `og i(15Q WARN) (22Q *HALT-FLAG* 12Q HALT 2 *IN-RHS*) ( 7 "CANNOT BE CALLED AT TOP LEVEL") DO-TABTO D1 (P 0 POS I 1 PORT I 0 COL) A kXd@A ko h(33Q MYDOLOOP 21Q TERPRI 6 NWRITN) NIL ( 30Q (K (- COL POS) (1- K) (NOT (> K 0)) (PRIN1 " " PORT))) DO-RJUST D1 (P 0 SIZE I 3 K I 2 PORT I 1 VALUE I 0 WIDTH) zAdoog hoog hAdoog h Xd@oB AB hC@HCkCjhoB AB h(166Q PRIN1 161Q DOMYLOOP 155Q PRIN1 127Q PRIN1 121Q PRIN1 104Q LENGTH 101Q UNPACK 74Q WARN 47Q WARN 25Q WARN) (71Q RJUST 44Q CRLF 22Q TABTO) ( 151Q ")" 115Q " " 66Q "RJUST CANNOT PRECEDE THIS FUNCTION" 57Q "=== R J U S T ===" 41Q "RJUST CANNOT PRECEDE THIS FUNCTION" 33Q "=== C R L F ===" 17Q "RJUST CANNOT PRECEDE THIS FUNCTION" 10Q "=== T A B T O ===") DEFAULT-WRITE-FILE D1 (P 0 PORT) iX` Xo` i(32Q WARN 15Q $OFILE) (27Q *WRITE-FILE* 7 *WRITE-FILE*) ( 24Q "WRITE: FILE HAS BEEN CLOSED") WRITE D1 (P 4 NEEDSPACE P 3 X P 2 K P 1 MAX P 0 PORT I 0 Z) P`o h@ kkIo@ hk [ K K liJdI [o hH JKo JlZk J H ,Ko hJkZ H LoH iKH JkZ(252Q PRIN1 242Q PRIN1 226Q DO-TABTO 222Q $PARAMETER 210Q EQUAL 176Q DO-RJUST 172Q $PARAMETER 166Q $PARAMETER 152Q EQUAL 140Q TERPRI 131Q EQUAL 121Q $PARAMETER 102Q $OFILE 75Q $OFILE 70Q SYMBOLP 64Q $PARAMETER 57Q DEFAULT-WRITE-FILE 52Q WARN 35Q $PARAMETERCOUNT 27Q EVAL-ARGS 22Q $RESET 15Q WARN) (5 *IN-RHS*) ( 236Q " " 205Q "=== T A B T O ===" 147Q "=== R J U S T ===" 126Q "=== C R L F ===" 46Q "WRITE: NOTHING TO PRINT" 12Q (CANNOT BE CALLED AT TOP LEVEL)) CALL D1 (P 0 F I 0 Z) @X@ jHh(15Q EVAL-ARGS 10Q $RESET) NIL () REMOVEWM D1 (P 0 OLD I 0 Z) 1`@ @l@ X o@ h @b(50Q REMOVE-FROM-WM 43Q WARN 27Q GET-CE-VAR-BIND 12Q TOP-LEVEL-REMOVE) (5 *IN-RHS*) ( 36Q "REMOVE: ARGUMENT NOT AN ELEMENT VARIABLE") CBIND D1 (I 0 Z) G`og @ ko@ @ o@ `o@ @` (104Q MAKE-CE-VAR-BIND 73Q WARN 55Q WARN 43Q SYMBOLP 35Q WARN 22Q LENGTH 15Q WARN) (101Q *LAST* 61Q *LAST* 12Q CBIND 2 *IN-RHS*) ( 66Q "CBIND: NOTHING ADDED YET" 50Q "CBIND: ILLEGAL ARGUMENT" 31Q "CBIND: WRONG NUMBER OF ARGUMENTS" 7 "CANNOT BE CALLED AT TOP LEVEL") BIND D1 (P 0 VAL I 0 Z) X`og hk@ o@ h@ o@ h@ k@ k @H h(124Q MAKE-VAR-BIND 115Q $PARAMETER 110Q EVAL-ARGS 102Q $RESET 76Q GENSYM 70Q LENGTH 62Q WARN 50Q SYMBOLP 41Q WARN 27Q LENGTH 20Q WARN) (15Q BIND 5 *IN-RHS*) ( 55Q "BIND: ILLEGAL ARGUMENT" 35Q "BIND: WRONG NUMBER OF ARGUMENTS TO" 12Q "CANNOT BE CALLED AT TOP LEVEL") MODIFY D1 (P 0 OLD I 0 Z) P`og h@ X o@ h @bHdl@ h HX(110Q $CHANGE 102Q $ASSERT 76Q EVAL-ARGS 61Q $RESET 50Q REMOVE-FROM-WM 43Q WARN 27Q GET-CE-VAR-BIND 20Q WARN) (15Q MODIFY 5 *IN-RHS*) ( 36Q "MODIFY: FIRST ARGUMENT MUST BE AN ELEMENT VARIABLE" 12Q "CANNOT BE CALLED AT TOP LEVEL") MAKE D1 (I 0 Z) @ h(11Q $ASSERT 6 EVAL-ARGS 2 $RESET) NIL () $PARAMETER D1 (I 0 K) 0@dd@`k@o@ h@``@k((35Q WARN) (51Q *RESULT-ARRAY* 43Q *MAX-INDEX* 17Q *SIZE-RESULT-ARRAY*) ( 31Q "ILLEGAL PARAMETER NUMBER ") $PARAMETERCOUNT D1 NIL `NIL (2 *MAX-INDEX*) () $ASSERT D1 NIL d (11Q ADD-TO-WM 2 USE-RESULT-ARRAY) (5 *LAST*) () USE-RESULT-ARRAY D1 NIL  `hHjI`Hk(IHkXNIL (21Q *RESULT-ARRAY* 5 *MAX-INDEX*) () $VALUE D1 (I 0 V) 5`d`o` ````k@*`k(23Q WARN) (62Q *NEXT-INDEX* 55Q *NEXT-INDEX* 46Q *NEXT-INDEX* 43Q *RESULT-ARRAY* 37Q *MAX-INDEX* 34Q *NEXT-INDEX* 27Q *MAX-INDEX* 20Q *NEXT-INDEX* 6 *SIZE-RESULT-ARRAY* 2 *NEXT-INDEX*) ( 15Q "INDEX TOO LARGE") $TAB D1 (P 1 NEXT P 0 EDGE I 0 Z) X @ YdjYddI`kIoI `Ikٸ`dHI`H`Hkh*Hkٸ(53Q WARN 6 $LITBIND) (112Q *RESULT-ARRAY* 103Q *MAX-INDEX* 77Q *NEXT-INDEX* 66Q *MAX-INDEX* 56Q *NEXT-INDEX* 35Q *SIZE-RESULT-ARRAY*) ( 47Q "ILLEGAL INDEX AFTER ^") RHS-TAB D1 (I 0 Z) @ (6 $TAB 3 $VARBIND) NIL () $RESET D1 NIL jkNIL (7 *NEXT-INDEX* 3 *MAX-INDEX*) () EVAL-FUNCTION D1 (I 0 FORM) `o@ @ (21Q EVAL 14Q WARN) (2 *IN-RHS*) ( 7 "FUNCTIONS CANNOT BE USED AT TOP LEVEL") EVAL-ARGS D1 (P 0 R I 0 Z) Jk @dlh@bHdg@ @@bHg@ @bH (106Q $CHANGE 73Q $VALUE 45Q RHS-TAB 6 RHS-TAB) (64Q // 34Q ^) () $CHANGE D1 (I 0 X) @d h(15Q $VALUE 12Q $VARBIND 6 EVAL-FUNCTION) NIL () UNFLAT* D1 (P 0 C) 6`dlhX`HdooH(62Q UNFLAT* 45Q UNFLAT* 42Q UNFLAT*) (26Q *REST* 22Q *REST* 5 *REST*) ( 53Q ")" 34Q "(") UNFLAT D1 (I 0 X) @(6 UNFLAT*) (3 *REST*) () BUILD-COLLECT D1 (P 0 R I 0 Z) I@dlh@bHdo H o g@ @bH (104Q $VALUE 71Q $CHANGE 54Q $VALUE 44Q BUILD-COLLECT 37Q $VALUE) (62Q //) ( 51Q ")" 34Q "(") GET-NUM-CE D1 (P 2 D P 1 L P 0 R I 0 X) '0`X @ٺjJhHkJHJkٺHX(11Q LENGTH) (5 *DATA-MATCHED*) () GET-CE-VAR-BIND D1 (P 0 R I 0 X) !@ddd ` dd(31Q ASSQ 22Q GET-NUM-CE) (26Q *CE-VARIABLE-MEMORY*) () ASSQ D1 (I 1 Y I 0 X) @A (4 ASSOC) NIL () $VARBIND D1 (P 0 R I 0 X) `@@` dd(17Q ASSQ) (14Q *VARIABLE-MEMORY* 5 *IN-RHS*) () MAKE-VAR-BIND D1 (L (1 ELEM 0 VAR)) @A`NIL (11Q *VARIABLE-MEMORY* 5 *VARIABLE-MEMORY*) () MAKE-CE-VAR-BIND D1 (L (1 ELEM 0 VAR)) @A`NIL (11Q *CE-VARIABLE-MEMORY* 5 *CE-VARIABLE-MEMORY*) () INIT-CE-VAR-MEM D1 (P 2 R P 1 IND P 0 V I 0 VLIST) /0h@dlh@@b`I HJ`(43Q CE-GELM) (52Q *CE-VARIABLE-MEMORY* 37Q *DATA-MATCHED* 6 *CE-VARIABLE-MEMORY*) () INIT-VAR-MEM D1 (P 2 R P 1 IND P 0 V I 0 VLIST) /0h@dlh@@b`I HJ`(43Q GELM) (52Q *VARIABLE-MEMORY* 37Q *DATA-MATCHED* 6 *VARIABLE-MEMORY*) () TIME-TAG-PRINT D1 (I 1 PORT I 0 DATA) @dA oA @ A (31Q PRIN1 25Q CREATION-TIME 20Q PRIN1 10Q TIME-TAG-PRINT) NIL ( 14Q " ") EVAL-RHS D1 (P 1 PORT P 0 NODE I 1 DATA I 0 PNAME) h `&Y `I gI @I AI A@h@g Xd H @A iH hh(144Q END-RECORD 135Q EVAL 132Q RHS-PART 122Q BEGIN-RECORD 115Q INIT-CE-VAR-MEM 112Q CE-VAR-PART 106Q INIT-VAR-MEM 103Q VAR-PART 76Q GET 52Q TIME-TAG-PRINT 44Q PRIN1 36Q PRIN1 26Q PRIN1 16Q TERPRI 12Q TRACE-FILE) (141Q *IN-RHS* 126Q *IN-RHS* 73Q TOPNODE 67Q *LAST* 63Q *P-NAME* 57Q *DATA-MATCHED* 32Q | 22Q *CYCLE-COUNT* 5 *PTRACE*) () TRACE-FILE D1 (P 0 PORT) iX` Xo` i(32Q WARN 15Q $OFILE) (27Q *TRACE-FILE* 7 *TRACE-FILE*) ( 24Q "TRACE: FILE HAS BEEN CLOSED") REFRESH-ADD D1 (I 0 X) @@ (6 ADD-TO-WM) NIL () REFRESH-DEL D1 (I 0 X) @ (4 REMOVE-FROM-WM) NIL () REFRESH-COLLECT D1 (L (0 X)) @`NIL (7 *OLD-WM* 3 *OLD-WM*) () REFRESH D1 NIL ,hg `d `d h(40Q REFRESH-ADD 22Q REFRESH-DEL 11Q MAPWM) (51Q *OLD-WM* 32Q *OLD-WM* 14Q *OLD-WM* 6 REFRESH-COLLECT 3 *OLD-WM*) () CREATION-TIME D1 (I 0 WME) @d g (15Q ASSQ 12Q GET 4 WM-HASH) (7 WMPART*) () WM-HASH D1 (I 0 X) @g@b@ @@b(23Q SYMBOLP) (5 ) () GET-WM2 D1 (I 0 ELEM) `@` @`(13Q MEMBER) (26Q *WM* 22Q *WM* 10Q *WM-FILTER* 2 *WM-FILTER*) () GET-WM D1 (I 0 Z) @hg `h(15Q MAPWM) (24Q *WM* 20Q *WM* 12Q GET-WM2 7 *WM* 3 *WM-FILTER*) () WM D1 (P 0 Z I 0 A) !@ di Hi i h(35Q TERPRI 24Q PPELM 16Q TERPRI 3 GET-WM) NIL () MAPWM D1 (P 2 $L P 1 PART P 0 WMPL I 0 FN) 2 `Hdlhg HI@JdkKh(26Q GET) (23Q WMPART* 5 *WMPART-LIST*) () REMOVE-FROM-WM D1 (P 4 PORT P 3 TIMETAG P 2 PART P 1 Z P 0 FA I 0 WME) pP@ Xdg Z@J YddV[``\ oL @L `ki`kgK@ h@ HgIJ h(151Q PUTPROP 146Q DREMOVE 135Q MATCH 130Q RECORD-CHANGE 73Q PPELM 65Q PRIN1 54Q TERPRI 50Q TRACE-FILE 24Q ASSQ 16Q GET 6 WM-HASH) (155Q *CRITICAL* 141Q WMPART* 123Q <=WM 120Q *CURRENT-WM* 113Q *CURRENT-WM* 110Q *CRITICAL* 104Q *ACTION-COUNT* 77Q *ACTION-COUNT* 43Q *IN-RHS* 36Q *WTRACE* 13Q WMPART*) ( 61Q "<=WM: ") ADD-TO-WM D1 (P 4 PORT P 3 TIMETAG P 2 PART P 1 Z P 0 FA I 1 OVERRIDE I 0 WME) Pi`kd``k@ Xd` H`Hg ZA`@KYHgIJ g`@ g@ h``\ oL @L h(207Q PPELM 201Q PRIN1 170Q TERPRI 164Q TRACE-FILE 143Q MATCH 134Q RECORD-CHANGE 122Q PUTPROP 74Q GET 53Q MEMQ 43Q WM-HASH) (157Q *WTRACE* 152Q *IN-RHS* 147Q *CRITICAL* 137Q NEW 130Q *ACTION-COUNT* 125Q =>WM 114Q WMPART* 103Q *ACTION-COUNT* 71Q WMPART* 64Q *WMPART-LIST* 60Q *WMPART-LIST* 50Q *WMPART-LIST* 37Q *ACTION-COUNT* 32Q *ACTION-COUNT* 27Q *MAX-WM* 22Q *MAX-WM* 16Q *CURRENT-WM* 11Q *CURRENT-WM* 6 *CRITICAL*) ( 175Q "=>WM: ") CONCAT-AMOS D1 (I 2 C I 1 B I 0 A) @AB (10Q MKATOM 5 CONCAT) NIL () CONFLICT-SET D1 (P 4 BEST P 3 Z P 2 P P 1 CS P 0 CNTS) ~Ph`YIdlHl5` LghIJH [ JkHXdkH Hdko H o HX(166Q PRIN1 156Q PRIN1 147Q PRIN1 126Q PRIN1 117Q TERPRI 72Q ASSQ 43Q TERPRI 37Q BEST-OF) (52Q DOMINATES 34Q *CONFLICT-SET* 7 *CONFLICT-SET*) ( 163Q " OCCURRENCES )" 144Q " (") CONFLICT-SET-COMPARE D1 (P 5 YV P 4 XV P 3 YL P 2 XL P 1 YORDER P 0 XORDER I 1 Y I 0 X) ]`@ A HIJKHIJ(iK J hJKLMMLJKKLMMLJK(54Q NULLA 46Q NULLA 13Q ORDER-PART 6 ORDER-PART) NIL () INSTANTIATION D1 (I 0 CONFLICT-ELEM) @ (3 PNAME-INSTANTIATION) NIL () ORDER-PART D1 (L (0 CONFLICT-ELEM)) @NIL NIL () PNAME-INSTANTIATION D1 (L (0 CONFLICT-ELEM)) @NIL NIL () REMOVE-FROM-CONFLICT-SET D1 (P 1 ENTRY P 0 CS I 0 NAME) ) `HdlhH@II` (42Q DREMOVE) (45Q *CONFLICT-SET* 37Q *CONFLICT-SET* 5 *CONFLICT-SET*) () BEST-OF* D1 (I 1 REM I 0 BEST) A@@A AbAAbb(11Q CONFLICT-SET-COMPARE) NIL () BEST-OF D1 (I 0 SET) @@ (6 BEST-OF*) NIL () CONFLICT-RESOLUTION D1 (P 1 LEN P 0 BEST) 5 ` Yd``I`d X` H (62Q PNAME-INSTANTIATION 52Q DREMOVE 43Q BEST-OF 10Q LENGTH) (55Q *CONFLICT-SET* 47Q *CONFLICT-SET* 35Q *CONFLICT-SET* 32Q *TOTAL-CS* 25Q *TOTAL-CS* 22Q *MAX-CS* 15Q *MAX-CS* 5 *CONFLICT-SET*) () DSORT D1 (L (0 X)) 1P@l@Hi@YIJ\KhILJKJYZNIL NIL () ORDER-TAGS D1 (P 0 TAGS I 0 DAT) 3h@dl`gHH  H@bH (60Q DSORT 43Q CREATION-TIME 35Q DSORT) (23Q MEA 20Q *STRATEGY*) () INSERTCS D1 (P 0 INSTAN I 2 RATING I 1 DATA I 0 NAME) /@A h@AA BhX`lhH`(21Q ORDER-TAGS 7 REFRACTED) (54Q *CONFLICT-SET* 50Q *CONFLICT-SET* 43Q *CONFLICT-SET* 32Q *CONFLICT-SET*) () REMOVECS D1 (P 2 CS P 1 INST P 0 CR-DATA I 1 DATA I 0 NAME) /0@A`J @A hJIH I` h(50Q DREMOVE 37Q TOP-LEVELS-EQ 22Q RECORD-REFRACT) (53Q *CONFLICT-SET* 45Q *CONFLICT-SET* 11Q *CONFLICT-SET*) () REMOVE-OLD-NO-NUM D1 (P 2 LAST P 1 NEXT P 0 M I 1 DATA I 0 LIS) L0@XlhAH `k@HHHIZYlAI JI`kI(67Q TOP-LEVELS-EQ 22Q TOP-LEVELS-EQ) (106Q *CURRENT-TOKEN* 101Q *CURRENT-TOKEN* 34Q *CURRENT-TOKEN* 27Q *CURRENT-TOKEN*) () REMOVE-OLD-NUM D1 (P 2 LAST P 1 NEXT P 0 M I 1 DATA I 0 LIS) P0@XlhAH `k@HHHIZYlAI JI`kI(71Q TOP-LEVELS-EQ 22Q TOP-LEVELS-EQ) (112Q *CURRENT-TOKEN* 105Q *CURRENT-TOKEN* 34Q *CURRENT-TOKEN* 27Q *CURRENT-TOKEN*) () REMOVE-OLD D1 (I 2 NUM I 1 DATA I 0 LIS) B@A @A (14Q REMOVE-OLD-NO-NUM 6 REMOVE-OLD-NUM) NIL () REAL-ADD-TOKEN D1 (L (2 NUM 1 DATA-PART 0 LIS)) `kB@B@@A@NIL (7 *CURRENT-TOKEN* 2 *CURRENT-TOKEN*) () ADD-TOKEN D1 (P 0 WAS-PRESENT I 3 NUM I 2 DATA-PART I 1 FLAG I 0 MEMLIS) 'Adgh@BC H@BC Agi(33Q REMOVE-OLD 22Q REAL-ADD-TOKEN) (40Q OLD 7 NEW) () NOT-RIGHT D1 (P 13Q A0008 P 12Q NEWC P 11Q INC P 10Q NEWFP P 7 RES P 6 RIND P 5 LIND P 4 TST P 3 TLIST P 2 MEMDP P 1 DP P 0 FP I 2 TESTS I 1 MEM I 0 OUTS)  ``H m_gg k_h_AhAA_BK9OO_AOOdmOjOkOkOJg@ AbK[K[KL IN JM lO_Ab(212Q GELM 205Q GELM 145Q SENDTO) (141Q RIGHT 31Q NEW 25Q NEW 11Q *DATA-PART* 5 *FLAG-PART*) () NOT-LEFT D1 (P 11Q A0009 P 10Q C P 7 RES P 6 RIND P 5 LIND P 4 TST P 3 TLIST P 2 MEMDP P 1 DP P 0 FP I 3 OWN-MEM I 2 TESTS I 1 MEM I 0 OUTS) l ``j_ACHIO Oj HIg@ hAbBK Ok_KK[K[KL JN IM lO_(135Q GELM 130Q GELM 51Q SENDTO 31Q ADD-TOKEN) (45Q LEFT 11Q *DATA-PART* 5 *FLAG-PART*) () &NOT D1 (I 3 TESTS I 2 RPRED I 1 LMEM I 0 OUTS) 0`dg`gh`g@AC @B CA (55Q NOT-LEFT 50Q MEMORY-PART 42Q NOT-RIGHT) (31Q RIGHT 26Q *SIDE* 17Q OLD 14Q *FLAG-PART* 6 RIGHT 2 *SIDE*) () &OLD D1 (L (4 E 3 D 2 C 1 B 0 A)) hNIL NIL () &P D1 (P 1 DP P 0 FP I 4 RHS I 3 CE-VAR-DOPE I 2 VAR-DOPE I 1 NAME I 0 RATING) 2 `````Ho AI H AI@ h(56Q INSERTCS 44Q REMOVECS 36Q MEMQ) (25Q *ALPHA-DATA-PART* 21Q *ALPHA-FLAG-PART* 15Q *DATA-PART* 11Q *FLAG-PART* 5 *SENDTOCALL*) ( 33Q (NIL OLD)) TXXB D1 (L (1 EQVAR 0 NEW)) +@ddAddiAddhNIL NIL () TLEB D1 (L (1 EQVAR 0 NEW)) #@ddhAdd@AiNIL NIL () TGEB D1 (L (1 EQVAR 0 NEW)) #@ddAddh@iNIL NIL () TGTB D1 (L (1 EQVAR 0 NEW)) #@ddhAdd@AiNIL NIL () TLTB D1 (L (1 EQVAR 0 NEW)) #@ddAddh@iNIL NIL () TNEB D1 (L (1 EQVAR 0 NEW)) *@dA#ddiAdd@AjhNIL NIL () TEQB D1 (L (1 EQVAR 0 NEW)) *@dA#ddhAdd@AjiNIL NIL () AND-RIGHT D1 (P 7 RES P 6 RIND P 5 LIND P 4 TST P 3 TLIST P 2 MEMDP P 1 DP P 0 FP I 2 TESTS I 1 MEM I 0 OUTS) O``YAdAbBKHIJg@ K[K[KIN JM lL_°(102Q GELM 75Q GELM 47Q SENDTO) (43Q RIGHT 11Q *DATA-PART* 5 *FLAG-PART*) () AND-LEFT D1 (P 7 RES P 6 RIND P 5 LIND P 4 TST P 3 TLIST P 2 MEMDP P 1 DP P 0 FP I 2 TESTS I 1 MEM I 0 OUTS) O``YAdAbBKHJIg@ K[K[KJN IM lL_°(102Q GELM 75Q GELM 47Q SENDTO) (43Q LEFT 11Q *DATA-PART* 5 *FLAG-PART*) () &AND D1 (P 0 MEM I 3 TESTS I 2 RPRED I 1 LPRED I 0 OUTS) -`gAB Xh`g@HC @HC h(51Q AND-LEFT 42Q AND-RIGHT 20Q MEMORY-PART) (32Q RIGHT 27Q *SIDE* 10Q RIGHT 5 *SIDE*) () &MEM D1 (P 1 DP P 0 FP I 2 MEMORY-LIST I 1 RIGHT-OUTS I 0 LEFT-OUTS) 2 `````HIg@ BHI HIgA h(56Q SENDTO 45Q ADD-TOKEN 37Q SENDTO) (52Q RIGHT 33Q LEFT 25Q *ALPHA-DATA-PART* 21Q *ALPHA-FLAG-PART* 15Q *DATA-PART* 11Q *FLAG-PART* 5 *SENDTOCALL*) () &TWO D1 (P 1 DP P 0 FP I 1 RIGHT-OUTS I 0 LEFT-OUTS) , `````HIg@ HIgA h(50Q SENDTO 37Q SENDTO) (44Q RIGHT 33Q LEFT 25Q *ALPHA-DATA-PART* 21Q *ALPHA-FLAG-PART* 15Q *DATA-PART* 11Q *FLAG-PART* 5 *SENDTOCALL*) () TLES D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) 2 A XB YHddddd HI@ h(56Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TGES D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) 2 A XB YHddddd dH@ h(56Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TGTS D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) 3 A XB YHddddd HI@ h(57Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TLTS D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) 3 A XB YHddddd dH@ h(57Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TXXS D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) G A XB YHddddddHddIdd@ h(103Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TNES D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) 8 A XB YHdI$ddIddHIj@ h(64Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TEQS D1 (P 1 B P 0 A I 2 VARB I 1 VARA I 0 OUTS) < A XB YHdI𒿰"ddIddHIj@ h(70Q EVAL-NODELIST 13Q EVAL 6 EVAL) NIL () TLEN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) A Xddd dB@ h(34Q EVAL-NODELIST 6 EVAL) NIL () TGEN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) A Xddd BH@ h(34Q EVAL-NODELIST 6 EVAL) NIL () TGTN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) !A Xddd dB@ h(35Q EVAL-NODELIST 6 EVAL) NIL () TLTN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) !A Xddd BH@ h(35Q EVAL-NODELIST 6 EVAL) NIL () TXXN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) A Xddd@ h(30Q EVAL-NODELIST 6 EVAL) NIL () TNEN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) !A XddddBj@ h(35Q EVAL-NODELIST 6 EVAL) NIL () TEQN D1 (P 0 Z I 2 CONSTANT I 1 REGISTER I 0 OUTS) #A XddddBj@ h(37Q EVAL-NODELIST 6 EVAL) NIL () TXXA D1 (I 2 CONSTANT I 1 REGISTER I 0 OUTS) A @ (14Q EVAL-NODELIST 6 SYMBOLP 3 EVAL) NIL () TNEA D1 (I 2 CONSTANT I 1 REGISTER I 0 OUTS) A Bh@ (15Q EVAL-NODELIST 3 EVAL) NIL () TEQA D1 (I 2 CONSTANT I 1 REGISTER I 0 OUTS) A B@ (13Q EVAL-NODELIST 3 EVAL) NIL () &ANY D1 (P 1 C P 0 Z I 2 CONST-LIST I 1 REGISTER I 0 OUTS) H A XddBBdH@ hbBdYddIHjBb(41Q EVAL-NODELIST 6 EVAL) NIL () &BUS D1 (P 0 DP I 0 OUTS) ``dXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXdHXd@ h(1022Q EVAL-NODELIST) (1016Q *C64* 1006Q *C63* 776Q *C62* 766Q *C61* 756Q *C60* 746Q *C59* 736Q *C58* 726Q *C57* 716Q *C56* 706Q *C55* 676Q *C54* 666Q *C53* 656Q *C52* 646Q *C51* 636Q *C50* 626Q *C49* 616Q *C48* 606Q *C47* 576Q *C46* 566Q *C45* 556Q *C44* 546Q *C43* 536Q *C42* 526Q *C41* 516Q *C40* 506Q *C39* 476Q *C38* 466Q *C37* 456Q *C36* 446Q *C35* 436Q *C34* 426Q *C33* 416Q *C32* 406Q *C31* 376Q *C30* 366Q *C29* 356Q *C28* 346Q *C27* 336Q *C26* 326Q *C25* 316Q *C24* 306Q *C23* 276Q *C22* 266Q *C21* 256Q *C20* 246Q *C19* 236Q *C18* 226Q *C17* 216Q *C16* 206Q *C15* 176Q *C14* 166Q *C13* 156Q *C12* 146Q *C11* 136Q *C10* 126Q *C9* 116Q *C8* 106Q *C7* 76Q *C6* 66Q *C5* 56Q *C4* 46Q *C3* 36Q *C2* 26Q *C1* 16Q *ALPHA-DATA-PART* 13Q *DATA-PART* 10Q *ALPHA-FLAG-PART* 5 *FLAG-PART*) () SENDTO D1 (I 3 NL I 2 SIDE I 1 DATA I 0 FLAG) /ChB@AiCCC Cb(46Q APPLY) (34Q *LAST-NODE* 26Q *SENDTOCALL* 21Q *DATA-PART* 14Q *FLAG-PART* 7 *SIDE*) () EVAL-NODELIST D1 (I 0 NL) @hh@@@ @b(27Q APPLY) (15Q *LAST-NODE* 7 *SENDTOCALL*) () MATCH D1 (I 1 WME I 0 FLAG) @Ahg`h (16Q SENDTO) (11Q *FIRST-NODE* 6 LEFT) () BETA-EQUIV D1 (L (1 B 0 A)) +@A$@A @g @A (50Q EQUAL 23Q EQUAL) (32Q &AND) () EQUIV D1 (L (1 B 0 A)) 0@A)@dgdgA @A (55Q EQUAL 40Q EQUAL) (24Q &TWO 14Q &MEM) () FIND-EQUIV-BETA-NODE D1 (P 0 A I 1 LIST I 0 NODE) AXlh@H HH(21Q BETA-EQUIV) NIL () FIND-EQUIV-NODE D1 (P 0 A I 1 LIST I 0 NODE) AXlh@H HH(21Q EQUIV) NIL () LEFT-OUTS D1 (L (0 NODE)) @NIL NIL () RIGHT-OUTS D1 (L (0 NODE)) @NIL NIL () ATTACH-LEFT D1 (L (1 NEW 0 OLD)) @A@NIL NIL () ATTACH-RIGHT D1 (L (1 NEW 0 OLD)) @A@NIL NIL () LINK-BOTH D1 (P 1 R P 0 A I 2 SUCC I 1 RIGHT I 0 LEFT) - @ A XBH Yd`k@B AB B(51Q ATTACH-RIGHT 44Q ATTACH-LEFT 23Q FIND-EQUIV-BETA-NODE 15Q INTRQ 12Q RIGHT-OUTS 6 LEFT-OUTS) (37Q *REAL-CNT* 32Q *REAL-CNT*) () LINK-LEFT D1 (P 1 R P 0 A I 1 SUCC I 0 PRED)  @ XAH Yd`k@A A(34Q ATTACH-LEFT 14Q FIND-EQUIV-NODE 6 LEFT-OUTS) (27Q *REAL-CNT* 22Q *REAL-CNT*) () LINK-NEW-BETA-NODE D1 (I 0 R) `k``@ d(21Q LINK-BOTH) (30Q *LAST-BRANCH* 24Q *LAST-NODE* 15Q *LAST-NODE* 12Q *LAST-BRANCH* 7 *VIRTUAL-CNT* 2 *VIRTUAL-CNT*) () LINK-TO-BRANCH D1 (I 0 R) `k`@ (16Q LINK-LEFT) (21Q *LAST-BRANCH* 12Q *LAST-BRANCH* 7 *VIRTUAL-CNT* 2 *VIRTUAL-CNT*) () LINK-NEW-NODE D1 (I 0 R) '@o `k`k`@ (41Q LINK-LEFT 10Q MEMBER) (44Q *LAST-NODE* 35Q *LAST-NODE* 32Q *VIRTUAL-CNT* 25Q *VIRTUAL-CNT* 21Q *FEATURE-COUNT* 14Q *FEATURE-COUNT*) ( 5 (&P &MEM &TWO &AND &NOT)) ENCODE-CE-DOPE D1 NIL %@h`IdlHIJJKHNIL (7 *CE-VARS*) () ENCODE-DOPE D1 (P 3 K P 2 Z P 1 ALL P 0 R) ,@h`IdlHIJJ JKH(40Q ENCODE-PAIR) (7 *VARS*) () MEMORY-PART D1 (L (0 MEM-NODE)) @NIL NIL () PROTOMEM D1 NIL hhNIL NIL () BUILD-BETA D1 (P 3 LEF P 2 LNODE P 1 LPRED P 0 RPRED I 1 TESTS I 0 TYPE) T@ghdh `X@gghdhghdhZ Y@gd@hKHAh h(120Q LINK-NEW-BETA-NODE 101Q PROTOMEM 65Q LINK-TO-BRANCH 44Q PROTOMEM 22Q LINK-NEW-NODE 12Q PROTOMEM) (72Q &AND 53Q &TWO 37Q &MEM 32Q &AND 25Q *LAST-NODE* 5 &MEM) () FUDGE* D1 (L (0 Z)) @ddkhNIL NIL () FUDGE D1 NIL `d `d h(26Q FUDGE* 10Q FUDGE*) (20Q *CE-VARS* 2 *VARS*) () PROMOTE-VAR D1 (P 3 NEW P 2 VPOS P 1 VPRED P 0 VNAME I 0 DOPE) 4@@X@Y@ZIgoHIh HjJhd`h(40Q %%ERROR) (60Q *VARS* 54Q *VARS* 22Q EQ) ( 30Q "ILLEGALPREDICATE FOR FIRST OCCURRENCE") ENCODE-SINGLETON D1 (L (0 A)) @kNIL NIL () ENCODE-PAIR D1 (L (1 B 0 A)) @kn'AkNIL NIL () ADD-TEST D1 (P 2 RLOC P 1 LLOC P 0 TTYPE I 2 OLD I 1 NEW I 0 LIST) 20`kiAg XA ZBB YHIJ@(47Q ENCODE-PAIR 34Q ENCODE-SINGLETON 24Q CONCAT-AMOS) (21Q B 12Q *FEATURE-COUNT* 5 *FEATURE-COUNT*) () CMP-BETA D1 (P 5 OLD P 4 VPOS P 3 VPRED P 2 VNAME P 1 VDOPE P 0 TLIST I 0 KIND) ``hX`dl@dH @g`h`IIIJ` ]HIM @gI (134Q PROMOTE-VAR 117Q ADD-TEST 107Q ASSQ 41Q FUDGE 27Q BUILD-BETA) (125Q &NOT 104Q *VARS* 63Q *CUR-VARS* 57Q *CUR-VARS* 50Q *LAST-BRANCH* 45Q *LAST-NODE* 34Q &NOT 10Q *CUR-VARS*) () CMP-AND D1 NIL g (5 CMP-BETA) (2 &AND) () CMP-NOBETA D1 NIL h (3 CMP-BETA) NIL () CMP-NOT D1 NIL g (5 CMP-BETA) (2 &NOT) () CMP-CEVAR D1 (P 1 OLD P 0 NAME) ) Xd` YdoH Hjh`h(30Q %%ERROR 15Q ASSQ 5 LEX) (45Q *CE-VARS* 41Q *CE-VARS* 12Q *CE-VARS*) ( 24Q "CONDITION ELEMENT VARIABLE USED TWICE") CMP-NEW-EQ-VAR D1 (P 1 NEXT P 0 PRED I 1 OLD I 0 NAME) G A` @` Yd@I @g AXiHg hA h h(103Q LINK-NEW-NODE 73Q CURRENT-FIELD 70Q FIELD-NAME 60Q CONCAT-AMOS 43Q CMP-NEW-VAR 33Q CMP-NEW-EQ-VAR 23Q ASSQ 11Q DREMOVE) (55Q S 40Q EQ 20Q *CUR-VARS* 14Q *CUR-VARS* 6 *CUR-VARS*) () CMP-OLD-EQ-VAR D1 (I 1 OLD I 0 TEST) i@g hA h (32Q LINK-NEW-NODE 22Q FIELD-NAME 13Q CURRENT-FIELD 7 CONCAT-AMOS) (4 S) () CMP-NEW-VAR D1 (L (1 TEST 0 NAME)) @A`h`NIL (17Q *CUR-VARS* 13Q *CUR-VARS* 4 *SUBNUM*) () CMP-VAR D1 (P 1 NAME P 0 OLD I 0 TEST) 8 Yd` Xd ddg@H @gIH I@ h(64Q CMP-NEW-VAR 56Q CMP-NEW-EQ-VAR 40Q CMP-OLD-EQ-VAR 15Q ASSQ 5 SUBLEX) (47Q EQ 30Q EQ 12Q *CUR-VARS*) () CE-VAR-DOPE D1 (I 0 VAR) @` (6 ASSQ) (3 *CE-VARS*) () VAR-DOPE D1 (I 0 VAR) @` (6 ASSQ) (3 *VARS*) () FIELD-NAME D1 (I 0 NUM) '@@jlA@g@g o (44Q %%ERROR 41Q REST-OF-CE 30Q PACK*) (25Q * 21Q *C) ( 36Q "CONDITION IS TOO LONG") CURRENT-FIELD D1 NIL ` (5 FIELD-NAME) (2 *SUBNUM*) () CMP-NUMBER D1 (I 0 TEST) i@g hh (26Q LINK-NEW-NODE 16Q SUBLEX 13Q CURRENT-FIELD 7 CONCAT-AMOS) (4 N) () CMP-CONSTANT D1 (I 0 TEST) -@o o i@g hh (52Q LINK-NEW-NODE 42Q SUBLEX 37Q CURRENT-FIELD 33Q CONCAT-AMOS 22Q %%ERROR 17Q SUBLEX 7 MEMQ) (30Q A) ( 14Q "NON-NUMERIC CONSTANT AFTER NUMERIC PREDICATE" 4 (EQ NE XX)) CMP-SYMBOL D1 (P 0 FLAG I 0 TEST) PiXghXH @ ,dd@  @ o h(114Q %%ERROR 111Q SUBLEX 101Q CMP-CONSTANT 74Q SYMBOLP 71Q PEEK-SUBLEX 64Q CMP-NUMBER 45Q PEEK-SUBLEX 40Q CMP-VAR 33Q VARIABLEP 30Q PEEK-SUBLEX 17Q SUBLEX 7 PEEK-SUBLEX) (12Q //) ( 106Q "UNRECOGNIXED SYMBOL") VARIABLEP D1 (I 0 X) @ @k g(12Q GETCHAR 3 SYMBOLP) (15Q <) () CMP-PRODUCT D1 (P 0 SAVE) :gH ooH gh(66Q SUBLEX 55Q PEEK-SUBLEX 50Q CMP-ATOMIC-OR-ANY 44Q %%ERROR 26Q MEMBER 15Q END-OF-CE 11Q SUBLEX 5 REST-OF-CE) (60Q } 22Q }) ( 40Q "MISSING }" 33Q "WRONG CONTEXT FOR }") CMP-ATOMIC D1 (P 1 X P 0 TEST) ~ Yddgg`ggRIdggAgg3Idgg"ggIgggXH h(172Q CMP-SYMBOL 160Q SUBLEX 141Q SUBLEX 123Q SUBLEX 102Q SUBLEX 64Q SUBLEX 43Q SUBLEX 25Q SUBLEX 5 PEEK-SUBLEX) (164Q EQ 154Q XX 147Q <=> 135Q GE 130Q >= 117Q GT 111Q > 76Q LE 71Q <= 60Q LT 52Q < 37Q NE 32Q <> 21Q EQ 13Q =) () GET-BIND D1 (P 0 R I 0 X) @ @ (14Q LITERAL-BINDING-OF 6 SYMBOLP) NIL () $LITBIND D1 (P 0 R I 0 X) @ @ @(13Q LITERAL-BINDING-OF 6 SYMBOLP) NIL () CMP-TAB D1 (P 0 R) Xd Xd h(22Q NEW-SUBNUM 15Q $LITBIND 10Q SUBLEX 5 SUBLEX) NIL () CMP-ANY D1 (P 1 Z P 0 A) 7 hoH XgHIghIh h(63Q LINK-NEW-NODE 52Q CURRENT-FIELD 30Q SUBLEX 24Q %%ERROR 13Q END-OF-CE 5 SUBLEX) (46Q &ANY 34Q >>) ( 20Q "MISSING >>") CMP-ATOMIC-OR-ANY D1 NIL g(16Q CMP-ATOMIC 12Q CMP-ANY 2 PEEK-SUBLEX) (5 <<) () CMP-ELEMENT D1 NIL gg(32Q CMP-ATOMIC-OR-ANY 26Q CMP-PRODUCT 16Q PEEK-SUBLEX 12Q CMP-TAB 2 PEEK-SUBLEX) (21Q { 5 ^) () CMP-CE D1 (P 0 Z) 6j hXdloH H h(62Q CMP-ELEMENT 56Q INCR-SUBNUM 50Q END-OF-CE 44Q PREPARE-SUBLEX 37Q %%ERROR 17Q LEX 6 NEW-SUBNUM) (13Q *CUR-VARS*) ( 33Q "ATOMIC CONDITIONS ARE NOT ALLOWED") INCR-SUBNUM D1 NIL `kNIL (7 *SUBNUM* 2 *SUBNUM*) () NEW-SUBNUM D1 (I 0 K) @dd o@ @j(24Q %%ERROR) (33Q *SUBNUM*) ( 20Q "TAB MUST BE A NUMBER") CMP-CE+CEVAR D1 (P 0 Z) 3lXdgoH h(57Q %%ERROR 40Q LEX 34Q CMP-CEVAR 30Q CMP-CE 24Q CMP-CE 20Q CMP-CEVAR 10Q PEEK-LEX 5 LEX) (45Q /) ( 53Q "MISSING }") CMP-POSCE D1 NIL `kg(26Q CMP-CE 22Q CMP-CE+CEVAR 12Q PEEK-LEX) (15Q { 7 *CE-COUNT* 2 *CE-COUNT*) () CMP-NEGCE D1 NIL (5 CMP-CE 2 LEX) NIL () CMP-PRIN D1 NIL -``gh(51Q CMP-AND 45Q CMP-POSCE 41Q CMP-NOT 35Q CMP-NEGCE 25Q PEEK-LEX 20Q CMP-NOBETA 14Q CMP-POSCE) (30Q - 10Q *LAST-BRANCH* 5 *LAST-NODE* 2 *FIRST-NODE*) () KILL-NODE D1 (L (0 NODE)) @lh@g@bNIL (13Q &OLD) () EXCISE-P D1 (I 0 NAME) J@ D@g ;@ggh `k@ @g @g @g @g (107Q REMPROP 100Q REMPROP 71Q REMPROP 62Q KILL-NODE 57Q GET 50Q REMOVE-FROM-CONFLICT-SET 34Q PRINT 14Q GET 3 SYMBOLP) (104Q TOPNODE 75Q BACKPOINTERS 66Q PRODUCTION 54Q TOPNODE 44Q *PCOUNT* 37Q *PCOUNT* 25Q EXCISED 22Q IS 11Q TOPNODE) () RHS-PART D1 (L (0 PNODE)) @NIL NIL () CE-VAR-PART D1 (L (0 PNODE)) @NIL NIL () VAR-PART D1 (L (0 PNODE)) @NIL NIL () RATING-PART D1 (L (0 PNODE)) @NIL NIL () CMP-P D1 (P 1 BAKPTRS P 0 M I 1 MATRIX I 0 NAME)  @@d_o@ A @ h`kjhoH `Igg A h g`@gh @gI  @gA @g` h(276Q PUTPROP 263Q PUTPROP 252Q PUTPROP 246Q NREVERSE 235Q LINK-NEW-NODE 222Q REST-OF-P 214Q ENCODE-CE-DOPE 211Q ENCODE-DOPE 176Q CHECK-RHS 173Q REST-OF-P 167Q LEX 160Q EQUAL 154Q GET 137Q PEEK-LEX 125Q CMP-PRIN 121Q %%ERROR 110Q END-OF-P 104Q REST-OF-P 34Q EXCISE-P 27Q PREPARE-LEX 22Q %%ERROR) (273Q *LAST-NODE* 270Q TOPNODE 257Q PRODUCTION 242Q BACKPOINTERS 217Q PROGN 205Q *FEATURE-COUNT* 202Q &P 151Q PRODUCTION 142Q --> 131Q *LAST-BRANCH* 100Q *LAST-BRANCH* 75Q *RHS-BOUND-CE-VARS* 72Q *RHS-BOUND-VARS* 67Q *CE-VARS* 64Q *VARS* 57Q *CE-COUNT* 54Q *FEATURE-COUNT* 47Q *PCOUNT* 42Q *PCOUNT*) ( 115Q "NO '-->' IN PRODUCTION" 16Q (ILLEGAL PRODUCTION NAME)) MAKE-BOTTOM-NODE D1 NIL ghhNIL (11Q *FIRST-NODE* 2 &BUS) () PREPARE-SUBLEX D1 (L (0 CE)) @NIL (3 *CURCOND*) () REST-OF-CE D1 NIL `NIL (2 *CURCOND*) () END-OF-CE D1 NIL `lhNIL (2 *CURCOND*) () SUBLEX D1 NIL ``NIL (12Q *CURCOND* 6 *CURCOND* 2 *CURCOND*) () PEEK-SUBLEX D1 NIL `NIL (2 *CURCOND*) () PREPARE-LEX D1 (L (0 PROD)) @NIL (3 *MATRIX*) () REST-OF-P D1 NIL `NIL (2 *MATRIX*) () END-OF-P D1 NIL `lhNIL (2 *MATRIX*) () LEX D1 NIL ``NIL (12Q *MATRIX* 6 *MATRIX* 2 *MATRIX*) () PEEK-LEX D1 NIL `NIL (2 *MATRIX*) () COMPILE-PRODUCTIONA0001 D1 (P 0 \CATCH.TAG.!ERROR! F 1 NAME F 2 MATRIX) fQR (10Q CMP-P) NIL () COMPILE-PRODUCTION D1 (P 0 ERM I 1 MATRIX I 0 NAME) @jghNIL (17Q *P-NAME* 12Q COMPILE-PRODUCTIONA0001 6 *P-NAME*) () P D1 (I 0 Z) g @@ (22Q COMPILE-PRODUCTION 13Q DRAIN 10Q PRIN1 2 FINISH-LITERALIZE) (5 *) () ERASE-LITERAL-INFO2 D1 (I 0 ATT) @g (6 REMPROP) (3 CONFLICTS) () ERASE-LITERAL-INFO D1 (I 0 CLASS) @g d @g (30Q REMPROP 14Q ERASE-LITERAL-INFO2 6 GET) (25Q ATT-LIST 3 ATT-LIST) () MAKE-NUMS D1 (L (0 K)) hl@H@hH@kbNIL NIL () BUCKETS D1 NIL `dl (13Q MAKE-NUMS) (16Q *BUCKETS* 2 *BUCKETS*) () ADD-BUCKET D1 (P 0 BUC I 1 NUM I 0 NAME) A X@H H@HH(17Q MEMQ 11Q ASSOC 6 BUCKETS) NIL () STORE-BINDING D1 (I 1 LIT I 0 NAME) @gA @A (14Q ADD-BUCKET 7 PUTPROP) (3 OPS-BIND) () LITERAL-BINDING-OF D1 (I 0 NAME) @g (6 GET) (3 OPS-BIND) () REMOVE-DUPLICATES D1 (I 0 LST) @dlh@ @b@@ (34Q REMOVE-DUPLICATES 16Q MEMQ) NIL () CONFLICT D1 (P 0 OLD I 1 B I 0 A) "@g X@AAH @gAH h(36Q PUTPROP 23Q MEMQ 11Q GET) (30Q CONFLICTS 6 CONFLICTS) () MARK-CONFLICTS2 D1 (P 0 L I 1 LST I 0 ATM) AXlh@H H(21Q CONFLICT) NIL () MARK-CONFLICTS D1 (I 1 ALL I 0 REM) @dA @b(7 MARK-CONFLICTS2) NIL () FIND-COMMON-ATOM D1 (I 1 LB I 0 LA) @h@A @@b(11Q MEMQ) NIL () DISJOINT D1 (I 1 LB I 0 LA) @A h(4 FIND-COMMON-ATOM) NIL () ASSIGN-VECTORS2 D1 (P 4 NEED P 3 OLD P 2 NEW P 1 CONF P 0 BIG I 0 ATT) YP@ hk@g YIl&IIJ o@Jh J H XHkؼ@ [@KL @L h(125Q STORE-BINDING 117Q NOTE-USER-VECTOR-ASSIGNS 107Q LITERAL-BINDING-OF 74Q MAX 70Q LITERAL-BINDING-OF 62Q WARN 45Q IS-VECTOR-ATTRIBUTE 22Q GET 6 IS-VECTOR-ATTRIBUTE) (17Q CONFLICTS) ( 52Q "CLASS HAS TWO VECTOR ATTRIBUTES") ASSIGN-VECTORS D1 (I 0 CLASS) @g d h(14Q ASSIGN-VECTORS2 6 GET) (3 ATT-LIST) () ASSIGN-SCALARS2 D1 (P 3 CONF P 2 BUCKET P 1 NUM P 0 TLIST I 0 ATT) N@@ D@ >@g Hdlo@ @m hHHJK @I h(112Q STORE-BINDING 103Q DISJOINT 62Q STORE-BINDING 53Q WARN 31Q GET 21Q BUCKETS 14Q IS-VECTOR-ATTRIBUTE 6 LITERAL-BINDING-OF) (26Q CONFLICTS) ( 47Q "COULD NOT GENERATE A BINDING") ASSIGN-SCALARS D1 (I 0 CLASS) @g d h(14Q ASSIGN-SCALARS2 6 GET) (3 ATT-LIST) () NOTE-USER-VECTOR-ASSIGNS D1 (I 2 NEEDED I 1 GIVEN I 0 ATT) BA o@ (14Q WARN) NIL ( 10Q "VECTOR ATTRIBUTE ASSIGNED TOO SMALL A VALUE IN LITERAL") NOTE-USER-ASSIGNS2 D1 (P 3 CLASH P 2 BUCK P 1 CONF P 0 NUM I 0 ATT) /@@ Xd$@g Y@H ZdI [d o@K h(53Q WARN 35Q FIND-COMMON-ATOM 27Q STORE-BINDING 21Q GET 6 LITERAL-BINDING-OF) (16Q CONFLICTS) ( 45Q "ATTRIBUTES IN A CLASS ASSIGNED THE SAME NUMBER") NOTE-USER-ASSIGNS D1 (I 0 CLASS) @g d h(14Q NOTE-USER-ASSIGNS2 6 GET) (3 ATT-LIST) () PUT-PPDAT D1 (P 2 PPDAT P 1 ATT P 0 AL I 0 CLASS) 00h@g HlHHI IJ@gJ h(54Q PUTPROP 35Q LITERAL-BINDING-OF 13Q GET) (50Q PPDAT 10Q ATT-LIST) () HAVE-COMPILED-PRODUCTION D1 NIL `jhNIL (2 *PCOUNT*) () FINISH-LITERALIZE D1 NIL S`dMd `d `d `d `d hd(103Q ERASE-LITERAL-INFO 65Q PUT-PPDAT 47Q ASSIGN-VECTORS 31Q ASSIGN-SCALARS 13Q NOTE-USER-ASSIGNS) (120Q *BUCKETS* 114Q *CLASS-LIST* 75Q *CLASS-LIST* 57Q *CLASS-LIST* 41Q *CLASS-LIST* 23Q *CLASS-LIST* 2 *CLASS-LIST*) () TEST-ATTRIBUTE-NAMES2 D1 (I 0 ATM) @ @ o@ (22Q WARN 10Q VARIABLEP 3 SYMBOLP) NIL ( 16Q "CAN BIND ONLY CONSTANT ATOMS") TEST-ATTRIBUTE-NAMES D1 (I 0 L) @d h(6 TEST-ATTRIBUTE-NAMES2) NIL () IS-VECTOR-ATTRIBUTE D1 (I 0 ATT) @g (6 GET) (3 VECTOR-ATTRIBUTE) () VECTOR-ATTRIBUTE2 D1 (I 0 ATT) @gi (7 PUTPROP) (3 VECTOR-ATTRIBUTE) () VECTOR-ATTRIBUTE D1 (I 0 L) o@ @ @d h(27Q VECTOR-ATTRIBUTE2 20Q TEST-ATTRIBUTE-NAMES 13Q WARN 2 HAVE-COMPILED-PRODUCTION) NIL ( 7 "VECTOR-ATTRIBUTE CALLED AFTER P") LITERALIZE D1 (P 1 ATTS P 0 CLASS-NAME I 0 L) H @XoH hHg oH hH`@ Yd Id HgI h(104Q PUTPROP 74Q MARK-CONFLICTS 67Q TEST-ATTRIBUTE-NAMES 62Q REMOVE-DUPLICATES 43Q WARN 32Q GET 21Q WARN 10Q HAVE-COMPILED-PRODUCTION) (100Q ATT-LIST 55Q *CLASS-LIST* 51Q *CLASS-LIST* 27Q ATT-LIST) ( 37Q "ATTEMPT TO REDEFINE CLASS" 15Q "LITERALIZE CALLED AFTER P") LITERAL D1 (P 2 OLD P 1 VAL P 0 ATM I 0 Z) |0@dlggo @@@bIddoI H H oH H Z HgI I oH (167Q WARN 155Q EQUAL 146Q PUTPROP 133Q LITERAL-BINDING-OF 124Q WARN 113Q VARIABLEP 106Q SYMBOLP 77Q WARN 33Q WARN) (142Q OPS-BIND 22Q = 14Q BOUND) ( 163Q "ATTEMPT TO BIND ATTRIBUTE" 120Q "CAN BIND ONLY CONSTANT ATOMS" 73Q "CAN BIND ONLY NUMBERS" 30Q "WRONG FORMAT") TOP-LEVELS-EQ D1 (L (1 LB 0 LA)) !@dAihA@dAbAbNIL NIL () ROUND D1 (L (0 X)) @ojNIL NIL ( 4 .5) WARN D1 (I 1 WHERE I 0 WHAT) &g `` o A @ A(42Q PRIN1 36Q PRIN1 32Q PRIN1 22Q PRIN1 10Q PRIN1 2 TERPRI) (17Q *P-NAME* 13Q *P-NAME* 5 ?) ( 27Q "..") I-G-V D1 (P 0 X F 1 CLISPCHARS) Qo cggi l@hghihjoohll l j`Hkh*HkX`jjhoh(255Q INITIALIZE-RECORD 244Q MAKE-BOTTOM-NODE 210Q *MAKHUNK 177Q *MAKHUNK 27Q SETSYNTAX 12Q LDIFFERENCE) (340Q *REMAINING-CYCLES* 330Q *P-NAME* 325Q *WMPART-LIST* 322Q *CONFLICT-SET* 315Q *TOTAL-WM* 312Q *MAX-WM* 307Q *CURRENT-WM* 304Q *TOTAL-CS* 301Q *MAX-CS* 276Q *TOTAL-TOKEN* 273Q *MAX-TOKEN* 270Q *CURRENT-TOKEN* 265Q *CYCLE-COUNT* 262Q *ACTION-COUNT* 251Q *PCOUNT* 236Q *SIZE-RESULT-ARRAY* 221Q *RESULT-ARRAY* 213Q *RECORD-ARRAY* 202Q *RESULT-ARRAY* 171Q *SIZE-RESULT-ARRAY* 163Q *WMPART-LIST* 160Q *BUILD-TRACE* 155Q *CRITICAL* 150Q *LIMIT-CS* 140Q *LIMIT-TOKEN* 130Q *MAX-CS* 125Q *TOTAL-CS* 122Q *REAL-CNT* 117Q *VIRTUAL-CNT* 112Q *REFRACTS* 107Q *RECORDING* 104Q *WTRACE* 77Q *PTRACE* 72Q *IN-RHS* 65Q *STRATEGY* 62Q LEX 56Q *BRKPTS* 53Q *CLASS-LIST* 50Q *TRACE-FILE* 45Q *WRITE-FILE* 42Q *ACCEPT-FILE* 35Q *BUCKETS* 23Q BREAK 20Q ^) ( 335Q 3641100Q 145Q 3641100Q 135Q 3641100Q 7 (^ - + < > *)) INTRQ D1 (I 1 Y I 0 X) @dlhA @@A @b(26Q INTRQ 15Q MEMQ) NIL () PRINTLINEC* D1 (I 0 Y) g @ (11Q PRIN1 5 PRIN1) (2 |) () PRINTLINEC D1 (I 0 X) @d h(6 PRINTLINEC*) NIL () PRINTLINE* D1 (I 0 Y) o @ (12Q PRINT 6 PRIN1) NIL ( 3 " ") GELM D1 (L (1 K 0 X))  An'۸AHn'ٹHj-@bHk#@bHl@bHl@bHdl@bIj_lX@bIkO@bIlD@bIl9@bIl.@bIl#@bIl@bIl@bIdl@lYNIL NIL () CE-GELM D1 (L (1 K 0 X)) Ado@kb@bNIL NIL ( 5 1.0) EXIT D1 (I 0 Z) (2 QUIT) NIL () *MAKHUNK D1 (I 0 X) l@k (12Q ARRAY 7 EXPT) NIL () DRAIN D1 NIL hNIL NIL () NWRITN D1 (I 0 X) @ (3 POSITION) NIL () %%ERROR D1 (I 1 WHERE I 0 WHAT F 0 \CATCH.TAG.!ERROR!) @A Pgd (14Q \THROW.AUX 4 WARN) (10Q !ERROR!) () WARN D1 (I 1 WHERE I 0 WHAT) &g `` o A @ A(42Q PRIN1 36Q PRIN1 32Q PRIN1 22Q PRIN1 10Q PRIN1 2 TERPRI) (17Q *P-NAME* 13Q *P-NAME* 5 ?) ( 27Q "..") TYI D1 (I 1 EOFVAL I 0 STRM) @g b A@ (13Q EOFP 6 GETSTREAM) (3 INPUT) () (PRETTYCOMPRINT OPS5S1COMS) (RPAQQ OPS5S1COMS ((FNS BROKEN MEMQ MYDOLOOP REMATM PBREAK2 SIMPLEOPSTEST SYMBOLP GET GETCHAR PBREAK EXTERNALP EXTERNAL3 EXTERNAL2 EXTERNAL WATCH CS STRATEGY RUN EXCISE TOP-LEVEL-REMOVE CHECK-LIMITS PM-SIZE PRINT-TIMES ACCUM-STATS DO-CONTINUE MAIN PROCESS-CHANGES CE-BOUND? NNREV NOTE-CE-VARIABLE NREVERSE NULLA BOUND? NOTE-VARIABLE CHECK-TAB-INDEX CHECK-PRINT-CONTROL CHECK-SUBSTR-INDEX CHECK-LAST-SUBSTR-INDEX CHECK-TERM CHECK-ARITHMETIC CHECK-COMPUTE CHECK-SUBSTR CHECK-0-ARGS CHECK-RJUST CHECK-TABTO CHECK-GENATOM CHECK-CRLF CHECK-ACCEPTLINE CHECK-ACCEPT CHECK-LITVAL CHECK-RHS-FUNCTION CHECK-RHS-ATOMIC CHECK-RHS-VALUE CHECK-RHS-CE-VAR CHECK-CHANGE& CHECK-BIND CHECK-CBIND CHECK-HALT CHECK-CALL CHECK-WRITE CHECK-MODIFY CHECK-DEFAULT CHECK-CLOSEFILE CHECK-OPENFILE CHECK-MAKE CHECK-REMOVE CHECK-BUILD-COLLECT CHECK-BUILD CHECK-ACTION CHECK-RHS FIND-RIGHT-MEM FIND-LEFT-MEM WRITE-ELMS2 WRITE-ELMS MATCHES3 MATCHES2 MATCHES BACK-PRINT STILL-PRESENT UNDO-RECORD BACK GETVECTOR PUTVECTOR REFRACTED RECORD-REFRACT RECORD-CHANGE END-RECORD BEGIN-RECORD INITIALIZE-RECORD RECORD-INDEX-PLUS GETUPTO GETVAL PPONLYVAL PPATTVAL PPLINE2 PPLINE PPRULE PM PPVAL PPELM IDENT FILTER PPWM2 PPWM TABTO CRLF RJUST LITVAL LOADOPS5 GENATOM ARI-UNIT ARI ARITH COMPUTE SUBSTR ACCEPTLINE SPAN-CHARS FLAT-VALUE CHECK-FOR-EOF ACCEPT DEFAULT CLOSEFILE2 CLOSEFILE $OFILE $IFILE BUILD HALT DO-TABTO DO-RJUST DEFAULT-WRITE-FILE WRITE CALL REMOVEWM CBIND BIND MODIFY MAKE $PARAMETER $PARAMETERCOUNT $ASSERT USE-RESULT-ARRAY $VALUE $TAB RHS-TAB $RESET EVAL-FUNCTION EVAL-ARGS $CHANGE UNFLAT* UNFLAT BUILD-COLLECT GET-NUM-CE GET-CE-VAR-BIND ASSQ $VARBIND MAKE-VAR-BIND MAKE-CE-VAR-BIND INIT-CE-VAR-MEM INIT-VAR-MEM TIME-TAG-PRINT EVAL-RHS TRACE-FILE REFRESH-ADD REFRESH-DEL REFRESH-COLLECT REFRESH CREATION-TIME WM-HASH GET-WM2 GET-WM WM MAPWM REMOVE-FROM-WM ADD-TO-WM CONCAT-AMOS CONFLICT-SET CONFLICT-SET-COMPARE INSTANTIATION ORDER-PART PNAME-INSTANTIATION REMOVE-FROM-CONFLICT-SET BEST-OF* BEST-OF CONFLICT-RESOLUTION DSORT ORDER-TAGS INSERTCS REMOVECS REMOVE-OLD-NO-NUM REMOVE-OLD-NUM REMOVE-OLD REAL-ADD-TOKEN ADD-TOKEN NOT-RIGHT NOT-LEFT &NOT &OLD &P TXXB TLEB TGEB TGTB TLTB TNEB TEQB AND-RIGHT AND-LEFT &AND &MEM &TWO TLES TGES TGTS TLTS TXXS TNES TEQS TLEN TGEN TGTN TLTN TXXN TNEN TEQN TXXA TNEA TEQA &ANY &BUS SENDTO EVAL-NODELIST MATCH BETA-EQUIV EQUIV FIND-EQUIV-BETA-NODE FIND-EQUIV-NODE LEFT-OUTS RIGHT-OUTS ATTACH-LEFT ATTACH-RIGHT LINK-BOTH LINK-LEFT LINK-NEW-BETA-NODE LINK-TO-BRANCH LINK-NEW-NODE ENCODE-CE-DOPE ENCODE-DOPE MEMORY-PART PROTOMEM BUILD-BETA FUDGE* FUDGE PROMOTE-VAR ENCODE-SINGLETON ENCODE-PAIR ADD-TEST CMP-BETA CMP-AND CMP-NOBETA CMP-NOT CMP-CEVAR CMP-NEW-EQ-VAR CMP-OLD-EQ-VAR CMP-NEW-VAR CMP-VAR CE-VAR-DOPE VAR-DOPE FIELD-NAME CURRENT-FIELD CMP-NUMBER CMP-CONSTANT CMP-SYMBOL VARIABLEP CMP-PRODUCT CMP-ATOMIC GET-BIND $LITBIND CMP-TAB CMP-ANY CMP-ATOMIC-OR-ANY CMP-ELEMENT CMP-CE INCR-SUBNUM NEW-SUBNUM CMP-CE+CEVAR CMP-POSCE CMP-NEGCE CMP-PRIN KILL-NODE EXCISE-P RHS-PART CE-VAR-PART VAR-PART RATING-PART CMP-P MAKE-BOTTOM-NODE PREPARE-SUBLEX REST-OF-CE END-OF-CE SUBLEX PEEK-SUBLEX PREPARE-LEX REST-OF-P END-OF-P LEX PEEK-LEX COMPILE-PRODUCTION P ERASE-LITERAL-INFO2 ERASE-LITERAL-INFO MAKE-NUMS BUCKETS ADD-BUCKET STORE-BINDING LITERAL-BINDING-OF REMOVE-DUPLICATES CONFLICT MARK-CONFLICTS2 MARK-CONFLICTS FIND-COMMON-ATOM DISJOINT ASSIGN-VECTORS2 ASSIGN-VECTORS ASSIGN-SCALARS2 ASSIGN-SCALARS NOTE-USER-VECTOR-ASSIGNS NOTE-USER-ASSIGNS2 NOTE-USER-ASSIGNS PUT-PPDAT HAVE-COMPILED-PRODUCTION FINISH-LITERALIZE TEST-ATTRIBUTE-NAMES2 TEST-ATTRIBUTE-NAMES IS-VECTOR-ATTRIBUTE VECTOR-ATTRIBUTE2 VECTOR-ATTRIBUTE LITERALIZE LITERAL TOP-LEVELS-EQ ROUND WARN I-G-V INTRQ PRINTLINEC* PRINTLINEC PRINTLINE* GELM CE-GELM EXIT *MAKHUNK DRAIN NWRITN) (FNS %%ERROR WARN) (FNS TYI) (VARS GG) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS * GG) (MACROS COMMENT + - // 1+ 1- < > == CXR FAST-SYMEVAL FLATC GETVECTOR NCONS PUTVECTOR) (P (CLDISABLE (QUOTE MATCH)) (CLDISABLE (QUOTE *)) (CLDISABLE (QUOTE ^)) ( CLDISABLE (QUOTE -)) (CLDISABLE (QUOTE +)) (CLDISABLE (QUOTE <)) (CLDISABLE (QUOTE >)) (CLDISABLE ( QUOTE =))) (VARS (DWIMIFYCOMPFLG))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA EXIT LITERAL LITERALIZE VECTOR-ATTRIBUTE P WM MAKE MODIFY BIND CBIND REMOVEWM CALL WRITE BUILD CLOSEFILE DEFAULT ACCEPT ACCEPTLINE SUBSTR COMPUTE ARITH LITVAL RJUST CRLF TABTO PPWM PM MATCHES EXCISE RUN STRATEGY CS WATCH EXTERNAL PBREAK MYDOLOOP) (NLAML) (LAMA))))) (RPAQQ GG (*MATRIX* *FEATURE-COUNT* *PCOUNT* *VARS* *CUR-VARS* *CURCOND* *SUBNUM* *LAST-NODE* *LAST-BRANCH* *FIRST-NODE* *SENDTOCALL* *FLAG-PART* *ALPHA-FLAG-PART* *DATA-PART* *ALPHA-DATA-PART* *CE-VARS* *VIRTUAL-CNT* *REAL-CNT* *CURRENT-TOKEN* *C1* *C2* *C3* *C4* *C5* *C6* *C7* *C8* *C9* *C10* *C11* *C12* *C13* *C14* *C15* *C16* *C17* *C18* *C19* *C20* *C21* *C22* *C23* *C24* *C25* *C26* *C27* *C28* *C29* *C30* *C31* *C32* *C33* *C34* *C35* *C36* *C37* *C38* *C39* *C40* *C41* *C42* *C43* *C44* *C45* *C46* *C47* *C48* *C49* *C50* *C51* *C52* *C53* *C54* *C55* *C56* *C57* *C58* *C59* *C60* *C61* *C62* *C63* *C64* *RECORD-ARRAY* *RESULT-ARRAY* *MAX-CS* *TOTAL-CS* *LIMIT-CS* *CR-TEMP* *SIDE* *CONFLICT-SET* *HALT-FLAG* *PHASE* *CRITICAL* *CYCLE-COUNT* *TOTAL-TOKEN* *MAX-TOKEN* *REFRACTS* *LIMIT-TOKEN* *TOTAL-WM* *CURRENT-WM* *MAX-WM* *ACTION-COUNT* *WMPART-LIST* *WM* *DATA-MATCHED* *P-NAME* *VARIABLE-MEMORY* *CE-VARIABLE-MEMORY* *MAX-INDEX* *NEXT-INDEX* *SIZE-RESULT-ARRAY* *REST* *BUILD-TRACE* *LAST* *PTRACE* *WTRACE* *IN-RHS* *RECORDING* *ACCEPT-FILE* *TRACE-FILE* *WRITE-FILE* *RECORD-INDEX* *MAX-RECORD-INDEX* *OLD-WM* *RECORD* *FILTERS* *BREAK-FLAG* *STRATEGY* *REMAINING-CYCLES* *WM-FILTER* *RHS-BOUND-VARS* *RHS-BOUND-CE-VARS* *PPLINE* *CE-COUNT* *BRKPTS* *CLASS-LIST* *BUCKETS* *ACTION-TYPE*)) (PRETTYCOMPRINT OPS5S1COMS) (RPAQQ OPS5S1COMS ((FNS BROKEN MEMQ MYDOLOOP REMATM PBREAK2 SIMPLEOPSTEST SYMBOLP GET GETCHAR PBREAK EXTERNALP EXTERNAL3 EXTERNAL2 EXTERNAL WATCH CS STRATEGY RUN EXCISE TOP-LEVEL-REMOVE CHECK-LIMITS PM-SIZE PRINT-TIMES ACCUM-STATS DO-CONTINUE MAIN PROCESS-CHANGES CE-BOUND? NNREV NOTE-CE-VARIABLE NREVERSE NULLA BOUND? NOTE-VARIABLE CHECK-TAB-INDEX CHECK-PRINT-CONTROL CHECK-SUBSTR-INDEX CHECK-LAST-SUBSTR-INDEX CHECK-TERM CHECK-ARITHMETIC CHECK-COMPUTE CHECK-SUBSTR CHECK-0-ARGS CHECK-RJUST CHECK-TABTO CHECK-GENATOM CHECK-CRLF CHECK-ACCEPTLINE CHECK-ACCEPT CHECK-LITVAL CHECK-RHS-FUNCTION CHECK-RHS-ATOMIC CHECK-RHS-VALUE CHECK-RHS-CE-VAR CHECK-CHANGE& CHECK-BIND CHECK-CBIND CHECK-HALT CHECK-CALL CHECK-WRITE CHECK-MODIFY CHECK-DEFAULT CHECK-CLOSEFILE CHECK-OPENFILE CHECK-MAKE CHECK-REMOVE CHECK-BUILD-COLLECT CHECK-BUILD CHECK-ACTION CHECK-RHS FIND-RIGHT-MEM FIND-LEFT-MEM WRITE-ELMS2 WRITE-ELMS MATCHES3 MATCHES2 MATCHES BACK-PRINT STILL-PRESENT UNDO-RECORD BACK GETVECTOR PUTVECTOR REFRACTED RECORD-REFRACT RECORD-CHANGE END-RECORD BEGIN-RECORD INITIALIZE-RECORD RECORD-INDEX-PLUS GETUPTO GETVAL PPONLYVAL PPATTVAL PPLINE2 PPLINE PPRULE PM PPVAL PPELM IDENT FILTER PPWM2 PPWM TABTO CRLF RJUST LITVAL LOADOPS5 GENATOM ARI-UNIT ARI ARITH COMPUTE SUBSTR ACCEPTLINE SPAN-CHARS FLAT-VALUE CHECK-FOR-EOF ACCEPT DEFAULT CLOSEFILE2 CLOSEFILE $OFILE $IFILE BUILD HALT DO-TABTO DO-RJUST DEFAULT-WRITE-FILE WRITE CALL REMOVEWM CBIND BIND MODIFY MAKE $PARAMETER $PARAMETERCOUNT $ASSERT USE-RESULT-ARRAY $VALUE $TAB RHS-TAB $RESET EVAL-FUNCTION EVAL-ARGS $CHANGE UNFLAT* UNFLAT BUILD-COLLECT GET-NUM-CE GET-CE-VAR-BIND ASSQ $VARBIND MAKE-VAR-BIND MAKE-CE-VAR-BIND INIT-CE-VAR-MEM INIT-VAR-MEM TIME-TAG-PRINT EVAL-RHS TRACE-FILE REFRESH-ADD REFRESH-DEL REFRESH-COLLECT REFRESH CREATION-TIME WM-HASH GET-WM2 GET-WM WM MAPWM REMOVE-FROM-WM ADD-TO-WM CONCAT-AMOS CONFLICT-SET CONFLICT-SET-COMPARE INSTANTIATION ORDER-PART PNAME-INSTANTIATION REMOVE-FROM-CONFLICT-SET BEST-OF* BEST-OF CONFLICT-RESOLUTION DSORT ORDER-TAGS INSERTCS REMOVECS REMOVE-OLD-NO-NUM REMOVE-OLD-NUM REMOVE-OLD REAL-ADD-TOKEN ADD-TOKEN NOT-RIGHT NOT-LEFT &NOT &OLD &P TXXB TLEB TGEB TGTB TLTB TNEB TEQB AND-RIGHT AND-LEFT &AND &MEM &TWO TLES TGES TGTS TLTS TXXS TNES TEQS TLEN TGEN TGTN TLTN TXXN TNEN TEQN TXXA TNEA TEQA &ANY &BUS SENDTO EVAL-NODELIST MATCH BETA-EQUIV EQUIV FIND-EQUIV-BETA-NODE FIND-EQUIV-NODE LEFT-OUTS RIGHT-OUTS ATTACH-LEFT ATTACH-RIGHT LINK-BOTH LINK-LEFT LINK-NEW-BETA-NODE LINK-TO-BRANCH LINK-NEW-NODE ENCODE-CE-DOPE ENCODE-DOPE MEMORY-PART PROTOMEM BUILD-BETA FUDGE* FUDGE PROMOTE-VAR ENCODE-SINGLETON ENCODE-PAIR ADD-TEST CMP-BETA CMP-AND CMP-NOBETA CMP-NOT CMP-CEVAR CMP-NEW-EQ-VAR CMP-OLD-EQ-VAR CMP-NEW-VAR CMP-VAR CE-VAR-DOPE VAR-DOPE FIELD-NAME CURRENT-FIELD CMP-NUMBER CMP-CONSTANT CMP-SYMBOL VARIABLEP CMP-PRODUCT CMP-ATOMIC GET-BIND $LITBIND CMP-TAB CMP-ANY CMP-ATOMIC-OR-ANY CMP-ELEMENT CMP-CE INCR-SUBNUM NEW-SUBNUM CMP-CE+CEVAR CMP-POSCE CMP-NEGCE CMP-PRIN KILL-NODE EXCISE-P RHS-PART CE-VAR-PART VAR-PART RATING-PART CMP-P MAKE-BOTTOM-NODE PREPARE-SUBLEX REST-OF-CE END-OF-CE SUBLEX PEEK-SUBLEX PREPARE-LEX REST-OF-P END-OF-P LEX PEEK-LEX COMPILE-PRODUCTION P ERASE-LITERAL-INFO2 ERASE-LITERAL-INFO MAKE-NUMS BUCKETS ADD-BUCKET STORE-BINDING LITERAL-BINDING-OF REMOVE-DUPLICATES CONFLICT MARK-CONFLICTS2 MARK-CONFLICTS FIND-COMMON-ATOM DISJOINT ASSIGN-VECTORS2 ASSIGN-VECTORS ASSIGN-SCALARS2 ASSIGN-SCALARS NOTE-USER-VECTOR-ASSIGNS NOTE-USER-ASSIGNS2 NOTE-USER-ASSIGNS PUT-PPDAT HAVE-COMPILED-PRODUCTION FINISH-LITERALIZE TEST-ATTRIBUTE-NAMES2 TEST-ATTRIBUTE-NAMES IS-VECTOR-ATTRIBUTE VECTOR-ATTRIBUTE2 VECTOR-ATTRIBUTE LITERALIZE LITERAL TOP-LEVELS-EQ ROUND WARN I-G-V INTRQ PRINTLINEC* PRINTLINEC PRINTLINE* GELM CE-GELM EXIT *MAKHUNK DRAIN NWRITN) (FNS %%ERROR WARN) (FNS TYI) (VARS GG) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS * GG) (MACROS COMMENT + - // 1+ 1- < > == CXR FAST-SYMEVAL FLATC GETVECTOR NCONS PUTVECTOR) (P (CLDISABLE (QUOTE MATCH)) (CLDISABLE (QUOTE *)) (CLDISABLE (QUOTE ^)) ( CLDISABLE (QUOTE -)) (CLDISABLE (QUOTE +)) (CLDISABLE (QUOTE <)) (CLDISABLE (QUOTE >)) (CLDISABLE ( QUOTE =))) (VARS (DWIMIFYCOMPFLG))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA BIND CBIND WRITE ACCEPT ACCEPTLINE SUBSTR LITVAL RJUST TABTO PPWM RUN EXIT LITERAL LITERALIZE VECTOR-ATTRIBUTE P WM MAKE MODIFY REMOVEWM CALL BUILD CLOSEFILE DEFAULT COMPUTE ARITH CRLF PM MATCHES EXCISE STRATEGY CS WATCH EXTERNAL PBREAK MYDOLOOP) (NLAML) (LAMA))))) (PUTPROPS OPS5S1 COPYRIGHT ("AMOS BARZILAY" 1984)) NIL