6 "This version written by CLR 2/85 based entirely on SAMs previous version.
9 a) Bit masks used instead of lists of names for efficiency.
11 b) Attempt to flush dead SETs.
13 There are two interesting structures:
15 1) Each temp atom's value is a uvector of fixes.
16 The first element is its number (starting at 0)
17 and increasing so each temp has a number.
19 The rest of the elements are essentially constitute
20 a string of 1 bit bytes big enough for the total
21 number of temps. The bit being on indicates a temp
22 that can't be merged with this one.
24 2) The lists of live variables associated with branches is
25 also the same kind of bit string."
27 <ENTRY REMOVE-DEADS FIXUP-DEATH DEBUG-DEATH MAINTAIN-DECLS>
31 <SETG DEBUG-DEATH %<>>
33 <SETG MAINTAIN-DECLS %<>>
35 "NAME-UV is a vector of temp names. It is used to get from a number back to
36 the name of a temp. NOTE: temp values start at 0 so 1 always must be added
37 to index into this vector."
39 <GDECL (NAME-UV) <VECTOR [REST ATOM]> (UVSIZE) FIX>
41 <NEWTYPE DEAD-VAR ATOM>
43 <NEWSTRUC LABEL VECTOR L-INST <OR ATOM FORM> L-INS <LIST [REST FIX]> L-LEVEL FIX L-ASSIGN <OR FALSE <LIST [REST !<LIST ATOM FIX>]>>>
45 <NEWSTRUC BRANCH VECTOR B-INST FORM B-OUTS <LIST [REST FIX]> B-LIVES UVECTOR B-FALL-DEADS UVECTOR B-JUMP-DEADS <OR FALSE UVECTOR>>
48 <GFCN
\1a/32 ("VALUE" FORM "QUOTE" ANY) X4>
56 <CALL '
\1aFORM 3 = TEMP6>
60 <COND (<AND <GASSIGNED? /32> <NOT <TYPE? ,/32 MACRO>>> <SETG /32 <CHTYPE (,/32) MACRO>>)>
63 <GFCN
\1aFIXUP-DEATH ("VALUE" ANY LIST) CODE4>
64 <TEMP OUTCHAN5 TEMP10 CODELEN17:FIX TEMP20 VC21 X36 TEMP40 LABEL80:LABEL>
66 <GEN-LVAL 'OUTCHAN = OUTCHAN5>
67 <GVAL 'DEBUG-DEATH = TEMP10>
68 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
70 <FRAME '
\1aPRINTSTRING>
71 <PUSH "Fixup-death: ">
73 <CALL '
\1aPRINTSTRING 2>
75 <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
76 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
77 <NTHL TEMP10 1 = STACK>
84 <FRAME '
\1aPRINTSTRING>
85 <PUSH "Removing deads">
87 <CALL '
\1aPRINTSTRING 2>
92 <SETG 'ANY-FLUSHED-INS %<>>
93 <FRAME '
\1aREMOVE-DEADS>
95 <CALL '
\1aREMOVE-DEADS 1 = CODELEN17>
96 <GETS 'BIND = TEMP10 (TYPE LBIND)>
97 <UUBLOCK <TYPE-CODE VECTOR> CODELEN17 = TEMP20 (TYPE VECTOR)>
98 <BBIND 'VCODE 'VECTOR 'FIX TEMP20>
100 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
101 <NTHR TEMP20 1 = VC21 (RECORD-TYPE LBIND)>
103 <SET TEMP20 CODE4 (TYPE LIST)>
107 <EMPL? TEMP20 + MAPAP30>
108 <NTHL TEMP20 1 = X36>
109 <TYPE? X36 <TYPE-CODE FORM> - PHRASE38>
110 <EMPL? X36 + PHRASE38 (TYPE FORM)>
111 <NTHL X36 1 = TEMP40>
112 <EQUAL? TEMP40 '`ENDIF - PHRASE38>
115 <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
119 <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
120 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
123 <GVAL 'DEBUG-DEATH = TEMP20>
124 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE42>
126 <FRAME '
\1aPRINTSTRING>
127 <PUSH "Preparing labels and temps">
129 <CALL '
\1aPRINTSTRING 2>
134 <FRAME '
\1aPREPARE-LABELS-AND-TEMPS>
135 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
136 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
138 <CALL '
\1aPREPARE-LABELS-AND-TEMPS 1 = VC21>
139 <GVAL 'DEBUG-DEATH = TEMP20>
140 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE49>
142 <FRAME '
\1aPRINTSTRING>
143 <PUSH "Preparing branches">
145 <CALL '
\1aPRINTSTRING 2>
150 <FRAME '
\1aPREPARE-BRANCHES>
151 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
152 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
158 <CALL '
\1aPREPARE-BRANCHES 5>
159 <GVAL 'DEBUG-DEATH = TEMP20>
160 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE56>
162 <FRAME '
\1aPRINTSTRING>
165 <CALL '
\1aPRINTSTRING 2>
170 <SET TEMP40 1 (TYPE FIX)>
174 <GVAL 'DEBUG-DEATH = TEMP20>
175 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE63>
177 <FRAME '
\1aPRINTSTRING>
180 <CALL '
\1aPRINTSTRING 2>
189 <SETG 'SOMETHING-CHANGED %<>>
190 <FRAME '
\1aBACKWALK-FROM-LABEL>
191 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
192 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
194 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
195 <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
196 <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
199 <CALL '
\1aBACKWALK-FROM-LABEL 3>
200 <SET TEMP20 VC21 (TYPE LIST)>
204 <EMPL? TEMP20 + MAPAP76>
205 <NTHL TEMP20 1 = LABEL80>
206 <FRAME '
\1aBACKWALK-FROM-LABEL>
207 <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
208 <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
213 <CALL '
\1aBACKWALK-FROM-LABEL 3>
214 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
217 <GVAL 'SOMETHING-CHANGED = TEMP20>
218 <TYPE? TEMP20 <TYPE-CODE FALSE> + EXIT59>
220 <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
223 <GVAL 'DEBUG-DEATH = TEMP20>
224 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE88>
226 <FRAME '
\1aPRINTSTRING>
227 <PUSH "SET optimization">
229 <CALL '
\1aPRINTSTRING 2>
234 <FRAME '
\1aOPTIMIZE-SETS>
235 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
236 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
238 <CALL '
\1aOPTIMIZE-SETS 1>
239 <GVAL 'DEBUG-DEATH = TEMP20>
240 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE95>
242 <FRAME '
\1aPRINTSTRING>
243 <PUSH "General optimization">
245 <CALL '
\1aPRINTSTRING 2>
250 <FRAME '
\1aOPTIMIZE-TEMPS>
251 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
252 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
254 <CALL '
\1aOPTIMIZE-TEMPS 1>
255 <GVAL 'MAINTAIN-DECLS = TEMP20>
256 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE102>
258 <GVAL 'DEBUG-DEATH = TEMP20>
259 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE104>
261 <FRAME '
\1aPRINTSTRING>
262 <PUSH "Optional optimization pass (ignoring decls)">
264 <CALL '
\1aPRINTSTRING 2>
269 <FRAME '
\1aOPTIMIZE-TEMPS/BASH-DECLS>
270 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
271 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
273 <CALL '
\1aOPTIMIZE-TEMPS/BASH-DECLS 1>
275 <GVAL 'DEBUG-DEATH = TEMP20>
276 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE111>
278 <FRAME '
\1aPRINTSTRING>
279 <PUSH "Preparing deads">
281 <CALL '
\1aPRINTSTRING 2>
286 <FRAME '
\1aPREPARE-DEADS-FROM-LABEL>
287 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
288 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
290 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
291 <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
292 <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
293 <DEAD TEMP20 CODELEN17>
294 <CALL '
\1aPREPARE-DEADS-FROM-LABEL 2>
295 <SET TEMP20 VC21 (TYPE LIST)>
300 <EMPL? TEMP20 + MAPAP123>
301 <NTHL TEMP20 1 = LABEL80>
302 <FRAME '
\1aPREPARE-DEADS-FROM-LABEL>
303 <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
304 <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
308 <CALL '
\1aPREPARE-DEADS-FROM-LABEL 2>
309 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
312 <GVAL 'DEBUG-DEATH = TEMP20>
313 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE132>
315 <FRAME '
\1aPRINTSTRING>
316 <PUSH "Inserting deads">
318 <CALL '
\1aPRINTSTRING 2>
323 <FRAME '
\1aINSERT-DEADS>
325 <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
326 <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
328 <CALL '
\1aINSERT-DEADS 2>
332 <GVAL 'DEBUG-DEATH = TEMP10>
333 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE139>
335 <FRAME '
\1aPRINTSTRING>
336 <PUSH "Death complete: ">
338 <CALL '
\1aPRINTSTRING 2>
340 <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
342 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
343 <NTHL TEMP10 1 = STACK>
352 <GVAL 'ANY-FLUSHED-INS = TEMP10>
356 "ADD-LIST ORs a bit into a uvector. In the old world it addes an atom to
360 <GFCN
\1aADD-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
361 <TEMP TEMP9 NUM6:FIX WD7:FIX>
365 <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
367 <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
368 <ADD TEMP9 1 = WD7 (TYPE FIX)>
371 <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
372 <LSH 1 NUM6 = NUM6 (TYPE FIX)>
373 <OR TEMP9 NUM6 = TEMP9>
380 "ADD-LIST? same as ADD-LIST except returns #FALSE () if already there."
383 <GFCN
\1aADD-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
384 <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
388 <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
390 <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
391 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
393 <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
394 <LSH 1 NUM6 = NUM6 (TYPE FIX)>
395 <AND TEM7 NUM6 = TEMP13>
396 <VEQUAL? TEMP13 0 + TAG14 (TYPE FIX)>
400 <OR TEM7 NUM6 = TEMP13>
402 <PUTUU L5 TEMP10 TEMP13>
407 "REM-LIST kill a bit in the uvector same way as ADD-LIST."
410 <GFCN
\1aREM-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
411 <TEMP TEMP9 NUM6:FIX WD7:FIX>
415 <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
417 <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
418 <ADD TEMP9 1 = WD7 (TYPE FIX)>
421 <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
422 <ROT -2 NUM6 = NUM6 (TYPE FIX)>
423 <AND TEMP9 NUM6 = TEMP9>
430 "REM-LIST? return false if not there, else remove it and return true"
433 <GFCN
\1aREM-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
434 <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
438 <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
440 <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
441 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
443 <LSH 1 NUM6 = NUM6 (TYPE FIX)>
444 <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
445 <AND TEM7 NUM6 = TEMP13>
446 <VEQUAL? TEMP13 0 - TAG14 (TYPE FIX)>
450 <XOR TEM7 NUM6 = TEMP13>
452 <PUTUU L5 TEMP10 TEMP13>
457 "IN-LIST? see if bit is on"
460 <GFCN
\1aIN-LIST? ("VALUE" <OR !<FALSE> UVECTOR> ATOM UVECTOR) ATM4 L5>
461 <TEMP TEMP9 NUM6:FIX>
465 <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
467 <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
468 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
470 <NTHUU L5 TEMP9 = TEMP9 (TYPE FIX)>
471 <LSH 1 NUM6 = NUM6 (TYPE FIX)>
472 <AND TEMP9 NUM6 = TEMP9>
474 <VEQUAL? TEMP9 0 - PHRASE11 (TYPE FIX)>
482 <GFCN
\1aINTERSECT-LISTS ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]>) L14 L25>
483 <TEMP TEMP15 TEMP13 TEMP12:LIST A117:ATOM TEMP23 TEMP24>
485 <SET TEMP15 () (TYPE LIST)>
486 <SET TEMP13 () (TYPE LIST)>
487 <SET TEMP12 L14 (TYPE LIST)>
492 <EMPL? TEMP12 + MAPAP10>
493 <NTHL TEMP12 1 = A117>
495 <EMPL? TEMP23 + PHRASE28>
496 <LOOP (A117 VALUE) (TEMP23 VALUE)>
498 <NTHL TEMP23 1 = TEMP24>
499 <VEQUAL? TEMP24 A117 + TAG20>
501 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
502 <EMPL? TEMP23 - TAG21>
505 <CONS A117 () = TEMP23 (TYPE LIST)>
507 <EMPL? TEMP15 - TAG26>
508 <SET TEMP15 TEMP23 (TYPE LIST)>
511 <PUTREST TEMP13 TEMP23>
514 <SET TEMP13 TEMP23 (TYPE LIST)>
517 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
522 <END
\1aINTERSECT-LISTS>
524 <GFCN
\1aATOM-PART ("VALUE" ATOM <OR ATOM ADECL LIST>) TEMP4>
527 <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
531 <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
532 <NTHUV TEMP4 1 = TEMP7 (TYPE ATOM)>
537 <FRAME '
\1aATOM-PART>
538 <NTHL TEMP4 1 = STACK>
540 <CALL '
\1aATOM-PART 1 = TEMP7>
545 <GFCN
\1aDECL-PART ("VALUE" ANY <OR ATOM ADECL LIST>) TEMP4>
548 <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
551 <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
552 <NTHUV TEMP4 2 = TEMP7>
557 <FRAME '
\1aDECL-PART>
558 <NTHL TEMP4 1 = STACK>
560 <CALL '
\1aDECL-PART 1 = TEMP7>
565 <GFCN
\1aINST-PART ("VALUE" ANY ANY) INST4>
568 <TYPE? INST4 <TYPE-CODE BRANCH> - PHRASE6>
569 <NTHUV INST4 1 = TEMP7 (TYPE FORM)>
574 <TYPE? INST4 <TYPE-CODE LABEL> - PHRASE8>
575 <NTHUV INST4 1 = TEMP7>
584 <GFCN
\1aREMOVE-DEADS ("VALUE" FIX LIST) CODE4>
585 <TEMP RCODE8:LIST CODE-SIZE11:FIX INST9>
587 <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
588 <SET CODE-SIZE11 1 (TYPE FIX)>
592 <EMPL? RCODE8 - PHRASE14 (TYPE LIST)>
596 <NTHL RCODE8 1 = INST9>
597 <TYPE? INST9 <TYPE-CODE FORM> - PHRASE20>
598 <EMPL? INST9 + PHRASE20 (TYPE FORM)>
599 <FRAME '
\1aKILL-FUNNY-DEADS>
601 <CALL '
\1aKILL-FUNNY-DEADS 1>
602 <NTHL INST9 1 = INST9>
603 <EQUAL? INST9 '`DEAD - PHRASE19>
604 <RESTL RCODE8 1 = RCODE8 (TYPE LIST)>
605 <PUTREST CODE4 RCODE8>
608 <EQUAL? INST9 '`ENDIF - PHRASE20>
610 <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
612 <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
615 <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
617 <END
\1aREMOVE-DEADS>
619 <GFCN
\1aKILL-FUNNY-DEADS ("VALUE" ATOM FORM) INST4>
620 <TEMP N5 L9 TEMP15:FIX>
622 <LENL INST4 = N5 (TYPE FIX)>
628 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
629 <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
630 <LOOP (L9 VALUE) (TEMP15 VALUE)>
633 <RESTL L9 1 = L9 (TYPE LIST)>
634 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
635 <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
638 <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
639 <EMPL? L9 + PHRASE13 (TYPE LIST)>
641 <EQUAL? L9 '`DEAD-FALL + BOOL19>
642 <EQUAL? L9 '`DEAD-JUMP - PHRASE13>
645 <SUB N5 2 = TEMP15 (TYPE FIX)>
647 <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
648 <LOOP (L9 VALUE) (TEMP15 VALUE)>
651 <RESTL L9 1 = L9 (TYPE LIST)>
652 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
653 <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
655 <CHTYPE L9 <TYPE-CODE LIST> = L9>
658 <SUB N5 1 = N5 (TYPE FIX)>
662 <END
\1aKILL-FUNNY-DEADS>
664 <GFCN
\1aPREPARE-LABELS-AND-TEMPS ("VALUE" <LIST [REST LABEL]> VECTOR) CODE4>
665 <TEMP (ALL-VARS5:LIST ()) (NTEMPS6:FIX 0) CODELEN7:FIX (LOOP-LABELS8:LIST ()) I11:FIX LOOP-LABEL?14 DID-ENDIF16 INST12 TEMP20>
667 <LENUV CODE4 = CODELEN7 (TYPE FIX)>
668 <SET I11 1 (TYPE FIX)>
669 <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
670 <SET DID-ENDIF16 %<> (TYPE FALSE)>
674 <NTHUV CODE4 I11 = INST12>
675 <TYPE? INST12 <TYPE-CODE ATOM> - PHRASE19>
676 <NTHR INST12 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
677 <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
678 <PUTR TEMP20 1 I11 (RECORD-TYPE GBIND)>
692 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
693 <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
695 <VEQUAL? LOOP-LABEL?14 0 + PHRASE25>
696 <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
697 <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
699 <PUTUV CODE4 I11 INST12>
703 <TYPE? INST12 <TYPE-CODE FORM> - PHRASE41>
704 <EMPL? INST12 + PHRASE41 (TYPE FORM)>
705 <NTHL INST12 1 = TEMP20>
706 <EQUAL? TEMP20 '`END + BOOL30>
707 <EQUAL? TEMP20 '`ENDIF - PHRASE29>
708 <VEQUAL? DID-ENDIF16 0 + PHRASE29>
710 <SET DID-ENDIF16 %<> (TYPE FALSE)>
716 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
717 <CHTYPE TEMP20 <TYPE-CODE LABEL> = TEMP20>
718 <PUTUV CODE4 I11 TEMP20>
722 <EQUAL? TEMP20 '`ENDIF - PHRASE33>
723 <VEQUAL? DID-ENDIF16 0 - PHRASE33>
724 <SET DID-ENDIF16 'T (TYPE ATOM)>
727 <EQUAL? TEMP20 '`LOOP - PHRASE35>
728 <SET LOOP-LABEL?14 'T (TYPE ATOM)>
731 <EQUAL? TEMP20 '`ACTIVATION - PHRASE36>
737 <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
738 <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
740 <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
741 <PUTUV CODE4 I11 INST12>
745 <EQUAL? TEMP20 '`GFCN + BOOL39>
746 <EQUAL? TEMP20 '`FCN - PHRASE38>
748 <RESTL INST12 1 = INST12 (TYPE LIST)>
749 <RESTL INST12 1 = INST12 (TYPE LIST)>
750 <RESTL INST12 1 = INST12 (TYPE LIST)>
751 <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
752 <CONS INST12 () = TEMP20>
753 <PUTREST TEMP20 ALL-VARS5>
755 <SET ALL-VARS5 TEMP20>
757 <LENL INST12 = TEMP20 (TYPE FIX)>
759 <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
763 <EQUAL? TEMP20 '`TEMP - PHRASE40>
764 <RESTL INST12 1 = INST12 (TYPE LIST)>
765 <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
766 <CONS INST12 () = TEMP20>
767 <PUTREST TEMP20 ALL-VARS5>
769 <SET ALL-VARS5 TEMP20>
771 <LENL INST12 = TEMP20 (TYPE FIX)>
773 <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
777 <EQUAL? TEMP20 '`MAKTUP - PHRASE41>
779 <RESTL INST12 1 = TEMP20 (TYPE LIST)>
780 <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
781 <CONS TEMP20 ALL-VARS5 = ALL-VARS5>
783 <LENL INST12 = TEMP20 (TYPE FIX)>
785 <ADD TEMP20 NTEMPS6 = TEMP20 (TYPE FIX)>
787 <ADD TEMP20 -3 = NTEMPS6 (TYPE FIX)>
790 <VEQUAL? I11 CODELEN7 + EXIT9 (TYPE FIX)>
791 <ADD I11 1 = I11 (TYPE FIX)>
794 <FRAME '
\1aCONSTRUCT-TEMPS>
799 <CALL '
\1aCONSTRUCT-TEMPS 2>
800 <RETURN LOOP-LABELS8>
802 <END
\1aPREPARE-LABELS-AND-TEMPS>
804 <GFCN
\1aCONSTRUCT-TEMPS ("VALUE" FIX FIX <LIST [REST LIST]>) NTEMPS4 ALL-VARS5>
805 <TEMP TEMP9 UVSIZE6:FIX UV-OF-NAMES7:VECTOR (I8:FIX 0) L20:LIST ATM32 UV33:UVECTOR TEMP36>
807 <ADD NTEMPS4 63 = TEMP9 (TYPE FIX)>
808 <LSH TEMP9 -5 = UVSIZE6 (TYPE FIX)>
810 <UUBLOCK <TYPE-CODE VECTOR> NTEMPS4 = UV-OF-NAMES7 (TYPE VECTOR)>
812 <SET TEMP9 ALL-VARS5 (TYPE LIST)>
817 <EMPL? TEMP9 + MAPAP14>
822 <EMPL? L20 + MAPAP25>
824 <EQUAL? ATM32 '= + MAPAP25>
825 <FRAME '
\1aATOM-PART>
828 <CALL '
\1aATOM-PART 1 = ATM32>
829 <UUBLOCK <TYPE-CODE UVECTOR> UVSIZE6 = UV33>
831 <LOOP (TEMP36 VALUE LENGTH)>
833 <EMPUU? TEMP36 + ISTRE39>
835 <RESTUU TEMP36 1 = TEMP36>
838 <NTHR ATM32 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG40)>
839 <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG40>
840 <PUTR TEMP36 1 UV33 (RECORD-TYPE GBIND)>
851 <ADD I8 1 = TEMP36 (TYPE FIX)>
852 <PUTUV UV-OF-NAMES7 TEMP36 ATM32>
854 <ADD I8 1 = I8 (TYPE FIX)>
855 <RESTL L20 1 = L20 (TYPE LIST)>
858 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
861 <SETG 'NAME-UV UV-OF-NAMES7>
863 <SUB UVSIZE6 1 = UVSIZE6 (TYPE FIX)>
864 <SETG 'UVSIZE UVSIZE6>
867 <END
\1aCONSTRUCT-TEMPS>
869 <GFCN
\1aMAKE-BRANCH ("VALUE" FORM "QUOTE" ANY) INST4>
881 <CALL '
\1aFORM 3 = STACK>
886 <CALL '
\1aFORM 3 = STACK>
888 <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
890 <CALL '
\1aFORM 3 = TEMP9>
894 <COND (<AND <GASSIGNED? MAKE-BRANCH> <NOT <TYPE? ,MAKE-BRANCH MACRO>>> <SETG MAKE-BRANCH <CHTYPE (,MAKE-BRANCH) MACRO>>)>
897 <GFCN
\1aPREPARE-BRANCHES ("VALUE" VECTOR VECTOR FIX FIX FIX <LIST [REST FIX]>) CODE4 START5 END6 RETURN-LABEL7 ACT-LABELS8>
898 <TEMP I11:FIX DONT-BRANCH-IFSYS18 INST12 TEMP25 OP13 INST2-17 TEMP145 LAB16:LABEL>
902 <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
906 <NTHUV CODE4 I11 = INST12>
907 <TYPE? INST12 <TYPE-CODE LABEL> - PHRASE21>
908 <NTHUV INST12 1 = INST12>
909 <TYPE? INST12 <TYPE-CODE FORM> - PHRASE23>
910 <NTHL INST12 1 = TEMP25>
912 <EQUAL? TEMP25 '`ACTIVATION - PHRASE23>
914 <CONS RETURN-LABEL7 ACT-LABELS8 = TEMP25>
916 <CONS I11 TEMP25 = ACT-LABELS8>
919 <FRAME '
\1aMAKE-CONNECTION>
922 <ADD I11 1 = STACK (TYPE FIX)>
923 <CALL '
\1aMAKE-CONNECTION 3>
926 <TYPE? INST12 <TYPE-CODE FORM> - PHRASE201>
927 <EMPL? INST12 + PHRASE201 (TYPE FORM)>
928 <NTHL INST12 1 = OP13>
929 <EQUAL? OP13 '`ENDIF - PHRASE30>
930 <ADD I11 2 = TEMP25 (TYPE FIX)>
931 <NTHUV CODE4 TEMP25 = INST2-17>
933 <TYPE? INST2-17 <TYPE-CODE FORM> - PHRASE32>
934 <EMPL? INST2-17 + PHRASE32 (TYPE FORM)>
935 <NTHL INST2-17 1 = OP13>
936 <EQUAL? OP13 '`IFSYS - BOOL35>
937 <FRAME '
\1aNOT-MERGEABLE-IFSYS-TYPES>
938 <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
939 <NTHL TEMP25 1 = STACK>
941 <RESTL INST12 1 = TEMP25 (TYPE LIST)>
942 <NTHL TEMP25 1 = STACK>
944 <CALL '
\1aNOT-MERGEABLE-IFSYS-TYPES 2 = TEMP25>
945 <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL34>
948 <EQUAL? OP13 '`IFCAN + BOOL38>
949 <EQUAL? OP13 '`IFCANNOT - PHRASE32>
953 <RESTL INST12 1 = TEMP25 (TYPE LIST)>
954 <NTHL TEMP25 1 = STACK>
956 <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
957 <NTHL TEMP25 1 = STACK>
959 <CALL '
\1a=? 2 = TEMP25>
960 <VEQUAL? TEMP25 0 + PHRASE32>
963 <SET DONT-BRANCH-IFSYS18 'T (TYPE ATOM)>
966 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
967 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
970 <LOOP (TEMP25 VALUE LENGTH)>
972 <EMPUU? TEMP25 + ISTRE43>
974 <RESTUU TEMP25 1 = TEMP25>
979 <GVAL 'UVSIZE = OP13 (TYPE FIX)>
980 <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
983 <LOOP (OP13 VALUE LENGTH)>
985 <EMPUU? OP13 + ISTRE45>
987 <RESTUU OP13 1 = OP13>
993 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
994 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
995 <PUTUV CODE4 I11 TEMP25>
997 <FRAME '
\1aMAKE-CONNECTION>
1000 <FRAME '
\1aFUNNY-FIND-ENDIF>
1002 <ADD I11 1 = STACK (TYPE FIX)>
1003 <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1005 <NTHL TEMP25 1 = STACK>
1007 <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
1009 <NTHL TEMP25 1 = STACK>
1011 <CALL '
\1aFUNNY-FIND-ENDIF 4 = STACK>
1012 <CALL '
\1aMAKE-CONNECTION 3>
1015 <FRAME '
\1aMAKE-CONNECTION>
1018 <ADD I11 1 = STACK (TYPE FIX)>
1019 <CALL '
\1aMAKE-CONNECTION 3>
1022 <EQUAL? OP13 '`JUMP - PHRASE50>
1025 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1026 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1029 <LOOP (TEMP25 VALUE LENGTH)>
1031 <EMPUU? TEMP25 + ISTRE53>
1033 <RESTUU TEMP25 1 = TEMP25>
1038 <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1039 <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1042 <LOOP (OP13 VALUE LENGTH)>
1044 <EMPUU? OP13 + ISTRE55>
1046 <RESTUU OP13 1 = OP13>
1052 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1053 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1054 <PUTUV CODE4 I11 TEMP25>
1056 <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1058 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1059 <NTHL TEMP25 1 = OP13>
1061 <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE57)>
1062 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE57>
1063 <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1064 <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE57>
1066 <FRAME '
\1aMAKE-CONNECTION>
1071 <CALL '
\1aMAKE-CONNECTION 3>
1074 <FRAME '
\1aMAKE-CONNECTION>
1077 <PUSH RETURN-LABEL7>
1078 <CALL '
\1aMAKE-CONNECTION 3>
1081 <EQUAL? OP13 '`RETURN + BOOL62>
1082 <EQUAL? OP13 '`MRETURN + BOOL62>
1083 <EQUAL? OP13 '`RTUPLE - PHRASE61>
1088 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1089 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1092 <LOOP (TEMP25 VALUE LENGTH)>
1094 <EMPUU? TEMP25 + ISTRE65>
1096 <RESTUU TEMP25 1 = TEMP25>
1101 <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1102 <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1105 <LOOP (OP13 VALUE LENGTH)>
1107 <EMPUU? OP13 + ISTRE67>
1109 <RESTUU OP13 1 = OP13>
1115 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1116 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1117 <PUTUV CODE4 I11 TEMP25>
1119 <FRAME '
\1aMAKE-CONNECTION>
1122 <PUSH RETURN-LABEL7>
1123 <CALL '
\1aMAKE-CONNECTION 3>
1126 <EQUAL? OP13 '`SCALL - PHRASE69>
1129 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1130 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1133 <LOOP (TEMP25 VALUE LENGTH)>
1135 <EMPUU? TEMP25 + ISTRE72>
1137 <RESTUU TEMP25 1 = TEMP25>
1142 <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1143 <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1146 <LOOP (OP13 VALUE LENGTH)>
1148 <EMPUU? OP13 + ISTRE74>
1150 <RESTUU OP13 1 = OP13>
1156 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1157 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1158 <PUTUV CODE4 I11 TEMP25>
1160 <EMPL? ACT-LABELS8 + MAPAP81 (TYPE LIST)>
1161 <SET TEMP25 ACT-LABELS8 (TYPE LIST)>
1165 <EMPL? TEMP25 + MAPAP81>
1166 <NTHL TEMP25 1 = OP13>
1167 <FRAME '
\1aMAKE-CONNECTION>
1172 <CALL '
\1aMAKE-CONNECTION 3>
1173 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1176 <NTHL INST12 7 = OP13>
1178 <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE89)>
1179 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE89>
1180 <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1181 <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE89>
1183 <GVAL OP13 = TEMP25>
1184 <ADD I11 1 = INST2-17 (TYPE FIX)>
1185 <EQUAL? TEMP25 INST2-17 + PHRASE89>
1186 <DEAD TEMP25 INST2-17>
1187 <FRAME '
\1aMAKE-CONNECTION>
1192 <CALL '
\1aMAKE-CONNECTION 3>
1195 <NTHR OP13 1 = INST2-17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG93)>
1197 <TYPE? INST2-17 <TYPE-CODE FALSE> + TAG93>
1198 <NTHR INST2-17 1 = INST2-17 (RECORD-TYPE GBIND)>
1199 <TYPE? INST2-17 <TYPE-CODE UNBOUND> - PHRASE92>
1202 <FRAME '
\1aMAKE-CONNECTION>
1205 <PUSH RETURN-LABEL7>
1206 <CALL '
\1aMAKE-CONNECTION 3>
1208 <FRAME '
\1aMAKE-CONNECTION>
1211 <ADD I11 1 = STACK (TYPE FIX)>
1212 <CALL '
\1aMAKE-CONNECTION 3>
1215 <EQUAL? OP13 '`CALL + BOOL97>
1216 <EQUAL? OP13 '`ACALL + BOOL97>
1217 <EQUAL? OP13 '`INTGO + BOOL97>
1218 <EQUAL? OP13 '`AGAIN + BOOL97>
1219 <EQUAL? OP13 '`RETRY + BOOL97>
1220 <EQUAL? OP13 '`CONS + BOOL97>
1221 <EQUAL? OP13 '`LIST + BOOL97>
1222 <EQUAL? OP13 '`UBLOCK + BOOL97>
1223 <EQUAL? OP13 '`UUBLOCK - PHRASE96>
1225 <EMPL? ACT-LABELS8 + MAPAP109 (TYPE LIST)>
1229 <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1230 <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1232 <SET INST2-17 TEMP25>
1233 <LOOP (INST2-17 VALUE LENGTH)>
1235 <EMPUU? INST2-17 + ISTRE102>
1236 <PUTUU INST2-17 1 0>
1237 <RESTUU INST2-17 1 = INST2-17>
1242 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1243 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1245 <SET TEMP25 INST2-17>
1246 <LOOP (TEMP25 VALUE LENGTH)>
1248 <EMPUU? TEMP25 + ISTRE104>
1250 <RESTUU TEMP25 1 = TEMP25>
1256 <UBLOCK <TYPE-CODE VECTOR> 5 = INST2-17>
1257 <CHTYPE INST2-17 <TYPE-CODE BRANCH> = INST2-17>
1258 <PUTUV CODE4 I11 INST2-17>
1260 <SET INST2-17 ACT-LABELS8 (TYPE LIST)>
1264 <EMPL? INST2-17 + MAPAP109>
1265 <NTHL INST2-17 1 = OP13>
1266 <FRAME '
\1aMAKE-CONNECTION>
1271 <CALL '
\1aMAKE-CONNECTION 3>
1272 <RESTL INST2-17 1 = INST2-17 (TYPE LIST)>
1275 <FRAME '
\1aMAKE-CONNECTION>
1278 <ADD I11 1 = STACK (TYPE FIX)>
1279 <CALL '
\1aMAKE-CONNECTION 3>
1282 <EQUAL? OP13 '`NTHR - PHRASE116>
1286 <RESTL OP13 1 = INST2-17 (TYPE LIST)>
1287 <EMPL? INST2-17 + TAG118>
1292 <NTHL OP13 1 = OP13>
1293 <TYPE? OP13 <TYPE-CODE LIST> - PHRASE201>
1294 <EMPL? OP13 + PHRASE201 (TYPE LIST)>
1295 <NTHL OP13 1 = INST2-17>
1296 <EQUAL? INST2-17 '`BRANCH-FALSE - PHRASE201>
1298 <RESTL OP13 1 = TEMP25 (TYPE LIST)>
1300 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1301 <NTHL TEMP25 1 = OP13>
1306 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1307 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1309 <SET TEMP25 INST2-17>
1310 <LOOP (TEMP25 VALUE LENGTH)>
1312 <EMPUU? TEMP25 + ISTRE124>
1314 <RESTUU TEMP25 1 = TEMP25>
1319 <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1320 <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1322 <SET INST2-17 TEMP25>
1323 <LOOP (INST2-17 VALUE LENGTH)>
1325 <EMPUU? INST2-17 + ISTRE126>
1326 <PUTUU INST2-17 1 0>
1327 <RESTUU INST2-17 1 = INST2-17>
1333 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1334 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1335 <PUTUV CODE4 I11 TEMP25>
1337 <FRAME '
\1aMAKE-CONNECTION>
1340 <ADD I11 1 = STACK (TYPE FIX)>
1341 <CALL '
\1aMAKE-CONNECTION 3>
1342 <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE129)>
1343 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE129>
1344 <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1345 <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE129>
1347 <FRAME '
\1aMAKE-CONNECTION>
1352 <CALL '
\1aMAKE-CONNECTION 3>
1355 <FRAME '
\1aMAKE-CONNECTION>
1358 <PUSH RETURN-LABEL7>
1359 <CALL '
\1aMAKE-CONNECTION 3>
1362 <EQUAL? OP13 '`DISPATCH - PHRASE133>
1365 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1366 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1368 <SET TEMP25 INST2-17>
1369 <LOOP (TEMP25 VALUE LENGTH)>
1371 <EMPUU? TEMP25 + ISTRE136>
1373 <RESTUU TEMP25 1 = TEMP25>
1378 <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1379 <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1381 <SET INST2-17 TEMP25>
1382 <LOOP (INST2-17 VALUE LENGTH)>
1384 <EMPUU? INST2-17 + ISTRE138>
1385 <PUTUU INST2-17 1 0>
1386 <RESTUU INST2-17 1 = INST2-17>
1392 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1393 <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1394 <PUTUV CODE4 I11 TEMP25>
1396 <RESTL INST12 1 = INST12 (TYPE LIST)>
1397 <RESTL INST12 1 = INST12 (TYPE LIST)>
1398 <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1400 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
1404 <EMPL? TEMP25 + PHRASE201>
1405 <NTHL TEMP25 1 = OP13>
1406 <NTHR OP13 1 = INST12 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE151)>
1407 <TYPE? INST12 <TYPE-CODE FALSE> + PHRASE151>
1408 <NTHR INST12 1 = INST12 (RECORD-TYPE GBIND)>
1409 <TYPE? INST12 <TYPE-CODE UNBOUND> + PHRASE151>
1411 <FRAME '
\1aMAKE-CONNECTION>
1416 <CALL '
\1aMAKE-CONNECTION 3>
1419 <FRAME '
\1aMAKE-CONNECTION>
1422 <PUSH RETURN-LABEL7>
1423 <CALL '
\1aMAKE-CONNECTION 3>
1425 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1428 <EQUAL? OP13 '`IFSYS + BOOL156>
1429 <EQUAL? OP13 '`IFCAN + BOOL156>
1430 <EQUAL? OP13 '`IFCANNOT - PHRASE155>
1432 <VEQUAL? DONT-BRANCH-IFSYS18 0 - PHRASE158>
1436 <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
1437 <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
1439 <SET TEMP145 TEMP25>
1440 <LOOP (TEMP145 VALUE LENGTH)>
1442 <EMPUU? TEMP145 + ISTRE161>
1444 <RESTUU TEMP145 1 = TEMP145>
1449 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1450 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
1452 <SET TEMP25 TEMP145>
1453 <LOOP (TEMP25 VALUE LENGTH)>
1455 <EMPUU? TEMP25 + ISTRE163>
1457 <RESTUU TEMP25 1 = TEMP25>
1463 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
1464 <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
1465 <PUTUV CODE4 I11 TEMP145>
1468 <FRAME '
\1aMAKE-CONNECTION>
1471 <ADD I11 1 = STACK (TYPE FIX)>
1472 <CALL '
\1aMAKE-CONNECTION 3>
1473 <VEQUAL? DONT-BRANCH-IFSYS18 0 + PHRASE166>
1474 <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
1477 <FRAME '
\1aMAKE-CONNECTION>
1480 <FRAME '
\1aFIND-ENDIF>
1483 <CALL '
\1aFIND-ENDIF 2 = STACK>
1484 <CALL '
\1aMAKE-CONNECTION 3>
1487 <EQUAL? OP13 '`LOCATION - PHRASE170>
1488 <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1490 <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1491 <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
1492 <GVAL TEMP145 = OP13>
1494 <FRAME '
\1aPREPARE-BRANCHES>
1496 <ADD I11 1 = STACK (TYPE FIX)>
1499 <PUSH RETURN-LABEL7>
1500 <CONS OP13 ACT-LABELS8 = STACK>
1501 <CALL '
\1aPREPARE-BRANCHES 5>
1506 <EQUAL? OP13 '`ICALL - PHRASE172>
1508 <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1509 <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
1510 <GVAL TEMP145 = OP13>
1512 <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1514 <RESTL TEMP145 1 = INST12 (TYPE LIST)>
1516 <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
1517 <EMPL? INST12 + TAG173>
1518 <LOOP (INST12 VALUE)>
1520 <NTHL INST12 1 = TEMP145>
1521 <TYPE? TEMP145 <TYPE-CODE ATOM> - TAG176>
1522 <VEQUAL? TEMP145 '= + TAG174>
1525 <RESTL INST12 1 = INST12 (TYPE LIST)>
1526 <EMPL? INST12 - TAG175>
1528 <SET INST12 %<> (TYPE FALSE)>
1530 <VEQUAL? INST12 0 + PHRASE178>
1531 <NTHUV CODE4 OP13 = LAB16 (TYPE LABEL)>
1532 <NTHUV LAB16 4 = TEMP145>
1533 <CONS I11 () = TEMP25>
1534 <RESTL INST12 1 = INST2-17 (TYPE LIST)>
1536 <NTHL INST2-17 1 = INST2-17>
1537 <CONS INST2-17 TEMP25 = TEMP25>
1539 <CONS TEMP25 TEMP145 = TEMP145>
1541 <PUTUV LAB16 4 TEMP145>
1542 <DEAD LAB16 TEMP145>
1544 <FRAME '
\1aPREPARE-BRANCHES>
1546 <ADD I11 1 = STACK (TYPE FIX)>
1551 <CALL '
\1aPREPARE-BRANCHES 5>
1556 <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
1557 <LOOP (TEMP145 VALUE)>
1559 <NTHL TEMP145 1 = TEMP25>
1560 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG185>
1561 <VEQUAL? TEMP25 '+ + TAG182>
1564 <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1565 <EMPL? TEMP145 - TAG184>
1572 <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
1573 <LOOP (TEMP145 VALUE)>
1575 <NTHL TEMP145 1 = TEMP25>
1576 <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG189>
1577 <VEQUAL? TEMP25 '- + TAG187>
1580 <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1581 <EMPL? TEMP145 - TAG188>
1587 <RESTL OP13 1 = TEMP145 (TYPE LIST)>
1589 <NTHL TEMP145 1 = OP13>
1594 <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
1595 <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
1597 <SET TEMP145 TEMP25>
1598 <LOOP (TEMP145 VALUE LENGTH)>
1600 <EMPUU? TEMP145 + ISTRE192>
1602 <RESTUU TEMP145 1 = TEMP145>
1607 <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1608 <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
1610 <SET TEMP25 TEMP145>
1611 <LOOP (TEMP25 VALUE LENGTH)>
1613 <EMPUU? TEMP25 + ISTRE194>
1615 <RESTUU TEMP25 1 = TEMP25>
1621 <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
1622 <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
1623 <PUTUV CODE4 I11 TEMP145>
1625 <FRAME '
\1aMAKE-CONNECTION>
1628 <ADD I11 1 = STACK (TYPE FIX)>
1629 <CALL '
\1aMAKE-CONNECTION 3>
1630 <NTHR OP13 1 = TEMP145 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE197)>
1631 <TYPE? TEMP145 <TYPE-CODE FALSE> + PHRASE197>
1632 <NTHR TEMP145 1 = TEMP145 (RECORD-TYPE GBIND)>
1633 <TYPE? TEMP145 <TYPE-CODE UNBOUND> + PHRASE197>
1635 <FRAME '
\1aMAKE-CONNECTION>
1640 <CALL '
\1aMAKE-CONNECTION 3>
1643 <FRAME '
\1aMAKE-CONNECTION>
1646 <PUSH RETURN-LABEL7>
1647 <CALL '
\1aMAKE-CONNECTION 3>
1650 <FRAME '
\1aMAKE-CONNECTION>
1653 <ADD I11 1 = STACK (TYPE FIX)>
1654 <CALL '
\1aMAKE-CONNECTION 3>
1656 <ADD I11 1 = I11 (TYPE FIX)>
1657 <VEQUAL? I11 END6 - AGAIN19 (TYPE FIX)>
1660 <END
\1aPREPARE-BRANCHES>
1662 <GFCN
\1aMAKE-CONNECTION ("VALUE" ATOM VECTOR FIX FIX) CODE4 FROM5 TO6>
1663 <TEMP FROM-BRANCH7 TEMP11:LIST>
1665 <NTHUV CODE4 FROM5 = FROM-BRANCH7>
1666 <TYPE? FROM-BRANCH7 <TYPE-CODE BRANCH> - PHRASE10>
1667 <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
1668 <CONS TO6 TEMP11 = TEMP11>
1669 <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
1670 <DEAD FROM-BRANCH7 TEMP11>
1672 <NTHUV CODE4 TO6 = FROM-BRANCH7>
1674 <TYPE? FROM-BRANCH7 <TYPE-CODE LABEL> - PHRASE13>
1675 <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
1676 <CONS FROM5 TEMP11 = TEMP11>
1678 <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
1679 <DEAD FROM-BRANCH7 TEMP11>
1682 <END
\1aMAKE-CONNECTION>
1684 <GFCN
\1aNOT-MERGEABLE-IFSYS-TYPES ("VALUE" <OR ATOM FALSE> ANY ANY) A4 B5>
1685 <TEMP TEMP8 TEMP9 TEMP10 TEMP11 TEMP12>
1687 <TYPE? A4 <TYPE-CODE STRING> - PHRASE7>
1688 <IFCAN "STRING-EQUAL?">
1689 <STRING-EQUAL? A4 "TOPS20" - PHRASE7>
1690 <ENDIF "STRING-EQUAL?">
1691 <IFCANNOT "STRING-EQUAL?">
1693 <SET TEMP9 "TOPS20" (TYPE STRING)>
1694 <LENUS TEMP8 = TEMP10 (TYPE FIX)>
1695 <VEQUAL? TEMP10 6 - PHRASE7>
1696 <LOOP (TEMP8 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP10 VALUE)>
1698 <NTHUS TEMP8 1 = TEMP11>
1699 <NTHUS TEMP9 1 = TEMP12>
1700 <VEQUAL? TEMP11 TEMP12 - PHRASE7>
1701 <DEAD TEMP11 TEMP12>
1702 <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
1703 <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1704 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
1705 <GRTR? TEMP10 0 + TAG13 (TYPE FIX)>
1706 <ENDIF "STRING-EQUAL?">
1707 <TYPE? B5 <TYPE-CODE STRING> - TAG15>
1708 <IFCAN "STRING-EQUAL?">
1709 <STRING-EQUAL? B5 "TOPS20" + TAG14>
1710 <ENDIF "STRING-EQUAL?">
1711 <IFCANNOT "STRING-EQUAL?">
1714 <SET TEMP8 "TOPS20" (TYPE STRING)>
1715 <LENUS TEMP9 = TEMP12 (TYPE FIX)>
1716 <VEQUAL? TEMP12 6 - TAG15>
1717 <LOOP (TEMP9 VALUE LENGTH) (TEMP8 VALUE LENGTH) (TEMP12 VALUE)>
1719 <NTHUS TEMP9 1 = TEMP11>
1720 <NTHUS TEMP8 1 = TEMP10>
1721 <VEQUAL? TEMP11 TEMP10 - TAG15>
1722 <DEAD TEMP11 TEMP10>
1723 <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1724 <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
1725 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1726 <GRTR? TEMP12 0 + TAG17 (TYPE FIX)>
1728 <ENDIF "STRING-EQUAL?">
1734 <TYPE? B5 <TYPE-CODE STRING> - PHRASE19>
1735 <IFCAN "STRING-EQUAL?">
1736 <STRING-EQUAL? B5 "TOPS20" - PHRASE19>
1737 <ENDIF "STRING-EQUAL?">
1738 <IFCANNOT "STRING-EQUAL?">
1740 <SET TEMP10 "TOPS20" (TYPE STRING)>
1741 <LENUS TEMP9 = TEMP11 (TYPE FIX)>
1742 <VEQUAL? TEMP11 6 - PHRASE19>
1743 <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
1745 <NTHUS TEMP9 1 = TEMP8>
1746 <NTHUS TEMP10 1 = TEMP12>
1747 <VEQUAL? TEMP8 TEMP12 - PHRASE19>
1749 <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1750 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1751 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1752 <GRTR? TEMP11 0 + TAG22 (TYPE FIX)>
1753 <ENDIF "STRING-EQUAL?">
1756 <TYPE? A4 <TYPE-CODE STRING> - PHRASE23>
1757 <IFCAN "STRING-EQUAL?">
1758 <STRING-EQUAL? A4 "UNIX" - PHRASE23>
1759 <ENDIF "STRING-EQUAL?">
1760 <IFCANNOT "STRING-EQUAL?">
1762 <SET TEMP9 "UNIX" (TYPE STRING)>
1763 <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1764 <VEQUAL? TEMP12 4 - PHRASE23>
1765 <LOOP (TEMP10 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP12 VALUE)>
1767 <NTHUS TEMP10 1 = TEMP8>
1768 <NTHUS TEMP9 1 = TEMP11>
1769 <VEQUAL? TEMP8 TEMP11 - PHRASE23>
1771 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1772 <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1773 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1774 <GRTR? TEMP12 0 + TAG25 (TYPE FIX)>
1775 <ENDIF "STRING-EQUAL?">
1778 <TYPE? B5 <TYPE-CODE STRING> - PHRASE26>
1779 <IFCAN "STRING-EQUAL?">
1780 <STRING-EQUAL? B5 "UNIX" - PHRASE26>
1781 <ENDIF "STRING-EQUAL?">
1782 <IFCANNOT "STRING-EQUAL?">
1784 <SET TEMP10 "UNIX" (TYPE STRING)>
1785 <LENUS TEMP9 = TEMP11 (TYPE FIX)>
1786 <VEQUAL? TEMP11 4 - PHRASE26>
1787 <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
1789 <NTHUS TEMP9 1 = TEMP8>
1790 <NTHUS TEMP10 1 = TEMP12>
1791 <VEQUAL? TEMP8 TEMP12 - PHRASE26>
1793 <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1794 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1795 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1796 <GRTR? TEMP11 0 + TAG28 (TYPE FIX)>
1797 <ENDIF "STRING-EQUAL?">
1805 <CALL '
\1aN=? 2 = TEMP8>
1806 <VEQUAL? TEMP8 0 + PHRASE29>
1807 <SET TEMP8 'T (TYPE ATOM)>
1811 <END
\1aNOT-MERGEABLE-IFSYS-TYPES>
1813 <GFCN
\1aFIND-ENDIF ("VALUE" FIX VECTOR FIX) CODE4 I5>
1816 <FRAME '
\1aREAL-FIND-ENDIF>
1822 <CALL '
\1aREAL-FIND-ENDIF 3 = TEMP7>
1827 <GFCN
\1aFUNNY-FIND-ENDIF ("VALUE" FIX VECTOR FIX "TUPLE" ANY) CODE4 I5>
1828 <MAKTUP MTUP6 = MTUP6>
1830 <FRAME '
\1aREAL-FIND-ENDIF>
1837 <CALL '
\1aREAL-FIND-ENDIF 3 = MTUP6>
1840 <END
\1aFUNNY-FIND-ENDIF>
1842 <GFCN
\1aREAL-FIND-ENDIF ("VALUE" FIX VECTOR FIX <OR FALSE <PRIMTYPE VECTOR>>) CODE4 I5 MTUP6>
1843 <TEMP (LEVEL7:FIX 0) INST11 TEMP26 S37>
1848 <ADD I5 1 = I5 (TYPE FIX)>
1849 <NTHUV CODE4 I5 = INST11>
1850 <TYPE? INST11 <TYPE-CODE LABEL> - AGAIN13>
1851 <NTHUV INST11 1 = INST11>
1852 <TYPE? INST11 <TYPE-CODE FORM> - AGAIN13>
1853 <EMPL? INST11 + AGAIN13 (TYPE FORM)>
1854 <NTHL INST11 1 = INST11>
1855 <EQUAL? INST11 '`ENDIF - PHRASE18>
1856 <VEQUAL? LEVEL7 0 - PHRASE20 (TYPE FIX)>
1857 <TYPE? MTUP6 <TYPE-CODE FALSE> + PHRASE24>
1858 <ADD I5 2 = TEMP26 (TYPE FIX)>
1859 <NTHUV CODE4 TEMP26 = INST11>
1861 <TYPE? INST11 <TYPE-CODE FORM> - PHRASE24>
1862 <NTHL INST11 1 = TEMP26>
1863 <EQUAL? TEMP26 '`IFSYS - PHRASE24>
1865 <CHTYPE MTUP6 <TYPE-CODE VECTOR> = TEMP26>
1866 <EMPUV? TEMP26 + PHRASE24>
1870 <EMPUV? TEMP26 + MAPAP31>
1871 <NTHUV TEMP26 1 = S37>
1872 <FRAME '
\1aNOT-MERGEABLE-IFSYS-TYPES>
1875 <RESTL INST11 1 = S37 (TYPE LIST)>
1876 <NTHL S37 1 = STACK>
1878 <CALL '
\1aNOT-MERGEABLE-IFSYS-TYPES 2 = S37>
1879 <TYPE? S37 <TYPE-CODE FALSE> + PHRASE24>
1881 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1884 <ADD I5 1 = I5 (TYPE FIX)>
1890 <SUB LEVEL7 1 = LEVEL7 (TYPE FIX)>
1893 <EQUAL? INST11 '`IFSYS + BOOL46>
1894 <EQUAL? INST11 '`IFCAN + BOOL46>
1895 <EQUAL? INST11 '`IFCANNOT - AGAIN13>
1898 <ADD LEVEL7 1 = LEVEL7 (TYPE FIX)>
1900 <END
\1aREAL-FIND-ENDIF>
1902 <GFCN
\1aBACKWALK-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL FIX) CODE4 LABEL5 CUR-LEV6>
1903 <TEMP TEMP16 TEMP18:LIST IN19:FIX>
1905 <SET TEMP16 %<> (TYPE FALSE)>
1906 <NTHUV LABEL5 2 = TEMP18 (TYPE LIST)>
1911 <EMPL? TEMP18 + MAPAP11>
1912 <NTHL TEMP18 1 = IN19>
1913 <NTHUV CODE4 IN19 = TEMP16>
1914 <TYPE? TEMP16 <TYPE-CODE BRANCH> + TAG23>
1915 <SET TEMP16 %<> (TYPE FALSE)>
1918 <FRAME '
\1aBACKWALK>
1922 <SET IN19 0 (TYPE FIX)>
1923 <NTHUV TEMP16 3 = TEMP16 (TYPE UVECTOR)>
1924 <LOOP (TEMP16 VALUE LENGTH) (IN19 VALUE)>
1927 <EMPUU? TEMP16 + TAG26>
1928 <NTHUU TEMP16 1 = STACK>
1929 <RESTUU TEMP16 1 = TEMP16 (TYPE UVECTOR)>
1930 <ADD IN19 1 = IN19 (TYPE FIX)>
1933 <UBLOCK <TYPE-CODE UVECTOR> IN19 = STACK (TYPE UVECTOR)>
1936 <CALL '
\1aBACKWALK 4 = TEMP16>
1938 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1943 <END
\1aBACKWALK-FROM-LABEL>
1945 <GFCN
\1aBACKWALK ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 CUR-LEV7>
1946 <TEMP INST11 TEMP19 INS12:LIST TEMP50:LIST IN51:FIX TEMP54 LL69:LIST TEMP72>
1951 <NTHUV CODE4 I5 = INST11>
1952 <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
1953 <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
1954 <GRTR? CUR-LEV7 TEMP19 + PHRASE18 (TYPE FIX)>
1958 <PUTUV INST11 3 CUR-LEV7 (TYPE FIX)>
1959 <NTHUV INST11 4 = TEMP19>
1960 <NTHUV INST11 2 = INS12 (TYPE LIST)>
1961 <EMPL? INS12 - PHRASE22 (TYPE LIST)>
1962 <VEQUAL? CUR-LEV7 1 - PHRASE93 (TYPE FIX)>
1963 <FRAME '
\1aPRINTSTRING>
1964 <PUSH "FILE-DEATH: Warning--unreachable code at ">
1965 <GEN-LVAL 'OUTCHAN = STACK>
1966 <CALL '
\1aPRINTSTRING 2>
1968 <NTHUV INST11 1 = STACK>
1970 <GEN-LVAL 'OUTCHAN = STACK>
1973 <GEN-LVAL 'OUTCHAN = STACK>
1977 <RESTL INS12 1 = TEMP50 (TYPE LIST)>
1981 <EMPL? TEMP50 + MAPAP43>
1982 <NTHL TEMP50 1 = IN51>
1983 <SET INST11 0 (TYPE FIX)>
1984 <SET TEMP54 LIVE-TEMPS6>
1985 <LOOP (TEMP54 VALUE LENGTH) (INST11 VALUE)>
1988 <EMPUU? TEMP54 + TAG53>
1989 <NTHUU TEMP54 1 = STACK>
1990 <RESTUU TEMP54 1 = TEMP54 (TYPE UVECTOR)>
1991 <ADD INST11 1 = INST11 (TYPE FIX)>
1994 <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP54 (TYPE UVECTOR)>
1996 <TYPE? TEMP19 <TYPE-CODE FALSE> + MAPAP64>
1997 <SET INST11 TEMP19 (TYPE LIST)>
2001 <EMPL? INST11 + MAPAP64>
2002 <NTHL INST11 1 = LL69>
2003 <RESTL LL69 1 = TEMP72 (TYPE LIST)>
2004 <NTHL TEMP72 1 = TEMP72 (TYPE FIX)>
2005 <VEQUAL? IN51 TEMP72 - PHRASE71 (TYPE FIX)>
2007 <FRAME '
\1aREM-LIST>
2008 <NTHL LL69 1 = STACK (TYPE ATOM)>
2010 <CALL '
\1aREM-LIST 2>
2011 <FRAME '
\1aUNMERGEABLE>
2012 <NTHL LL69 1 = STACK (TYPE ATOM)>
2015 <CALL '
\1aUNMERGEABLE 2>
2018 <RESTL INST11 1 = INST11 (TYPE LIST)>
2021 <FRAME '
\1aBACKWALK>
2028 <CALL '
\1aBACKWALK 4>
2029 <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
2032 <NTHL INS12 1 = I5 (TYPE FIX)>
2034 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE93>
2035 <SET TEMP50 TEMP19 (TYPE LIST)>
2040 <EMPL? TEMP50 + PHRASE93>
2041 <NTHL TEMP50 1 = INS12>
2042 <RESTL INS12 1 = INST11 (TYPE LIST)>
2043 <NTHL INST11 1 = INST11 (TYPE FIX)>
2044 <VEQUAL? I5 INST11 - PHRASE87 (TYPE FIX)>
2046 <FRAME '
\1aREM-LIST>
2047 <NTHL INS12 1 = STACK (TYPE ATOM)>
2049 <CALL '
\1aREM-LIST 2>
2050 <FRAME '
\1aUNMERGEABLE>
2051 <NTHL INS12 1 = STACK (TYPE ATOM)>
2054 <CALL '
\1aUNMERGEABLE 2>
2057 <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
2060 <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE90>
2061 <FRAME '
\1aMERGE-TEMPS>
2065 <CALL '
\1aMERGE-TEMPS 2 = LIVE-TEMPS6>
2066 <FRAME '
\1aUPDATE-TEMPS>
2067 <NTHUV INST11 1 = STACK (TYPE FORM)>
2071 <CALL '
\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
2072 <SUB I5 1 = I5 (TYPE FIX)>
2075 <FRAME '
\1aUPDATE-TEMPS>
2080 <CALL '
\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
2081 <SUB I5 1 = I5 (TYPE FIX)>
2083 <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
2087 <GFCN
\1aMERGE-TEMPS ("VALUE" UVECTOR UVECTOR BRANCH) LIVES4 BRANCH5>
2088 <TEMP (TEMP-OFFS7:FIX 0) B-LIVES6:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR LP20:UVECTOR BP21:UVECTOR TEMP22:FIX TEMP23 ADDED33 MSK41:FIX>
2090 <NTHUV BRANCH5 3 = B-LIVES6 (TYPE UVECTOR)>
2091 <SET TEMP14 LIVES4 (TYPE UVECTOR)>
2092 <SET TEMP15 B-LIVES6 (TYPE UVECTOR)>
2096 <EMPUU? TEMP14 + MAPAP12>
2097 <EMPUU? TEMP15 + MAPAP12>
2100 <NTHUU LP20 1 = TEMP22 (TYPE FIX)>
2101 <NTHUU BP21 1 = TEMP23 (TYPE FIX)>
2103 <OR TEMP22 TEMP23 = TEMP22>
2105 <PUTUU LP20 1 TEMP22>
2107 <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2108 <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
2111 <SET TEMP15 LIVES4 (TYPE UVECTOR)>
2112 <SET TEMP14 B-LIVES6 (TYPE UVECTOR)>
2116 <EMPUU? TEMP15 + MAPAP28>
2117 <EMPUU? TEMP14 + MAPAP28>
2120 <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
2121 <NTHUU BP21 1 = TEMP22 (TYPE FIX)>
2122 <XOR TEMP23 TEMP22 = ADDED33>
2123 <DEAD TEMP23 TEMP22>
2124 <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
2125 <SETG 'SOMETHING-CHANGED 'T>
2126 <ADD TEMP-OFFS7 1 = TEMP22 (TYPE FIX)>
2127 <SET MSK41 1 (TYPE FIX)>
2131 <AND MSK41 ADDED33 = TEMP23>
2132 <VEQUAL? TEMP23 0 + PHRASE49 (TYPE FIX)>
2134 <XOR ADDED33 MSK41 = ADDED33>
2135 <FRAME '
\1aUNMERGEABLE>
2136 <GVAL 'NAME-UV = TEMP23>
2137 <NTHUV TEMP23 TEMP22 = STACK (TYPE ATOM)>
2140 <CALL '
\1aUNMERGEABLE 2>
2141 <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
2143 <LSH MSK41 1 = MSK41 (TYPE FIX)>
2144 <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
2147 <ADD TEMP-OFFS7 32 = TEMP-OFFS7 (TYPE FIX)>
2148 <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
2150 <PUTUU BP21 1 TEMP23>
2152 <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
2153 <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2156 <PUTUV BRANCH5 3 B-LIVES6>
2157 <DEAD BRANCH5 B-LIVES6>
2160 <END
\1aMERGE-TEMPS>
2162 <GFCN
\1aUPDATE-TEMPS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
2163 <TEMP OP6 TEMP16:LIST TWO8 ITEM7 TEMP48>
2165 <EMPL? INST4 + EXIT96 (TYPE FORM)>
2166 <NTHL INST4 1 = OP6>
2167 <EQUAL? OP6 '`SET - PHRASE14>
2168 <FRAME '
\1aREM-LIST>
2169 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2170 <NTHL TEMP16 1 = TWO8>
2174 <CALL '
\1aREM-LIST 2>
2175 <FRAME '
\1aUNMERGEABLE>
2179 <CALL '
\1aUNMERGEABLE 2>
2180 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2182 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2183 <NTHL TEMP16 1 = OP6>
2185 <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2186 <FRAME '
\1aADD-LIVE>
2191 <CALL '
\1aADD-LIVE 2 = LIVES5>
2195 <EQUAL? OP6 '`SETLR - PHRASE21>
2196 <FRAME '
\1aREM-LIST>
2197 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2198 <NTHL TEMP16 1 = TWO8>
2202 <CALL '
\1aREM-LIST 2>
2203 <FRAME '
\1aUNMERGEABLE>
2207 <CALL '
\1aUNMERGEABLE 2>
2208 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2209 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2210 <NTHL TEMP16 1 = OP6>
2212 <TYPE? OP6 <TYPE-CODE ATOM> - PHRASE25>
2213 <FRAME '
\1aADD-LIVE>
2218 <CALL '
\1aADD-LIVE 2 = LIVES5>
2220 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2222 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2223 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2224 <NTHL TEMP16 1 = OP6>
2226 <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2227 <FRAME '
\1aADD-LIVE>
2232 <CALL '
\1aADD-LIVE 2 = LIVES5>
2236 <EQUAL? OP6 '`SETRL - PHRASE30>
2237 <FRAME '
\1aREM-LIST>
2238 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2239 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2240 <NTHL TEMP16 1 = OP6>
2244 <CALL '
\1aREM-LIST 2>
2245 <FRAME '
\1aUNMERGEABLE>
2249 <CALL '
\1aUNMERGEABLE 2>
2250 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2251 <NTHL TEMP16 1 = TWO8>
2253 <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE34>
2254 <FRAME '
\1aADD-LIVE>
2259 <CALL '
\1aADD-LIVE 2 = LIVES5>
2261 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2263 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2264 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2265 <NTHL TEMP16 1 = OP6>
2267 <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2268 <FRAME '
\1aADD-LIVE>
2273 <CALL '
\1aADD-LIVE 2 = LIVES5>
2277 <EQUAL? OP6 '`TEMP - PHRASE39>
2278 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2280 <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
2284 <EMPL? TEMP16 + EXIT96>
2285 <NTHL TEMP16 1 = OP6>
2286 <TYPE? OP6 <TYPE-CODE LIST> - PHRASE54>
2287 <FRAME '
\1aREM-LIST>
2288 <FRAME '
\1aATOM-PART>
2291 <CALL '
\1aATOM-PART 1 = OP6>
2294 <CALL '
\1aREM-LIST 2>
2295 <FRAME '
\1aUNMERGEABLE>
2299 <CALL '
\1aUNMERGEABLE 2>
2301 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2304 <EQUAL? OP6 '`MAKTUP - PHRASE58>
2305 <RESTL INST4 1 = TWO8 (TYPE LIST)>
2307 <CHTYPE TWO8 <TYPE-CODE LIST> = TWO8>
2311 <EMPL? TWO8 + EXIT96>
2313 <EQUAL? OP6 '= + MAPAP63>
2314 <TYPE? OP6 <TYPE-CODE LIST> - PHRASE73>
2315 <FRAME '
\1aREM-LIST>
2316 <FRAME '
\1aATOM-PART>
2319 <CALL '
\1aATOM-PART 1 = OP6>
2322 <CALL '
\1aREM-LIST 2>
2323 <FRAME '
\1aUNMERGEABLE>
2327 <CALL '
\1aUNMERGEABLE 2>
2329 <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2335 <EQUAL? OP6 '`DISPATCH - PHRASE77>
2336 <RESTL INST4 1 = TWO8 (TYPE LIST)>
2337 <NTHL TWO8 1 = TWO8>
2338 <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE79>
2339 <FRAME '
\1aADD-LIVE>
2344 <CALL '
\1aADD-LIVE 2 = LIVES5>
2346 <RESTL INST4 1 = TWO8 (TYPE LIST)>
2348 <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2351 <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2352 <FRAME '
\1aADD-LIVE>
2357 <CALL '
\1aADD-LIVE 2 = LIVES5>
2361 <EQUAL? OP6 '`FCN + EXIT96>
2362 <EQUAL? OP6 '`GFCN + EXIT96>
2363 <EQUAL? OP6 '`LOOP + EXIT96>
2364 <EQUAL? OP6 '`END + EXIT96>
2365 <EQUAL? OP6 '`ICALL + EXIT96>
2366 <EQUAL? OP6 '`OPT-DISPATCH + EXIT96>
2367 <RESTL INST4 1 = ITEM7 (TYPE LIST)>
2368 <CHTYPE ITEM7 <TYPE-CODE LIST> = ITEM7>
2369 <EMPL? ITEM7 + TAG86>
2370 <LOOP (ITEM7 VALUE)>
2372 <NTHL ITEM7 1 = TWO8>
2373 <TYPE? TWO8 <TYPE-CODE ATOM> - TAG89>
2374 <VEQUAL? TWO8 '= + TAG87>
2377 <RESTL ITEM7 1 = ITEM7 (TYPE LIST)>
2378 <EMPL? ITEM7 - TAG88>
2380 <SET ITEM7 %<> (TYPE FALSE)>
2382 <VEQUAL? ITEM7 0 + PHRASE93>
2383 <RESTL ITEM7 1 = TEMP16 (TYPE LIST)>
2385 <NTHL TEMP16 1 = TWO8>
2387 <EQUAL? TWO8 '`STACK + PHRASE93>
2388 <FRAME '
\1aREM-LIST>
2391 <CALL '
\1aREM-LIST 2>
2392 <FRAME '
\1aUNMERGEABLE>
2396 <CALL '
\1aUNMERGEABLE 2>
2398 <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2400 <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
2404 <EMPL? TEMP16 + EXIT96 (TYPE LIST)>
2405 <NTHL TEMP16 1 = ITEM7>
2406 <EQUAL? ITEM7 '= + BOOL104>
2407 <EQUAL? ITEM7 '+ + BOOL104>
2408 <EQUAL? ITEM7 '- - PHRASE103>
2410 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2411 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2414 <TYPE? ITEM7 <TYPE-CODE ATOM> - PHRASE105>
2415 <FRAME '
\1aADD-LIVE>
2420 <CALL '
\1aADD-LIVE 2 = LIVES5>
2421 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2424 <EQUAL? OP6 '`CHTYPE - PHRASE107>
2425 <TYPE? ITEM7 <TYPE-CODE FORM> - PHRASE107>
2427 <SET TEMP48 1 (TYPE FIX)>
2428 <LOOP (TWO8 VALUE) (TEMP48 VALUE)>
2430 <EMPL? TWO8 + PHRASE107>
2431 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
2432 <LESS? TEMP48 0 + TAG111>
2433 <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2436 <NTHL ITEM7 1 = TEMP48>
2437 <EQUAL? TEMP48 '`TYPE - PHRASE107>
2439 <RESTL ITEM7 1 = TWO8 (TYPE LIST)>
2441 <NTHL TWO8 1 = TWO8>
2442 <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE107>
2443 <FRAME '
\1aADD-LIVE>
2448 <CALL '
\1aADD-LIVE 2 = LIVES5>
2449 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2452 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2457 <END
\1aUPDATE-TEMPS>
2459 <GFCN
\1aADD-LIVE ("VALUE" UVECTOR ATOM UVECTOR) ATM4 L5>
2462 <FRAME '
\1aADD-LIST?>
2465 <CALL '
\1aADD-LIST? 2 = NL6>
2466 <TYPE? NL6 <TYPE-CODE FALSE> + PHRASE9>
2467 <FRAME '
\1aUNMERGEABLE>
2472 <CALL '
\1aUNMERGEABLE 2>
2480 <GFCN
\1aUNMERGEABLE ("VALUE" ATOM ATOM UVECTOR) NEW-LIVE4 LIVES5>
2481 <TEMP (TEMP-OFFS10:FIX 0) TEMP14 NL-LIST6:UVECTOR NUM7:FIX LIVE28:FIX TNO36:FIX MSK37:FIX TEMP42 TEMP49>
2483 <NTHR NEW-LIVE4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
2484 <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
2485 <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
2486 <TYPE? TEMP14 <TYPE-CODE UNBOUND> - PHRASE12>
2490 <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
2495 <VEQUAL? NEW-LIVE4 '`STACK + MAPAP22>
2496 <GVAL NEW-LIVE4 = NL-LIST6>
2497 <NTHUU NL-LIST6 1 = NUM7 (TYPE FIX)>
2498 <RESTUU NL-LIST6 1 = NL-LIST6 (TYPE UVECTOR)>
2499 <SET TEMP14 LIVES5 (TYPE UVECTOR)>
2504 <EMPUU? TEMP14 + MAPAP22>
2505 <NTHUU TEMP14 1 = LIVE28>
2506 <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
2507 <SET TNO36 TEMP-OFFS10>
2508 <SET MSK37 1 (TYPE FIX)>
2512 <AND LIVE28 MSK37 = TEMP42>
2513 <VEQUAL? TEMP42 0 + PHRASE57 (TYPE FIX)>
2515 <XOR LIVE28 MSK37 = LIVE28>
2516 <VEQUAL? TNO36 NUM7 - PHRASE46 (TYPE FIX)>
2517 <VEQUAL? LIVE28 0 - PHRASE57 (TYPE FIX)>
2520 <GVAL 'NAME-UV = TEMP42>
2521 <ADD TNO36 1 = TEMP49 (TYPE FIX)>
2522 <NTHUV TEMP42 TEMP49 = TEMP42 (TYPE ATOM)>
2524 <NTHR TEMP42 1 = TEMP49 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG52)>
2525 <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG52>
2526 <NTHR TEMP49 1 = TEMP49 (RECORD-TYPE GBIND)>
2527 <TYPE? TEMP49 <TYPE-CODE UNBOUND> - PHRASE51>
2531 <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
2536 <FRAME '
\1aADD-LIST>
2539 <CALL '
\1aADD-LIST 2>
2540 <FRAME '
\1aADD-LIST>
2542 <GVAL TEMP42 = TEMP49>
2544 <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
2545 <CHTYPE TEMP49 <TYPE-CODE UVECTOR> = STACK>
2547 <CALL '
\1aADD-LIST 2>
2548 <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
2550 <ADD TNO36 1 = TNO36 (TYPE FIX)>
2551 <LSH MSK37 1 = MSK37 (TYPE FIX)>
2554 <ADD TEMP-OFFS10 32 = TEMP-OFFS10 (TYPE FIX)>
2555 <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2559 <END
\1aUNMERGEABLE>
2561 <GFCN
\1aOPTIMIZE-SETS ("VALUE" ATOM VECTOR) CODE4>
2562 <TEMP I8 CODELEN9:FIX INST10 TEMP18 TEMP19 ATM111>
2564 <SET I8 1 (TYPE FIX)>
2565 <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2569 <NTHUV CODE4 I8 = INST10>
2570 <TYPE? INST10 <TYPE-CODE FORM> - PHRASE15>
2572 <SET TEMP19 2 (TYPE FIX)>
2573 <LOOP (TEMP18 VALUE) (TEMP19 VALUE)>
2575 <EMPL? TEMP18 + PHRASE15>
2576 <SUB TEMP19 1 = TEMP19 (TYPE FIX)>
2577 <LESS? TEMP19 0 + TAG21>
2578 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2581 <NTHL INST10 1 = TEMP19>
2582 <EQUAL? TEMP19 '`SET - PHRASE15>
2584 <RESTL INST10 1 = TEMP19 (TYPE LIST)>
2585 <NTHL TEMP19 1 = ATM111>
2587 <TYPE? ATM111 <TYPE-CODE ATOM> - PHRASE15>
2588 <RESTL INST10 1 = TEMP19 (TYPE LIST)>
2590 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2591 <NTHL TEMP19 1 = INST10>
2593 <TYPE? INST10 <TYPE-CODE ATOM> - PHRASE15>
2594 <FRAME '
\1aIN-LIST?>
2596 <GVAL INST10 = TEMP19>
2597 <RESTUU TEMP19 1 = TEMP19 (TYPE UVECTOR)>
2598 <CHTYPE TEMP19 <TYPE-CODE UVECTOR> = STACK>
2600 <CALL '
\1aIN-LIST? 2 = TEMP18>
2601 <VEQUAL? TEMP18 0 - PHRASE15>
2603 <FRAME '
\1aMAYBE-MERGE>
2609 <CALL '
\1aMAYBE-MERGE 3>
2611 <VEQUAL? I8 CODELEN9 - PHRASE25 (TYPE FIX)>
2614 <ADD I8 1 = I8 (TYPE FIX)>
2616 <END
\1aOPTIMIZE-SETS>
2618 <GFCN
\1aMAYBE-MERGE ("VALUE" ATOM VECTOR ATOM ATOM) CODE4 ATM15 ATM26>
2619 <TEMP I9:FIX CODELEN10:FIX WHOLE-THING12 TEMP18 TEMP28:ATOM>
2621 <SET I9 1 (TYPE FIX)>
2622 <LENUV CODE4 = CODELEN10 (TYPE FIX)>
2626 <NTHUV CODE4 I9 = WHOLE-THING12>
2627 <TYPE? WHOLE-THING12 <TYPE-CODE FORM> - EXIT19>
2628 <EMPL? WHOLE-THING12 + EXIT19 (TYPE FORM)>
2629 <NTHL WHOLE-THING12 1 = TEMP18>
2630 <EQUAL? TEMP18 '`TEMP + BOOL17>
2632 <NTHL WHOLE-THING12 1 = TEMP18>
2633 <EQUAL? TEMP18 '`MAKTUP - EXIT19>
2636 <RESTL WHOLE-THING12 1 = TEMP18 (TYPE LIST)>
2637 <DEAD WHOLE-THING12>
2638 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
2642 <EMPL? TEMP18 + EXIT19 (TYPE LIST)>
2643 <NTHL TEMP18 1 = WHOLE-THING12>
2644 <EQUAL? WHOLE-THING12 '= + EXIT19>
2645 <FRAME '
\1aATOM-PART>
2646 <PUSH WHOLE-THING12>
2647 <CALL '
\1aATOM-PART 1 = TEMP28>
2648 <VEQUAL? TEMP28 ATM15 - PHRASE26>
2650 <FRAME '
\1aPROBABLY-MERGE>
2659 <CALL '
\1aPROBABLY-MERGE 4>
2662 <FRAME '
\1aATOM-PART>
2663 <PUSH WHOLE-THING12>
2664 <DEAD WHOLE-THING12>
2665 <CALL '
\1aATOM-PART 1 = TEMP28>
2666 <VEQUAL? TEMP28 ATM26 - PHRASE30>
2668 <FRAME '
\1aPROBABLY-MERGE>
2677 <CALL '
\1aPROBABLY-MERGE 4>
2680 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2683 <VEQUAL? I9 CODELEN10 + EXIT7 (TYPE FIX)>
2684 <ADD I9 1 = I9 (TYPE FIX)>
2688 <END
\1aMAYBE-MERGE>
2690 <GFCN
\1aPROBABLY-MERGE ("VALUE" ATOM VECTOR LIST ATOM ATOM) CODE4 LONG5 NEW-TEMP6 OLD-TEMP7>
2691 <TEMP TEMP9 MEDIUM14:LIST SHORT15:LIST ONE-SHORT16 TEMP23>
2693 <GEN-LVAL 'OUTCHAN = TEMP9>
2694 <SET MEDIUM14 LONG5>
2695 <RESTL LONG5 1 = SHORT15 (TYPE LIST)>
2699 <EMPL? SHORT15 + EXIT12 (TYPE LIST)>
2700 <NTHL SHORT15 1 = ONE-SHORT16>
2701 <EQUAL? ONE-SHORT16 '= - PHRASE19>
2704 <FRAME '
\1aATOM-PART>
2706 <CALL '
\1aATOM-PART 1 = TEMP23>
2707 <VEQUAL? TEMP23 OLD-TEMP7 - PHRASE21>
2709 <FRAME '
\1aMERGEABLE?>
2710 <NTHL LONG5 1 = STACK>
2712 <CALL '
\1aMERGEABLE? 2 = TEMP23>
2713 <TYPE? TEMP23 <TYPE-CODE FALSE> + EXIT12>
2715 <TYPE? ONE-SHORT16 <TYPE-CODE LIST> - PHRASE28>
2716 <NTHL LONG5 1 = TEMP23>
2717 <PUTL ONE-SHORT16 1 TEMP23>
2719 <PUTL LONG5 1 ONE-SHORT16>
2720 <DEAD LONG5 ONE-SHORT16>
2722 <RESTL SHORT15 1 = TEMP23 (TYPE LIST)>
2724 <PUTREST MEDIUM14 TEMP23>
2725 <DEAD MEDIUM14 TEMP23>
2726 <GVAL 'DEBUG-DEATH = TEMP23>
2727 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE30>
2729 <FRAME '
\1aPRINTSTRING>
2732 <CALL '
\1aPRINTSTRING 2>
2737 <FRAME '
\1aPRINTSTRING>
2740 <CALL '
\1aPRINTSTRING 2>
2750 <FRAME '
\1aUNMERGEABLE>
2752 <GVAL OLD-TEMP7 = TEMP23>
2753 <RESTUU TEMP23 1 = TEMP23 (TYPE UVECTOR)>
2754 <CHTYPE TEMP23 <TYPE-CODE UVECTOR> = STACK>
2756 <CALL '
\1aUNMERGEABLE 2>
2757 <FRAME '
\1aPERFORM-MERGE>
2764 <CALL '
\1aPERFORM-MERGE 3>
2767 <SET MEDIUM14 SHORT15>
2769 <RESTL MEDIUM14 1 = SHORT15 (TYPE LIST)>
2773 <END
\1aPROBABLY-MERGE>
2775 <GFCN
\1aOPTIMIZE-TEMPS ("VALUE" ATOM VECTOR) CODE4>
2776 <TEMP I8 CODELEN9:FIX INST10 OP11>
2778 <SET I8 1 (TYPE FIX)>
2779 <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2783 <NTHUV CODE4 I8 = INST10>
2784 <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
2785 <EMPL? INST10 + PHRASE17 (TYPE FORM)>
2786 <NTHL INST10 1 = OP11>
2787 <EQUAL? OP11 '`TEMP + BOOL18>
2788 <EQUAL? OP11 '`MAKTUP - PHRASE17>
2791 <FRAME '
\1aREALLY-OPTIMIZE>
2793 <RESTL INST10 1 = INST10 (TYPE LIST)>
2794 <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
2796 <CALL '
\1aREALLY-OPTIMIZE 2>
2798 <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
2801 <ADD I8 1 = I8 (TYPE FIX)>
2803 <END
\1aOPTIMIZE-TEMPS>
2805 <GFCN
\1aREALLY-OPTIMIZE ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
2806 <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM>
2808 <GEN-LVAL 'OUTCHAN = TEMP9>
2809 <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
2817 <EMPL? LONG18 + BOOL23 (TYPE LIST)>
2818 <NTHL LONG18 1 = ONE-LONG19>
2819 <EQUAL? ONE-LONG19 '= - PHRASE22>
2823 <SET MEDIUM26 LONG18>
2824 <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2828 <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
2829 <NTHL SHORT27 1 = ONE-SHORT28>
2830 <EQUAL? ONE-SHORT28 '= + EXIT24>
2831 <FRAME '
\1aMERGEABLE?>
2834 <CALL '
\1aMERGEABLE? 2 = TEMP36>
2835 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
2837 <FRAME '
\1aATOM-PART>
2839 <CALL '
\1aATOM-PART 1 = NEW-TEMP8>
2840 <FRAME '
\1aATOM-PART>
2842 <CALL '
\1aATOM-PART 1 = OLD-TEMP7>
2843 <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE40>
2844 <PUTL ONE-SHORT28 1 ONE-LONG19>
2845 <PUTL LONG18 1 ONE-SHORT28>
2848 <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
2849 <PUTREST MEDIUM26 SHORT27>
2850 <GVAL 'DEBUG-DEATH = TEMP36>
2851 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE42>
2853 <FRAME '
\1aPRINTSTRING>
2856 <CALL '
\1aPRINTSTRING 2>
2861 <FRAME '
\1aPRINTSTRING>
2864 <CALL '
\1aPRINTSTRING 2>
2873 <FRAME '
\1aUNMERGEABLE>
2875 <GVAL OLD-TEMP7 = TEMP36>
2876 <RESTUU TEMP36 1 = TEMP36 (TYPE UVECTOR)>
2877 <CHTYPE TEMP36 <TYPE-CODE UVECTOR> = STACK>
2879 <CALL '
\1aUNMERGEABLE 2>
2880 <FRAME '
\1aPERFORM-MERGE>
2886 <CALL '
\1aPERFORM-MERGE 3>
2889 <SET MEDIUM26 SHORT27>
2891 <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2894 <RESTL LONG18 1 = LONG18 (TYPE LIST)>
2896 <END
\1aREALLY-OPTIMIZE>
2898 <GFCN
\1aMERGEABLE? ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
2899 <TEMP TEMP10 TEMP12>
2901 <FRAME '
\1aDECL-PART>
2903 <CALL '
\1aDECL-PART 1 = TEMP10>
2904 <FRAME '
\1aDECL-PART>
2906 <CALL '
\1aDECL-PART 1 = TEMP12>
2907 <EQUAL? TEMP10 TEMP12 + TAG8>
2908 <DEAD TEMP10 TEMP12>
2911 <TYPE? TEMP14 <TYPE-CODE LIST> - TAG14>
2912 <TYPE? TEMP25 <TYPE-CODE LIST> - TAG14>
2915 <FRAME '
\1aIN-LIST?>
2916 <FRAME '
\1aATOM-PART>
2919 <CALL '
\1aATOM-PART 1 = STACK>
2920 <FRAME '
\1aATOM-PART>
2923 <CALL '
\1aATOM-PART 1 = TEMP12>
2924 <GVAL TEMP12 = TEMP10>
2926 <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
2927 <CHTYPE TEMP10 <TYPE-CODE UVECTOR> = STACK>
2929 <CALL '
\1aIN-LIST? 2 = TEMP12>
2930 <VEQUAL? TEMP12 0 - TAG16>
2937 <GFCN
\1aOPTIMIZE-TEMPS/BASH-DECLS ("VALUE" ATOM VECTOR) CODE4>
2938 <TEMP I8 CODELEN9:FIX INST10 OP11>
2940 <SET I8 1 (TYPE FIX)>
2941 <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2945 <NTHUV CODE4 I8 = INST10>
2946 <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
2947 <EMPL? INST10 + PHRASE17 (TYPE FORM)>
2948 <NTHL INST10 1 = OP11>
2949 <EQUAL? OP11 '`TEMP + BOOL18>
2950 <EQUAL? OP11 '`MAKTUP - PHRASE17>
2953 <FRAME '
\1aREALLY-OPTIMIZE/BASH-DECLS>
2955 <RESTL INST10 1 = INST10 (TYPE LIST)>
2956 <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
2958 <CALL '
\1aREALLY-OPTIMIZE/BASH-DECLS 2>
2960 <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
2963 <ADD I8 1 = I8 (TYPE FIX)>
2965 <END
\1aOPTIMIZE-TEMPS/BASH-DECLS>
2967 <GFCN
\1aREALLY-OPTIMIZE/BASH-DECLS ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
2968 <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM TEMP45>
2970 <GEN-LVAL 'OUTCHAN = TEMP9>
2971 <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
2979 <EMPL? LONG18 + BOOL23 (TYPE LIST)>
2980 <NTHL LONG18 1 = ONE-LONG19>
2981 <EQUAL? ONE-LONG19 '= - PHRASE22>
2985 <SET MEDIUM26 LONG18>
2986 <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2990 <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
2991 <NTHL SHORT27 1 = ONE-SHORT28>
2992 <EQUAL? ONE-SHORT28 '= + EXIT24>
2993 <FRAME '
\1aMERGEABLE?/BASH-DECLS>
2996 <CALL '
\1aMERGEABLE?/BASH-DECLS 2 = TEMP36>
2997 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
2999 <FRAME '
\1aATOM-PART>
3001 <CALL '
\1aATOM-PART 1 = NEW-TEMP8>
3002 <FRAME '
\1aATOM-PART>
3004 <CALL '
\1aATOM-PART 1 = OLD-TEMP7>
3005 <FRAME '
\1aDECL-PART>
3007 <CALL '
\1aDECL-PART 1 = TEMP36>
3008 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
3010 <FRAME '
\1aDECL-PART>
3012 <CALL '
\1aDECL-PART 1 = TEMP36>
3013 <FRAME '
\1aDECL-PART>
3015 <CALL '
\1aDECL-PART 1 = TEMP45>
3016 <EQUAL? TEMP36 TEMP45 + PHRASE48>
3017 <DEAD TEMP36 TEMP45>
3018 <TYPE? ONE-LONG19 <TYPE-CODE ADECL> - PHRASE47>
3019 <NTHUV ONE-LONG19 1 = ONE-LONG19>
3020 <PUTL LONG18 1 ONE-LONG19>
3023 <TYPE? ONE-LONG19 <TYPE-CODE LIST> - PHRASE48>
3024 <NTHL ONE-LONG19 1 = TEMP45>
3025 <NTH1 TEMP45 = TEMP45>
3026 <PUTL ONE-LONG19 1 TEMP45>
3029 <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE50>
3030 <PUTL ONE-SHORT28 1 ONE-LONG19>
3031 <PUTL LONG18 1 ONE-SHORT28>
3034 <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
3035 <PUTREST MEDIUM26 SHORT27>
3036 <GVAL 'DEBUG-DEATH = TEMP45>
3037 <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE52>
3039 <FRAME '
\1aPRINTSTRING>
3042 <CALL '
\1aPRINTSTRING 2>
3047 <FRAME '
\1aPRINTSTRING>
3050 <CALL '
\1aPRINTSTRING 2>
3059 <FRAME '
\1aUNMERGEABLE>
3061 <GVAL OLD-TEMP7 = TEMP45>
3062 <RESTUU TEMP45 1 = TEMP45 (TYPE UVECTOR)>
3063 <CHTYPE TEMP45 <TYPE-CODE UVECTOR> = STACK>
3065 <CALL '
\1aUNMERGEABLE 2>
3066 <FRAME '
\1aPERFORM-MERGE>
3072 <CALL '
\1aPERFORM-MERGE 3>
3075 <SET MEDIUM26 SHORT27>
3077 <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
3080 <RESTL LONG18 1 = LONG18 (TYPE LIST)>
3082 <END
\1aREALLY-OPTIMIZE/BASH-DECLS>
3084 <GFCN
\1aMERGEABLE?/BASH-DECLS ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
3087 <TYPE? TEMP14 <TYPE-CODE LIST> - TAG9>
3088 <TYPE? TEMP25 <TYPE-CODE LIST> - TAG9>
3091 <FRAME '
\1aIN-LIST?>
3092 <FRAME '
\1aATOM-PART>
3095 <CALL '
\1aATOM-PART 1 = STACK>
3096 <FRAME '
\1aATOM-PART>
3099 <CALL '
\1aATOM-PART 1 = TEMP7>
3100 <GVAL TEMP7 = TEMP7>
3101 <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
3102 <CHTYPE TEMP7 <TYPE-CODE UVECTOR> = STACK>
3104 <CALL '
\1aIN-LIST? 2 = TEMP7>
3105 <VEQUAL? TEMP7 0 - TAG11>
3110 <END
\1aMERGEABLE?/BASH-DECLS>
3112 <GFCN
\1aPERFORM-MERGE ("VALUE" <OR ATOM FALSE <FORM ANY ATOM>> VECTOR ATOM ATOM) CODE4 NEW-TEMP5 OLD-TEMP6>
3113 <TEMP TEMP16 TEMP13:VECTOR INST18 TEMP27 LL43:LIST>
3115 <SET TEMP16 %<> (TYPE FALSE)>
3116 <SET TEMP13 CODE4 (TYPE VECTOR)>
3121 <EMPUV? TEMP13 + MAPAP11>
3122 <NTHUV TEMP13 1 = INST18>
3123 <TYPE? INST18 <TYPE-CODE BRANCH> - PHRASE23>
3124 <FRAME '
\1aIN-LIST?>
3126 <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3127 <CALL '
\1aIN-LIST? 2 = TEMP27>
3128 <VEQUAL? TEMP27 0 + PHRASE25>
3130 <FRAME '
\1aREM-LIST>
3132 <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3133 <CALL '
\1aREM-LIST 2>
3134 <FRAME '
\1aADD-LIST>
3136 <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3137 <CALL '
\1aADD-LIST 2>
3139 <NTHUV INST18 1 = INST18 (TYPE FORM)>
3142 <TYPE? INST18 <TYPE-CODE LABEL> - PHRASE30>
3143 <NTHUV INST18 4 = TEMP27>
3144 <TYPE? TEMP27 <TYPE-CODE FALSE> + MAPAP37>
3148 <EMPL? TEMP27 + MAPAP37>
3149 <NTHL TEMP27 1 = LL43>
3150 <NTHL LL43 1 = TEMP16 (TYPE ATOM)>
3151 <VEQUAL? TEMP16 OLD-TEMP6 - PHRASE45>
3153 <PUTL LL43 1 NEW-TEMP5 (TYPE ATOM)>
3157 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
3160 <NTHUV INST18 1 = INST18>
3162 <TYPE? INST18 <TYPE-CODE FORM> + TAG50>
3163 <SET TEMP16 %<> (TYPE FALSE)>
3166 <EMPL? INST18 - TAG52 (TYPE FORM)>
3167 <SET TEMP16 %<> (TYPE FALSE)>
3170 <NTHL INST18 1 = TEMP16>
3171 <EQUAL? TEMP16 '`LOOP - PHRASE54>
3172 <SET TEMP16 %<> (TYPE FALSE)>
3173 <RESTL INST18 1 = LL43 (TYPE LIST)>
3175 <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
3179 <EMPL? LL43 + PHRASE98>
3180 <NTHL LL43 1 = TEMP16>
3181 <FRAME '
\1aREPLACE-ATOM>
3186 <CALL '
\1aREPLACE-ATOM 3 = TEMP16>
3187 <RESTL LL43 1 = LL43 (TYPE LIST)>
3190 <EQUAL? TEMP16 '`ICALL - PHRASE65>
3191 <EMPL? INST18 + TAG69>
3192 <RESTL INST18 1 = LL43 (TYPE LIST)>
3193 <EMPL? LL43 + TAG69>
3194 <RESTL LL43 1 = LL43 (TYPE LIST)>
3195 <EMPL? LL43 - TAG68>
3198 <SET TEMP16 %<> (TYPE FALSE)>
3201 <FRAME '
\1aREPLACE-ATOM>
3202 <RESTL INST18 1 = LL43 (TYPE LIST)>
3204 <RESTL LL43 1 = LL43 (TYPE LIST)>
3205 <RESTL LL43 1 = LL43 (TYPE LIST)>
3206 <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3210 <CALL '
\1aREPLACE-ATOM 3 = TEMP16>
3213 <EQUAL? TEMP16 '`CHTYPE - PHRASE71>
3215 <FRAME '
\1aREPLACE-ATOM>
3216 <RESTL INST18 1 = LL43 (TYPE LIST)>
3217 <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3221 <CALL '
\1aREPLACE-ATOM 3>
3222 <SET TEMP16 %<> (TYPE FALSE)>
3223 <RESTL INST18 1 = LL43 (TYPE LIST)>
3225 <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
3229 <EMPL? LL43 + PHRASE98>
3230 <NTHL LL43 1 = TEMP16>
3231 <TYPE? TEMP16 <TYPE-CODE FORM> + TAG88>
3232 <SET TEMP16 %<> (TYPE FALSE)>
3236 <SET TEMP27 1 (TYPE FIX)>
3237 <LOOP (INST18 VALUE) (TEMP27 VALUE)>
3239 <EMPL? INST18 + TAG91>
3240 <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
3241 <LESS? TEMP27 0 + TAG90>
3242 <RESTL INST18 1 = INST18 (TYPE LIST)>
3245 <SET TEMP16 %<> (TYPE FALSE)>
3248 <NTHL TEMP16 1 = TEMP27>
3249 <EQUAL? TEMP27 '`TYPE + TAG96>
3251 <SET TEMP16 %<> (TYPE FALSE)>
3254 <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
3255 <NTHL TEMP27 1 = TEMP27>
3256 <EQUAL? TEMP27 OLD-TEMP6 + TAG97>
3258 <SET TEMP16 %<> (TYPE FALSE)>
3261 <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
3262 <PUTL TEMP27 1 NEW-TEMP5>
3265 <RESTL LL43 1 = LL43 (TYPE LIST)>
3268 <FRAME '
\1aREPLACE-ATOM>
3269 <RESTL INST18 1 = LL43 (TYPE LIST)>
3271 <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3275 <CALL '
\1aREPLACE-ATOM 3 = TEMP16>
3277 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
3282 <END
\1aPERFORM-MERGE>
3284 <GFCN
\1aREPLACE-ATOM ("VALUE" ATOM <PRIMTYPE LIST> ATOM ATOM) L4 NEW-ATOM5 OLD-ATOM6>
3285 <TEMP TEMP13:LIST RL18:LIST ONE19>
3287 <CHTYPE L4 <TYPE-CODE LIST> = TEMP13>
3292 <EMPL? TEMP13 + MAPAP11>
3294 <NTHL RL18 1 = ONE19>
3295 <EQUAL? ONE19 OLD-ATOM6 - PHRASE21>
3297 <PUTL RL18 1 NEW-ATOM5>
3300 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3304 <END
\1aREPLACE-ATOM>
3306 <GFCN
\1aPREPARE-DEADS-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL) CODE4 LABEL5>
3307 <TEMP TEMP15 TEMP17:LIST IN18:FIX>
3309 <SET TEMP15 %<> (TYPE FALSE)>
3310 <NTHUV LABEL5 2 = TEMP17 (TYPE LIST)>
3315 <EMPL? TEMP17 + MAPAP10>
3316 <NTHL TEMP17 1 = IN18>
3317 <NTHUV CODE4 IN18 = TEMP15>
3318 <TYPE? TEMP15 <TYPE-CODE BRANCH> + TAG22>
3319 <SET TEMP15 %<> (TYPE FALSE)>
3322 <FRAME '
\1aPREPARE-DEADS>
3326 <SET IN18 0 (TYPE FIX)>
3327 <NTHUV TEMP15 3 = TEMP15 (TYPE UVECTOR)>
3328 <LOOP (TEMP15 VALUE LENGTH) (IN18 VALUE)>
3331 <EMPUU? TEMP15 + TAG25>
3332 <NTHUU TEMP15 1 = STACK>
3333 <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
3334 <ADD IN18 1 = IN18 (TYPE FIX)>
3337 <UBLOCK <TYPE-CODE UVECTOR> IN18 = STACK (TYPE UVECTOR)>
3340 <CALL '
\1aPREPARE-DEADS 4 = TEMP15>
3342 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3347 <END
\1aPREPARE-DEADS-FROM-LABEL>
3349 <GFCN
\1aPREPARE-DEADS ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 FROM7>
3350 <TEMP INST11 TEMP19:FIX ASSIGN13 INS12:LIST TEMP37:LIST TEMP41 LL56:LIST TEMP59>
3355 <NTHUV CODE4 I5 = INST11>
3356 <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
3357 <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
3358 <VEQUAL? TEMP19 -1 - PHRASE18 (TYPE FIX)>
3362 <PUTUV INST11 3 -1 (TYPE FIX)>
3363 <NTHUV INST11 4 = ASSIGN13>
3364 <NTHUV INST11 2 = INS12 (TYPE LIST)>
3366 <EMPL? INS12 - PHRASE24 (TYPE LIST)>
3368 <PUSH 'UNREACHABLE-CODE!-ERRORS>
3369 <PUSH 'PREPARE-DEADS>
3373 <RESTL INS12 1 = TEMP37 (TYPE LIST)>
3377 <EMPL? TEMP37 + MAPAP31>
3378 <NTHL TEMP37 1 = TEMP19>
3379 <SET INST11 0 (TYPE FIX)>
3380 <SET TEMP41 LIVE-TEMPS6>
3381 <LOOP (TEMP41 VALUE LENGTH) (INST11 VALUE)>
3384 <EMPUU? TEMP41 + TAG40>
3385 <NTHUU TEMP41 1 = STACK>
3386 <RESTUU TEMP41 1 = TEMP41 (TYPE UVECTOR)>
3387 <ADD INST11 1 = INST11 (TYPE FIX)>
3390 <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP41 (TYPE UVECTOR)>
3392 <TYPE? ASSIGN13 <TYPE-CODE FALSE> + MAPAP51>
3393 <SET INST11 ASSIGN13 (TYPE LIST)>
3397 <EMPL? INST11 + MAPAP51>
3398 <NTHL INST11 1 = LL56>
3399 <RESTL LL56 1 = TEMP59 (TYPE LIST)>
3400 <NTHL TEMP59 1 = TEMP59 (TYPE FIX)>
3401 <VEQUAL? TEMP19 TEMP59 - PHRASE58 (TYPE FIX)>
3403 <FRAME '
\1aREM-LIST>
3404 <NTHL LL56 1 = STACK (TYPE ATOM)>
3407 <CALL '
\1aREM-LIST 2>
3410 <RESTL INST11 1 = INST11 (TYPE LIST)>
3413 <FRAME '
\1aPREPARE-DEADS>
3420 <CALL '
\1aPREPARE-DEADS 4>
3421 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3426 <NTHL INS12 1 = I5 (TYPE FIX)>
3428 <TYPE? ASSIGN13 <TYPE-CODE FALSE> + PHRASE80>
3429 <SET TEMP37 ASSIGN13 (TYPE LIST)>
3434 <EMPL? TEMP37 + PHRASE80>
3435 <NTHL TEMP37 1 = INS12>
3436 <RESTL INS12 1 = INST11 (TYPE LIST)>
3437 <NTHL INST11 1 = INST11 (TYPE FIX)>
3438 <VEQUAL? I5 INST11 - PHRASE73 (TYPE FIX)>
3440 <FRAME '
\1aREM-LIST>
3441 <NTHL INS12 1 = STACK (TYPE ATOM)>
3444 <CALL '
\1aREM-LIST 2>
3447 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3450 <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE75>
3451 <FRAME '
\1aMERGE-DEADS>
3455 <ADD I5 1 = TEMP19 (TYPE FIX)>
3456 <VEQUAL? FROM7 TEMP19 - TAG77 (TYPE FIX)>
3463 <CALL '
\1aMERGE-DEADS 3 = LIVE-TEMPS6>
3464 <FRAME '
\1aUPDATE-DEADS>
3465 <NTHUV INST11 1 = STACK (TYPE FORM)>
3469 <CALL '
\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
3471 <SUB I5 1 = I5 (TYPE FIX)>
3474 <FRAME '
\1aUPDATE-DEADS>
3479 <CALL '
\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
3481 <SUB I5 1 = I5 (TYPE FIX)>
3483 <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
3485 <END
\1aPREPARE-DEADS>
3487 <GFCN
\1aMERGE-DEADS ("VALUE" UVECTOR UVECTOR BRANCH ANY) LIVES4 BRANCH5 FALL?6>
3488 <TEMP TEMP10 ND18:UVECTOR B-LIVES7:UVECTOR TEMP20:UVECTOR LP25:UVECTOR BP26 NDP27:UVECTOR L28:FIX TEMP32:FIX>
3490 <GVAL 'UVSIZE = TEMP10>
3491 <UUBLOCK <TYPE-CODE UVECTOR> TEMP10 = ND18>
3494 <LOOP (TEMP10 VALUE LENGTH)>
3496 <EMPUU? TEMP10 + ISTRE12>
3498 <RESTUU TEMP10 1 = TEMP10>
3501 <NTHUV BRANCH5 3 = B-LIVES7 (TYPE UVECTOR)>
3502 <SET TEMP10 LIVES4 (TYPE UVECTOR)>
3503 <SET TEMP20 ND18 (TYPE UVECTOR)>
3507 <EMPUU? TEMP10 + MAPAP17>
3508 <EMPUU? B-LIVES7 + MAPAP17>
3509 <EMPUU? TEMP20 + MAPAP17>
3513 <NTHUU LP25 1 = L28 (TYPE FIX)>
3514 <NTHUU BP26 1 = BP26 (TYPE FIX)>
3515 <VEQUAL? L28 BP26 + PHRASE31 (TYPE FIX)>
3516 <OR L28 BP26 = TEMP32>
3517 <PUTUU LP25 1 TEMP32>
3519 <XOR L28 BP26 = TEMP32>
3521 <PUTUU NDP27 1 TEMP32>
3524 <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
3525 <RESTUU B-LIVES7 1 = B-LIVES7 (TYPE UVECTOR)>
3526 <RESTUU TEMP20 1 = TEMP20 (TYPE UVECTOR)>
3529 <TYPE? FALL?6 <TYPE-CODE FALSE> + PHRASE34>
3531 <PUTUV BRANCH5 4 ND18>
3536 <NTHUV BRANCH5 5 = TEMP10>
3537 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE37>
3538 <FRAME '
\1aINTERSECT-UVS>
3543 <CALL '
\1aINTERSECT-UVS 2 = TEMP20>
3544 <PUTUV BRANCH5 5 TEMP20>
3545 <DEAD BRANCH5 TEMP20>
3549 <PUTUV BRANCH5 5 ND18>
3553 <END
\1aMERGE-DEADS>
3555 <GFCN
\1aINTERSECT-UVS ("VALUE" UVECTOR UVECTOR UVECTOR) U14 U25>
3556 <TEMP TEMP7 U36:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR UP120 UP221 UP322:UVECTOR>
3558 <GVAL 'UVSIZE = TEMP7>
3559 <UUBLOCK <TYPE-CODE UVECTOR> TEMP7 = U36 (TYPE UVECTOR)>
3561 <SET TEMP7 U14 (TYPE UVECTOR)>
3563 <SET TEMP14 U25 (TYPE UVECTOR)>
3565 <SET TEMP15 U36 (TYPE UVECTOR)>
3569 <EMPUU? TEMP7 + MAPAP12>
3570 <EMPUU? TEMP14 + MAPAP12>
3571 <EMPUU? TEMP15 + MAPAP12>
3575 <NTHUU UP120 1 = UP120 (TYPE FIX)>
3576 <NTHUU UP221 1 = UP221 (TYPE FIX)>
3577 <AND UP120 UP221 = UP120>
3579 <PUTUU UP322 1 UP120>
3581 <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
3582 <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
3583 <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
3588 <END
\1aINTERSECT-UVS>
3590 <GFCN
\1aUPDATE-DEADS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
3591 <TEMP OP7 SETTER6 TEMP17 TEMP37:LIST TEM8 TEMP130>
3593 <EMPL? INST4 + EXIT115 (TYPE FORM) (DEAD-JUMP INST4)>
3594 <NTHL INST4 1 = OP7>
3595 <EQUAL? OP7 '`SET - PHRASE12 (DEAD-FALL OP7)>
3596 <RESTL INST4 1 = OP7 (TYPE LIST)>
3598 <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3600 <FRAME '
\1aREM-LIST?>
3603 <CALL '
\1aREM-LIST? 2 = OP7>
3604 <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE15>
3606 <SETG 'ANY-FLUSHED-INS 'T>
3607 <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3608 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3612 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3613 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3614 <NTHL TEMP17 1 = TEMP17>
3615 <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG20 (DEAD-JUMP TEMP17)>
3616 <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE19 (DEAD-JUMP INST4 SETTER6)>
3619 <FRAME '
\1aADD-DEAD>
3620 <RESTL INST4 1 = OP7 (TYPE LIST)>
3622 <RESTL OP7 1 = OP7 (TYPE LIST)>
3623 <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3628 <CALL '
\1aADD-DEAD 3>
3633 <EQUAL? OP7 '`SETLR - PHRASE23 (DEAD-FALL OP7)>
3634 <RESTL INST4 1 = OP7 (TYPE LIST)>
3636 <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3638 <FRAME '
\1aREM-LIST?>
3641 <CALL '
\1aREM-LIST? 2 = OP7>
3642 <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE25>
3644 <SETG 'ANY-FLUSHED-INS 'T>
3645 <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3646 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3650 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3651 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3652 <NTHL TEMP17 1 = TEMP17>
3653 <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG30 (DEAD-JUMP TEMP17)>
3654 <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE29>
3657 <FRAME '
\1aADD-DEAD>
3658 <RESTL INST4 1 = OP7 (TYPE LIST)>
3659 <RESTL OP7 1 = OP7 (TYPE LIST)>
3660 <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3664 <CALL '
\1aADD-DEAD 3>
3666 <RESTL INST4 1 = OP7 (TYPE LIST)>
3667 <RESTL OP7 1 = OP7 (TYPE LIST)>
3668 <RESTL OP7 1 = OP7 (TYPE LIST)>
3670 <TYPE? OP7 <TYPE-CODE ATOM> + TAG35 (DEAD-JUMP OP7)>
3671 <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE34 (DEAD-JUMP INST4 SETTER6)>
3674 <FRAME '
\1aADD-DEAD>
3675 <RESTL INST4 1 = OP7 (TYPE LIST)>
3677 <RESTL OP7 1 = OP7 (TYPE LIST)>
3678 <RESTL OP7 1 = TEMP37 (TYPE LIST)>
3680 <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3685 <CALL '
\1aADD-DEAD 3>
3690 <EQUAL? OP7 '`SETRL - PHRASE39 (DEAD-FALL OP7)>
3691 <RESTL INST4 1 = OP7 (TYPE LIST)>
3692 <RESTL OP7 1 = OP7 (TYPE LIST)>
3694 <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3696 <FRAME '
\1aREM-LIST?>
3699 <CALL '
\1aREM-LIST? 2 = OP7>
3700 <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE41>
3702 <SETG 'ANY-FLUSHED-INS 'T>
3703 <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3704 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3705 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3709 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3710 <NTHL TEMP17 1 = TEMP17>
3711 <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG46 (DEAD-JUMP TEMP17)>
3712 <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE45>
3715 <FRAME '
\1aADD-DEAD>
3716 <RESTL INST4 1 = OP7 (TYPE LIST)>
3717 <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3721 <CALL '
\1aADD-DEAD 3>
3723 <RESTL INST4 1 = OP7 (TYPE LIST)>
3724 <RESTL OP7 1 = OP7 (TYPE LIST)>
3725 <RESTL OP7 1 = OP7 (TYPE LIST)>
3727 <TYPE? OP7 <TYPE-CODE ATOM> + TAG51 (DEAD-JUMP OP7)>
3728 <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE49 (DEAD-JUMP INST4 SETTER6)>
3731 <FRAME '
\1aADD-DEAD>
3732 <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3734 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3735 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3736 <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3741 <CALL '
\1aADD-DEAD 3>
3746 <EQUAL? OP7 '`TEMP - PHRASE55 (DEAD-FALL OP7)>
3747 <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3749 <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
3753 <EMPL? TEMP37 + EXIT115 (DEAD-JUMP TEMP37)>
3754 <NTHL TEMP37 1 = OP7>
3755 <TYPE? OP7 <TYPE-CODE LIST> - PHRASE69 (DEAD-JUMP OP7)>
3756 <FRAME '
\1aREM-LIST>
3757 <FRAME '
\1aATOM-PART>
3760 <CALL '
\1aATOM-PART 1 = STACK>
3762 <CALL '
\1aREM-LIST 2>
3764 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3767 <EQUAL? OP7 '`MAKTUP - PHRASE72 (DEAD-FALL OP7)>
3768 <RESTL INST4 1 = OP7 (TYPE LIST)>
3770 <CHTYPE OP7 <TYPE-CODE LIST> = OP7>
3774 <EMPL? OP7 + EXIT115 (DEAD-JUMP OP7)>
3775 <NTHL OP7 1 = SETTER6>
3776 <EQUAL? SETTER6 '= + MAPAP77 (DEAD-JUMP SETTER6 OP7)>
3777 <TYPE? SETTER6 <TYPE-CODE LIST> - PHRASE86 (DEAD-JUMP SETTER6)>
3778 <FRAME '
\1aREM-LIST>
3779 <FRAME '
\1aATOM-PART>
3782 <CALL '
\1aATOM-PART 1 = STACK>
3784 <CALL '
\1aREM-LIST 2>
3786 <RESTL OP7 1 = OP7 (TYPE LIST)>
3792 <EQUAL? OP7 '`DISPATCH - PHRASE89 (DEAD-FALL OP7)>
3793 <RESTL INST4 1 = OP7 (TYPE LIST)>
3795 <TYPE? OP7 <TYPE-CODE ATOM> + TAG92 (DEAD-JUMP OP7)>
3796 <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE91>
3799 <FRAME '
\1aADD-DEAD>
3800 <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3801 <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3805 <CALL '
\1aADD-DEAD 3>
3807 <RESTL INST4 1 = OP7 (TYPE LIST)>
3808 <RESTL OP7 1 = OP7 (TYPE LIST)>
3810 <TYPE? OP7 <TYPE-CODE ATOM> + TAG96 (DEAD-JUMP OP7)>
3811 <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE95 (DEAD-JUMP INST4)>
3814 <FRAME '
\1aADD-DEAD>
3815 <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3817 <RESTL TEMP17 1 = TEMP37 (TYPE LIST)>
3819 <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3823 <CALL '
\1aADD-DEAD 3>
3828 <EQUAL? OP7 '`FCN + EXIT115 (DEAD-JUMP INST4 OP7)>
3829 <EQUAL? OP7 '`GFCN + EXIT115 (DEAD-JUMP INST4 OP7)>
3830 <EQUAL? OP7 '`OPT-DISPATCH + EXIT115 (DEAD-JUMP INST4 OP7)>
3831 <EQUAL? OP7 '`LOOP + EXIT115 (DEAD-JUMP INST4 OP7)>
3832 <EQUAL? OP7 '`END + EXIT115 (DEAD-JUMP INST4 OP7)>
3833 <EQUAL? OP7 '`ICALL + EXIT115 (DEAD-JUMP INST4 OP7)>
3834 <RESTL INST4 1 = TEM8 (TYPE LIST)>
3835 <CHTYPE TEM8 <TYPE-CODE LIST> = TEM8>
3836 <EMPL? TEM8 + TAG101 (DEAD-JUMP TEM8)>
3839 <NTHL TEM8 1 = TEMP17>
3840 <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG104 (DEAD-JUMP TEMP17)>
3841 <VEQUAL? TEMP17 '= + TAG102>
3844 <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3845 <EMPL? TEM8 - TAG103 (DEAD-FALL TEM8)>
3847 <SET TEM8 %<> (TYPE FALSE)>
3849 <VEQUAL? TEM8 0 + PHRASE106 (DEAD-JUMP TEM8)>
3850 <RESTL TEM8 1 = TEMP17 (TYPE LIST)>
3851 <NTHL TEMP17 1 = TEMP17>
3852 <CHTYPE TEMP17 <TYPE-CODE ATOM> = SETTER6>
3854 <VEQUAL? SETTER6 '`STACK + PHRASE114 (DEAD-JUMP TEM8)>
3855 <FRAME '
\1aREM-LIST?>
3858 <CALL '
\1aREM-LIST? 2 = TEMP17>
3859 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE114 (DEAD-JUMP TEM8)>
3861 <EQUAL? OP7 '`SCALL + PHRASE114 (DEAD-JUMP TEM8)>
3862 <EQUAL? OP7 '`SYSOP + PHRASE114 (DEAD-JUMP TEM8)>
3863 <EQUAL? OP7 '`SYSCALL + PHRASE114 (DEAD-JUMP TEM8)>
3864 <SETG 'ANY-FLUSHED-INS 'T>
3865 <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = TEMP17>
3866 <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3867 <PUTL TEM8 1 TEMP17>
3871 <SET SETTER6 %<> (TYPE FALSE)>
3873 <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3875 <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
3879 <EMPL? TEMP37 + EXIT115 (TYPE LIST) (DEAD-JUMP TEMP37 SETTER6 OP7)>
3880 <NTHL TEMP37 1 = TEMP17>
3881 <EQUAL? TEMP17 '= + BOOL123 (DEAD-JUMP TEMP17)>
3882 <EQUAL? TEMP17 '+ + BOOL123 (DEAD-JUMP TEMP17)>
3883 <EQUAL? TEMP17 '- - PHRASE122 (DEAD-FALL TEMP17)>
3885 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3888 <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG125 (DEAD-JUMP TEMP17)>
3889 <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE124 (DEAD-FALL TEMP17)>
3891 <FRAME '
\1aADD-DEAD>
3895 <EQUAL? OP7 '`CHTYPE - PHRASE127 (DEAD-JUMP TEMP17)>
3896 <TYPE? TEMP17 <TYPE-CODE FORM> - PHRASE127 (DEAD-JUMP TEMP17)>
3898 <SET TEMP130 1 (TYPE FIX)>
3899 <LOOP (TEM8 VALUE) (TEMP130 VALUE)>
3901 <EMPL? TEM8 + PHRASE127 (DEAD-JUMP TEMP130 TEM8 TEMP17)>
3902 <SUB TEMP130 1 = TEMP130 (TYPE FIX)>
3903 <LESS? TEMP130 0 + TAG132 (DEAD-JUMP TEMP130 TEM8)>
3904 <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3907 <NTHL TEMP17 1 = TEMP130>
3908 <EQUAL? TEMP130 '`TYPE - PHRASE127 (DEAD-JUMP TEMP17)>
3910 <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
3911 <NTHL TEMP130 1 = TEMP130>
3912 <TYPE? TEMP130 <TYPE-CODE ATOM> - PHRASE127 (DEAD-JUMP TEMP17)>
3914 <FRAME '
\1aADD-DEAD>
3915 <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
3917 <CHTYPE TEMP130 <TYPE-CODE LIST> = STACK>
3922 <CALL '
\1aADD-DEAD 3>
3924 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3929 <END
\1aUPDATE-DEADS>
3932 <GFCN
\1aADD-DEAD ("VALUE" <OR FALSE <LIST DEAD-VAR>> <LIST <OR ATOM DEAD-VAR>> UVECTOR <OR ATOM FALSE>) RINST4 L5 SETTER6>
3933 <TEMP TEMP8 ATM7:ATOM>
3935 <NTHL RINST4 1 = TEMP8>
3936 <CHTYPE TEMP8 <TYPE-CODE ATOM> = ATM7>
3938 <FRAME '
\1aADD-LIST?>
3942 <CALL '
\1aADD-LIST? 2 = TEMP8>
3943 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
3944 <VEQUAL? ATM7 SETTER6 - TAG13>
3948 <CHTYPE ATM7 <TYPE-CODE DEAD-VAR> = TEMP8>
3950 <PUTL RINST4 1 TEMP8>
3959 <GFCN
\1aINSERT-DEADS ("VALUE" <OR ATOM FALSE LIST> LIST VECTOR) CODE4 VCODE5>
3960 <TEMP RCODE6:LIST TEMP16 TEMP13:VECTOR DEADS19 FALL-DEADS20:LIST BJL24 JUMP-DEADS21:LIST TEMP37 TMPL23>
3963 <SET TEMP16 %<> (TYPE FALSE)>
3964 <SET TEMP13 VCODE5 (TYPE VECTOR)>
3969 <EMPUV? TEMP13 + MAPAP11 (DEAD-JUMP CODE4 TMPL23 TEMP13 RCODE6) (DEAD-FALL TEMP16)>
3970 <NTHUV TEMP13 1 = TEMP16>
3971 <TYPE? TEMP16 <TYPE-CODE BRANCH> - PHRASE26 (DEAD-FALL CODE4)>
3972 <FRAME '
\1aFIND-DEADS>
3973 <NTHUV TEMP16 1 = STACK (TYPE FORM)>
3974 <CALL '
\1aFIND-DEADS 1 = DEADS19>
3976 <NTHUV TEMP16 4 = STACK (TYPE UVECTOR)>
3977 <CALL '
\1aUV-TO-L 1 = FALL-DEADS20>
3978 <NTHUV TEMP16 5 = BJL24>
3979 <TYPE? BJL24 <TYPE-CODE FALSE> + PHRASE30 (DEAD-JUMP BJL24)>
3983 <CALL '
\1aUV-TO-L 1 = JUMP-DEADS21>
3986 <SET JUMP-DEADS21 () (TYPE LIST)>
3988 <NTHUV TEMP16 1 = TEMP16 (TYPE FORM)>
3989 <EMPL? JUMP-DEADS21 + PHRASE34 (TYPE LIST) (DEAD-JUMP JUMP-DEADS21)>
3991 <LOOP (BJL24 VALUE)>
3993 <RESTL BJL24 1 = TEMP37 (TYPE LIST)>
3994 <EMPL? TEMP37 + TAG38 (DEAD-JUMP TEMP37) (DEAD-FALL BJL24)>
3999 <CONS '`DEAD-JUMP JUMP-DEADS21 = TEMP37>
4001 <CONS TEMP37 () = TEMP37>
4002 <PUTREST BJL24 TEMP37>
4005 <EMPL? FALL-DEADS20 + PHRASE40 (TYPE LIST) (DEAD-JUMP FALL-DEADS20 TEMP16)>
4008 <LOOP (TEMP37 VALUE)>
4010 <RESTL TEMP37 1 = BJL24 (TYPE LIST)>
4011 <EMPL? BJL24 + TAG43 (DEAD-JUMP BJL24) (DEAD-FALL TEMP37)>
4016 <CONS '`DEAD-FALL FALL-DEADS20 = BJL24>
4018 <CONS BJL24 () = BJL24>
4019 <PUTREST TEMP37 BJL24>
4022 <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
4023 <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
4024 <CONS '`DEAD DEADS19 = TEMP37>
4026 <CHTYPE TEMP37 <TYPE-CODE FORM> = TEMP37>
4027 <CONS TEMP37 BJL24 = BJL24>
4029 <PUTREST RCODE6 BJL24>
4031 <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4034 <TYPE? TEMP16 <TYPE-CODE FORM> - PHRASE47>
4035 <EMPL? TEMP16 + PHRASE68 (TYPE FORM) (DEAD-JUMP CODE4)>
4036 <NTHL TEMP16 1 = DEADS19>
4037 <EQUAL? DEADS19 '`SET - BOOL51>
4038 <RESTL TEMP16 1 = BJL24 (TYPE LIST)>
4039 <NTHL BJL24 1 = BJL24>
4040 <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4041 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
4042 <NTHL TEMP37 1 = TEMP37>
4043 <EQUAL? BJL24 TEMP37 + BOOL50>
4045 <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4046 <NTHL TEMP37 1 = TEMP37>
4047 <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
4050 <EQUAL? DEADS19 '`SETLR - BOOL53>
4051 <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4052 <NTHL TEMP37 1 = TEMP37>
4053 <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
4056 <EQUAL? DEADS19 '`SETRL - BOOL54 (DEAD-JUMP TMPL23)>
4057 <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4058 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
4059 <NTHL TEMP37 1 = TEMP37>
4060 <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50 (DEAD-FALL TMPL23)>
4064 <CHTYPE TMPL23 <TYPE-CODE LIST> = TMPL23>
4065 <LOOP (TMPL23 VALUE)>
4067 <NTHL TMPL23 1 = TEMP37>
4068 <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG59 (DEAD-JUMP TEMP37)>
4069 <VEQUAL? TEMP37 '= + TAG57>
4072 <RESTL TMPL23 1 = TMPL23 (TYPE LIST)>
4073 <EMPL? TMPL23 - TAG58 (DEAD-FALL CODE4 TMPL23 DEADS19)>
4074 <SET TMPL23 %<> (TYPE FALSE)>
4077 <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
4078 <NTHL TEMP37 1 = TEMP37>
4079 <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> - PHRASE68 (DEAD-JUMP CODE4 DEADS19)>
4082 <SETG 'ANY-FLUSHED-INS 'T>
4083 <EQUAL? DEADS19 '`CALL + BOOL62 (DEAD-JUMP CODE4 DEADS19)>
4084 <EQUAL? DEADS19 '`ACALL - PHRASE61 (DEAD-FALL CODE4 DEADS19)>
4086 <LENL TEMP16 = TEMP37 (TYPE FIX)>
4087 <LENL TMPL23 = BJL24 (TYPE FIX)>
4088 <SUB TEMP37 BJL24 = TEMP37 (TYPE FIX)>
4090 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
4092 <GRTR? TEMP37 0 - RESTL64 (TYPE FIX) (DEAD-JUMP TEMP37)>
4093 <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
4096 <RESTL BJL24 1 = BJL24 (TYPE LIST)>
4097 <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
4098 <GRTR? TEMP37 0 + RESTL63 (TYPE FIX) (DEAD-FALL TEMP37)>
4100 <CHTYPE BJL24 <TYPE-CODE LIST> = BJL24>
4105 <EQUAL? DEADS19 '`SCALL + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
4106 <EQUAL? DEADS19 '`SYSOP + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
4107 <EQUAL? DEADS19 '`SYSCALL - PHRASE65 (DEAD-JUMP TEMP16) (DEAD-FALL CODE4 DEADS19)>
4109 <RESTL TMPL23 1 = BJL24 (TYPE LIST)>
4110 <NTHL BJL24 1 = BJL24>
4111 <CHTYPE BJL24 <TYPE-CODE ATOM> = BJL24>
4112 <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
4113 <PUTL TEMP37 1 BJL24>
4117 <EQUAL? DEADS19 '`POP - PHRASE67 (DEAD-FALL CODE4)>
4119 <PUTL RCODE6 1 <`ADJ -1>>
4122 <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
4125 <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4126 <PUTREST CODE4 RCODE6>
4128 <SET TEMP16 'T (TYPE ATOM)>
4131 <FRAME '
\1aFIND-DEADS>
4134 <CALL '
\1aFIND-DEADS 1 = DEADS19>
4135 <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
4138 <SET TEMP37 1 (TYPE FIX)>
4141 <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
4144 <EMPL? BJL24 + TAG73 (DEAD-JUMP BJL24)>
4145 <NTHL BJL24 1 = STACK>
4146 <RESTL BJL24 1 = BJL24 (TYPE LIST)>
4147 <ADD TEMP37 1 = TEMP37 (TYPE FIX)>
4150 <CALL '
\1aFORM TEMP37 = TEMP37>
4151 <CONS TEMP37 () = TEMP37>
4152 <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
4153 <PUTREST TEMP37 BJL24>
4155 <PUTREST RCODE6 TEMP37>
4157 <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4160 <TYPE? TEMP16 <TYPE-CODE LABEL> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
4161 <NTHUV TEMP16 1 = TEMP16>
4162 <TYPE? TEMP16 <TYPE-CODE FORM> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
4163 <EMPL? TEMP16 + TAG78 (TYPE FORM) (DEAD-JUMP CODE4 TEMP16)>
4164 <NTHL TEMP16 1 = TEMP37>
4166 <EQUAL? TEMP37 '`ENDIF - TAG78 (DEAD-JUMP CODE4)>
4168 <SET TEMP16 %<> (TYPE FALSE)>
4173 <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
4176 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
4181 <END
\1aINSERT-DEADS>
4184 <GFCN
\1aFIND-DEADS ("VALUE" LIST FORM) INST4>
4185 <TEMP (PASSED=?6 %<>) OP5 TEMP18 TEMP16 TEMP20 RINST21 ONE22 TEMP30>
4187 <EMPL? INST4 + PHRASE8 (TYPE FORM)>
4188 <NTHL INST4 1 = OP5>
4189 <SET TEMP18 () (TYPE LIST)>
4190 <SET TEMP16 () (TYPE LIST)>
4191 <RESTL INST4 1 = TEMP20 (TYPE LIST)>
4192 <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
4196 <EMPL? TEMP20 + MAPAP13>
4197 <SET RINST21 TEMP20>
4198 <NTHL RINST21 1 = ONE22>
4199 <EQUAL? ONE22 '= - PHRASE24>
4200 <SET PASSED=?6 RINST21>
4204 <TYPE? PASSED=?6 <TYPE-CODE FALSE> + PHRASE26>
4205 <EQUAL? OP5 '`CALL + BOOL28>
4206 <EQUAL? OP5 '`ACALL - PHRASE26>
4208 <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE26>
4209 <LENL INST4 = RINST21 (TYPE FIX)>
4210 <LENL PASSED=?6 = TEMP30 (TYPE FIX)>
4212 <SUB RINST21 TEMP30 = RINST21 (TYPE FIX)>
4214 <SUB RINST21 1 = RINST21 (TYPE FIX)>
4217 <GRTR? RINST21 0 - RESTL32 (TYPE FIX)>
4218 <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
4221 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
4222 <SUB RINST21 1 = RINST21 (TYPE FIX)>
4223 <GRTR? RINST21 0 + RESTL31 (TYPE FIX)>
4225 <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
4231 <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE34>
4232 <CHTYPE ONE22 <TYPE-CODE ATOM> = ONE22>
4233 <PUTL RINST21 1 ONE22>
4235 <CONS ONE22 () = TEMP30 (TYPE LIST)>
4237 <EMPL? TEMP18 - TAG36>
4238 <SET TEMP18 TEMP30 (TYPE LIST)>
4241 <PUTREST TEMP16 TEMP30>
4244 <SET TEMP16 TEMP30 (TYPE LIST)>
4248 <TYPE? ONE22 <TYPE-CODE FORM> - PHRASE46>
4249 <EQUAL? OP5 '`CHTYPE - PHRASE46>
4251 <SET RINST21 1 (TYPE FIX)>
4252 <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
4254 <EMPL? TEMP30 + PHRASE46>
4255 <SUB RINST21 1 = RINST21 (TYPE FIX)>
4256 <LESS? RINST21 0 + TAG42>
4257 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
4260 <NTHL ONE22 1 = RINST21>
4261 <EQUAL? RINST21 '`TYPE - PHRASE46>
4263 <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4264 <NTHL RINST21 1 = RINST21>
4265 <TYPE? RINST21 <TYPE-CODE DEAD-VAR> - PHRASE46>
4267 <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4268 <NTHL RINST21 1 = RINST21 (TYPE DEAD-VAR)>
4269 <CHTYPE RINST21 <TYPE-CODE ATOM> = RINST21>
4270 <RESTL ONE22 1 = TEMP30 (TYPE LIST)>
4271 <PUTL TEMP30 1 RINST21>
4272 <DEAD TEMP30 RINST21>
4273 <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4275 <NTHL RINST21 1 = RINST21 (TYPE ATOM)>
4276 <CONS RINST21 () = RINST21 (TYPE LIST)>
4277 <EMPL? TEMP18 - TAG44>
4278 <SET TEMP18 RINST21 (TYPE LIST)>
4281 <PUTREST TEMP16 RINST21>
4284 <SET TEMP16 RINST21 (TYPE LIST)>
4287 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
4296 <GFCN
\1aUV-TO-L ("VALUE" LIST UVECTOR) UV4>
4297 <TEMP (L5:LIST ()) (TEMP-OFFS6:FIX 0) TEMP13:UVECTOR WD18:FIX TNO25:FIX MSK26:FIX TEMP30>
4299 <SET TEMP13 UV4 (TYPE UVECTOR)>
4304 <EMPUU? TEMP13 + MAPAP11>
4305 <NTHUU TEMP13 1 = WD18>
4306 <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
4307 <ADD TEMP-OFFS6 1 = TNO25 (TYPE FIX)>
4308 <SET MSK26 1 (TYPE FIX)>
4312 <AND MSK26 WD18 = TEMP30>
4313 <VEQUAL? TEMP30 0 + PHRASE35 (TYPE FIX)>
4315 <GVAL 'NAME-UV = TEMP30>
4316 <NTHUV TEMP30 TNO25 = TEMP30 (TYPE ATOM)>
4317 <CONS TEMP30 L5 = L5>
4319 <XOR WD18 MSK26 = WD18>
4320 <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
4322 <ADD TNO25 1 = TNO25 (TYPE FIX)>
4323 <LSH MSK26 1 = MSK26 (TYPE FIX)>
4326 <ADD TEMP-OFFS6 32 = TEMP-OFFS6 (TYPE FIX)>
4327 <RESTUU TEMP13 1 = TEMP13 (TYPE UVECTOR)>
4332 <END
\1aUV-TO-L>
\r\r