2 <COND (<NOT <GASSIGNED? INST-NULLF>> <SETG INST-NULLF <CHTYPE <LSH ,INST-NULL 24> FIX>>)>
5 <GFCN
\1aSAVE-LOAD-STATE ("VALUE" <VECTOR [REST <OR FALSE AC-LOAD-STATE>]>)>
6 <TEMP TEMP15:VECTOR TEMP13 AC16:AC TEMP19>
8 <GVAL 'ALL-ACS = TEMP15>
9 <SET TEMP13 0 (TYPE FIX)>
13 <EMPUV? TEMP15 + MAPAP8>
14 <NTHUV TEMP15 1 = AC16>
15 <NTHUV AC16 9 = TEMP19>
16 <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG20>
18 <SET TEMP19 %<> (TYPE FALSE)>
21 <NTHUV AC16 6 = STACK>
22 <NTHUV AC16 7 = STACK>
24 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP19 (TYPE VECTOR)>
25 <CHTYPE TEMP19 <TYPE-CODE AC-LOAD-STATE> = TEMP19>
29 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
30 <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
33 <UBLOCK <TYPE-CODE VECTOR> TEMP13 = TEMP13 (TYPE VECTOR)>
36 <END
\1aSAVE-LOAD-STATE>
39 <GFCN
\1aSET-AC-LOAD-STATE ("VALUE" <OR FALSE AC> SLOAD-STATE) LSTATE4>
40 <TEMP TEMP15 TEMP17:VECTOR TEMP12:VECTOR AC18:AC TEMP22>
42 <SET TEMP15 %<> (TYPE FALSE)>
43 <GVAL 'ALL-ACS = TEMP17>
44 <SET TEMP12 LSTATE4 (TYPE VECTOR)>
49 <EMPUV? TEMP17 + MAPAP9>
50 <EMPUV? TEMP12 + MAPAP9>
51 <NTHUV TEMP17 1 = AC18>
52 <NTHUV TEMP12 1 = TEMP15>
53 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE21>
55 <NTHUV TEMP15 1 = TEMP22>
58 <NTHUV TEMP15 2 = TEMP22>
72 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
73 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
78 <END
\1aSET-AC-LOAD-STATE>
81 <GFCN
\1aSAVE-STATE ("VALUE" VECTOR)>
82 <TEMP CACHE4:VECTOR TEMP14 LVAR16>
84 <GVAL 'VARIABLE-CACHE = CACHE4>
85 <SET TEMP14 0 (TYPE FIX)>
89 <EMPUV? CACHE4 + MAPAP9>
90 <NTHUV CACHE4 1 = LVAR16>
91 <FRAME '
\1aCOPY-LINKVAR>
94 <CALL '
\1aCOPY-LINKVAR 1 = LVAR16>
97 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
98 <RESTUV CACHE4 1 = CACHE4 (TYPE VECTOR)>
101 <UBLOCK <TYPE-CODE VECTOR> TEMP14 = TEMP14 (TYPE VECTOR)>
107 <GFCN
\1aPAIR-MERGE-STATE ("VALUE" VECTOR AC-STATE AC-STATE "OPTIONAL" <OR FALSE <PRIMTYPE VECTOR>> ANY) SSTATE17 SSTATE28 SSTATE9 LEN10>
108 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
114 <TEMP TEMP12 TEMP13 LKV211>
116 <LENUV SSTATE17 = TEMP12 (TYPE FIX)>
117 <LENUV SSTATE28 = TEMP13 (TYPE FIX)>
118 <LESS? TEMP12 TEMP13 - TAG14>
119 <SET TEMP12 TEMP13 (TYPE FIX)>
124 <TYPE? SSTATE9 <TYPE-CODE FALSE> + PHRASE16>
125 <FRAME '
\1aADJUST-LENGTH>
130 <CALL '
\1aADJUST-LENGTH 2 = SSTATE9>
133 <UUBLOCK <TYPE-CODE VECTOR> LEN10 = SSTATE9 (TYPE VECTOR)>
141 <CALL '
\1aLENGTH 1 = STACK>
142 <CALL '
\1aREST 2 = SSTATE9>
143 <SET TEMP13 SSTATE17 (TYPE VECTOR)>
148 <EMPUV? TEMP13 + MAPAP25>
149 <NTHUV TEMP13 1 = TEMP12>
150 <FRAME '
\1aLINK-FIND>
153 <CALL '
\1aLINK-FIND 2 = LKV211>
154 <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
155 <FRAME '
\1aADJUST-LINKS>
160 <CALL '
\1aADJUST-LINKS 2 = LKV211>
161 <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
162 <BACKU SSTATE9 1 = SSTATE9>
163 <PUTUV SSTATE9 1 LKV211>
166 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
171 <END
\1aPAIR-MERGE-STATE>
174 <GFCN
\1aLINK-FIND ("VALUE" <OR FALSE LINKVAR> LINKVAR <VECTOR [REST LINKVAR]>) LK14 LINKS5>
175 <TEMP VAR6:VARTBL TEMP16 TEMP13:VECTOR TEMP22:VARTBL>
177 <NTHUV LK14 1 = VAR6 (TYPE VARTBL)>
179 <SET TEMP16 %<> (TYPE FALSE)>
180 <SET TEMP13 LINKS5 (TYPE VECTOR)>
185 <EMPUV? TEMP13 + MAPAP11>
186 <NTHUV TEMP13 1 = TEMP16>
187 <NTHUV TEMP16 1 = TEMP22 (TYPE VARTBL)>
188 <VEQUAL? TEMP22 VAR6 + TAG21>
190 <SET TEMP16 %<> (TYPE FALSE)>
196 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
204 <GFCN
\1aADJUST-LINKS ("VALUE" <OR FALSE LINKVAR> LINKVAR LINKVAR) LK14 LK25>
205 <TEMP (VAC7 %<>) (TAC8 %<>) (TWAC9 %<>) (CAC10 %<>) TEMP14 TEMP15 DECL6>
207 <NTHUV LK14 5 = TEMP14>
208 <NTHUV LK25 5 = TEMP15>
209 <EQUAL? TEMP14 TEMP15 - PHRASE13>
211 <NTHUV LK14 5 = DECL6>
214 <SET DECL6 %<> (TYPE FALSE)>
216 <NTHUV LK14 7 = TEMP15>
217 <NTHUV LK25 7 = TEMP14>
218 <EQUAL? TEMP15 TEMP14 - PHRASE18>
220 <NTHUV LK14 7 = TAC8>
222 <NTHUV LK14 6 = TEMP14>
223 <NTHUV LK25 6 = TEMP15>
224 <EQUAL? TEMP14 TEMP15 - PHRASE20>
226 <NTHUV LK14 6 = VAC7>
228 <NTHUV LK14 8 = TEMP15>
229 <NTHUV LK25 8 = TEMP14>
230 <EQUAL? TEMP15 TEMP14 - PHRASE22>
232 <NTHUV LK14 8 = CAC10>
234 <NTHUV LK14 9 = TEMP14>
235 <NTHUV LK25 9 = TEMP15>
236 <EQUAL? TEMP14 TEMP15 - PHRASE24>
238 <NTHUV LK14 9 = TWAC9>
240 <TYPE? VAC7 <TYPE-CODE FALSE> - BOOL27>
241 <TYPE? TAC8 <TYPE-CODE FALSE> - BOOL27>
242 <TYPE? TWAC9 <TYPE-CODE FALSE> - BOOL27>
244 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE26>
246 <FRAME '
\1aCOPY-LINKVAR>
249 <CALL '
\1aCOPY-LINKVAR 1 = LK14>
260 <FRAME '
\1aMERGE-XREFS>
261 <NTHUV LK14 10 = STACK (TYPE LIST)>
262 <NTHUV LK25 10 = STACK (TYPE LIST)>
263 <CALL '
\1aMERGE-XREFS 2 = VAC7>
264 <NTHUV LK14 2 = TEMP14>
265 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL30>
266 <NTHUV LK25 2 = TEMP14>
268 <PUTUV LK14 2 TEMP14>
270 <NTHUV LK14 4 = TEMP14>
271 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL31>
272 <NTHUV LK25 4 = TEMP14>
274 <PUTUV LK14 4 TEMP14>
276 <NTHUV LK14 3 = TEMP14>
277 <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL32>
278 <NTHUV LK25 3 = TEMP14>
281 <PUTUV LK14 3 TEMP14>
283 <PUTUV LK14 10 VAC7 (TYPE LIST)>
290 <END
\1aADJUST-LINKS>
293 <GFCN
\1aMERGE-XREFS ("VALUE" <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]>) LX14 LX25>
294 <TEMP TEMP15 TEMP13 TEMP12:LIST XF117:XREF-INFO TEMP23 TEMP24>
296 <SET TEMP15 () (TYPE LIST)>
297 <SET TEMP13 () (TYPE LIST)>
298 <SET TEMP12 LX14 (TYPE LIST)>
303 <EMPL? TEMP12 + MAPAP10>
304 <NTHL TEMP12 1 = XF117>
306 <EMPL? TEMP23 + COND18>
307 <LOOP (XF117 VALUE) (TEMP23 VALUE)>
309 <NTHL TEMP23 1 = TEMP24>
310 <VEQUAL? TEMP24 XF117 + TAG20>
312 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
313 <EMPL? TEMP23 - TAG21>
316 <CONS XF117 () = TEMP23 (TYPE LIST)>
318 <EMPL? TEMP15 - TAG26>
319 <SET TEMP15 TEMP23 (TYPE LIST)>
322 <PUTREST TEMP13 TEMP23>
325 <SET TEMP13 TEMP23 (TYPE LIST)>
328 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
336 <GFCN
\1aSET-AC-STATE ("VALUE" ATOM AC-STATE) SSTATE4>
337 <TEMP TEMP6:VECTOR TEMP7 AC18 TEMP21>
339 <FRAME '
\1aFLUSH-VAR-TEMP-DECLS>
340 <CALL '
\1aFLUSH-VAR-TEMP-DECLS 0>
341 <GVAL 'VARIABLE-CACHE = TEMP6>
342 <GVAL 'VARIABLE-CACHE = TEMP7>
343 <LENUV TEMP7 = TEMP7 (TYPE FIX)>
344 <RESTUV TEMP6 TEMP7 = TEMP6 (TYPE VECTOR)>
346 <SETG 'VARIABLE-CACHE TEMP6>
348 <GVAL 'ALL-ACS = TEMP6>
352 <EMPUV? TEMP6 + MAPAP12>
353 <NTHUV TEMP6 1 = AC18>
354 <NTHUV AC18 8 = TEMP7 (TYPE VECTOR)>
358 <LENUV TEMP7 = TEMP21 (TYPE FIX)>
359 <RESTUV TEMP7 TEMP21 = TEMP21 (TYPE VECTOR)>
361 <PUTUV AC18 8 TEMP21>
363 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
366 <SET TEMP6 SSTATE4 (TYPE VECTOR)>
370 <EMPUV? TEMP6 + MAPAP26>
371 <NTHUV TEMP6 1 = AC18>
372 <NTHUV AC18 1 = TEMP7 (TYPE VARTBL)>
373 <FRAME '
\1aCACHE-VAR>
376 <CALL '
\1aCACHE-VAR 2>
377 <NTHUV AC18 5 = TEMP21>
379 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL33>
380 <FRAME '
\1aINDICATE-VAR-TEMP-DECL>
385 <CALL '
\1aINDICATE-VAR-TEMP-DECL 2>
387 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
390 <SET TEMP6 SSTATE4 (TYPE VECTOR)>
395 <EMPUV? TEMP6 + MAPAP39>
396 <NTHUV TEMP6 1 = AC18>
397 <FRAME '
\1aFIND-CACHE-VAR>
398 <NTHUV AC18 1 = STACK (TYPE VARTBL)>
400 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP7>
401 <NTHUV TEMP7 6 = TEMP21>
402 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL47>
403 <FRAME '
\1aPLACE-LV-IN-AC>
407 <CALL '
\1aPLACE-LV-IN-AC 2>
409 <NTHUV TEMP7 7 = TEMP21>
410 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL49>
411 <FRAME '
\1aPLACE-LV-IN-AC>
415 <CALL '
\1aPLACE-LV-IN-AC 2>
417 <NTHUV TEMP7 8 = TEMP21>
418 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL51>
419 <FRAME '
\1aPLACE-LV-IN-AC>
423 <CALL '
\1aPLACE-LV-IN-AC 2>
425 <NTHUV TEMP7 9 = TEMP21>
426 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL53>
427 <FRAME '
\1aPLACE-LV-IN-AC>
432 <CALL '
\1aPLACE-LV-IN-AC 2>
434 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
438 <END
\1aSET-AC-STATE>
441 <GFCN
\1aPROCESS-LABEL-MERGE ("VALUE" <OR FALSE XREF-INFO> LABEL-REF BOOLEAN FIX) LABEL4 UCB?5 PATCH6>
442 <TEMP (PRE-STATE9 %<>) SSTATE7 TEMP27:LIST XREF28:XREF-INFO NSSTATE8>
444 <TYPE? UCB?5 <TYPE-CODE FALSE> - PHRASE11>
445 <FRAME '
\1aSAVE-STATE>
446 <CALL '
\1aSAVE-STATE 0 = PRE-STATE9>
448 <FRAME '
\1aCOMPUTE-MERGE-STATE>
451 <CALL '
\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
452 <TYPE? UCB?5 <TYPE-CODE FALSE> - BOOL14>
454 <FRAME '
\1aADJUST-PRE-LABEL>
459 <CALL '
\1aADJUST-PRE-LABEL 3>
461 <NTHUV LABEL4 2 = TEMP27 (TYPE LIST)>
465 <EMPL? TEMP27 + MAPAP20>
466 <NTHL TEMP27 1 = XREF28>
467 <NTHUV XREF28 3 = NSSTATE8>
468 <TYPE? NSSTATE8 <TYPE-CODE FALSE> + PHRASE30>
469 <FRAME '
\1aADJUST-JUMP>
475 <CALL '
\1aADJUST-JUMP 3>
477 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
480 <FRAME '
\1aCOMPUTE-MERGE-STATE>
484 <CALL '
\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
485 <TYPE? SSTATE7 <TYPE-CODE FALSE> + PHRASE34>
486 <FRAME '
\1aSET-AC-STATE>
489 <CALL '
\1aSET-AC-STATE 1>
492 <GVAL 'ALL-ACS = PRE-STATE9>
496 <EMPUV? PRE-STATE9 + MAP36>
497 <FRAME '
\1aCLEAR-VARS-FROM-AC>
498 <NTHUV PRE-STATE9 1 = STACK>
499 <CALL '
\1aCLEAR-VARS-FROM-AC 1>
500 <RESTUV PRE-STATE9 1 = PRE-STATE9 (TYPE VECTOR)>
503 <FRAME '
\1aCLEAN-UP-LABEL>
506 <CALL '
\1aCLEAN-UP-LABEL 1 = PRE-STATE9>
509 <END
\1aPROCESS-LABEL-MERGE>
512 <GFCN
\1aCLEAN-UP-LABEL ("VALUE" <OR FALSE XREF-INFO> LABEL-REF) LABEL4>
513 <TEMP TEMP14 TEMP16:LIST>
515 <SET TEMP14 %<> (TYPE FALSE)>
516 <NTHUV LABEL4 2 = TEMP16 (TYPE LIST)>
521 <EMPL? TEMP16 + MAPAP9>
522 <NTHL TEMP16 1 = TEMP14>
524 <PUTUV TEMP14 10 %<>>
525 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
530 <END
\1aCLEAN-UP-LABEL>
533 <GFCN
\1aCOMPUTE-MERGE-STATE ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> <OR FALSE AC-STATE> LABEL-REF) PSSTATE4 LABEL5>
534 <TEMP SSTATE7 TEMP19:LIST XREF20>
536 <SET SSTATE7 PSSTATE4>
537 <NTHUV LABEL5 2 = TEMP19 (TYPE LIST)>
542 <EMPL? TEMP19 + MAPAP12>
543 <NTHL TEMP19 1 = XREF20>
544 <NTHUV XREF20 3 = XREF20>
545 <TYPE? XREF20 <TYPE-CODE FALSE> + PHRASE25>
546 <TYPE? PSSTATE4 <TYPE-CODE FALSE> - PHRASE24>
547 <SET PSSTATE4 XREF20>
549 <SET SSTATE7 PSSTATE4>
552 <FRAME '
\1aPAIR-MERGE-STATE>
557 <CALL '
\1aPAIR-MERGE-STATE 2 = SSTATE7>
558 <SET PSSTATE4 SSTATE7>
560 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
565 <END
\1aCOMPUTE-MERGE-STATE>
568 <GFCN
\1aADJUST-JUMP ("VALUE" XREF-INFO XREF-INFO AC-STATE AC-STATE) XREF4 JSSTATE5 LSSTATE6>
571 <FRAME '
\1aSET-AC-LOAD-STATE>
572 <NTHUV XREF4 10 = STACK (TYPE VECTOR)>
573 <CALL '
\1aSET-AC-LOAD-STATE 1>
574 <FRAME '
\1aGEN-INSERT>
580 <CALL '
\1aGEN-INSERT 3 = SVEC7>
581 <FRAME '
\1aPRE-INSERT>
584 <NTHUV XREF4 7 = STACK>
585 <NTHUV XREF4 8 = STACK (TYPE FIX)>
586 <NTHUV XREF4 9 = STACK (TYPE FIX)>
587 <CALL '
\1aPRE-INSERT 4 = SVEC7>
588 <PUTUV XREF4 4 SVEC7>
595 <GFCN
\1aPRE-INSERT ("VALUE" UVECTOR CODEVEC ANY FIX FIX) CDV4 STATUS?5 LILEN6 CP7>
596 <TEMP (INS29 %<>) INS18 NLILEN22 TEMP27>
598 <EQUAL? STATUS?5 'UNCONDITIONAL-BRANCH + BOOL13>
599 <EMPUU? CDV4 - PHRASE12 (TYPE UVECTOR)>
605 <SUB CP7 LILEN6 = STACK (TYPE FIX)>
606 <CALL '
\1aNTH-CODE 1 = INS18>
607 <LESS? LILEN6 2 + EXIT19 (TYPE FIX)>
608 <SET INS29 () (TYPE LIST)>
609 <SET NLILEN22 0 (TYPE FIX)>
613 <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
614 <LESS? NLILEN22 LILEN6 + PHRASE25 (TYPE FIX)>
618 <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
619 <CALL '
\1aNTH-CODE 1 = TEMP27>
620 <CONS TEMP27 () = TEMP27>
621 <PUTREST TEMP27 INS29>
626 <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
627 <GVAL 'INST-NULLF = STACK>
628 <CALL '
\1aPUT-CODE 2>
631 <TYPE? STATUS?5 <TYPE-CODE AC> - PHRASE30>
641 <CALL '
\1aRE-GEN 4 = INS29>
644 <VEQUAL? LILEN6 1 - PHRASE32 (TYPE FIX)>
645 <SET NLILEN22 1 (TYPE FIX)>
648 <LOOP (TEMP27 VALUE LENGTH) (NLILEN22 VALUE)>
651 <EMPUU? TEMP27 + TAG35>
652 <NTHUU TEMP27 1 = STACK>
653 <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
654 <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
659 <UBLOCK <TYPE-CODE UVECTOR> NLILEN22 = INS29 (TYPE UVECTOR)>
663 <SET TEMP27 1 (TYPE FIX)>
666 <LOOP (NLILEN22 VALUE LENGTH) (TEMP27 VALUE)>
669 <EMPUU? NLILEN22 + TAG39>
670 <NTHUU NLILEN22 1 = STACK>
671 <RESTUU NLILEN22 1 = NLILEN22 (TYPE UVECTOR)>
672 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
679 <LOOP (NLILEN22 VALUE) (TEMP27 VALUE)>
682 <EMPL? NLILEN22 + TAG41>
683 <NTHL NLILEN22 1 = STACK>
684 <RESTL NLILEN22 1 = NLILEN22 (TYPE LIST)>
685 <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
688 <UBLOCK <TYPE-CODE UVECTOR> TEMP27 = INS29 (TYPE UVECTOR)>
692 <SUB CP7 LILEN6 = STACK (TYPE FIX)>
694 <GVAL 'INST-NULLF = STACK>
695 <CALL '
\1aPUT-CODE 2>
701 <GFCN
\1aRE-GEN ("VALUE" UVECTOR CODEVEC AC FIX <OR FALSE <LIST [REST FIX]>>) CDV4 AC5 INS16 INS27>
704 <SETG 'RE-GEN-POST ()>
705 <SETG 'RE-GEN-PRE ()>
706 <FRAME '
\1aINT-RE-GEN>
712 <CALL '
\1aINT-RE-GEN 3>
713 <TYPE? INS27 <TYPE-CODE FALSE> + PHRASE10>
714 <SET TEMP13 1 (TYPE FIX)>
715 <GVAL 'RE-GEN-PRE = TEMP12>
716 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
719 <EMPL? TEMP12 + TAG11>
720 <NTHL TEMP12 1 = STACK>
721 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
722 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
729 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
732 <EMPL? TEMP12 + TAG15>
733 <NTHL TEMP12 1 = STACK>
734 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
735 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
738 <GVAL 'RE-GEN-POST = TEMP12>
739 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
742 <EMPL? TEMP12 + TAG17>
743 <NTHL TEMP12 1 = STACK>
744 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
745 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
748 <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
752 <SET TEMP13 1 (TYPE FIX)>
753 <GVAL 'RE-GEN-PRE = TEMP12>
754 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
757 <EMPL? TEMP12 + TAG20>
758 <NTHL TEMP12 1 = STACK>
759 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
760 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
765 <GVAL 'RE-GEN-POST = TEMP12>
766 <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
769 <EMPL? TEMP12 + TAG24>
770 <NTHL TEMP12 1 = STACK>
771 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
772 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
775 <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
781 <GFCN
\1aGET-I-FIELD ("VALUE" FIX ANY) X4>
784 <LSH X4 -24 = TEMP5 (TYPE FIX)>
791 <GFCN
\1aGET-S-FIELD ("VALUE" FIX ANY) X4>
792 <TEMP TEMP6:FIX OP15:FIX>
794 <LSH X4 -16 = TEMP6 (TYPE FIX)>
796 <AND TEMP6 #WORD *377* = OP15>
798 <AND OP15 #WORD *360* = TEMP6>
799 <VEQUAL? TEMP6 80 - PHRASE8 (TYPE FIX)>
801 <AND OP15 #WORD *17* = TEMP6>
810 <GFCN
\1aINT-RE-GEN ("VALUE" ATOM CODEVEC AC <OR FALSE PTN-SAVE>) CDV4 AC5 PSAVE6>
811 <TEMP TEMP7 IFLD10 IREG11:FIX TEMP25:FIX>
816 <EMPUU? CDV4 - PHRASE15 (TYPE UVECTOR)>
819 <FRAME '
\1aGET-I-FIELD>
820 <NTHUU CDV4 1 = TEMP7 (TYPE FIX)>
822 <CALL '
\1aGET-I-FIELD 1 = IFLD10>
823 <FRAME '
\1aGET-S-FIELD>
825 <CALL '
\1aGET-S-FIELD 1 = IREG11>
826 <VEQUAL? IFLD10 90 - PHRASE19 (TYPE FIX)>
828 <AND TEMP7 #WORD *377777* = STACK>
829 <CALL '
\1aGET-PTNS 1 = PSAVE6>
830 <FRAME '
\1aPSTORE-RE-GEN>
831 <NTHUV PSAVE6 1 = STACK (TYPE UVECTOR)>
836 <CALL '
\1aPSTORE-RE-GEN 4>
837 <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
840 <VEQUAL? IFLD10 176 + BOOL24 (TYPE FIX)>
841 <VEQUAL? IFLD10 208 + BOOL24 (TYPE FIX)>
842 <VEQUAL? IFLD10 144 - PHRASE22 (TYPE FIX)>
844 <NTHUV AC5 2 = TEMP25 (TYPE FIX)>
845 <VEQUAL? IREG11 TEMP25 - PHRASE22 (TYPE FIX)>
847 <FRAME '
\1aGROUP-INST>
852 <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
853 <CONS TEMP25 () = STACK>
855 <CALL '
\1aGROUP-INST 4>
856 <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
859 <EQUAL? IFLD10 144 + BOOL30>
860 <EQUAL? IFLD10 176 + BOOL30>
861 <EQUAL? IFLD10 208 - PHRASE29>
864 <FRAME '
\1aGROUP-INST>
869 <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
870 <CONS TEMP25 () = STACK>
872 <CALL '
\1aGROUP-INST 4>
873 <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
876 <FRAME '
\1aGROUP-INST>
882 <CALL '
\1aGROUP-INST 4>
883 <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
888 <GFCN
\1aPSTORE-RE-GEN ("VALUE" ANY CODEVEC AC <OR FALSE PTN-SAVE> FIX) CDV4 AC5 PSAVE6 INST7>
891 <FRAME '
\1aTEST-PRE-POST>
894 <CALL '
\1aTEST-PRE-POST 2 = TEMP11>
895 <EQUAL? TEMP11 'ALL-PRE - PHRASE9>
897 <FRAME '
\1aGROUP-INST>
903 <CALL '
\1aGROUP-INST 4 = TEMP11>
907 <FRAME '
\1aTEST-PRE-POST>
910 <CALL '
\1aTEST-PRE-POST 2 = TEMP11>
911 <EQUAL? TEMP11 'ALL-POST - PHRASE13>
913 <FRAME '
\1aGROUP-INST>
919 <CALL '
\1aGROUP-INST 4 = TEMP11>
923 <FRAME '
\1aINT-RE-GEN>
930 <CALL '
\1aINT-RE-GEN 3 = TEMP11>
933 <END
\1aPSTORE-RE-GEN>
936 <GFCN
\1aTEST-PRE-POST ("VALUE" <OR ATOM FALSE> CODEVEC AC) CDV4 AC5>
937 <TEMP (MODE6 %<>) INST13:FIX IFLD10:FIX TEMP23:FIX>
942 <EMPUU? CDV4 - PHRASE16 (TYPE UVECTOR)>
946 <FRAME '
\1aGET-I-FIELD>
947 <NTHUU CDV4 1 = INST13 (TYPE FIX)>
949 <CALL '
\1aGET-I-FIELD 1 = IFLD10>
950 <FRAME '
\1aGET-S-FIELD>
953 <CALL '
\1aGET-S-FIELD 1 = INST13>
954 <VEQUAL? IFLD10 176 + BOOL22 (TYPE FIX)>
955 <VEQUAL? IFLD10 208 - PHRASE20 (TYPE FIX)>
957 <NTHUV AC5 2 = TEMP23 (TYPE FIX)>
958 <VEQUAL? INST13 TEMP23 - PHRASE20 (TYPE FIX)>
960 <EQUAL? MODE6 'ALL-PRE + PHRASE25>
962 <SET MODE6 'ALL-POST (TYPE ATOM)>
967 <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
970 <EQUAL? MODE6 'ALL-POST - PHRASE28>
974 <SET MODE6 'ALL-PRE (TYPE ATOM)>
975 <VEQUAL? IFLD10 144 + BOOL31 (TYPE FIX)>
976 <VEQUAL? IFLD10 176 + BOOL31 (TYPE FIX)>
977 <VEQUAL? IFLD10 208 - PHRASE30 (TYPE FIX)>
980 <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
983 <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
985 <END
\1aTEST-PRE-POST>
988 <GFCN
\1aGROUP-INST ("VALUE" LIST ATOM <OR FALSE PTN-SAVE> FIX <OR FALSE LIST>) MODE4 PSAVE5 INST16 INST27>
989 <TEMP TEMP16 TEMP15 NPSAVE9 TEMP32 TEMP33>
991 <TYPE? PSAVE5 <TYPE-CODE FALSE> + PHRASE11>
992 <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE13>
995 <SET TEMP16 1 (TYPE FIX)>
998 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
1001 <EMPL? TEMP15 + TAG14>
1002 <NTHL TEMP15 1 = STACK>
1003 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1004 <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
1007 <UBLOCK <TYPE-CODE UVECTOR> TEMP16 = TEMP16 (TYPE UVECTOR)>
1012 <UBLOCK <TYPE-CODE UVECTOR> 1 = TEMP16 (TYPE UVECTOR)>
1014 <FRAME '
\1aCOPY-PSAVE>
1019 <CALL '
\1aCOPY-PSAVE 2 = NPSAVE9>
1020 <VEQUAL? MODE4 'PRE - PHRASE22>
1022 <GVAL 'RE-GEN-PRE = TEMP16>
1023 <CONS NPSAVE9 TEMP16 = TEMP16>
1025 <SETG 'RE-GEN-PRE TEMP16>
1029 <GVAL 'RE-GEN-POST = TEMP15>
1030 <CONS NPSAVE9 TEMP15 = TEMP15>
1032 <SETG 'RE-GEN-POST TEMP15>
1036 <VEQUAL? MODE4 'PRE - PHRASE25>
1038 <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE27>
1039 <GVAL 'RE-GEN-PRE = TEMP15>
1042 <SET NPSAVE9 TEMP15>
1043 <EMPL? TEMP16 + TAG29>
1044 <NTHL TEMP16 1 = TEMP32>
1045 <CONS TEMP32 TEMP15 = TEMP32>
1046 <SET NPSAVE9 TEMP32>
1047 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1048 <EMPL? TEMP16 + TAG29>
1049 <LOOP (TEMP16 VALUE) (TEMP32 VALUE) (TEMP15 VALUE)>
1051 <NTHL TEMP16 1 = TEMP33>
1052 <CONS TEMP33 TEMP15 = TEMP33>
1053 <PUTREST TEMP32 TEMP33>
1057 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1058 <EMPL? TEMP16 - TAG28>
1060 <CONS INST16 NPSAVE9 = NPSAVE9>
1062 <SETG 'RE-GEN-PRE NPSAVE9>
1066 <GVAL 'RE-GEN-PRE = NPSAVE9>
1067 <CONS INST16 NPSAVE9 = NPSAVE9>
1069 <SETG 'RE-GEN-PRE NPSAVE9>
1073 <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE35>
1074 <GVAL 'RE-GEN-POST = NPSAVE9>
1077 <SET TEMP16 NPSAVE9>
1078 <EMPL? TEMP32 + TAG37>
1079 <NTHL TEMP32 1 = TEMP33>
1080 <CONS TEMP33 NPSAVE9 = TEMP33>
1082 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1083 <EMPL? TEMP32 + TAG37>
1084 <LOOP (TEMP32 VALUE) (TEMP33 VALUE) (NPSAVE9 VALUE)>
1086 <NTHL TEMP32 1 = TEMP15>
1087 <CONS TEMP15 NPSAVE9 = TEMP15>
1088 <PUTREST TEMP33 TEMP15>
1092 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1093 <EMPL? TEMP32 - TAG36>
1095 <CONS INST16 TEMP16 = TEMP16>
1097 <SETG 'RE-GEN-POST TEMP16>
1101 <GVAL 'RE-GEN-POST = TEMP16>
1102 <CONS INST16 TEMP16 = TEMP16>
1104 <SETG 'RE-GEN-POST TEMP16>
1110 <GFCN
\1aGEN-INSERT ("VALUE" ANY AC-STATE AC-STATE "OPTIONAL" ANY) JSSTATE6 LSSTATE7 XREF8>
1111 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1115 <TEMP TEMP16 JLV21:LINKVAR VAR23>
1117 <FRAME '
\1aSTART-CODE-INSERT>
1118 <CALL '
\1aSTART-CODE-INSERT 0>
1119 <SET TEMP16 JSSTATE6 (TYPE VECTOR)>
1124 <EMPUV? TEMP16 + MAPAP14>
1125 <NTHUV TEMP16 1 = JLV21>
1126 <NTHUV JLV21 1 = VAR23 (TYPE VARTBL)>
1127 <FRAME '
\1aFIND-CACHE-VAR>
1131 <CALL '
\1aFIND-CACHE-VAR 2 = VAR23>
1132 <TYPE? VAR23 <TYPE-CODE FALSE> + PHRASE25>
1133 <FRAME '
\1aCHECK-VALUE-STORED>
1137 <CALL '
\1aCHECK-VALUE-STORED 3>
1138 <FRAME '
\1aCHECK-TYPE-STORED>
1142 <CALL '
\1aCHECK-TYPE-STORED 3>
1143 <FRAME '
\1aCHECK-COUNT-STORED>
1149 <CALL '
\1aCHECK-COUNT-STORED 3>
1152 <FRAME '
\1aISTORE-VAR>
1156 <CALL '
\1aISTORE-VAR 2>
1158 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1161 <FRAME '
\1aEND-CODE-INSERT>
1162 <CALL '
\1aEND-CODE-INSERT 0 = TEMP16>
1168 <GFCN
\1aADJUST-PRE-LABEL ("VALUE" ANY AC-STATE AC-STATE FIX) JSSTATE4 LSSTATE5 PATCH6>
1171 <FRAME '
\1aGEN-INSERT>
1176 <CALL '
\1aGEN-INSERT 2 = SVEC7>
1177 <FRAME '
\1aINSERT-PATCH>
1182 <CALL '
\1aINSERT-PATCH 2 = SVEC7>
1185 <END
\1aADJUST-PRE-LABEL>
1188 <GFCN
\1aCHECK-VALUE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1189 <TEMP VAR9:VARTBL TEMP13 DADDR7>
1191 <NTHUV JLV4 1 = VAR9 (TYPE VARTBL)>
1192 <NTHUV JLV4 6 = TEMP13>
1193 <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
1194 <NTHUV LLV5 6 = TEMP13>
1196 <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG16>
1200 <NTHUV JLV4 2 = TEMP13>
1201 <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
1205 <FRAME '
\1aSTART-CODE-INSERT>
1206 <CALL '
\1aSTART-CODE-INSERT 0>
1207 <NTHUV JLV4 6 = TEMP13>
1208 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE20>
1210 <PUSH "VARIABLE NOT IN AC">
1211 <PUSH 'CHECK-VALUE-STORED>
1214 <FRAME '
\1aADDR-VAR-VALUE>
1216 <CALL '
\1aADDR-VAR-VALUE 1 = DADDR7>
1217 <FRAME '
\1aEMIT-STORE-AC>
1223 <CALL '
\1aEMIT-STORE-AC 3>
1225 <FRAME '
\1aEND-CODE-INSERT>
1226 <CALL '
\1aEND-CODE-INSERT 0 = TEMP13>
1227 <FRAME '
\1aEMIT-POTENTIAL-STORE>
1233 <CALL '
\1aEMIT-POTENTIAL-STORE 3>
1235 <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
1236 <FRAME '
\1aKILL-STORES>
1242 <CALL '
\1aKILL-STORES 3 = TEMP13>
1246 <END
\1aCHECK-VALUE-STORED>
1249 <GFCN
\1aKILL-STORES ("VALUE" ANY XREF-INFO ATOM VARTBL) XREF4 KIND5 VAR6>
1250 <TEMP TEMP16 TEMP18:LIST PSAVE19:PTN-SAVE>
1252 <SET TEMP16 %<> (TYPE FALSE)>
1253 <NTHUV XREF4 11 = TEMP18 (TYPE LIST)>
1258 <EMPL? TEMP18 + MAPAP11>
1259 <NTHL TEMP18 1 = PSAVE19>
1260 <NTHUV PSAVE19 2 = TEMP16 (TYPE VARTBL)>
1261 <VEQUAL? TEMP16 VAR6 + TAG23>
1263 <SET TEMP16 %<> (TYPE FALSE)>
1266 <FRAME '
\1aSTRONGER-SAVE?>
1268 <NTHUV PSAVE19 3 = STACK (TYPE ATOM)>
1269 <CALL '
\1aSTRONGER-SAVE? 2 = TEMP16>
1270 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE21>
1271 <FRAME '
\1aKILL-PSAVE>
1274 <CALL '
\1aKILL-PSAVE 1 = TEMP16>
1276 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1281 <END
\1aKILL-STORES>
1284 <GFCN
\1aSTRONGER-SAVE? ("VALUE" <OR ATOM FALSE> ATOM ATOM) KIND14 KIND25>
1287 <VEQUAL? KIND14 KIND25 - TAG8>
1290 <VEQUAL? KIND14 'TYPE-COUNT-VALUE - TAG9>
1293 <VEQUAL? KIND14 'TYPE-COUNT - TAG13>
1294 <VEQUAL? KIND25 'TYPE - TAG12>
1297 <VEQUAL? KIND25 'COUNT - TAG13>
1300 <VEQUAL? KIND14 'TYPE-VALUE - TAG17>
1301 <VEQUAL? KIND25 'TYPE - TAG16>
1304 <VEQUAL? KIND25 'VALUE - TAG17>
1307 <VEQUAL? KIND14 'COUNT-VALUE + TAG19>
1311 <VEQUAL? KIND25 'COUNT - TAG21>
1314 <VEQUAL? KIND25 'VALUE - TAG22>
1319 <END
\1aSTRONGER-SAVE?>
1322 <GFCN
\1aCHECK-TYPE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1323 <TEMP VAR10:VARTBL (KIND12 'TYPE) TEMP17 TAC8>
1325 <NTHUV JLV4 1 = VAR10 (TYPE VARTBL)>
1326 <NTHUV JLV4 4 = TEMP17>
1327 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
1331 <NTHUV LLV5 5 = TEMP17>
1332 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
1336 <NTHUV LLV5 7 = TEMP17>
1337 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
1341 <NTHUV LLV5 9 = TEMP17>
1343 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG21>
1347 <FRAME '
\1aSTART-CODE-INSERT>
1348 <CALL '
\1aSTART-CODE-INSERT 0>
1349 <FRAME '
\1aADDR-VAR-TYPE>
1351 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP17>
1353 <NTHUV JLV4 9 = TAC8>
1354 <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE25>
1355 <FRAME '
\1aEMIT-STORE-AC>
1361 <CALL '
\1aEMIT-STORE-AC 3>
1363 <SET KIND12 'TYPE-COUNT (TYPE ATOM)>
1366 <NTHUV JLV4 5 = TAC8>
1367 <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE27>
1368 <FRAME '
\1aSTORE-TYPE>
1372 <CALL '
\1aSTORE-TYPE 2>
1373 <FRAME '
\1aCOUNT-NEEDED?>
1376 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP17>
1377 <TYPE? TEMP17 <TYPE-CODE FALSE> - COND24>
1382 <NTHUV JLV4 7 = TAC8>
1383 <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE32>
1384 <FRAME '
\1aEMIT-STORE-AC>
1390 <CALL '
\1aEMIT-STORE-AC 3>
1394 <PUSH "VARIABLE NOT IN AC">
1398 <FRAME '
\1aEND-CODE-INSERT>
1399 <CALL '
\1aEND-CODE-INSERT 0 = TEMP17>
1400 <FRAME '
\1aEMIT-POTENTIAL-STORE>
1406 <CALL '
\1aEMIT-POTENTIAL-STORE 3>
1408 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL37>
1409 <FRAME '
\1aKILL-STORES>
1416 <CALL '
\1aKILL-STORES 3 = TEMP17>
1420 <END
\1aCHECK-TYPE-STORED>
1423 <GFCN
\1aCHECK-COUNT-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1424 <TEMP (KIND11 'COUNT) VAR12:VARTBL TEMP17 TAC8>
1426 <NTHUV JLV4 1 = VAR12 (TYPE VARTBL)>
1427 <NTHUV LLV5 8 = TEMP17>
1428 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
1432 <NTHUV LLV5 9 = TEMP17>
1433 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
1437 <NTHUV JLV4 3 = TEMP17>
1438 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
1442 <NTHUV LLV5 5 = TEMP17>
1444 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL21>
1445 <FRAME '
\1aCOUNT-NEEDED?>
1448 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP17>
1449 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1451 <NTHUV JLV4 5 = TEMP17>
1452 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL23>
1453 <FRAME '
\1aCOUNT-NEEDED?>
1456 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP17>
1457 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1459 <FRAME '
\1aSTART-CODE-INSERT>
1460 <CALL '
\1aSTART-CODE-INSERT 0>
1461 <FRAME '
\1aADDR-VAR-COUNT>
1462 <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
1463 <CALL '
\1aADDR-VAR-COUNT 1 = TEMP17>
1465 <NTHUV JLV4 9 = TAC8>
1466 <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE28>
1467 <FRAME '
\1aADDR-VAR-TYPE>
1468 <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
1469 <CALL '
\1aADDR-VAR-TYPE 1 = TEMP17>
1470 <FRAME '
\1aEMIT-STORE-AC>
1476 <CALL '
\1aEMIT-STORE-AC 3>
1478 <SET KIND11 'TYPE-COUNT (TYPE ATOM)>
1481 <NTHUV JLV4 8 = TAC8>
1482 <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE31>
1483 <FRAME '
\1aEMIT-STORE-AC>
1489 <CALL '
\1aEMIT-STORE-AC 3>
1491 <FRAME '
\1aEND-CODE-INSERT>
1492 <CALL '
\1aEND-CODE-INSERT 0 = TEMP17>
1493 <FRAME '
\1aEMIT-POTENTIAL-STORE>
1499 <CALL '
\1aEMIT-POTENTIAL-STORE 3>
1501 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1502 <FRAME '
\1aKILL-STORES>
1509 <CALL '
\1aKILL-STORES 3 = TEMP17>
1513 <END
\1aCHECK-COUNT-STORED>
1516 <GFCN
\1aSETUP-PSAVES ("VALUE" <OR FALSE LINKVAR> XREF-INFO) XREF4>
1517 <TEMP CACHE5:VECTOR TEMP15 PSAVES18>
1519 <GVAL 'VARIABLE-CACHE = CACHE5>
1520 <SET TEMP15 %<> (TYPE FALSE)>
1524 <EMPUV? CACHE5 + MAPAP10>
1525 <NTHUV CACHE5 1 = TEMP15>
1526 <NTHUV TEMP15 10 = PSAVES18 (TYPE LIST)>
1527 <CONS XREF4 PSAVES18 = PSAVES18>
1528 <PUTUV TEMP15 10 PSAVES18 (TYPE LIST)>
1530 <RESTUV CACHE5 1 = CACHE5 (TYPE VECTOR)>
1535 <END
\1aSETUP-PSAVES>
1538 <GFCN
\1aLOOP-GEN ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR ATOM LIST>]>)>
1539 <MAKTUP VARS4:TUPLE TEMP12:VECTOR MVARS17:VECTOR VARLST18 TEMP23 = VARS4>
1541 <FRAME '
\1aCLEAR-STATUS>
1542 <CALL '
\1aCLEAR-STATUS 0>
1543 <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP12>
1547 <EMPUV? TEMP12 + MAPAP10>
1548 <SET MVARS17 TEMP12>
1549 <NTHUV MVARS17 1 = VARLST18>
1550 <TYPE? VARLST18 <TYPE-CODE ATOM> - PHRASE20>
1551 <FRAME '
\1aFIND-VAR>
1554 <CALL '
\1aFIND-VAR 1 = STACK>
1556 <LIST 2 = TEMP23 (TYPE LIST)>
1557 <PUTUV MVARS17 1 TEMP23>
1558 <DEAD MVARS17 TEMP23>
1561 <FRAME '
\1aFIND-VAR>
1562 <NTHL VARLST18 1 = STACK>
1563 <CALL '
\1aFIND-VAR 1 = TEMP23>
1564 <CONS TEMP23 () = TEMP23>
1565 <RESTL VARLST18 1 = VARLST18 (TYPE LIST)>
1566 <PUTREST TEMP23 VARLST18>
1568 <PUTUV MVARS17 1 TEMP23>
1569 <DEAD MVARS17 TEMP23>
1571 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1574 <FRAME '
\1aSETUP-LOOP-ACS>
1577 <CALL '
\1aSETUP-LOOP-ACS 1>
1578 <FRAME '
\1aSAVE-STATE>
1579 <CALL '
\1aSAVE-STATE 0 = TEMP12>
1580 <SETG 'LOOP-VARS TEMP12>
1582 <FRAME '
\1aCLEAR-STATUS>
1583 <CALL '
\1aCLEAR-STATUS 0>
1584 <RETURN 'LOOP-LABEL>
1588 <GFCN
\1aSETUP-LOOP-ACS ("VALUE" ATOM <TUPLE [REST LIST]>) VARS4>
1589 <TEMP TEMP17:VECTOR LVAR18 VAR19 TEMP23 VS39 TS40 RVAR36 NLVAR37 TEMP47 TEMP48>
1591 <GVAL 'VARIABLE-CACHE = TEMP17>
1595 <EMPUV? TEMP17 + MAPAP10>
1596 <NTHUV TEMP17 1 = LVAR18>
1597 <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
1598 <FRAME '
\1aFIND-INFO>
1601 <CALL '
\1aFIND-INFO 2 = TEMP23>
1602 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE21>
1604 <FRAME '
\1aISTORE-VAR>
1607 <CALL '
\1aISTORE-VAR 1>
1608 <FRAME '
\1aDEAD-VAR>
1611 <CALL '
\1aDEAD-VAR 1>
1613 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1616 <GVAL 'VARIABLE-CACHE = TEMP17>
1620 <EMPUV? TEMP17 + MAPAP30>
1621 <NTHUV TEMP17 1 = LVAR18>
1622 <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
1623 <NTHUV LVAR18 3 = TEMP23>
1624 <NTHUV LVAR18 2 = VS39>
1625 <NTHUV LVAR18 4 = TS40>
1626 <FRAME '
\1aFIND-INFO>
1629 <CALL '
\1aFIND-INFO 2 = RVAR36>
1630 <FRAME '
\1aCOPY-LINKVAR>
1632 <CALL '
\1aCOPY-LINKVAR 1 = NLVAR37>
1634 <EMPL? TEMP47 + BOOL43>
1635 <LOOP (TEMP47 VALUE)>
1637 <NTHL TEMP47 1 = TEMP48>
1638 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG46>
1639 <VEQUAL? TEMP48 'TYPE + TAG44>
1642 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1643 <EMPL? TEMP47 - TAG45>
1646 <SET TS40 'T (TYPE ATOM)>
1649 <EMPL? TEMP47 + BOOL49>
1650 <LOOP (TEMP47 VALUE)>
1652 <NTHL TEMP47 1 = TEMP48>
1653 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG52>
1654 <VEQUAL? TEMP48 'VALUE + TAG50>
1657 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1658 <EMPL? TEMP47 - TAG51>
1661 <SET VS39 'T (TYPE ATOM)>
1664 <EMPL? TEMP47 + PHRASE54>
1665 <LOOP (TEMP47 VALUE)>
1667 <NTHL TEMP47 1 = TEMP48>
1668 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG57>
1669 <VEQUAL? TEMP48 'LENGTH + TAG55>
1672 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1673 <EMPL? TEMP47 - TAG56>
1676 <SET TEMP23 'T (TYPE ATOM)>
1677 <SET TS40 'T (TYPE ATOM)>
1679 <TYPE? VS39 <TYPE-CODE FALSE> + BOOL60>
1680 <TYPE? TS40 <TYPE-CODE FALSE> + BOOL60>
1681 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE59>
1683 <FRAME '
\1aISTORE-VAR>
1685 <CALL '
\1aISTORE-VAR 1>
1688 <PUTUV NLVAR37 3 TEMP23>
1690 <PUTUV NLVAR37 4 TS40>
1692 <PUTUV NLVAR37 2 VS39>
1695 <NTHUV NLVAR37 7 = TEMP23>
1696 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE64>
1698 <EMPL? TEMP47 + TAG66>
1699 <LOOP (TEMP47 VALUE)>
1701 <NTHL TEMP47 1 = TEMP48>
1702 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG68>
1703 <VEQUAL? TEMP48 'TYPE + PHRASE64>
1706 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1707 <EMPL? TEMP47 - TAG67>
1709 <NTHUV LVAR18 7 = TEMP47>
1710 <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL69>
1712 <FRAME '
\1aBREAK-LINK>
1716 <CALL '
\1aBREAK-LINK 2>
1720 <NTHUV NLVAR37 8 = TEMP23>
1721 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL77>
1723 <EMPL? TEMP47 + TAG74>
1724 <LOOP (TEMP47 VALUE)>
1726 <NTHL TEMP47 1 = TEMP48>
1727 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG76>
1728 <VEQUAL? TEMP48 'LENGTH + BOOL77>
1731 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1732 <EMPL? TEMP47 - TAG75>
1735 <NTHUV LVAR18 8 = TEMP47>
1736 <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL77>
1738 <FRAME '
\1aBREAK-LINK>
1742 <CALL '
\1aBREAK-LINK 2>
1744 <NTHUV NLVAR37 9 = TEMP23>
1746 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE80>
1748 <EMPL? TEMP47 + TAG82>
1749 <LOOP (TEMP47 VALUE)>
1751 <NTHL TEMP47 1 = TEMP48>
1752 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG84>
1753 <VEQUAL? TEMP48 'TYPE + PHRASE80>
1756 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1757 <EMPL? TEMP47 - TAG83>
1761 <EMPL? TEMP47 + TAG85>
1762 <LOOP (TEMP47 VALUE)>
1764 <NTHL TEMP47 1 = TEMP48>
1765 <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG87>
1766 <VEQUAL? TEMP48 'LENGTH + PHRASE80>
1769 <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1770 <EMPL? TEMP47 - TAG86>
1772 <NTHUV LVAR18 9 = TEMP47>
1773 <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL88>
1775 <FRAME '
\1aBREAK-LINK>
1780 <CALL '
\1aBREAK-LINK 2>
1786 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1789 <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP17>
1794 <EMPUV? TEMP17 + MAPAP94>
1795 <NTHUV TEMP17 1 = LVAR18>
1796 <NTHL LVAR18 1 = VAR19>
1797 <FRAME '
\1aVARTBL-ASSIGNED?>
1799 <CALL '
\1aVARTBL-ASSIGNED? 1 = TEMP48>
1800 <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL152>
1802 <FRAME '
\1aFIND-CACHE-VAR>
1804 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP23>
1805 <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL111>
1806 <NTHUV TEMP23 7 = VS39>
1807 <TYPE? VS39 <TYPE-CODE FALSE> + BOOL107>
1811 <CALL '
\1aPROTECT 1>
1813 <NTHUV TEMP23 8 = VS39>
1814 <TYPE? VS39 <TYPE-CODE FALSE> + BOOL109>
1818 <CALL '
\1aPROTECT 1>
1820 <NTHUV TEMP23 9 = VS39>
1822 <TYPE? VS39 <TYPE-CODE FALSE> + BOOL111>
1826 <CALL '
\1aPROTECT 1>
1829 <EMPL? TEMP48 + BOOL113>
1830 <LOOP (TEMP48 VALUE)>
1832 <NTHL TEMP48 1 = VS39>
1833 <TYPE? VS39 <TYPE-CODE ATOM> - TAG116>
1834 <VEQUAL? VS39 'VALUE + TAG114>
1837 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1838 <EMPL? TEMP48 - TAG115>
1842 <FRAME '
\1aLOAD-VAR-APP>
1845 <CALL '
\1aLOAD-VAR-APP 2 = STACK>
1846 <CALL '
\1aPROTECT 1>
1849 <EMPL? TEMP48 + PHRASE121>
1850 <LOOP (TEMP48 VALUE)>
1852 <NTHL TEMP48 1 = VS39>
1853 <TYPE? VS39 <TYPE-CODE ATOM> - TAG125>
1854 <VEQUAL? VS39 'TYPE + TAG123>
1857 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1858 <EMPL? TEMP48 - TAG124>
1862 <EMPL? TEMP48 + PHRASE121>
1863 <LOOP (TEMP48 VALUE)>
1865 <NTHL TEMP48 1 = VS39>
1866 <TYPE? VS39 <TYPE-CODE ATOM> - TAG128>
1867 <VEQUAL? VS39 'LENGTH + TAG126>
1870 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1871 <EMPL? TEMP48 - TAG127>
1875 <FRAME '
\1aLOAD-VAR>
1880 <CALL '
\1aLOAD-VAR 4 = STACK>
1881 <CALL '
\1aPROTECT 1>
1885 <EMPL? TEMP48 + PHRASE131>
1886 <LOOP (TEMP48 VALUE)>
1888 <NTHL TEMP48 1 = VS39>
1889 <TYPE? VS39 <TYPE-CODE ATOM> - TAG134>
1890 <VEQUAL? VS39 'TYPE + TAG132>
1893 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1894 <EMPL? TEMP48 - TAG133>
1898 <FRAME '
\1aLOAD-VAR>
1903 <CALL '
\1aLOAD-VAR 4 = STACK>
1904 <CALL '
\1aPROTECT 1>
1908 <EMPL? TEMP48 + PHRASE137>
1909 <LOOP (TEMP48 VALUE)>
1911 <NTHL TEMP48 1 = VS39>
1912 <TYPE? VS39 <TYPE-CODE ATOM> - TAG140>
1913 <VEQUAL? VS39 'LENGTH + TAG138>
1916 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1917 <EMPL? TEMP48 - TAG139>
1921 <FRAME '
\1aLOAD-VAR>
1926 <CALL '
\1aLOAD-VAR 4 = STACK>
1927 <CALL '
\1aPROTECT 1>
1929 <FRAME '
\1aFIND-CACHE-VAR>
1932 <CALL '
\1aFIND-CACHE-VAR 1 = TEMP23>
1933 <PUTUV TEMP23 10 () (TYPE LIST)>
1935 <EMPL? TEMP48 + BOOL144>
1936 <LOOP (TEMP48 VALUE)>
1938 <NTHL TEMP48 1 = VS39>
1939 <TYPE? VS39 <TYPE-CODE ATOM> - TAG147>
1940 <VEQUAL? VS39 'TYPE + TAG145>
1943 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1944 <EMPL? TEMP48 - TAG146>
1947 <PUTUV TEMP23 4 %<>>
1950 <EMPL? TEMP48 + BOOL148>
1951 <LOOP (TEMP48 VALUE)>
1953 <NTHL TEMP48 1 = VS39>
1954 <TYPE? VS39 <TYPE-CODE ATOM> - TAG151>
1955 <VEQUAL? VS39 'VALUE + TAG149>
1958 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1959 <EMPL? TEMP48 - TAG150>
1962 <PUTUV TEMP23 2 %<>>
1966 <EMPL? TEMP48 + BOOL152>
1967 <LOOP (TEMP48 VALUE)>
1969 <NTHL TEMP48 1 = VS39>
1970 <TYPE? VS39 <TYPE-CODE ATOM> - TAG155>
1971 <VEQUAL? VS39 'LENGTH + TAG153>
1974 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1975 <EMPL? TEMP48 - TAG154>
1978 <PUTUV TEMP23 3 %<>>
1981 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1985 <END
\1aSETUP-LOOP-ACS>
1988 <GFCN
\1aFIND-INFO ("VALUE" <OR FALSE <LIST ANY>> VARTBL <TUPLE [REST LIST]>) VAR4 VARS5>
1989 <TEMP TEMP15 TEMP12:VECTOR RVAR17:LIST>
1991 <SET TEMP15 %<> (TYPE FALSE)>
1992 <CHTYPE VARS5 <TYPE-CODE VECTOR> = TEMP12>
1997 <EMPUV? TEMP12 + MAPAP10>
1998 <NTHUV TEMP12 1 = RVAR17>
1999 <NTHL RVAR17 1 = TEMP15>
2000 <EQUAL? TEMP15 VAR4 + TAG20>
2002 <SET TEMP15 %<> (TYPE FALSE)>
2008 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
2016 <GFCN
\1aRESTORE-LOOP-STATE ("VALUE" ATOM AC-STATE) LSTATE4>
2017 <TEMP TEMP17 LVAR18 VAR19 LVAR120>
2019 <FRAME '
\1aSAVE-STATE>
2020 <CALL '
\1aSAVE-STATE 0 = TEMP17>
2024 <EMPUV? TEMP17 + MAPAP9>
2025 <NTHUV TEMP17 1 = LVAR18>
2026 <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
2027 <FRAME '
\1aFIND-CACHE-VAR>
2030 <CALL '
\1aFIND-CACHE-VAR 2 = LVAR120>
2031 <TYPE? LVAR120 <TYPE-CODE FALSE> + PHRASE22>
2032 <FRAME '
\1aPROTECT-MATCHES>
2037 <CALL '
\1aPROTECT-MATCHES 2>
2040 <FRAME '
\1aISTORE-VAR>
2045 <CALL '
\1aISTORE-VAR 3>
2046 <FRAME '
\1aDEAD-VAR>
2049 <CALL '
\1aDEAD-VAR 1>
2051 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2054 <SET TEMP17 LSTATE4 (TYPE VECTOR)>
2058 <EMPUV? TEMP17 + MAPAP32>
2059 <NTHUV TEMP17 1 = LVAR120>
2060 <NTHUV LVAR120 1 = LVAR18 (TYPE VARTBL)>
2061 <NTHUV LVAR120 6 = VAR19>
2062 <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL39>
2064 <FRAME '
\1aLP-LOAD-VAR>
2070 <CALL '
\1aLP-LOAD-VAR 4 = STACK>
2071 <CALL '
\1aPROTECT 1>
2073 <NTHUV LVAR120 7 = VAR19>
2074 <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL42>
2076 <FRAME '
\1aLP-LOAD-VAR>
2082 <CALL '
\1aLP-LOAD-VAR 4 = STACK>
2083 <CALL '
\1aPROTECT 1>
2085 <NTHUV LVAR120 9 = VAR19>
2086 <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL45>
2088 <FRAME '
\1aLP-LOAD-VAR>
2094 <CALL '
\1aLP-LOAD-VAR 4 = STACK>
2095 <CALL '
\1aPROTECT 1>
2097 <NTHUV LVAR120 8 = VAR19>
2099 <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL48>
2101 <FRAME '
\1aLP-LOAD-VAR>
2108 <CALL '
\1aLP-LOAD-VAR 4 = STACK>
2109 <CALL '
\1aPROTECT 1>
2111 <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2114 <FRAME '
\1aSET-AC-STATE>
2117 <CALL '
\1aSET-AC-STATE 1 = TEMP17>
2120 <END
\1aRESTORE-LOOP-STATE>
2123 <GFCN
\1aPROTECT-MATCHES ("VALUE" ANY LINKVAR LINKVAR) LVAR14 LVAR25>
2124 <TEMP VAR7:VARTBL TEMP9 VAC6>
2126 <NTHUV LVAR14 1 = VAR7 (TYPE VARTBL)>
2127 <NTHUV LVAR25 6 = TEMP9>
2128 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
2132 <NTHUV LVAR25 7 = TEMP9>
2133 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL10>
2137 <NTHUV LVAR25 8 = TEMP9>
2138 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL11>
2142 <NTHUV LVAR25 9 = TEMP9>
2143 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL12>
2148 <NTHUV LVAR14 7 = VAC6>
2149 <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE20>
2150 <NTHUV LVAR25 7 = TEMP9>
2151 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
2153 <NTHUV LVAR25 9 = TEMP9>
2154 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
2156 <FRAME '
\1aISTORE-VAR>
2160 <CALL '
\1aISTORE-VAR 3>
2161 <FRAME '
\1aBREAK-LINK>
2165 <CALL '
\1aBREAK-LINK 2>
2168 <NTHUV LVAR25 7 = TEMP9>
2169 <EQUAL? TEMP9 VAC6 - PHRASE20>
2174 <CALL '
\1aPROTECT 1>
2176 <NTHUV LVAR14 6 = VAC6>
2177 <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE28>
2178 <NTHUV LVAR25 6 = TEMP9>
2179 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE25>
2181 <FRAME '
\1aISTORE-VAR>
2185 <CALL '
\1aISTORE-VAR 3>
2186 <FRAME '
\1aBREAK-LINK>
2190 <CALL '
\1aBREAK-LINK 2>
2193 <NTHUV LVAR25 6 = TEMP9 (TYPE AC)>
2194 <VEQUAL? TEMP9 VAC6 - PHRASE28>
2199 <CALL '
\1aPROTECT 1>
2201 <NTHUV LVAR14 9 = VAC6>
2202 <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE37>
2203 <NTHUV LVAR25 9 = TEMP9>
2204 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2206 <NTHUV LVAR25 8 = TEMP9>
2207 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2209 <NTHUV LVAR25 7 = TEMP9>
2210 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2212 <FRAME '
\1aISTORE-VAR>
2216 <CALL '
\1aISTORE-VAR 3>
2217 <FRAME '
\1aBREAK-LINK>
2221 <CALL '
\1aBREAK-LINK 2>
2224 <NTHUV LVAR25 9 = TEMP9>
2225 <EQUAL? TEMP9 VAC6 - PHRASE37>
2230 <CALL '
\1aPROTECT 1>
2232 <NTHUV LVAR14 8 = VAC6>
2234 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE47>
2235 <NTHUV LVAR25 8 = TEMP9>
2236 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
2238 <NTHUV LVAR25 9 = TEMP9>
2239 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
2241 <FRAME '
\1aISTORE-VAR>
2246 <CALL '
\1aISTORE-VAR 3>
2247 <FRAME '
\1aBREAK-LINK>
2252 <CALL '
\1aBREAK-LINK 2 = TEMP9>
2256 <NTHUV LVAR25 8 = TEMP9>
2258 <EQUAL? TEMP9 VAC6 + TAG48>
2265 <CALL '
\1aPROTECT 1 = TEMP9>
2269 <END
\1aPROTECT-MATCHES>
2271 "THE STATUS INFORMATION THAT IS CURRENTLY-GENERATED IS AN ATOM
2272 EITHER NORMAL, UNCONDITIONAL-BRANCH, LOOP-LABEL"
2275 <GFCN
\1aGEN-LABEL ("VALUE" ANY ATOM ATOM) LABEL4 STATUS5>
2276 <TEMP TEMP13 TEMP14 PATCH7>
2278 <SET TEMP13 [TCOMPERR] (TYPE VECTOR)>
2279 <LOOP (LABEL4 VALUE) (TEMP13 LENGTH VALUE)>
2281 <NTHUV TEMP13 1 = TEMP14>
2282 <VEQUAL? TEMP14 LABEL4 + TAG10>
2284 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2285 <EMPUV? TEMP13 - TAG11>
2288 <FRAME '
\1aEMIT-LABEL>
2292 <CALL '
\1aEMIT-LABEL 2>
2293 <SET TEMP14 %<> (TYPE FALSE)>
2294 <GVAL 'ALL-ACS = TEMP13>
2298 <EMPUV? TEMP13 + COND41>
2299 <FRAME '
\1aCLEAR-VARS-FROM-AC>
2300 <NTHUV TEMP13 1 = STACK>
2301 <CALL '
\1aCLEAR-VARS-FROM-AC 1 = TEMP14>
2302 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2305 <GVAL 'ICALL-LABELS = TEMP14>
2306 <EMPL? TEMP14 + MAP29>
2307 <LOOP (LABEL4 VALUE) (TEMP14 VALUE)>
2309 <NTHL TEMP14 1 = TEMP13>
2310 <VEQUAL? TEMP13 LABEL4 + TAG25>
2312 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2313 <EMPL? TEMP14 - TAG26>
2316 <FRAME '
\1aPOP-MODEL>
2317 <CALL '
\1aPOP-MODEL 0>
2318 <GVAL 'ICALL-LEVEL = TEMP14>
2319 <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
2320 <SETG 'ICALL-LEVEL TEMP14>
2322 <GVAL 'ALL-ACS = TEMP13>
2326 <EMPUV? TEMP13 + MAP29>
2327 <FRAME '
\1aCLEAR-VARS-FROM-AC>
2328 <NTHUV TEMP13 1 = STACK>
2329 <CALL '
\1aCLEAR-VARS-FROM-AC 1>
2330 <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2333 <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH + BOOL35>
2334 <FRAME '
\1aADD-PATCH>
2336 <CALL '
\1aADD-PATCH 1 = PATCH7>
2338 <VEQUAL? STATUS5 'LOOP-LABEL - PHRASE38>
2339 <FRAME '
\1aEMIT-LABEL>
2342 <GVAL 'LOOP-VARS = STACK>
2343 <CALL '
\1aEMIT-LABEL 2 = TEMP14>
2346 <FRAME '
\1aEMIT-LABEL>
2350 <CALL '
\1aEMIT-LABEL 2 = TEMP14>
2352 <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH - PHRASE42>
2354 <FRAME '
\1aPROCESS-LABEL-MERGE>
2359 <CALL '
\1aPROCESS-LABEL-MERGE 3 = TEMP14>
2363 <FRAME '
\1aPROCESS-LABEL-MERGE>
2369 <CALL '
\1aPROCESS-LABEL-MERGE 3 = TEMP14>
2376 <GFCN
\1aGEN-BRANCH ("VALUE" ANY FIX <OR ATOM SPEC-LABEL> ANY "OPTIONAL" ANY BOOLEAN ANY) INST8 LABEL9 STATUS?10 ACNUM11 FLONG?12 NO-KILL13>
2377 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6 OPT7>
2385 <TEMP LLEN17 CCOUNT18:FIX XREF14 LREF15:LABEL-REF LSTATE19>
2387 <GVAL 'LAST-INST-LENGTH = LLEN17>
2388 <GVAL 'CODE-COUNT = CCOUNT18>
2389 <FRAME '
\1aEMIT-BRANCH>
2399 <CALL '
\1aEMIT-BRANCH 6 = XREF14>
2400 <TYPE? LABEL9 <TYPE-CODE SPEC-LABEL> - TAG24>
2402 <RETURN 'SPEC-LABEL>
2404 <NTHUV XREF14 1 = LREF15 (TYPE LABEL-REF)>
2405 <NTHUV LREF15 5 = LSTATE19>
2406 <TYPE? LSTATE19 <TYPE-CODE FALSE> + PHRASE25>
2407 <FRAME '
\1aSTART-CODE-INSERT>
2408 <CALL '
\1aSTART-CODE-INSERT 0>
2409 <FRAME '
\1aRESTORE-LOOP-STATE>
2412 <CALL '
\1aRESTORE-LOOP-STATE 1>
2413 <FRAME '
\1aEND-CODE-INSERT>
2414 <CALL '
\1aEND-CODE-INSERT 0 = LSTATE19>
2415 <FRAME '
\1aPRE-INSERT>
2424 <CALL '
\1aPRE-INSERT 4 = LSTATE19>
2425 <PUTUV XREF14 4 LSTATE19>
2430 <GVAL 'OUTST-LABEL-TABLE = LLEN17>
2431 <EMPUV? LLEN17 + TAG32>
2432 <LOOP (LREF15 VALUE) (LLEN17 LENGTH VALUE)>
2434 <NTHUV LLEN17 1 = LSTATE19>
2435 <VEQUAL? LSTATE19 LREF15 + PHRASE31>
2437 <RESTUV LLEN17 1 = LLEN17 (TYPE VECTOR)>
2438 <EMPUV? LLEN17 - TAG33>
2441 <PUSH "JUMPING BACK TO A NON-LOOP LABEL">
2444 <CALL '
\1aERROR 2 = LLEN17>
2448 <TYPE? NO-KILL13 <TYPE-CODE FALSE> - PHRASE40>
2450 <FRAME '
\1aSET-DEATH>
2451 <GEN-LVAL 'CODPTR = STACK>
2453 <CALL '
\1aSET-DEATH 2>
2455 <FRAME '
\1aSAVE-XREF-AC-INFO>
2457 <FRAME '
\1aSAVE-STATE>
2458 <CALL '
\1aSAVE-STATE 0 = STACK>
2459 <FRAME '
\1aSAVE-LOAD-STATE>
2460 <CALL '
\1aSAVE-LOAD-STATE 0 = STACK>
2461 <CALL '
\1aSAVE-XREF-AC-INFO 3>
2462 <FRAME '
\1aUSE-ALL-ACS>
2463 <CALL '
\1aUSE-ALL-ACS 0>
2464 <FRAME '
\1aSETUP-PSAVES>
2467 <CALL '
\1aSETUP-PSAVES 1 = LLEN17>
2473 <GFCN
\1aLP-LOAD-VAR ("VALUE" ANY VARTBL ATOM BOOLEAN AC) VAR4 TYP5 MUNG6 VAC7>
2476 <FRAME '
\1aFIND-CACHE-VAR>
2478 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR9>
2479 <TYPE? LVAR9 <TYPE-CODE FALSE> + BOOL18>
2480 <VEQUAL? TYP5 'TYPE - BOOL14>
2481 <NTHUV LVAR9 7 = TEMP15>
2482 <EQUAL? TEMP15 VAC7 + PHRASE22>
2485 <VEQUAL? TYP5 'VALUE - BOOL16>
2486 <NTHUV LVAR9 6 = TEMP15>
2487 <EQUAL? TEMP15 VAC7 + PHRASE22>
2490 <VEQUAL? TYP5 'COUNT - BOOL17>
2491 <NTHUV LVAR9 8 = TEMP15>
2492 <EQUAL? TEMP15 VAC7 + PHRASE22>
2495 <VEQUAL? TYP5 'TYPE-WORD - BOOL18>
2496 <NTHUV LVAR9 9 = TEMP15>
2498 <EQUAL? TEMP15 VAC7 + PHRASE22>
2501 <FRAME '
\1aALL-DEAD?>
2503 <CALL '
\1aALL-DEAD? 1 = TEMP15>
2504 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE22>
2506 <FRAME '
\1aFREE-AC?>
2507 <CALL '
\1aFREE-AC? 0 = LVAR9>
2508 <TYPE? LVAR9 <TYPE-CODE FALSE> + PHRASE22>
2509 <FRAME '
\1aEMIT-EXCH>
2512 <CALL '
\1aEMIT-EXCH 2>
2517 <CALL '
\1aEXCH-AC 2>
2519 <FRAME '
\1aLOAD-VAR>
2528 <CALL '
\1aLOAD-VAR 4 = TEMP15>
2531 <END
\1aLP-LOAD-VAR>