2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
8 <NEWTYPE OLD-AND-USELESS VECTOR>
10 <NEWTYPE LOCAL-NAME FIX>
12 <NEWTYPE CONSTANT FIX>
14 <NEWTYPE CONSTANT-LABEL FIX>
25 <GFCN
\1aREF-PRINT ("VALUE" ANY REF) R4>
31 <GEN-LVAL 'OUTCHAN = STACK>
32 <CALL '
\1aPRIN1 2 = TEMP6>
37 <GFCN
\1aPPOLE ("VALUE" LIST LIST "TUPLE" <PRIMTYPE VECTOR>) CODE-L4>
38 <MAKTUP T5:TUPLE (PREPREV6 %<>) TEMP3:LBIND TEMP17:VECTOR TEMP19 TEMP22 ITM23 TEMP48 TEMP53 TEMP54 = T5>
40 <GETS 'BIND = TEMP3 (TYPE LBIND)>
41 <BBIND 'PREVIOUS <OR FALSE REF INST OLD-AND-USELESS> 'FIX %<>>
44 <GVAL 'REF-PRINT = STACK>
45 <CALL '
\1aPRINTTYPE 2>
46 <FRAME '
\1aGENERATE-CIRCULAR-REFERENCES>
48 <CALL '
\1aGENERATE-CIRCULAR-REFERENCES 1>
49 <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP17>
53 <EMPUV? TEMP17 + MAPAP15>
54 <GETS 'BIND = TEMP19 (TYPE LBIND)>
56 <BBIND 'NEW-T <PRIMTYPE VECTOR> 'FIX TEMP22>
58 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
59 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
60 <NTHUV TEMP22 1 = ITM23>
62 <TYPE? ITM23 <TYPE-CODE OLD-AND-USELESS> + PHRASE158>
63 <TYPE? ITM23 <TYPE-CODE REF> - PHRASE33>
64 <FRAME '
\1aDELETE-ADJACENT-REFS>
65 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
66 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
68 <CALL '
\1aDELETE-ADJACENT-REFS 1>
69 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
70 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
71 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
72 <NTHUV TEMP22 2 = STACK>
74 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP22>
75 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE38>
77 <FRAME '
\1aBRANCH-CHAIN>
78 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
79 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
81 <CALL '
\1aBRANCH-CHAIN 1>
83 <NTHR 'LOOPTAGS 1 = TEMP48 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG47)>
84 <TYPE? TEMP48 <TYPE-CODE FALSE> + TAG47>
85 <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE GBIND)>
86 <TYPE? TEMP48 <TYPE-CODE UNBOUND> - TAG46>
89 <SET TEMP22 %<> (TYPE FALSE)>
92 <NTHUV ITM23 1 = TEMP48>
93 <GVAL 'LOOPTAGS = TEMP22>
94 <TYPE TEMP48 = TEMP53>
95 <EMPTY? TEMP22 + TAG49>
96 <LOOP (TEMP48 VALUE) (TEMP53 VALUE) (TEMP22 LENGTH VALUE TYPE)>
98 <NTH1 TEMP22 = TEMP54>
99 <TYPE? TEMP54 TEMP53 - TAG52>
100 <VEQUAL? TEMP54 TEMP48 + TAG50>
103 <REST1 TEMP22 = TEMP22>
104 <EMPTY? TEMP22 - TAG51>
106 <SET TEMP22 %<> (TYPE FALSE)>
108 <SETG 'CIRC-LOOP? TEMP22>
110 <TYPE? PREPREV6 <TYPE-CODE FALSE> + PHRASE56>
111 <FRAME '
\1aPOST-ACCESS>
113 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
114 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
116 <CALL '
\1aPOST-ACCESS 2>
118 <NTHUV ITM23 3 = TEMP22>
119 <EMPTY? TEMP22 - PHRASE61>
121 <NTHUV ITM23 1 = TEMP22>
122 <GVAL 'LOCATIONS = TEMP53>
123 <TYPE TEMP22 = TEMP48>
124 <EMPTY? TEMP53 + TAG63>
125 <LOOP (TEMP22 VALUE) (TEMP48 VALUE) (TEMP53 LENGTH VALUE TYPE)>
127 <NTH1 TEMP53 = TEMP54>
128 <TYPE? TEMP54 TEMP48 - TAG65>
129 <VEQUAL? TEMP54 TEMP22 + PHRASE61>
132 <REST1 TEMP53 = TEMP53>
133 <EMPTY? TEMP53 - TAG64>
135 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
136 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
137 <NTHUV TEMP53 1 = STACK>
139 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP53>
140 <CHTYPE TEMP53 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
141 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
142 <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
143 <PUTUV TEMP48 1 TEMP53>
147 <GVAL 'DONT-HACK = TEMP48>
148 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
150 <NTHUV ITM23 2 = TEMP48>
151 <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
153 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
154 <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
155 <NTHUV TEMP48 1 = TEMP48>
156 <TYPE? TEMP48 <TYPE-CODE REF> - PHRASE158>
159 <NTHUV ITM23 3 = STACK>
161 <CALL '
\1aLENGTH 1 = TEMP48>
162 <VEQUAL? TEMP48 1 - PHRASE158 (TYPE FIX)>
164 <FRAME '
\1aSINGLE-PATH-OPTIMIZE>
166 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
167 <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
169 <CALL '
\1aSINGLE-PATH-OPTIMIZE 2>
172 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
174 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
175 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE81>
177 <FRAME '
\1aSKIP-MODIFY>
178 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
179 <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
181 <NTHR 'PREVIOUS 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
182 <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
185 <CALL '
\1aSKIP-MODIFY 3>
188 <FRAME '
\1aCONDITIONAL-BRANCH?>
190 <CALL '
\1aCONDITIONAL-BRANCH? 1 = TEMP48>
191 <VEQUAL? TEMP48 0 + PHRASE88>
193 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
194 <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
195 <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
196 <CHTYPE TEMP48 <TYPE-CODE VECTOR> = TEMP48>
197 <EMPUV? TEMP48 + PHRASE158 (TYPE VECTOR)>
199 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
200 <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
201 <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
202 <NTHUV TEMP48 2 = STACK>
204 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
205 <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE158>
207 <LENUV ITM23 = TEMP48 (TYPE FIX)>
208 <NTHUV ITM23 TEMP48 = TEMP48>
209 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
210 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
211 <NTHUV TEMP53 3 = TEMP53>
212 <EQUAL? TEMP48 TEMP53 - PHRASE158>
215 <NTHUV ITM23 1 = STACK>
218 <CALL '
\1aGETPROP 2 = TEMP22>
219 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE158>
221 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
222 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
223 <NTHUV TEMP53 2 = STACK>
226 <CALL '
\1aNTH 2 = ITM23>
228 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
229 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
230 <NTHUV TEMP53 1 = STACK>
237 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
238 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
239 <NTHUV TEMP53 1 = STACK>
247 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
248 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
249 <NTHUV TEMP53 1 = STACK>
251 <SET TEMP48 1 (TYPE FIX)>
256 <SCALL '
\1aNTH 2 = TEMP53 + TAG111 TEMP48>
257 <TYPE TEMP53 = TEMP22>
258 <AND TEMP22 7 = TEMP22>
259 <VEQUAL? TEMP22 1 + TAG115>
261 <LOOP (TEMP53 TYPE VALUE LENGTH) (TEMP48 VALUE)>
264 <EMPTY? TEMP53 + TAG119>
265 <NTH1 TEMP53 = STACK>
266 <REST1 TEMP53 = TEMP53>
267 <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
270 <LIST TEMP48 = STACK (TYPE LIST)>
278 <VEQUAL? TEMP48 0 + TAG117>
280 <CONS TEMP22 TEMP53 = TEMP53 (TYPE LIST)>
282 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
289 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
290 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
291 <FRAME '
\1aELIMINATE>
292 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
293 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
294 <NTHUV TEMP22 2 = STACK>
296 <CALL '
\1aELIMINATE 1 = TEMP22>
297 <PUTUV TEMP53 2 TEMP22>
301 <GVAL 'DONT-HACK = TEMP53>
302 <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
304 <GVAL 'CIRC-LOOP? = TEMP53>
305 <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
309 <CALL '
\1aMOVE? 1 = TEMP53>
310 <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE126>
312 <FRAME '
\1aMOVE-CHECK>
313 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
314 <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
317 <CALL '
\1aMOVE-CHECK 2>
318 <FRAME '
\1aMOVE-NEEDED?>
319 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
320 <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
324 <CALL '
\1aMOVE-NEEDED? 2>
327 <NTHUV ITM23 1 = TEMP53>
328 <EQUAL? TEMP53 'PUSH - PHRASE135>
330 <NTHUV ITM23 2 = TEMP53>
331 <TYPE? TEMP53 <TYPE-CODE ATOM> - PHRASE135>
334 <CALL '
\1aFINDZERO 0 = TEMP22>
335 <VEQUAL? TEMP22 0 + PHRASE135>
336 <FRAME '
\1aPUSH-OPTIMIZE>
337 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
338 <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
342 <NTHUV ITM23 2 = STACK (TYPE ATOM)>
344 <CALL '
\1aPUSH-OPTIMIZE 3>
347 <NTHUV ITM23 1 = TEMP53>
348 <EQUAL? TEMP53 'ADDI + BOOL143>
350 <NTHUV ITM23 1 = TEMP53>
351 <EQUAL? TEMP53 'SUBI - PHRASE158>
354 <NTHUV ITM23 3 = TEMP53>
355 <EQUAL? TEMP53 1 - PHRASE158>
357 <LENUV ITM23 = TEMP53 (TYPE FIX)>
358 <VEQUAL? TEMP53 3 - PHRASE158 (TYPE FIX)>
360 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
361 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
362 <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
363 <CHTYPE TEMP53 <TYPE-CODE VECTOR> = TEMP53>
364 <EMPUV? TEMP53 + PHRASE158 (TYPE VECTOR)>
366 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
367 <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
368 <NTHUV TEMP53 2 = TEMP48>
370 <TYPE? TEMP48 <TYPE-CODE INST> - PHRASE158>
371 <NTHUV TEMP48 1 = TEMP53>
372 <EQUAL? TEMP53 'JRST - PHRASE149>
375 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
376 <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
378 <NTHUV ITM23 1 = TEMP53>
379 <EQUAL? TEMP53 'ADDI - PHRASE154>
381 <SET TEMP53 'AOJA (TYPE ATOM)>
384 <SET TEMP53 'SOJA (TYPE ATOM)>
392 <CALL '
\1aNEW-INST 5>
393 <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
395 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
396 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
397 <PUTUV TEMP22 1 TEMP53>
401 <NTHUV TEMP48 1 = TEMP22>
402 <SET TEMP54 [JUMPL JUMPGE JUMPLE JUMPG JUMPE JUMPN] (TYPE VECTOR)>
403 <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE158>
404 <LOOP (TEMP22 VALUE) (TEMP54 LENGTH VALUE)>
406 <NTHUV TEMP54 1 = TEMP53>
407 <VEQUAL? TEMP53 TEMP22 + TAG161>
409 <RESTUV TEMP54 1 = TEMP54 (TYPE VECTOR)>
410 <EMPUV? TEMP54 - TAG162>
413 <NTHUV TEMP48 2 = TEMP22>
414 <NTHUV ITM23 2 = TEMP53>
415 <EQUAL? TEMP22 TEMP53 - PHRASE158>
418 <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
419 <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
421 <NTHUV ITM23 1 = TEMP53>
422 <EQUAL? TEMP53 'ADDI - PHRASE168>
424 <LENUV TEMP54 = TEMP53 (TYPE FIX)>
426 <NTHUV [AOJN AOJE AOJG AOJLE AOJGE AOJL] TEMP53 = TEMP53 (TYPE ATOM)>
429 <LENUV TEMP54 = TEMP22 (TYPE FIX)>
431 <NTHUV [SOJN SOJE SOJG SOJLE SOJGE SOJL] TEMP22 = TEMP53 (TYPE ATOM)>
440 <CALL '
\1aNEW-INST 5>
441 <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
443 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
444 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
445 <PUTUV TEMP22 1 TEMP53>
448 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
449 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
450 <NTHUV TEMP22 1 = TEMP22>
451 <TYPE? TEMP22 <TYPE-CODE OLD-AND-USELESS> + PHRASE173>
453 <NTHR 'PREVIOUS 2 = PREPREV6 (RECORD-TYPE ATOM) (TYPE LBIND)>
454 <NTHR PREPREV6 1 = PREPREV6 (RECORD-TYPE LBIND)>
455 <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
456 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
457 <NTHUV TEMP22 1 = TEMP22>
458 <NTHR 'PREVIOUS 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
459 <PUTR TEMP53 1 TEMP22 (RECORD-TYPE LBIND)>
465 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
468 <FRAME '
\1aUNLABEL-THIS-TUPLE>
472 <CALL '
\1aUNLABEL-THIS-TUPLE 2>
473 <FRAME '
\1aPRINTTYPE>
475 <GVAL 'PRINT = STACK>
476 <CALL '
\1aPRINTTYPE 2>
485 <GFCN
\1aNEW-INST ("VALUE" <INST ATOM> <PRIMTYPE VECTOR> ATOM INST INST FIX) NEW-T4 NEW-OP5 CINST6 NXTINST7 BASE8>
486 <TEMP TEMP13 TEMP14 NEW9:VECTOR TEMP15>
488 <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
489 <LESS? BASE8 TEMP13 - PHRASE12 (TYPE FIX)>
491 <LENUV CINST6 = TEMP13 (TYPE FIX)>
492 <LENUV NXTINST7 = TEMP14 (TYPE FIX)>
493 <SUB TEMP14 BASE8 = TEMP14 (TYPE FIX)>
494 <ADD TEMP13 TEMP14 = TEMP13 (TYPE FIX)>
496 <UUBLOCK <TYPE-CODE VECTOR> TEMP13 = NEW9 (TYPE VECTOR)>
498 <LENUV CINST6 = TEMP13 (TYPE FIX)>
499 <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
500 <MOVE-WORDS CINST6 NEW9 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
502 <SUB BASE8 1 = TEMP13 (TYPE FIX)>
503 <RESTUV NXTINST7 TEMP13 = TEMP14>
505 <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
506 <SUB BASE8 1 = TEMP15 (TYPE FIX)>
508 <SUB TEMP13 TEMP15 = TEMP13 (TYPE FIX)>
510 <LENUV CINST6 = TEMP15 (TYPE FIX)>
512 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
513 <RESTUV NEW9 TEMP15 = TEMP15 (TYPE VECTOR)>
514 <MOVE-WORDS TEMP14 TEMP15 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
515 <DEAD TEMP14 TEMP15 TEMP13>
516 <CHTYPE NEW9 <TYPE-CODE INST> = CINST6>
518 <PUTUV NEW-T4 2 CINST6>
522 <NTHUV NXTINST7 BASE8 = TEMP15>
524 <PUTUV CINST6 3 TEMP15>
526 <PUTUV NEW-T4 2 CINST6>
529 <LENUV CINST6 = TEMP13 (TYPE FIX)>
530 <NTHUV CINST6 TEMP13 = TEMP14>
532 <TYPE? TEMP14 <TYPE-CODE REF> - MAPAP24>
533 <LENUV TEMP14 = TEMP13 (TYPE FIX)>
534 <LESS? TEMP13 3 + MAPAP24 (TYPE FIX)>
536 <NTHUV TEMP14 3 = TEMP14>
537 <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
541 <EMPL? TEMP14 + MAPAP24>
543 <NTHL TEMP13 1 = TEMP15>
544 <EQUAL? TEMP15 NXTINST7 - PHRASE32>
546 <PUTL TEMP13 1 CINST6>
549 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
552 <PUTUV CINST6 1 NEW-OP5>
558 <GFCN
\1aGENERATE-CIRCULAR-REFERENCES ("VALUE" <OR FALSE <INST <OR GFRM SBFRM SGFRM>> <VECTOR ANY>> <PRIMTYPE VECTOR>) TUP4>
559 <TEMP TAGS5 TEMP13 TEMP17 ITEM18 TEMP20 CODE35 TEMP50 TEMP51>
561 <SET TAGS5 () (TYPE LIST)>
562 <SET TEMP13 () (TYPE LIST)>
563 <GVAL 'LABELS = TEMP17>
567 <EMPL? TEMP17 + MAPAP10>
568 <NTHL TEMP17 1 = ITEM18>
569 <NTHUV ITEM18 1 = TEMP20 (TYPE ATOM)>
570 <CONS TEMP20 () = TEMP20 (TYPE LIST)>
571 <EMPL? TAGS5 - TAG21>
572 <SET TAGS5 TEMP20 (TYPE LIST)>
575 <PUTREST TEMP13 TEMP20>
578 <SET TEMP13 TEMP20 (TYPE LIST)>
580 <NTHUV ITEM18 1 = STACK (TYPE ATOM)>
584 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP20>
585 <CHTYPE TEMP20 <TYPE-CODE REF> = TEMP20>
586 <CONS TEMP20 () = TEMP20 (TYPE LIST)>
587 <EMPL? TAGS5 - TAG24>
588 <SET TAGS5 TEMP20 (TYPE LIST)>
591 <PUTREST TEMP13 TEMP20>
594 <SET TEMP13 TEMP20 (TYPE LIST)>
596 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
599 <SET TEMP13 %<> (TYPE FALSE)>
600 <CHTYPE TUP4 <TYPE-CODE VECTOR> = TEMP17>
605 <EMPUV? TEMP17 + MAPAP30>
607 <NTHUV CODE35 1 = TEMP13>
608 <TYPE? TEMP13 <TYPE-CODE INST> - PHRASE41>
609 <LENUV TEMP13 = ITEM18 (TYPE FIX)>
610 <NTHUV TEMP13 ITEM18 = ITEM18>
611 <TYPE? ITEM18 <TYPE-CODE REF> - BOOL44>
612 <NTHUV ITEM18 1 = ITEM18>
614 <TYPE ITEM18 = TEMP50>
615 <EMPL? TEMP20 + TAG46>
616 <LOOP (ITEM18 VALUE) (TEMP50 VALUE) (TEMP20 VALUE)>
618 <NTHL TEMP20 1 = TEMP51>
619 <TYPE? TEMP51 TEMP50 - TAG49>
620 <VEQUAL? TEMP51 ITEM18 + TAG47>
623 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
624 <EMPL? TEMP20 - TAG48>
626 <SET TEMP20 %<> (TYPE FALSE)>
628 <VEQUAL? TEMP20 0 - BOOL43>
630 <NTHUV TEMP13 1 = TEMP50>
631 <EQUAL? TEMP50 'DISPATCH - BOOL52>
633 <NTHUV TEMP13 2 = TEMP50>
635 <TYPE TEMP50 = TEMP51>
636 <EMPL? ITEM18 + TAG53>
637 <LOOP (TEMP50 VALUE) (TEMP51 VALUE) (ITEM18 VALUE)>
639 <NTHL ITEM18 1 = TEMP20>
640 <TYPE? TEMP20 TEMP51 - TAG56>
641 <VEQUAL? TEMP20 TEMP50 + TAG54>
644 <RESTL ITEM18 1 = ITEM18 (TYPE LIST)>
645 <EMPL? ITEM18 - TAG55>
647 <SET TEMP20 %<> (TYPE FALSE)>
653 <VEQUAL? TEMP20 0 - BOOL43>
655 <NTHUV TEMP13 1 = ITEM18>
656 <TYPE? ITEM18 <TYPE-CODE GFRM> + TAG60>
657 <TYPE? ITEM18 <TYPE-CODE SGFRM> + TAG60>
658 <TYPE? ITEM18 <TYPE-CODE SBFRM> - PHRASE41>
661 <NTHUV TEMP13 1 = ITEM18>
662 <CHTYPE ITEM18 <TYPE-CODE ATOM> = ITEM18>
664 <EMPL? TEMP51 + TAG61>
665 <LOOP (ITEM18 VALUE) (TEMP51 VALUE)>
667 <NTHL TEMP51 1 = TEMP50>
668 <TYPE? TEMP50 <TYPE-CODE ATOM> - TAG64>
669 <VEQUAL? TEMP50 ITEM18 + TAG62>
672 <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
673 <EMPL? TEMP51 - TAG63>
675 <SET TEMP20 %<> (TYPE FALSE)>
681 <VEQUAL? TEMP20 0 + PHRASE41>
683 <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
685 <NTHL TEMP51 1 = CODE35 (TYPE REF)>
688 <SET ITEM18 1 (TYPE FIX)>
689 <NTHUV CODE35 3 = TEMP51>
690 <TYPE TEMP51 = TEMP20>
691 <AND TEMP20 7 = TEMP20>
692 <VEQUAL? TEMP20 1 + TAG67>
694 <LOOP (TEMP51 TYPE VALUE LENGTH) (ITEM18 VALUE)>
697 <EMPTY? TEMP51 + TAG71>
698 <NTH1 TEMP51 = STACK>
699 <REST1 TEMP51 = TEMP51>
700 <ADD ITEM18 1 = ITEM18 (TYPE FIX)>
703 <LIST ITEM18 = TEMP50 (TYPE LIST)>
709 <VEQUAL? ITEM18 0 + TAG69>
711 <CONS TEMP20 TEMP51 = TEMP51 (TYPE LIST)>
713 <SUB ITEM18 1 = ITEM18 (TYPE FIX)>
719 <PUTUV CODE35 3 TEMP50>
721 <LENUV TEMP13 = TEMP51 (TYPE FIX)>
722 <PUTUV TEMP13 TEMP51 CODE35>
724 <NTHUV TEMP13 1 = TEMP51>
725 <TYPE? TEMP51 <TYPE-CODE GFRM> + TAG75>
726 <TYPE? TEMP51 <TYPE-CODE SGFRM> + TAG75>
727 <TYPE? TEMP51 <TYPE-CODE SBFRM> + TAG75>
729 <SET TEMP13 %<> (TYPE FALSE)>
732 <NTHUV CODE35 1 = TEMP51>
734 <NTHUV TEMP13 1 = TEMP20>
735 <CHTYPE TEMP51 <TYPE TEMP20> = TEMP51>
737 <PUTUV TEMP13 1 TEMP51>
741 <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE77>
743 <EMPL? TEMP51 + TAG79>
744 <LOOP (TEMP13 VALUE) (TEMP51 VALUE)>
746 <NTHL TEMP51 1 = TEMP20>
747 <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG82>
748 <VEQUAL? TEMP20 TEMP13 + TAG80>
751 <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
752 <EMPL? TEMP51 - TAG81>
754 <SET TEMP20 %<> (TYPE FALSE)>
760 <VEQUAL? TEMP20 0 + PHRASE77>
761 <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
763 <NTHL TEMP51 1 = TEMP51>
764 <PUTUV CODE35 1 TEMP51>
770 <TYPE? TEMP13 <TYPE-CODE ATOM> + TAG85>
771 <SET TEMP13 %<> (TYPE FALSE)>
776 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP51>
777 <CHTYPE TEMP51 <TYPE-CODE OLD-AND-USELESS> = TEMP51>
778 <PUTUV CODE35 1 TEMP51>
783 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
788 <END
\1aGENERATE-CIRCULAR-REFERENCES>
790 <GFCN
\1aDELETE-ADJACENT-REFS ("VALUE" ATOM <PRIMTYPE VECTOR>) TUP4>
791 <TEMP ITM5 NXT6 TEMP25 INS26 TEMP29:FIX TEMP28 TEMP35>
793 <NTHUV TUP4 1 = ITM5 (TYPE REF)>
794 <NTHUV TUP4 2 = NXT6>
798 <TYPE? NXT6 <TYPE-CODE REF> - PHRASE13>
799 <NTHUV NXT6 3 = TEMP25>
800 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
804 <EMPL? TEMP25 + MAPAP18>
805 <NTHL TEMP25 1 = INS26>
807 <SET TEMP29 1 (TYPE FIX)>
808 <NTHUV ITM5 3 = TEMP28>
809 <TYPE TEMP28 = TEMP35>
810 <AND TEMP35 7 = TEMP35>
811 <VEQUAL? TEMP35 1 + TAG31>
813 <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP29 VALUE)>
816 <EMPTY? TEMP28 + TAG36>
817 <NTH1 TEMP28 = STACK>
818 <REST1 TEMP28 = TEMP28>
819 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
822 <LIST TEMP29 = TEMP28 (TYPE LIST)>
828 <VEQUAL? TEMP29 0 + TAG33>
830 <CONS TEMP35 TEMP28 = TEMP28 (TYPE LIST)>
832 <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
836 <PUTUV ITM5 3 TEMP28>
838 <NTHUV INS26 1 = TEMP28>
839 <TYPE? TEMP28 <TYPE-CODE GFRM> + TAG40>
840 <TYPE? TEMP28 <TYPE-CODE SGFRM> + TAG40>
841 <TYPE? TEMP28 <TYPE-CODE SBFRM> - PHRASE39>
844 <NTHUV ITM5 1 = TEMP28>
845 <NTHUV INS26 1 = TEMP35>
846 <CHTYPE TEMP28 <TYPE TEMP35> = TEMP28>
848 <PUTUV INS26 1 TEMP28>
851 <LENUV INS26 = TEMP28 (TYPE FIX)>
852 <PUTUV INS26 TEMP28 ITM5>
854 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
858 <NTHUV NXT6 1 = STACK>
860 <UBLOCK <TYPE-CODE VECTOR> 1 = NXT6>
861 <CHTYPE NXT6 <TYPE-CODE OLD-AND-USELESS> = NXT6>
864 <RESTUV TUP4 1 = TUP4 (TYPE VECTOR)>
865 <CHTYPE TUP4 <TYPE-CODE VECTOR> = TUP4>
866 <EMPUV? TUP4 - PHRASE43 (TYPE VECTOR)>
869 <NTHUV TUP4 2 = NXT6>
873 <END
\1aDELETE-ADJACENT-REFS>
875 <GFCN
\1aPUSH-OPTIMIZE ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR> ANY ATOM) NEW-T4 ZERO5 AC6>
876 <TEMP (COUNT7:FIX 0) (AC28 'T*) TEMP17 TUP22 TEMP28>
878 <VEQUAL? AC6 AC28 - PHRASE10>
879 <SET AC28 'B1* (TYPE ATOM)>
881 <CHTYPE NEW-T4 <TYPE-CODE VECTOR> = TEMP17>
885 <EMPUV? TEMP17 + MAPAP15>
887 <NTHUV TUP22 1 = TUP22>
888 <NTHUV TUP22 1 = TEMP28>
889 <EQUAL? TEMP28 'PUSH - MAPAP15>
891 <NTHUV TUP22 2 = TEMP28>
892 <EQUAL? TEMP28 AC6 - MAPAP15>
894 <NTHUV TUP22 3 = TUP22>
895 <TYPE? TUP22 <TYPE-CODE REF> - MAPAP15>
896 <NTHUV TUP22 1 = TEMP28>
898 <EQUAL? TEMP28 ZERO5 - MAPAP15>
900 <ADD COUNT7 1 = COUNT7 (TYPE FIX)>
901 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
904 <LESS? COUNT7 5 - TAG32 (TYPE FIX)>
910 <CONS AC6 () = STACK>
911 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
912 <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
913 <PUTUV NEW-T4 1 TEMP17>
918 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
919 <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
920 <PUTUV NEW-T4 2 TEMP17>
924 <CONS AC28 () = STACK>
925 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
926 <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
927 <PUTUV NEW-T4 3 TEMP17>
932 <CONS AC28 () = STACK>
933 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
934 <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
935 <PUTUV NEW-T4 4 TEMP17>
940 <CONS AC6 () = STACK>
942 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
943 <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
944 <PUTUV NEW-T4 5 TEMP17>
946 <SUB COUNT7 4 = COUNT7 (TYPE FIX)>
947 <RESTUV NEW-T4 5 = AC28 (TYPE VECTOR)>
949 <CHTYPE AC28 <TYPE-CODE VECTOR> = AC28>
953 <SUB COUNT7 1 = COUNT7 (TYPE FIX)>
954 <VEQUAL? COUNT7 0 - PHRASE43 (TYPE FIX)>
957 <FRAME '
\1aELIMINATE>
958 <NTHUV AC28 1 = STACK>
959 <CALL '
\1aELIMINATE 1 = TEMP17>
960 <PUTUV AC28 1 TEMP17>
962 <RESTUV AC28 1 = AC28 (TYPE VECTOR)>
964 <END
\1aPUSH-OPTIMIZE>
966 <GFCN
\1aSKIP-MODIFY ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> <OR INST OLD-AND-USELESS>>> <PRIMTYPE VECTOR> <OR OLD-AND-USELESS INST REF FALSE> ANY) NEW-T4 PREVIOUS5 PREPREV6>
967 <TEMP ITM7:INST TEMP14 NEXTLINE8 FOO10>
969 <NTHUV NEW-T4 1 = ITM7 (TYPE INST)>
970 <RESTUV NEW-T4 1 = TEMP14 (TYPE VECTOR)>
971 <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
972 <EMPUV? TEMP14 - TAG13 (TYPE VECTOR)>
974 <SET TEMP14 %<> (TYPE FALSE)>
977 <NTHUV NEW-T4 2 = TEMP14>
979 <SET NEXTLINE8 TEMP14>
981 <SET TEMP14 NEXTLINE8>
982 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
983 <SET TEMP14 PREVIOUS5>
984 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
985 <RESTUV NEW-T4 2 = TEMP14 (TYPE VECTOR)>
986 <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
987 <EMPUV? TEMP14 - TAG18 (TYPE VECTOR)>
991 <LENUV ITM7 = TEMP14 (TYPE FIX)>
992 <NTHUV ITM7 TEMP14 = FOO10>
994 <NTHUV NEW-T4 3 = TEMP14>
995 <EQUAL? FOO10 TEMP14 + TAG20>
997 <EQUAL? FOO10 NEXTLINE8 + TAG20>
1001 <FRAME '
\1aCONDITIONAL-SKIP?>
1003 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP14>
1004 <VEQUAL? TEMP14 0 + PHRASE22>
1006 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
1008 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP14>
1009 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1011 <TYPE? PREPREV6 <TYPE-CODE FALSE> + BOOL26>
1012 <FRAME '
\1aCONDITIONAL-SKIP?>
1015 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP14>
1016 <VEQUAL? TEMP14 0 - PHRASE22>
1020 <NTHUV PREVIOUS5 1 = STACK>
1022 <CALL '
\1aGETPROP 2 = TEMP14>
1023 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1024 <PUTUV PREVIOUS5 1 TEMP14>
1025 <DEAD PREVIOUS5 TEMP14>
1026 <FRAME '
\1aELIMINATE>
1027 <NTHUV NEW-T4 1 = STACK>
1028 <CALL '
\1aELIMINATE 1 = TEMP14>
1029 <PUTUV NEW-T4 1 TEMP14>
1034 <TYPE? NEXTLINE8 <TYPE-CODE REF> + TAG31>
1035 <TYPE? NEXTLINE8 <TYPE-CODE OLD-AND-USELESS> - PHRASE30>
1038 <FRAME '
\1aELIMINATE>
1041 <CALL '
\1aELIMINATE 1 = TEMP14>
1042 <PUTUV NEW-T4 1 TEMP14>
1050 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP14>
1051 <CHTYPE TEMP14 <TYPE-CODE INST> = TEMP14>
1052 <PUTUV NEW-T4 1 TEMP14>
1059 <END
\1aSKIP-MODIFY>
1061 <GFCN
\1aUNLABEL-THIS-TUPLE ("VALUE" LIST LIST <PRIMTYPE VECTOR>) L4 T5>
1062 <TEMP TEMP8 STATEMENT20 TEMP25 RF6>
1064 <GVAL 'PEEP-CHANNEL = TEMP8>
1065 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
1068 <GVAL 'PEEP-CHANNEL = STACK>
1071 <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP8>
1076 <EMPUV? TEMP8 + MAPAP14>
1077 <NTHUV TEMP8 1 = STATEMENT20>
1078 <TYPE? STATEMENT20 <TYPE-CODE REF> - PHRASE22>
1079 <GVAL 'PEEP-CHANNEL = TEMP25>
1080 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE24>
1083 <NTHUV STATEMENT20 1 = STACK>
1084 <GVAL 'PEEP-CHANNEL = STACK>
1087 <RESTL L4 1 = L4 (TYPE LIST)>
1088 <NTHUV STATEMENT20 1 = TEMP25>
1094 <TYPE? STATEMENT20 <TYPE-CODE OLD-AND-USELESS> - PHRASE27>
1095 <GVAL 'PEEP-CHANNEL = TEMP25>
1096 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE47>
1101 <GVAL 'PEEP-CHANNEL = STACK>
1105 <NTHUV STATEMENT20 1 = TEMP25>
1106 <EQUAL? TEMP25 'DISPATCH - PHRASE31>
1108 <NTHUV STATEMENT20 2 = RF6>
1109 <TYPE? RF6 <TYPE-CODE REF> - PHRASE31>
1110 <NTHUV RF6 1 = TEMP25>
1112 <PUTUV STATEMENT20 2 TEMP25>
1114 <GVAL 'PEEP-CHANNEL = TEMP25>
1115 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE34>
1119 <GVAL 'PEEP-CHANNEL = STACK>
1122 <RESTL L4 1 = L4 (TYPE LIST)>
1123 <PUTL L4 1 STATEMENT20>
1127 <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1128 <NTHUV STATEMENT20 TEMP25 = RF6>
1130 <TYPE? RF6 <TYPE-CODE REF> - PHRASE36>
1131 <NTHUV STATEMENT20 1 = TEMP25>
1132 <TYPE? TEMP25 <TYPE-CODE SGFRM> + TAG40>
1133 <TYPE? TEMP25 <TYPE-CODE GFRM> + TAG40>
1134 <TYPE? TEMP25 <TYPE-CODE SBFRM> - PHRASE39>
1137 <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1138 <PUTUV STATEMENT20 TEMP25 'T>
1142 <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1143 <NTHUV RF6 1 = STACK>
1145 <UBLOCK <TYPE-CODE VECTOR> 1 = RF6>
1146 <CHTYPE RF6 <TYPE-CODE REF> = RF6>
1147 <PUTUV STATEMENT20 TEMP25 RF6>
1150 <GVAL 'PEEP-CHANNEL = RF6>
1151 <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE45>
1155 <GVAL 'PEEP-CHANNEL = STACK>
1158 <RESTL L4 1 = L4 (TYPE LIST)>
1159 <PUTL L4 1 STATEMENT20>
1163 <GVAL 'PEEP-CHANNEL = RF6>
1164 <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE49>
1168 <GVAL 'PEEP-CHANNEL = STACK>
1171 <RESTL L4 1 = L4 (TYPE LIST)>
1172 <PUTL L4 1 STATEMENT20>
1175 <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
1181 <END
\1aUNLABEL-THIS-TUPLE>
1183 <GFCN
\1aPOST-ACCESS ("VALUE" ANY <OR FALSE INST REF OLD-AND-USELESS> <PRIMTYPE VECTOR>) BACK04 TUP5>
1184 <TEMP BACK16 TEMP8 BACK27>
1186 <BACKU TUP5 1 = TUP5>
1187 <NTHUV TUP5 1 = BACK16>
1188 <BACKU TUP5 1 = TEMP8>
1189 <NTHUV TEMP8 1 = BACK27>
1191 <TYPE? BACK04 <TYPE-CODE OLD-AND-USELESS> - PHRASE10>
1192 <FRAME '
\1aPOST-ACCESS>
1195 <BACKU TUP5 1 = STACK>
1197 <CALL '
\1aPOST-ACCESS 2 = TEMP8>
1201 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
1204 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
1205 <TYPE? BACK16 <TYPE-CODE FALSE> - TAG15>
1209 <FRAME '
\1aCONDITIONAL-SKIP?>
1211 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP8>
1212 <VEQUAL? TEMP8 0 - PHRASE23>
1213 <FRAME '
\1aUNCONDITIONAL-SKIP?>
1215 <CALL '
\1aUNCONDITIONAL-SKIP? 1 = TEMP8>
1216 <VEQUAL? TEMP8 0 - PHRASE23>
1217 <FRAME '
\1aCONDITIONAL-BRANCH?>
1219 <CALL '
\1aCONDITIONAL-BRANCH? 1 = BACK16>
1220 <VEQUAL? BACK16 0 - BOOL19>
1222 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
1224 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
1225 <TYPE? BACK16 <TYPE-CODE FALSE> + TAG22>
1228 <LENUV BACK27 = BACK16 (TYPE FIX)>
1229 <NTHUV BACK27 BACK16 = BACK16>
1231 <EQUAL? BACK16 BACK04 - TAG22>
1240 <CALL '
\1aPUT 3 = TEMP8>
1244 <END
\1aPOST-ACCESS>
\r\r
1246 <GFCN
\1aCONDITIONAL-BRANCH? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1247 <TEMP TEMP9 TEMP10 TEMP11>
1249 <NTHUV ITEM4 1 = TEMP9>
1251 <GVAL 'CJ-JUMP-LIST = TEMP10>
1252 <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
1253 <EMPL? TEMP10 + TAG5>
1254 <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
1256 <NTHL TEMP10 1 = TEMP11>
1257 <VEQUAL? TEMP11 TEMP9 + TAG6>
1259 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1260 <EMPL? TEMP10 - TAG7>
1262 <SET TEMP10 %<> (TYPE FALSE)>
1266 <END
\1aCONDITIONAL-BRANCH?>
1268 <GFCN
\1aCONDITIONAL-SKIP? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1269 <TEMP TEMP9 TEMP10 TEMP11>
1271 <NTHUV ITEM4 1 = TEMP9>
1273 <GVAL 'CS-JUMP-LIST = TEMP10>
1274 <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
1275 <EMPL? TEMP10 + TAG5>
1276 <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
1278 <NTHL TEMP10 1 = TEMP11>
1279 <VEQUAL? TEMP11 TEMP9 + TAG6>
1281 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1282 <EMPL? TEMP10 - TAG7>
1284 <SET TEMP10 %<> (TYPE FALSE)>
1288 <END
\1aCONDITIONAL-SKIP?>
1290 <GFCN
\1aUNCONDITIONAL-BRANCH? ("VALUE" <OR ATOM FALSE> <OR OLD-AND-USELESS INST REF>) ITEM4>
1291 <TEMP TEMP12 TEMP7 TEMP13>
1293 <NTHUV ITEM4 1 = TEMP12>
1294 <GVAL 'UJ-JUMP-LIST = TEMP7>
1295 <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG8>
1296 <EMPL? TEMP7 + TAG8>
1297 <LOOP (TEMP12 VALUE) (TEMP7 VALUE)>
1299 <NTHL TEMP7 1 = TEMP13>
1300 <VEQUAL? TEMP13 TEMP12 + TAG9>
1302 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1303 <EMPL? TEMP7 - TAG10>
1307 <LENUV ITEM4 = TEMP12 (TYPE FIX)>
1308 <NTHUV ITEM4 TEMP12 = TEMP12>
1310 <TYPE? TEMP12 <TYPE-CODE REF> + TAG14>
1313 <NTHUV TEMP12 1 = TEMP12>
1314 <EQUAL? TEMP12 'COMPERR + TAG16>
1319 <END
\1aUNCONDITIONAL-BRANCH?>
1321 <GFCN
\1aUNCONDITIONAL-SKIP? ("VALUE" <OR ATOM !<FALSE>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1324 <NTHUV ITEM4 1 = TEMP6>
1326 <EQUAL? TEMP6 'CAIA - TAG5>
1331 <END
\1aUNCONDITIONAL-SKIP?>
1333 <GFCN
\1aJUMP? ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) INSTR4>
1336 <FRAME '
\1aCONDITIONAL-BRANCH?>
1338 <CALL '
\1aCONDITIONAL-BRANCH? 1 = TEMP6>
1339 <VEQUAL? TEMP6 0 - BOOL5>
1340 <FRAME '
\1aCONDITIONAL-SKIP?>
1342 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP6>
1343 <VEQUAL? TEMP6 0 - BOOL5>
1344 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
1346 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP6>
1347 <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
1348 <FRAME '
\1aUNCONDITIONAL-SKIP?>
1351 <CALL '
\1aUNCONDITIONAL-SKIP? 1 = TEMP6>
1356 <GDECL (UJ-JUMP-LIST US-JUMP-LIST CJ-JUMP-LIST CS-JUMP-LIST) <LIST [REST ATOM]> (JUMP-LIST) !<LIST [4 <LIST [REST ATOM]>]>>
1358 <SETG JUMP-LIST (<SETG UJ-JUMP-LIST '(JUMPA AOJA SOJA JRST PUSHJ JSP UJ)> <SETG US-JUMP-LIST '(CAIA SKIPA AOSA SOSA US)> <SETG CJ-JUMP-LIST '(JUMPL JUMPGE JUMPE JUMPN JUMPLE JUMPG SOJL SOJGE SOJE SOJN SOJLE SOJG CJ)> <SETG CS-JUMP-LIST '(CAIL CAIGE CAIE CAIN CAILE CAIG CAML CAMGE CAME CAMN CAMLE CAMG SOSL SOSGE SOSE SOSN SOSLE SOSG AOSL AOSGE AOSE AOSN AOSLE AOSG SKIPL SKIPGE SKIPE SKIPN SKIPLE SKIPG TRNE TRNN TLNN TLNE CS)>)>
1361 <GFCN
\1aMAKE-OPPOSITES ("VALUE" ANY ATOM ATOM) ITEM-14 ITEM-25>
1368 <CALL '
\1aPUTPROP 3>
1375 <CALL '
\1aPUTPROP 3 = TEMP8>
1378 <END
\1aMAKE-OPPOSITES>
1380 <GFCN
\1aSINGLE-PATH-OPTIMIZE ("VALUE" <OR ATOM FALSE <LIST ANY> <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> <PRIMTYPE VECTOR>) TOP-OF-TUP4 NEW-T5>
1381 <TEMP (BACKREG-LIST6:LIST ()) LBL7 (ACS8:LIST (A1* A2* B1* B2* C1* C2* T* X* O*)) STATEMENT11 TEMP18 TEMP19 NTUP13 ACC?21 AC46>
1383 <NTHUV NEW-T5 1 = LBL7>
1384 <NTHUV LBL7 3 = LBL7>
1385 <NTH1 LBL7 = STATEMENT11>
1387 <CHTYPE TOP-OF-TUP4 <TYPE-CODE VECTOR> = LBL7>
1388 <TYPE STATEMENT11 = TEMP18>
1389 <EMPUV? LBL7 + TAG14>
1390 <LOOP (STATEMENT11 VALUE) (TEMP18 VALUE) (LBL7 LENGTH VALUE)>
1392 <NTHUV LBL7 1 = TEMP19>
1393 <TYPE? TEMP19 TEMP18 - TAG17>
1394 <VEQUAL? TEMP19 STATEMENT11 + TAG15>
1397 <RESTUV LBL7 1 = LBL7 (TYPE VECTOR)>
1398 <EMPUV? LBL7 - TAG16>
1400 <SET NTUP13 %<> (TYPE FALSE)>
1409 <TYPE? STATEMENT11 <TYPE-CODE REF> + EXIT9>
1410 <TYPE? STATEMENT11 <TYPE-CODE INST> - PHRASE24>
1411 <NTHUV STATEMENT11 1 = LBL7>
1412 <EQUAL? LBL7 'PUSHJ + EXIT9>
1414 <NTHUV STATEMENT11 1 = LBL7>
1415 <EQUAL? LBL7 'JSP + EXIT9>
1420 <CALL '
\1aMOVE? 1 = LBL7>
1421 <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE28>
1423 <NTHUV STATEMENT11 2 = ACC?21>
1425 <TYPE ACC?21 = TEMP18>
1426 <EMPL? LBL7 + PHRASE28>
1427 <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
1429 <NTHL LBL7 1 = TEMP19>
1430 <TYPE? TEMP19 TEMP18 - TAG33>
1431 <VEQUAL? TEMP19 ACC?21 + TAG31>
1434 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1435 <EMPL? LBL7 - TAG32>
1438 <SET LBL7 BACKREG-LIST6>
1439 <TYPE ACC?21 = TEMP18>
1440 <EMPL? LBL7 + TAG34>
1441 <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
1443 <NTHL LBL7 1 = TEMP19>
1444 <TYPE? TEMP19 TEMP18 - TAG36>
1445 <VEQUAL? TEMP19 ACC?21 + PHRASE28>
1448 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1449 <EMPL? LBL7 - TAG35>
1451 <SET TEMP19 () (TYPE LIST)>
1452 <SET TEMP18 () (TYPE LIST)>
1453 <SET LBL7 ACS8 (TYPE LIST)>
1458 <EMPL? LBL7 + MAPAP41>
1460 <NTHL ACS8 1 = AC46 (TYPE ATOM)>
1461 <EQUAL? ACC?21 AC46 - PHRASE48>
1462 <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1466 <EMPL? ACS8 + MAPAP41>
1467 <NTHL ACS8 1 = AC46>
1468 <CONS AC46 () = AC46 (TYPE LIST)>
1469 <EMPL? TEMP19 - TAG56>
1470 <SET TEMP19 AC46 (TYPE LIST)>
1473 <PUTREST TEMP18 AC46>
1476 <SET TEMP18 AC46 (TYPE LIST)>
1478 <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1481 <CONS AC46 () = AC46 (TYPE LIST)>
1482 <EMPL? TEMP19 - TAG60>
1483 <SET TEMP19 AC46 (TYPE LIST)>
1486 <PUTREST TEMP18 AC46>
1489 <SET TEMP18 AC46 (TYPE LIST)>
1491 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1496 <CONS STATEMENT11 BACKREG-LIST6 = LBL7>
1497 <DEAD STATEMENT11 BACKREG-LIST6>
1498 <CONS ACC?21 LBL7 = BACKREG-LIST6>
1502 <LENUV STATEMENT11 = LBL7 (TYPE FIX)>
1503 <GRTR? LBL7 1 - MAPEX72 (TYPE FIX)>
1505 <NTHUV STATEMENT11 2 = ACC?21>
1507 <TYPE? ACC?21 <TYPE-CODE ATOM> - MAPEX72>
1509 <EMPL? LBL7 + MAPEX72>
1510 <LOOP (ACC?21 VALUE) (LBL7 VALUE)>
1512 <NTHL LBL7 1 = AC46>
1513 <TYPE? AC46 <TYPE-CODE ATOM> - TAG68>
1514 <VEQUAL? AC46 ACC?21 + TAG66>
1517 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1518 <EMPL? LBL7 - TAG67>
1521 <SET STATEMENT11 () (TYPE LIST)>
1522 <SET AC46 () (TYPE LIST)>
1523 <SET LBL7 ACS8 (TYPE LIST)>
1528 <EMPL? LBL7 + MAPAP73>
1530 <NTHL ACS8 1 = TEMP18 (TYPE ATOM)>
1531 <VEQUAL? ACC?21 TEMP18 - PHRASE81>
1532 <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1536 <EMPL? ACS8 + MAPAP73>
1537 <NTHL ACS8 1 = TEMP18>
1538 <CONS TEMP18 () = TEMP18 (TYPE LIST)>
1539 <EMPL? STATEMENT11 - TAG89>
1540 <SET STATEMENT11 TEMP18 (TYPE LIST)>
1543 <PUTREST AC46 TEMP18>
1546 <SET AC46 TEMP18 (TYPE LIST)>
1548 <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1551 <CONS TEMP18 () = TEMP18 (TYPE LIST)>
1552 <EMPL? STATEMENT11 - TAG93>
1553 <SET STATEMENT11 TEMP18 (TYPE LIST)>
1556 <PUTREST AC46 TEMP18>
1559 <SET AC46 TEMP18 (TYPE LIST)>
1561 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1564 <SET ACS8 STATEMENT11>
1567 <TYPE? NTUP13 <TYPE-CODE FALSE> + EXIT9>
1568 <EQUAL? NTUP13 TOP-OF-TUP4 + EXIT9>
1569 <BACKU NTUP13 1 = NTUP13>
1570 <NTHUV NTUP13 1 = STATEMENT11>
1573 <SET ACS8 () (TYPE LIST)>
1574 <SET LBL7 %<> (TYPE FALSE)>
1575 <RESTUV NEW-T5 1 = STATEMENT11 (TYPE VECTOR)>
1577 <CHTYPE STATEMENT11 <TYPE-CODE VECTOR> = STATEMENT11>
1581 <EMPUV? STATEMENT11 + MAPAP103>
1582 <SET AC46 STATEMENT11>
1583 <NTHUV AC46 1 = TEMP18>
1586 <CALL '
\1aJUMP? 1 = LBL7>
1587 <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE113>
1591 <TYPE? TEMP18 <TYPE-CODE REF> - PHRASE116>
1596 <CALL '
\1aMOVE? 1 = LBL7>
1597 <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE118>
1599 <NTHUV TEMP18 2 = LBL7>
1601 <TYPE LBL7 = NTUP13>
1602 <EMPL? TEMP19 + TAG122>
1603 <LOOP (LBL7 VALUE) (NTUP13 VALUE) (TEMP19 VALUE)>
1605 <NTHL TEMP19 1 = ACC?21>
1606 <TYPE? ACC?21 NTUP13 - TAG124>
1607 <VEQUAL? ACC?21 LBL7 + PHRASE118>
1610 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1611 <EMPL? TEMP19 - TAG123>
1613 <SET LBL7 BACKREG-LIST6>
1614 <TYPE TEMP18 = TEMP19>
1615 <EMPL? LBL7 + TAG128>
1616 <LOOP (TEMP18 VALUE) (TEMP19 VALUE) (LBL7 VALUE)>
1618 <NTHL LBL7 1 = NTUP13>
1619 <TYPE? NTUP13 TEMP19 - TAG131>
1620 <VEQUAL? NTUP13 TEMP18 + TAG129>
1623 <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1624 <EMPL? LBL7 - TAG130>
1626 <SET LBL7 %<> (TYPE FALSE)>
1628 <VEQUAL? LBL7 0 + PHRASE118>
1629 <NTHUV TEMP18 2 = TEMP19>
1631 <CONS TEMP19 ACS8 = ACS8>
1633 <FRAME '
\1aELIMINATE>
1634 <NTHL LBL7 1 = STACK>
1635 <CALL '
\1aELIMINATE 1 = TEMP19>
1636 <PUTL LBL7 1 TEMP19>
1638 <FRAME '
\1aELIMINATE>
1639 <NTHUV AC46 1 = STACK>
1640 <CALL '
\1aELIMINATE 1 = TEMP19>
1641 <PUTUV AC46 1 TEMP19>
1649 <CALL '
\1aMOVE? 1 = LBL7>
1650 <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE134>
1651 <NTHUV TEMP18 2 = TEMP19>
1653 <CONS TEMP19 ACS8 = ACS8>
1657 <RESTUV STATEMENT11 1 = STATEMENT11 (TYPE VECTOR)>
1662 <END
\1aSINGLE-PATH-OPTIMIZE>
1664 <GFCN
\1aMOVE? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> <OR INST REF OLD-AND-USELESS>) ITM4>
1665 <TEMP TEMP6 TEMP13 TEMP14>
1667 <TYPE? ITM4 <TYPE-CODE INST> + TAG7>
1670 <NTHUV ITM4 1 = TEMP13>
1671 <SET TEMP6 [MOVE DMOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
1672 <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG9>
1673 <LOOP (TEMP13 VALUE) (TEMP6 LENGTH VALUE)>
1675 <NTHUV TEMP6 1 = TEMP14>
1676 <VEQUAL? TEMP14 TEMP13 + TAG10>
1678 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
1679 <EMPUV? TEMP6 - TAG11>
1683 <FRAME '
\1aIS-REAL-AC?>
1684 <NTHUV ITM4 2 = STACK (TYPE ATOM)>
1686 <CALL '
\1aIS-REAL-AC? 1 = TEMP6>
1691 <GFCN
\1aFINDZERO ("VALUE" <OR !<FALSE> CONSTANT-BUCKET>)>
1692 <TEMP NCV7:LIST TEMP4>
1694 <GVAL 'CONSTANT-VECTOR = NCV7>
1698 <EMPL? NCV7 - PHRASE10 (TYPE LIST)>
1701 <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
1702 <NTHUV TEMP4 1 = TEMP4>
1703 <EQUAL? TEMP4 #CONSTANT 0 - PHRASE11>
1705 <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
1710 <RESTL NCV7 1 = NCV7 (TYPE LIST)>
1714 <GFCN
\1aMOVE-CHECK ("VALUE" <OR ATOM FALSE <<PRIMTYPE VECTOR> OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 LINE5>
1715 <TEMP LABEL6:ATOM DESTINATION7 TEMP14 SOURCE9 USEFUL-CODE11 TEMP32 NEW-TUP33 LINE34>
1717 <NTHUV LINE5 1 = LABEL6 (TYPE ATOM)>
1718 <NTHUV LINE5 2 = DESTINATION7>
1719 <NTHUV LINE5 3 = TEMP14>
1720 <TYPE? TEMP14 <TYPE-CODE ATOM> + TAG15>
1722 <SET TEMP14 %<> (TYPE FALSE)>
1725 <NTHUV LINE5 3 = TEMP14 (TYPE ATOM)>
1728 <SET SOURCE9 TEMP14>
1730 <FRAME '
\1aIS-REAL-AC?>
1732 <CALL '
\1aIS-REAL-AC? 1 = TEMP14>
1733 <VEQUAL? TEMP14 0 + PHRASE67>
1734 <SET TEMP14 SOURCE9>
1735 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1736 <FRAME '
\1aIS-REAL-AC?>
1738 <CALL '
\1aIS-REAL-AC? 1 = TEMP14>
1739 <VEQUAL? TEMP14 0 + PHRASE67>
1740 <SET USEFUL-CODE11 () (TYPE LIST)>
1741 <SET TEMP14 () (TYPE LIST)>
1742 <RESTUV NEW-T4 1 = TEMP32 (TYPE VECTOR)>
1743 <CHTYPE TEMP32 <TYPE-CODE VECTOR> = TEMP32>
1747 <EMPUV? TEMP32 + MAPAP26>
1748 <SET NEW-TUP33 TEMP32>
1749 <NTHUV NEW-TUP33 1 = LINE34>
1750 <TYPE? LINE34 <TYPE-CODE REF> - PHRASE41>
1754 <CALL '
\1aL-LOOP? 1 = TEMP14>
1755 <TYPE? TEMP14 <TYPE-CODE FALSE> + MAPAP26>
1757 <SET USEFUL-CODE11 () (TYPE LIST)>
1760 <FRAME '
\1aCONDITIONAL-BRANCH?>
1762 <CALL '
\1aCONDITIONAL-BRANCH? 1 = NEW-TUP33>
1763 <VEQUAL? NEW-TUP33 0 + PHRASE43>
1765 <SET USEFUL-CODE11 () (TYPE LIST)>
1768 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
1770 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = NEW-TUP33>
1771 <TYPE? NEW-TUP33 <TYPE-CODE FALSE> + PHRASE46>
1773 <CONS LINE34 () = NEW-TUP33 (TYPE LIST)>
1775 <EMPL? USEFUL-CODE11 - TAG50>
1776 <SET USEFUL-CODE11 NEW-TUP33 (TYPE LIST)>
1779 <PUTREST TEMP14 NEW-TUP33>
1782 <SET TEMP14 NEW-TUP33 (TYPE LIST)>
1786 <NTHUV LINE34 1 = NEW-TUP33>
1787 <EQUAL? NEW-TUP33 'JRST - BOOL54>
1789 <NTHUV LINE34 2 = NEW-TUP33>
1790 <EQUAL? NEW-TUP33 '@ + BOOL53>
1793 <NTHUV LINE34 1 = NEW-TUP33>
1794 <EQUAL? NEW-TUP33 'PUSHJ + BOOL53>
1796 <NTHUV LINE34 1 = NEW-TUP33>
1797 <EQUAL? NEW-TUP33 'JSP - PHRASE52>
1800 <SET USEFUL-CODE11 () (TYPE LIST)>
1803 <CONS LINE34 () = LINE34 (TYPE LIST)>
1804 <EMPL? USEFUL-CODE11 - TAG58>
1805 <SET USEFUL-CODE11 LINE34 (TYPE LIST)>
1808 <PUTREST TEMP14 LINE34>
1811 <SET TEMP14 LINE34 (TYPE LIST)>
1813 <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
1817 <EMPL? USEFUL-CODE11 - TAG61 (TYPE LIST)>
1820 <VEQUAL? LABEL6 'MOVE - PHRASE62>
1821 <FRAME '
\1aIS-THIS-AC-USED?>
1823 <PUSH USEFUL-CODE11>
1825 <CALL '
\1aIS-THIS-AC-USED? 3 = TEMP32>
1826 <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE62>
1828 <FRAME '
\1aREPLACE-ACS>
1833 <PUSH USEFUL-CODE11>
1834 <DEAD USEFUL-CODE11>
1835 <CALL '
\1aREPLACE-ACS 3>
1836 <FRAME '
\1aELIMINATE>
1837 <NTHUV NEW-T4 1 = STACK>
1838 <CALL '
\1aELIMINATE 1 = TEMP32>
1839 <PUTUV NEW-T4 1 TEMP32>
1844 <VEQUAL? LABEL6 'DMOVE + TAG69>
1851 <CALL '
\1aGETPROP 2 = LINE34>
1853 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1857 <CALL '
\1aGETPROP 2 = NEW-TUP33>
1858 <SET TEMP14 NEW-TUP33>
1859 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1860 <FRAME '
\1aIS-THIS-AC-USED?>
1862 <PUSH USEFUL-CODE11>
1864 <CALL '
\1aIS-THIS-AC-USED? 3 = TEMP32>
1865 <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG73>
1869 <FRAME '
\1aIS-THIS-AC-USED?>
1871 <PUSH USEFUL-CODE11>
1873 <CALL '
\1aIS-THIS-AC-USED? 3 = TEMP32>
1874 <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG75>
1878 <FRAME '
\1aREPLACE-ACS>
1883 <PUSH USEFUL-CODE11>
1884 <CALL '
\1aREPLACE-ACS 3>
1885 <FRAME '
\1aREPLACE-ACS>
1890 <PUSH USEFUL-CODE11>
1891 <DEAD USEFUL-CODE11>
1892 <CALL '
\1aREPLACE-ACS 3>
1893 <FRAME '
\1aELIMINATE>
1894 <NTHUV NEW-T4 1 = STACK>
1895 <CALL '
\1aELIMINATE 1 = TEMP32>
1896 <PUTUV NEW-T4 1 TEMP32>
1905 <GFCN
\1aREPLACE-ACS ("VALUE" <OR FALSE <INST <OR ATOM LIST>> <OLD-AND-USELESS <OR ATOM LIST>> <REF <OR ATOM LIST>> <VECTOR <OR ATOM LIST>>> ATOM ATOM LIST) AC14 AC25 CODE6>
1906 <TEMP LAC17:LIST LAC28:LIST TEMP18 TEMP15:LIST LINE20 SUBSET21 TEMP30>
1908 <CONS AC14 () = LAC17>
1909 <CONS AC25 () = LAC28>
1910 <SET TEMP18 %<> (TYPE FALSE)>
1911 <SET TEMP15 CODE6 (TYPE LIST)>
1916 <EMPL? TEMP15 + MAPAP13>
1917 <NTHL TEMP15 1 = LINE20>
1921 <CALL '
\1aMEMBER 2 = SUBSET21>
1922 <TYPE? SUBSET21 <TYPE-CODE FALSE> + PHRASE23>
1923 <PUTUV SUBSET21 1 LAC17>
1924 <SET TEMP18 SUBSET21>
1928 <NTH1 LINE20 = SUBSET21>
1929 <SET TEMP18 [MOVE DMOVE] (TYPE VECTOR)>
1930 <TYPE? SUBSET21 <TYPE-CODE ATOM> - TAG26>
1931 <LOOP (SUBSET21 VALUE) (TEMP18 LENGTH VALUE)>
1933 <NTHUV TEMP18 1 = TEMP30>
1934 <VEQUAL? TEMP30 SUBSET21 + PHRASE31>
1936 <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
1937 <EMPUV? TEMP18 - TAG27>
1939 <SET SUBSET21 LINE20>
1941 <EMPTY? SUBSET21 + TAG32>
1942 <LOOP (AC25 VALUE) (SUBSET21 LENGTH VALUE TYPE)>
1944 <NTH1 SUBSET21 = TEMP30>
1945 <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG35>
1946 <VEQUAL? TEMP30 AC25 + TAG33>
1949 <REST1 SUBSET21 = SUBSET21>
1950 <EMPTY? SUBSET21 - TAG34>
1952 <SET SUBSET21 %<> (TYPE FALSE)>
1956 <SET TEMP18 SUBSET21>
1957 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
1958 <PUTUV SUBSET21 1 AC14>
1959 <SET TEMP18 SUBSET21>
1962 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1967 <END
\1aREPLACE-ACS>
1969 <GFCN
\1aIS-THIS-AC-USED? ("VALUE" <OR ATOM FALSE> ATOM LIST ANY) ACCUM4 CODE5 DEST6>
1970 <TEMP ACCUM27 (MOVED?8 %<>) LDEST9:LIST DEST210 TEMP18 (SRC-USED12 %<>) (DST-USED13 %<>) TEMP27 TEMP38 TEMP39 TEMP40>
1975 <CALL '
\1aGETPROP 2 = ACCUM27>
1976 <CONS DEST6 () = LDEST9>
1980 <CALL '
\1aGETPROP 2 = DEST210>
1981 <SET TEMP18 DEST210>
1982 <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL17>
1983 <CONS DEST210 () = TEMP18>
1985 <SET TEMP27 %<> (TYPE FALSE)>
1986 <SET TEMP18 CODE5 (TYPE LIST)>
1991 <EMPL? TEMP18 + MAPAP23>
1992 <NTHL TEMP18 1 = TEMP27>
1993 <VEQUAL? MOVED?8 0 + PHRASE31>
1995 <TYPE DEST6 = TEMP39>
1996 <EMPUV? TEMP38 + TAG35>
1997 <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP38 LENGTH VALUE)>
1999 <NTHUV TEMP38 1 = TEMP40>
2000 <TYPE? TEMP40 TEMP39 - TAG37>
2001 <VEQUAL? TEMP40 DEST6 + TAG41>
2004 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2005 <EMPUV? TEMP38 - TAG36>
2008 <EMPUV? TEMP38 + PHRASE33>
2009 <LOOP (LDEST9 VALUE) (TEMP38 LENGTH VALUE)>
2011 <NTHUV TEMP38 1 = TEMP39>
2012 <TYPE? TEMP39 <TYPE-CODE LIST> - TAG43>
2013 <VEQUAL? TEMP39 LDEST9 + TAG41>
2016 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2017 <EMPUV? TEMP38 - TAG42>
2022 <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE44>
2024 <TYPE DEST210 = TEMP40>
2025 <EMPUV? TEMP39 + PHRASE44>
2026 <LOOP (DEST210 VALUE) (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
2028 <NTHUV TEMP39 1 = TEMP38>
2029 <TYPE? TEMP38 TEMP40 - TAG48>
2030 <VEQUAL? TEMP38 DEST210 + TAG46>
2033 <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2034 <EMPUV? TEMP39 - TAG47>
2039 <EMPUV? TEMP39 + PHRASE44>
2040 <LOOP (LDEST9 VALUE) (TEMP39 LENGTH VALUE)>
2042 <NTHUV TEMP39 1 = TEMP40>
2043 <TYPE? TEMP40 <TYPE-CODE LIST> - TAG52>
2044 <VEQUAL? TEMP40 LDEST9 + TAG50>
2047 <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2048 <EMPUV? TEMP39 - TAG51>
2053 <SET TEMP27 %<> (TYPE FALSE)>
2057 <EMPUV? TEMP40 + TAG57>
2058 <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
2060 <NTHUV TEMP40 1 = TEMP38>
2061 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG59>
2062 <VEQUAL? TEMP38 ACCUM4 + TAG61>
2065 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2066 <EMPUV? TEMP40 - TAG58>
2068 <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE54>
2070 <TYPE ACCUM27 = TEMP38>
2071 <EMPUV? TEMP40 + PHRASE54>
2072 <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
2074 <NTHUV TEMP40 1 = TEMP39>
2075 <TYPE? TEMP39 TEMP38 - TAG63>
2076 <VEQUAL? TEMP39 ACCUM27 + TAG61>
2079 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2080 <EMPUV? TEMP40 - TAG62>
2083 <NTHUV TEMP27 1 = TEMP40>
2084 <SET TEMP38 [DMOVEM MOVEM] (TYPE VECTOR)>
2085 <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE54>
2086 <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2088 <NTHUV TEMP38 1 = TEMP39>
2089 <VEQUAL? TEMP39 TEMP40 + TAG65>
2091 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2092 <EMPUV? TEMP38 - TAG66>
2095 <VEQUAL? DST-USED13 0 + PHRASE69>
2098 <SET TEMP27 %<> (TYPE FALSE)>
2102 <TYPE DEST6 = TEMP39>
2103 <EMPUV? TEMP40 + TAG74>
2104 <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2106 <NTHUV TEMP40 1 = TEMP38>
2107 <TYPE? TEMP38 TEMP39 - TAG76>
2108 <VEQUAL? TEMP38 DEST6 + TAG79>
2111 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2112 <EMPUV? TEMP40 - TAG75>
2114 <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE71>
2116 <TYPE DEST210 = TEMP39>
2117 <EMPUV? TEMP40 + PHRASE71>
2118 <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2120 <NTHUV TEMP40 1 = TEMP38>
2121 <TYPE? TEMP38 TEMP39 - TAG81>
2122 <VEQUAL? TEMP38 DEST210 + TAG79>
2125 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2126 <EMPUV? TEMP40 - TAG80>
2129 <NTHUV TEMP27 1 = TEMP40>
2130 <SET TEMP39 [DMOVEM MOVEM] (TYPE VECTOR)>
2131 <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE71>
2132 <LOOP (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
2134 <NTHUV TEMP39 1 = TEMP38>
2135 <VEQUAL? TEMP38 TEMP40 + TAG82>
2137 <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2138 <EMPUV? TEMP39 - TAG83>
2141 <VEQUAL? SRC-USED12 0 + PHRASE86>
2144 <SET TEMP27 %<> (TYPE FALSE)>
2148 <EMPUV? TEMP40 + TAG91>
2149 <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
2151 <NTHUV TEMP40 1 = TEMP38>
2152 <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG93>
2153 <VEQUAL? TEMP38 ACCUM4 + TAG95>
2156 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2157 <EMPUV? TEMP40 - TAG92>
2159 <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE88>
2161 <TYPE ACCUM27 = TEMP38>
2162 <EMPUV? TEMP40 + PHRASE88>
2163 <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
2165 <NTHUV TEMP40 1 = TEMP39>
2166 <TYPE? TEMP39 TEMP38 - TAG97>
2167 <VEQUAL? TEMP39 ACCUM27 + TAG95>
2170 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2171 <EMPUV? TEMP40 - TAG96>
2174 <NTHUV TEMP27 1 = TEMP40>
2175 <SET TEMP38 [DMOVE MOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
2176 <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE88>
2177 <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2179 <NTHUV TEMP38 1 = TEMP39>
2180 <VEQUAL? TEMP39 TEMP40 + TAG99>
2182 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2183 <EMPUV? TEMP38 - TAG100>
2186 <LENUV TEMP27 = TEMP38 (TYPE FIX)>
2187 <NTHUV TEMP27 TEMP38 = TEMP39>
2189 <TYPE? TEMP39 <TYPE-CODE LIST> - BOOL102>
2190 <NTHL TEMP39 1 = TEMP38>
2191 <EQUAL? TEMP38 ACCUM4 + PHRASE88>
2193 <NTHL TEMP39 1 = TEMP38>
2195 <EQUAL? TEMP38 ACCUM27 + PHRASE88>
2198 <SET MOVED?8 'T (TYPE ATOM)>
2199 <SET TEMP27 %<> (TYPE FALSE)>
2203 <EMPUV? TEMP38 + TAG106>
2204 <LOOP (ACCUM4 VALUE) (TEMP38 LENGTH VALUE)>
2206 <NTHUV TEMP38 1 = TEMP40>
2207 <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG108>
2208 <VEQUAL? TEMP40 ACCUM4 + TAG110>
2211 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2212 <EMPUV? TEMP38 - TAG107>
2214 <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE104>
2216 <TYPE ACCUM27 = TEMP40>
2217 <EMPUV? TEMP38 + PHRASE104>
2218 <LOOP (ACCUM27 VALUE) (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2220 <NTHUV TEMP38 1 = TEMP39>
2221 <TYPE? TEMP39 TEMP40 - TAG112>
2222 <VEQUAL? TEMP39 ACCUM27 + TAG110>
2225 <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2226 <EMPUV? TEMP38 - TAG111>
2229 <VEQUAL? DST-USED13 0 + PHRASE114>
2232 <SET SRC-USED12 'T (TYPE ATOM)>
2233 <SET TEMP27 %<> (TYPE FALSE)>
2237 <TYPE DEST6 = TEMP39>
2238 <EMPUV? TEMP40 + TAG118>
2239 <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2241 <NTHUV TEMP40 1 = TEMP38>
2242 <TYPE? TEMP38 TEMP39 - TAG120>
2243 <VEQUAL? TEMP38 DEST6 + TAG123>
2246 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2247 <EMPUV? TEMP40 - TAG119>
2249 <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE116>
2252 <TYPE DEST210 = TEMP39>
2253 <EMPUV? TEMP40 + PHRASE116>
2254 <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2256 <NTHUV TEMP40 1 = TEMP38>
2257 <TYPE? TEMP38 TEMP39 - TAG125>
2258 <VEQUAL? TEMP38 DEST210 + TAG123>
2261 <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2262 <EMPUV? TEMP40 - TAG124>
2265 <VEQUAL? SRC-USED12 0 + PHRASE127>
2268 <SET DST-USED13 'T (TYPE ATOM)>
2269 <SET TEMP27 %<> (TYPE FALSE)>
2272 <SET TEMP27 %<> (TYPE FALSE)>
2274 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2279 <END
\1aIS-THIS-AC-USED?>
2281 <GFCN
\1aIS-REAL-AC? ("VALUE" <OR !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) ITEM4>
2284 <SET TEMP9 [A1* A2* B1* B2* C1* C2* X* T*] (TYPE VECTOR)>
2285 <LOOP (ITEM4 VALUE) (TEMP9 LENGTH VALUE)>
2287 <NTHUV TEMP9 1 = TEMP10>
2288 <VEQUAL? TEMP10 ITEM4 + TAG6>
2290 <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
2291 <EMPUV? TEMP9 - TAG7>
2292 <SET TEMP9 %<> (TYPE FALSE)>
2296 <END
\1aIS-REAL-AC?>
2298 <GFCN
\1aMOVE-NEEDED? ("VALUE" <OR ATOM FALSE <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 ITM5>
2299 <TEMP TEMP13 BOTH?6 REG7:ATOM INDEX8:LIST REG210 TEMP26 TEMP28 TT29:VECTOR OP31 TEMP43 TEMP53 TEMP54 AFT-SKIP9>
2301 <NTHUV ITM5 1 = TEMP13>
2302 <EQUAL? TEMP13 'DMOVE - TAG12>
2304 <SET BOTH?6 'T (TYPE ATOM)>
2307 <SET BOTH?6 %<> (TYPE FALSE)>
2309 <NTHUV ITM5 2 = REG7 (TYPE ATOM)>
2310 <CONS REG7 () = INDEX8>
2312 <VEQUAL? TEMP13 0 + BOOL15>
2316 <CALL '
\1aGETPROP 2 = TEMP13>
2321 <VEQUAL? TEMP13 0 + BOOL17>
2322 <CONS REG210 () = TEMP13>
2324 <SET TEMP26 %<> (TYPE FALSE)>
2325 <RESTUV NEW-T4 1 = TEMP28 (TYPE VECTOR)>
2326 <CHTYPE TEMP28 <TYPE-CODE VECTOR> = TEMP28>
2330 <EMPUV? TEMP28 + MAPAP22>
2332 <NTHUV TT29 1 = TEMP26>
2333 <NTHUV TEMP26 1 = OP31>
2334 <TYPE? TEMP26 <TYPE-CODE REF> - PHRASE34>
2338 <CALL '
\1aL-LOOP? 1 = TEMP13>
2339 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE38>
2341 <FRAME '
\1aELIMINATE>
2342 <NTHUV NEW-T4 1 = STACK>
2343 <CALL '
\1aELIMINATE 1 = TEMP13>
2344 <PUTUV NEW-T4 1 TEMP13>
2345 <DEAD NEW-T4 TEMP13>
2349 <EQUAL? OP31 'PUSHJ + BOOL41>
2350 <EQUAL? OP31 'JSP + BOOL41>
2351 <EQUAL? OP31 'JRST - BOOL42>
2352 <NTHUV TEMP26 2 = TEMP43>
2353 <EQUAL? TEMP43 '@ + BOOL41>
2356 <EQUAL? OP31 'LDB - PHRASE40>
2357 <FRAME '
\1aLDB-REGISTER-USED?>
2361 <CALL '
\1aLDB-REGISTER-USED? 3 = TEMP43>
2362 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE40>
2367 <NTHUV TEMP26 1 = TEMP43>
2373 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP53>
2374 <TYPE? TEMP43 <TYPE-CODE ATOM> - PHRASE46>
2375 <LOOP (TEMP43 VALUE) (TEMP53 LENGTH VALUE)>
2377 <NTHUV TEMP53 1 = TEMP54>
2378 <VEQUAL? TEMP54 TEMP43 + TAG48>
2380 <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
2381 <EMPUV? TEMP53 - TAG49>
2384 <NTHUV TEMP26 2 = TEMP53>
2385 <EQUAL? TEMP53 REG7 - PHRASE46>
2390 <CALL '
\1a=? 2 = TEMP53>
2391 <VEQUAL? TEMP53 0 + PHRASE46>
2393 <LENUV TEMP26 = TEMP53 (TYPE FIX)>
2394 <NTHUV TEMP26 TEMP53 = TEMP43>
2396 <TYPE? TEMP43 <TYPE-CODE LIST> - BOOL56>
2397 <NTHL TEMP43 1 = TEMP53>
2399 <EQUAL? TEMP53 REG7 + PHRASE46>
2402 <SET AFT-SKIP9 %<> (TYPE FALSE)>
2403 <FRAME '
\1aELIMINATE>
2404 <NTHUV TT29 1 = STACK>
2405 <CALL '
\1aELIMINATE 1 = TEMP53>
2406 <PUTUV TT29 1 TEMP53>
2415 <CALL '
\1aMEMBER 2 = TEMP53>
2416 <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE58>
2420 <EQUAL? OP31 'MOVEM - PHRASE60>
2422 <EMPUV? TEMP43 + PHRASE60>
2423 <LOOP (REG7 VALUE) (TEMP43 LENGTH VALUE)>
2425 <NTHUV TEMP43 1 = TEMP54>
2426 <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG64>
2427 <VEQUAL? TEMP54 REG7 + TAG62>
2430 <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
2431 <EMPUV? TEMP43 - TAG63>
2434 <NTHUV TEMP26 3 = TEMP43>
2435 <TYPE? TEMP43 <TYPE-CODE LOCAL-NAME> - PHRASE66>
2438 <RESTUV TEMP26 2 = TEMP43 (TYPE VECTOR)>
2440 <CHTYPE TEMP43 <TYPE-CODE VECTOR> = STACK>
2442 <RESTUV ITM5 2 = TEMP54 (TYPE VECTOR)>
2444 <CHTYPE TEMP54 <TYPE-CODE VECTOR> = STACK>
2446 <CALL '
\1a=? 2 = TEMP13>
2447 <VEQUAL? TEMP13 0 + PHRASE66>
2449 <FRAME '
\1aELIMINATE>
2450 <NTHUV NEW-T4 1 = STACK>
2451 <CALL '
\1aELIMINATE 1 = TEMP13>
2452 <PUTUV NEW-T4 1 TEMP13>
2453 <DEAD NEW-T4 TEMP13>
2454 <FRAME '
\1aELIMINATE>
2455 <NTHUV TT29 1 = STACK>
2456 <CALL '
\1aELIMINATE 1 = TEMP13>
2457 <PUTUV TT29 1 TEMP13>
2462 <EQUAL? OP31 'DMOVEM - PHRASE72>
2467 <CALL '
\1aGETPROP 2 = REG210>
2468 <TYPE? REG210 <TYPE-CODE FALSE> + PHRASE72>
2470 <EMPUV? OP31 + PHRASE72>
2471 <LOOP (REG210 VALUE) (OP31 LENGTH VALUE)>
2473 <NTHUV OP31 1 = TEMP43>
2474 <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG77>
2475 <VEQUAL? TEMP43 REG210 + TAG75>
2478 <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2479 <EMPUV? OP31 - TAG76>
2484 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
2486 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP43>
2487 <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE80>
2489 <VEQUAL? AFT-SKIP9 0 - PHRASE80>
2491 <FRAME '
\1aELIMINATE>
2492 <NTHUV NEW-T4 1 = STACK>
2493 <CALL '
\1aELIMINATE 1 = TEMP43>
2494 <PUTUV NEW-T4 1 TEMP43>
2495 <DEAD NEW-T4 TEMP43>
2498 <VEQUAL? BOTH?6 0 + BOOL86>
2500 <TYPE REG210 = TEMP43>
2501 <EMPUV? OP31 + TAG88>
2502 <LOOP (REG210 VALUE) (TEMP43 VALUE) (OP31 LENGTH VALUE)>
2504 <NTHUV OP31 1 = TEMP53>
2505 <TYPE? TEMP53 TEMP43 - TAG90>
2506 <VEQUAL? TEMP53 REG210 + TAG95>
2509 <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2510 <EMPUV? OP31 - TAG89>
2515 <CALL '
\1aMEMBER 2 = OP31>
2516 <TYPE? OP31 <TYPE-CODE FALSE> - TAG95>
2520 <EMPUV? OP31 + PHRASE84>
2521 <LOOP (REG7 VALUE) (OP31 LENGTH VALUE)>
2523 <NTHUV OP31 1 = TEMP43>
2524 <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG97>
2525 <VEQUAL? TEMP43 REG7 + TAG95>
2528 <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2529 <EMPUV? OP31 - TAG96>
2534 <FRAME '
\1aCONDITIONAL-SKIP?>
2536 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP43>
2537 <VEQUAL? TEMP43 0 - BOOL99>
2539 <FRAME '
\1aUNCONDITIONAL-SKIP?>
2542 <CALL '
\1aUNCONDITIONAL-SKIP? 1 = TEMP43>
2543 <VEQUAL? TEMP43 0 + PHRASE98>
2546 <SET AFT-SKIP9 'T (TYPE ATOM)>
2547 <SET TEMP26 AFT-SKIP9>
2550 <SET AFT-SKIP9 %<> (TYPE FALSE)>
2551 <SET TEMP26 AFT-SKIP9>
2553 <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
2558 <END
\1aMOVE-NEEDED?>
2560 <GFCN
\1aBRANCH-CHAIN ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> ANY OLD-AND-USELESS>> <PRIMTYPE VECTOR>) NEW-T4>
2561 <TEMP TAG15:REF JUMP16 TEMP9 (FLUSHIT8 'T) LINE21 TEMP24 TEMP30>
2563 <NTHUV NEW-T4 1 = TAG15 (TYPE REF)>
2564 <NTHUV NEW-T4 2 = JUMP16 (TYPE INST)>
2565 <LENUV JUMP16 = TEMP9 (TYPE FIX)>
2566 <NTHUV JUMP16 TEMP9 = JUMP16 (TYPE REF)>
2568 <NTHUV TAG15 3 = TEMP9>
2572 <EMPTY? TEMP9 + MAPAP14>
2573 <NTH1 TEMP9 = LINE21>
2574 <NTHUV LINE21 1 = TEMP24>
2575 <TYPE? TEMP24 <TYPE-CODE SGFRM> - PHRASE23>
2577 <SET FLUSHIT8 %<> (TYPE FALSE)>
2580 <NTHUV LINE21 1 = TEMP24>
2581 <TYPE? TEMP24 <TYPE-CODE GFRM> + TAG28>
2582 <TYPE? TEMP24 <TYPE-CODE SBFRM> - PHRASE27>
2585 <NTHUV JUMP16 1 = TEMP24>
2586 <NTHUV LINE21 1 = TEMP30>
2587 <CHTYPE TEMP24 <TYPE TEMP30> = TEMP24>
2589 <PUTUV LINE21 1 TEMP24>
2592 <LENUV LINE21 = TEMP24 (TYPE FIX)>
2593 <PUTUV LINE21 TEMP24 JUMP16>
2597 <SET TEMP30 1 (TYPE FIX)>
2598 <NTHUV JUMP16 3 = TEMP24>
2599 <TYPE TEMP24 = LINE21>
2600 <AND LINE21 7 = LINE21>
2601 <VEQUAL? LINE21 1 + TAG33>
2603 <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
2606 <EMPTY? TEMP24 + TAG38>
2607 <NTH1 TEMP24 = STACK>
2608 <REST1 TEMP24 = TEMP24>
2609 <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
2612 <LIST TEMP30 = TEMP24 (TYPE LIST)>
2618 <VEQUAL? TEMP30 0 + TAG35>
2620 <CONS LINE21 TEMP24 = TEMP24 (TYPE LIST)>
2622 <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
2625 <PUTUV JUMP16 3 TEMP24>
2628 <REST1 TEMP9 = TEMP9>
2631 <SET TEMP9 FLUSHIT8>
2633 <VEQUAL? TEMP9 0 + PHRASE44>
2634 <NTHUV TAG15 1 = STACK>
2636 <UBLOCK <TYPE-CODE VECTOR> 1 = FLUSHIT8>
2637 <CHTYPE FLUSHIT8 <TYPE-CODE OLD-AND-USELESS> = FLUSHIT8>
2638 <PUTUV NEW-T4 1 FLUSHIT8>
2640 <FRAME '
\1aUNCONDITIONAL-BRANCH?>
2641 <BACKU NEW-T4 1 = FLUSHIT8>
2642 <NTHUV FLUSHIT8 1 = STACK>
2644 <CALL '
\1aUNCONDITIONAL-BRANCH? 1 = TEMP9>
2645 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE44>
2646 <FRAME '
\1aCONDITIONAL-SKIP?>
2647 <BACKU NEW-T4 2 = FLUSHIT8>
2648 <NTHUV FLUSHIT8 1 = STACK>
2650 <CALL '
\1aCONDITIONAL-SKIP? 1 = FLUSHIT8>
2651 <VEQUAL? FLUSHIT8 0 + TAG48>
2655 <FRAME '
\1aELIMINATE>
2656 <NTHUV NEW-T4 2 = STACK>
2657 <CALL '
\1aELIMINATE 1 = FLUSHIT8>
2658 <PUTUV NEW-T4 2 FLUSHIT8>
2665 <END
\1aBRANCH-CHAIN>
2667 <GFCN
\1aLDB-REGISTER-USED? ("VALUE" <OR ATOM FALSE> INST ATOM <OR FALSE ATOM>) ITM4 REG15 REG26>
2668 <TEMP TEMP14 CNST7 CONSTANT8>
2670 <NTHUV ITM4 3 = TEMP14>
2671 <TYPE? TEMP14 <TYPE-CODE REF> + TAG15>
2673 <SET TEMP14 %<> (TYPE FALSE)>
2676 <NTHUV ITM4 3 = TEMP14 (TYPE REF)>
2678 <NTHUV TEMP14 1 = TEMP14>
2682 <GVAL 'CONSTANT-VECTOR = CONSTANT8>
2683 <TYPE? CNST7 <TYPE-CODE CONSTANT-BUCKET> - TAG20>
2684 <EMPL? CONSTANT8 + TAG20>
2685 <LOOP (CNST7 VALUE) (CONSTANT8 VALUE)>
2687 <NTHL CONSTANT8 1 = TEMP14>
2688 <VEQUAL? TEMP14 CNST7 + TAG21>
2690 <RESTL CONSTANT8 1 = CONSTANT8 (TYPE LIST)>
2691 <EMPL? CONSTANT8 - TAG22>
2693 <SET CONSTANT8 %<> (TYPE FALSE)>
2695 <VEQUAL? CONSTANT8 0 + PHRASE18>
2696 <RESTL CONSTANT8 1 = TEMP14 (TYPE LIST)>
2698 <NTHL TEMP14 1 = TEMP14 (TYPE CONSTANT-BUCKET)>
2701 <END
\1aLDB-REGISTER-USED?>
2702 <PUTPROP A1* AC-PAIR A2*>
2704 <PUTPROP A2* AC-PAIR A1*>
2706 <PUTPROP B1* AC-PAIR B2*>
2708 <PUTPROP B2* AC-PAIR B1*>
2710 <PUTPROP C1* AC-PAIR C2*>
2712 <PUTPROP C2* AC-PAIR C1*>
2715 <GFCN
\1aL-LOOP? ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR>) TUP4>
2716 <TEMP LAB5 TEMP15 TEMP17 TEMP28 TEMP29>
2718 <NTHUV TUP4 1 = LAB5>
2719 <SET TEMP15 %<> (TYPE FALSE)>
2720 <RESTUV TUP4 1 = TEMP17 (TYPE VECTOR)>
2722 <CHTYPE TEMP17 <TYPE-CODE VECTOR> = TEMP17>
2726 <EMPUV? TEMP17 + MAPAP10>
2728 <NTHUV TEMP15 1 = TEMP15>
2729 <TYPE? TEMP15 <TYPE-CODE REF> - PHRASE21>
2732 <TYPE LAB5 = TEMP28>
2733 <EMPTY? TEMP15 + TAG24>
2734 <LOOP (LAB5 VALUE) (TEMP28 VALUE) (TEMP15 LENGTH VALUE TYPE)>
2736 <NTH1 TEMP15 = TEMP29>
2737 <TYPE? TEMP29 TEMP28 - TAG27>
2738 <VEQUAL? TEMP29 LAB5 + TAG25>
2741 <REST1 TEMP15 = TEMP15>
2742 <EMPTY? TEMP15 - TAG26>
2744 <SET TEMP15 %<> (TYPE FALSE)>
2749 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2755 <SETG CIRC-LOOP? <>>
2758 <GFCN
\1aELIMINATE ("VALUE" OLD-AND-USELESS ANY) STATEMENT4>
2759 <TEMP TEMP9 LAST5 TEMP33 TEMP37 LINE38>
2761 <GEN-LVAL 'PREVIOUS = TEMP9>
2762 <TYPE? TEMP9 <TYPE-CODE INST> - PHRASE7>
2764 <FRAME '
\1aCONDITIONAL-SKIP?>
2765 <GEN-LVAL 'PREVIOUS = STACK>
2766 <CALL '
\1aCONDITIONAL-SKIP? 1 = TEMP9>
2767 <VEQUAL? TEMP9 0 + PHRASE7>
2771 <CALL '
\1aMOVE? 1 = TEMP9>
2772 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
2775 <GEN-LVAL 'PREVIOUS = STACK>
2780 <TYPE? STATEMENT4 <TYPE-CODE REF> - PHRASE21>
2781 <PUTUV STATEMENT4 3 ()>
2782 <NTHUV STATEMENT4 1 = STACK>
2784 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP9>
2785 <CHTYPE TEMP9 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2789 <TYPE? STATEMENT4 <TYPE-CODE INST> - PHRASE24>
2790 <LENUV STATEMENT4 = TEMP9 (TYPE FIX)>
2791 <NTHUV STATEMENT4 TEMP9 = LAST5>
2793 <TYPE? LAST5 <TYPE-CODE REF> - PHRASE24>
2794 <LENUV LAST5 = TEMP9 (TYPE FIX)>
2795 <VEQUAL? TEMP9 3 - PHRASE24 (TYPE FIX)>
2797 <NTHUV LAST5 3 = TEMP9>
2798 <TYPE? TEMP9 <TYPE-CODE LIST> - PHRASE24>
2800 <SET TEMP9 () (TYPE LIST)>
2801 <SET TEMP33 () (TYPE LIST)>
2802 <NTHUV LAST5 3 = TEMP37 (TYPE LIST)>
2806 <EMPL? TEMP37 + MAPAP31>
2807 <NTHL TEMP37 1 = LINE38>
2808 <EQUAL? LINE38 STATEMENT4 + PHRASE42>
2809 <CONS LINE38 () = LINE38 (TYPE LIST)>
2810 <EMPL? TEMP9 - TAG45>
2811 <SET TEMP9 LINE38 (TYPE LIST)>
2814 <PUTREST TEMP33 LINE38>
2817 <SET TEMP33 LINE38 (TYPE LIST)>
2820 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
2823 <PUTUV LAST5 3 TEMP9 (TYPE LIST)>
2825 <LENUV STATEMENT4 = TEMP37 (TYPE FIX)>
2826 <NTHUV LAST5 1 = STACK>
2828 <UBLOCK <TYPE-CODE VECTOR> 1 = LINE38>
2829 <CHTYPE LINE38 <TYPE-CODE REF> = LINE38>
2830 <PUTUV STATEMENT4 TEMP37 LINE38>
2831 <DEAD TEMP37 LINE38>
2832 <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2837 <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2842 <PROG () <MAKE-OPPOSITES CAIGE CAIL> <MAKE-OPPOSITES CAIN CAIE> <MAKE-OPPOSITES CAIG CAILE> <MAKE-OPPOSITES CAMGE CAML> <MAKE-OPPOSITES CAMN CAME> <MAKE-OPPOSITES CAMG CAMLE> <MAKE-OPPOSITES SKIPLE SKIPG> <MAKE-OPPOSITES SKIPGE SKIPL> <MAKE-OPPOSITES SKIPN SKIPE> <MAKE-OPPOSITES TRNN TRNE> <MAKE-OPPOSITES TLNN TLNE> <MAKE-OPPOSITES JUMPGE JUMPL> <MAKE-OPPOSITES JUMPN JUMPE> <MAKE-OPPOSITES JUMPG JUMPLE> <MAKE-OPPOSITES SOJG SOJLE> <MAKE-OPPOSITES SOJL SOJGE> <MAKE-OPPOSITES SOJE SOJN>>