6 <USE "NEWSTRUC" "COMPDEC" "ADVMESS" "CHKDCL" "NPRINT" "LIST-HACKS" "MIMGEN">
8 '<DEFMAC DEBUG ("ARGS" X) <FORM PROG () !.X>>
11 <GFCN
\1aPEEP ("VALUE" ATOM ANY) L4>
14 <FRAME '
\1aPEEP-PASS1>
17 <CALL '
\1aPEEP-PASS1 1>
21 <GFCN
\1aPEEP-PASS1 ("VALUE" ANY LIST) L4>
22 <TEMP (EQV6:LIST ()) TEMP3:LBIND TEMP12 LBP10:LIST RETS11:LIST L21:LIST IT22 EQVP24 TEMP35 LN23 TEMP44 BF17 TEMP76 LBL93:ATOM M67 I69:FORM TEMP141>
24 <GETS 'BIND = TEMP3 (TYPE LBIND)>
25 <GEN-LVAL 'OUTCHAN = TEMP12>
26 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP12>
32 <SET LBP10 () (TYPE LIST)>
33 <SET RETS11 () (TYPE LIST)>
34 <SET EQV6 () (TYPE LIST)>
35 <SET TEMP12 %<> (TYPE FALSE)>
40 <EMPL? L21 + EXIT19 (TYPE LIST)>
42 <TYPE? IT22 <TYPE-CODE ATOM> - PHRASE29>
44 <EMPL? EQVP24 + TAG32>
45 <LOOP (IT22 VALUE) (EQVP24 VALUE)>
47 <NTHL EQVP24 1 = TEMP35>
48 <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG34>
49 <VEQUAL? TEMP35 IT22 + BOOL30>
52 <RESTL EQVP24 1 = EQVP24 (TYPE LIST)>
53 <EMPL? EQVP24 - TAG33>
55 <CONS () EQV6 = TEMP35>
57 <CONS IT22 TEMP35 = EQV6>
61 <RESTL L21 1 = LN23 (TYPE LIST)>
62 <CONS () LBP10 = TEMP35>
64 <CONS L21 TEMP35 = TEMP35>
65 <CONS IT22 TEMP35 = LBP10>
70 <EMPL? LN23 + EXIT36 (TYPE LIST)>
72 <TYPE? IT22 <TYPE-CODE ATOM> - EXIT36>
74 <SET TEMP12 'T (TYPE ATOM)>
75 <NTHL LN23 1 = STACK (TYPE ATOM)>
76 <SET TEMP44 1 (TYPE FIX)>
77 <RESTL EQVP24 1 = TEMP35 (TYPE LIST)>
78 <NTHL TEMP35 1 = IT22>
81 <AND TEMP35 7 = TEMP35>
82 <VEQUAL? TEMP35 1 + TAG46>
84 <LOOP (IT22 TYPE VALUE LENGTH) (TEMP44 VALUE)>
90 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
93 <LIST TEMP44 = TEMP35 (TYPE LIST)>
99 <VEQUAL? TEMP44 0 + TAG48>
101 <CONS TEMP35 IT22 = IT22 (TYPE LIST)>
103 <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
109 <RESTL EQVP24 1 = IT22 (TYPE LIST)>
112 <RESTL LN23 1 = LN23 (TYPE LIST)>
119 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE54>
120 <EMPL? IT22 + PHRASE54 (TYPE FORM)>
122 <EQUAL? IT22 '`END + EXIT19>
125 <RESTL L21 1 = L21 (TYPE LIST)>
128 <SET EQVP24 () (TYPE LIST)>
129 <SET TEMP35 () (TYPE LIST)>
130 <SET IT22 L4 (TYPE LIST)>
134 <EMPL? IT22 + MAPAP60>
136 <NTHL L21 1 = TEMP44>
137 <TYPE? TEMP44 <TYPE-CODE ATOM> - PHRASE73>
138 <SET BF17 %<> (TYPE FALSE)>
141 <NTHL TEMP44 1 = TEMP76>
142 <EQUAL? TEMP76 '`END + MAPAP60>
144 <NTHL TEMP44 1 = TEMP76>
145 <EQUAL? TEMP76 '`OPT-DISPATCH + BOOL79>
147 <NTHL TEMP44 1 = TEMP76>
148 <EQUAL? TEMP76 '`DISPATCH - PHRASE78>
151 <SET BF17 %<> (TYPE FALSE)>
152 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
153 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
154 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
155 <CHTYPE TEMP76 <TYPE-CODE LIST> = TEMP76>
159 <EMPL? TEMP76 + MAPAP84>
162 <NTHL LN23 1 = STACK (TYPE ATOM)>
164 <CALL '
\1aFIND-EQV 2 = LBL93>
167 <FRAME '
\1aBUILD-LABEL-TABLE>
172 <CALL '
\1aBUILD-LABEL-TABLE 3>
173 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
176 <RESTL TEMP44 1 = LN23 (TYPE LIST)>
178 <RESTL LN23 1 = LN23 (TYPE LIST)>
179 <RESTL LN23 1 = L21 (TYPE LIST)>
181 <CHTYPE L21 <TYPE-CODE LIST> = L21>
185 <EMPL? L21 + PHRASE172>
187 <CONS LN23 () = LN23 (TYPE LIST)>
188 <EMPL? EQVP24 - TAG101>
189 <SET EQVP24 LN23 (TYPE LIST)>
192 <PUTREST TEMP35 LN23>
195 <SET TEMP35 LN23 (TYPE LIST)>
197 <RESTL L21 1 = L21 (TYPE LIST)>
201 <CHTYPE M67 <TYPE-CODE LIST> = M67>
205 <TYPE? LN23 <TYPE-CODE ATOM> - TAG108>
206 <VEQUAL? LN23 '+ + BOOL104>
209 <RESTL M67 1 = M67 (TYPE LIST)>
211 <CHTYPE TEMP44 <TYPE-CODE LIST> = TEMP76>
212 <LOOP (TEMP76 VALUE)>
214 <NTHL TEMP76 1 = LN23>
215 <TYPE? LN23 <TYPE-CODE ATOM> - TAG112>
216 <VEQUAL? LN23 '- + TAG109>
219 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
220 <EMPL? TEMP76 - TAG111>
227 <NTHL TEMP44 1 = TEMP76>
228 <EQUAL? TEMP76 '`NTHR - PHRASE159>
233 <RESTL BF17 1 = TEMP76 (TYPE LIST)>
234 <EMPL? TEMP76 + TAG115>
240 <TYPE? BF17 <TYPE-CODE LIST> - PHRASE159>
241 <NTHL BF17 1 = TEMP76>
242 <EQUAL? TEMP76 '`BRANCH-FALSE - PHRASE159>
244 <RESTL BF17 1 = M67 (TYPE LIST)>
249 <RESTL M67 1 = TEMP76 (TYPE LIST)>
250 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
253 <CALL '
\1aFIND-EQV 2 = LBL93>
255 <EMPL? LN23 + TAG118>
256 <LOOP (LBL93 VALUE) (LN23 VALUE)>
258 <NTHL LN23 1 = TEMP76>
259 <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG121>
260 <VEQUAL? TEMP76 LBL93 + TAG119>
263 <RESTL LN23 1 = LN23 (TYPE LIST)>
264 <EMPL? LN23 - TAG120>
266 <SET LN23 %<> (TYPE FALSE)>
269 <RESTL M67 1 = TEMP76 (TYPE LIST)>
270 <PUTL TEMP76 1 LBL93>
274 <VEQUAL? LBL93 '`COMPERR + BOOL124>
275 <VEQUAL? LBL93 '`UNWCONT - PHRASE123>
277 <SET BF17 %<> (TYPE FALSE)>
280 <FRAME '
\1aCOMPILE-LOSSAGE>
285 <CALL '
\1aCOMPILE-LOSSAGE 4>
290 <CALL '
\1aNEXTINS 1 = TEMP76>
291 <NTHL TEMP76 1 = I69 (TYPE FORM)>
293 <NTHL I69 1 = TEMP76>
294 <EQUAL? TEMP76 '`JUMP - PHRASE129>
296 <SET BF17 %<> (TYPE FALSE)>
298 <RESTL I69 1 = TEMP76 (TYPE LIST)>
300 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
301 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
304 <CALL '
\1aFIND-EQV 2 = LBL93>
305 <RESTL M67 1 = TEMP76 (TYPE LIST)>
307 <PUTL TEMP76 1 LBL93>
309 <SET TEMP12 'T (TYPE ATOM)>
310 <FRAME '
\1aBUILD-LABEL-TABLE>
315 <CALL '
\1aBUILD-LABEL-TABLE 3>
316 <CONS LBL93 () = TEMP76 (TYPE LIST)>
318 <EMPL? EQVP24 - TAG134>
319 <SET EQVP24 TEMP76 (TYPE LIST)>
322 <PUTREST TEMP35 TEMP76>
325 <SET TEMP35 TEMP76 (TYPE LIST)>
329 <NTHL TEMP44 1 = TEMP76>
330 <EQUAL? TEMP76 '`JUMP - PHRASE136>
332 <NTHL I69 1 = TEMP76>
333 <SET LN23 [`RETURN `MRETURN `RTUPLE `AGAIN] (TYPE VECTOR)>
334 <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE136>
335 <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
337 <NTHUV LN23 1 = TEMP141>
338 <VEQUAL? TEMP141 TEMP76 + TAG138>
340 <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
341 <EMPUV? LN23 - TAG139>
345 <SET TEMP76 0 (TYPE FIX)>
348 <LOOP (LN23 VALUE) (TEMP76 VALUE)>
351 <EMPL? LN23 + TAG142>
352 <NTHL LN23 1 = STACK>
353 <RESTL LN23 1 = LN23 (TYPE LIST)>
354 <ADD TEMP76 1 = TEMP76 (TYPE FIX)>
357 <CALL '
\1aFORM TEMP76 = TEMP76>
360 <SET TEMP12 'T (TYPE ATOM)>
361 <SET BF17 %<> (TYPE FALSE)>
364 <NTHL TEMP44 1 = TEMP76>
366 <EQUAL? TEMP76 '`JUMP + PHRASE146>
368 <RESTL L21 1 = LN23 (TYPE LIST)>
369 <EMPL? LN23 + PHRASE146 (TYPE LIST)>
370 <NTHL LN23 1 = TEMP76>
371 <TYPE? TEMP76 <TYPE-CODE ATOM> + PHRASE146>
373 <NTHL LN23 1 = I69 (TYPE FORM)>
374 <NTHL I69 1 = TEMP76>
375 <EQUAL? TEMP76 '`JUMP - PHRASE146>
377 <RESTL LN23 1 = TEMP44 (TYPE LIST)>
378 <EMPL? TEMP44 + PHRASE146 (TYPE LIST)>
379 <NTHL TEMP44 1 = TEMP76>
380 <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE146>
383 <NTHL TEMP44 1 = STACK (TYPE ATOM)>
385 <CALL '
\1aFIND-EQV 2 = TEMP76>
386 <VEQUAL? TEMP76 LBL93 - PHRASE146>
388 <TYPE? BF17 <TYPE-CODE FALSE> - PHRASE146>
389 <NTHL M67 1 = TEMP76>
390 <EQUAL? TEMP76 '+ - PHRASE150>
392 <SET TEMP76 '- (TYPE ATOM)>
395 <SET TEMP76 '+ (TYPE ATOM)>
400 <RESTL I69 1 = TEMP76 (TYPE LIST)>
402 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
403 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
406 <CALL '
\1aFIND-EQV 2 = LBL93>
407 <RESTL M67 1 = TEMP76 (TYPE LIST)>
409 <PUTL TEMP76 1 LBL93>
412 <NTHL TEMP44 1 = STACK (TYPE ATOM)>
414 <CALL '
\1aFIND-EQV 2 = TEMP76>
417 <FRAME '
\1aPATCH-LABEL-TABLE>
419 <NTHL LN23 1 = STACK (TYPE ATOM)>
421 <CALL '
\1aPATCH-LABEL-TABLE 3>
422 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
424 <PUTREST LN23 TEMP76>
426 <SET TEMP12 'T (TYPE ATOM)>
427 <FRAME '
\1aBUILD-LABEL-TABLE>
432 <CALL '
\1aBUILD-LABEL-TABLE 3>
433 <CONS LBL93 () = TEMP76 (TYPE LIST)>
435 <EMPL? EQVP24 - TAG157>
436 <SET EQVP24 TEMP76 (TYPE LIST)>
439 <PUTREST TEMP35 TEMP76>
442 <SET TEMP35 TEMP76 (TYPE LIST)>
446 <EQUAL? BF17 M67 + PHRASE161>
448 <SET BF17 %<> (TYPE FALSE)>
450 <FRAME '
\1aBUILD-LABEL-TABLE>
455 <CALL '
\1aBUILD-LABEL-TABLE 3>
456 <CONS LBL93 () = TEMP76 (TYPE LIST)>
458 <EMPL? EQVP24 - TAG164>
459 <SET EQVP24 TEMP76 (TYPE LIST)>
462 <PUTREST TEMP35 TEMP76>
465 <SET TEMP35 TEMP76 (TYPE LIST)>
469 <NTHL TEMP44 1 = TEMP76>
470 <EQUAL? TEMP76 '`ICALL - PHRASE166>
473 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
474 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
477 <CALL '
\1aFIND-EQV 2 = LBL93>
478 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
480 <PUTL TEMP76 1 LBL93>
482 <SET BF17 %<> (TYPE FALSE)>
483 <FRAME '
\1aBUILD-LABEL-TABLE>
488 <CALL '
\1aBUILD-LABEL-TABLE 3>
489 <CONS LBL93 () = TEMP76 (TYPE LIST)>
491 <EMPL? EQVP24 - TAG170>
492 <SET EQVP24 TEMP76 (TYPE LIST)>
495 <PUTREST TEMP35 TEMP76>
498 <SET TEMP35 TEMP76 (TYPE LIST)>
502 <SET BF17 %<> (TYPE FALSE)>
504 <RESTL IT22 1 = IT22 (TYPE LIST)>
512 <EMPL? EQV6 + EXIT174 (TYPE LIST)>
513 <NTHL EQV6 1 = TEMP76>
514 <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE186>
516 <NTHL EQV6 1 = TEMP76 (TYPE ATOM)>
518 <EMPL? LN23 + TAG188>
519 <LOOP (TEMP76 VALUE) (LN23 VALUE)>
521 <NTHL LN23 1 = TEMP141>
522 <TYPE? TEMP141 <TYPE-CODE ATOM> - TAG190>
523 <VEQUAL? TEMP141 TEMP76 + PHRASE186>
526 <RESTL LN23 1 = LN23 (TYPE LIST)>
527 <EMPL? LN23 - TAG189>
529 <RESTL EQV6 1 = LN23 (TYPE LIST)>
532 <SET TEMP12 'T (TYPE ATOM)>
536 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE191>
538 <EQUAL? LN23 '`END + EXIT174>
541 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE193>
543 <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
544 <EMPL? TEMP35 + TAG197>
545 <LOOP (TEMP35 VALUE)>
547 <NTHL TEMP35 1 = LN23>
548 <TYPE? LN23 <TYPE-CODE ATOM> - TAG199>
549 <VEQUAL? LN23 '+ + TAG201>
552 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
553 <EMPL? TEMP35 - TAG198>
556 <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
557 <EMPL? TEMP35 + TAG200>
558 <LOOP (TEMP35 VALUE)>
560 <NTHL TEMP35 1 = LN23>
561 <TYPE? LN23 <TYPE-CODE ATOM> - TAG203>
562 <VEQUAL? LN23 '- + TAG201>
565 <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
566 <EMPL? TEMP35 - TAG202>
568 <SET TEMP35 %<> (TYPE FALSE)>
570 <VEQUAL? TEMP35 0 + PHRASE193>
572 <SET TEMP76 1 (TYPE FIX)>
573 <LOOP (LN23 VALUE) (TEMP76 VALUE)>
575 <EMPL? LN23 + PHRASE193>
576 <SUB TEMP76 1 = TEMP76 (TYPE FIX)>
577 <LESS? TEMP76 0 + TAG206>
578 <RESTL LN23 1 = LN23 (TYPE LIST)>
581 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
582 <NTHL TEMP76 1 = TEMP76>
583 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
586 <EQUAL? TEMP76 LN23 - PHRASE193>
588 <NTHL IT22 1 = TEMP35>
589 <EQUAL? TEMP35 '`SYSOP + PHRASE193>
590 <EQUAL? TEMP35 '`SCALL + PHRASE193>
592 <FRAME '
\1aREMOVE-LABEL>
594 <RESTL EQV6 1 = LN23 (TYPE LIST)>
595 <NTHL LN23 1 = STACK (TYPE ATOM)>
598 <CALL '
\1aREMOVE-LABEL 3>
599 <RESTL EQV6 1 = LN23 (TYPE LIST)>
602 <SET TEMP12 'T (TYPE ATOM)>
605 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE208>
607 <EQUAL? LN23 '`SET - PHRASE208>
609 <RESTL EQV6 1 = LN23 (TYPE LIST)>
610 <EMPL? LN23 + PHRASE208 (TYPE LIST)>
612 <RESTL EQV6 1 = LN23 (TYPE LIST)>
614 <TYPE? LN23 <TYPE-CODE FORM> - PHRASE208>
616 <RESTL EQV6 1 = LN23 (TYPE LIST)>
617 <NTHL LN23 1 = LN23 (TYPE FORM)>
619 <EQUAL? LN23 '`RETURN - PHRASE208>
621 <RESTL IT22 1 = LN23 (TYPE LIST)>
623 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
624 <NTHL TEMP76 1 = TEMP76 (TYPE FORM)>
625 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
626 <NTHL TEMP76 1 = TEMP76>
627 <EQUAL? LN23 TEMP76 - PHRASE208>
629 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
630 <NTHL TEMP76 1 = TEMP76 (TYPE FORM)>
631 <RESTL IT22 1 = LN23 (TYPE LIST)>
633 <RESTL LN23 1 = LN23 (TYPE LIST)>
635 <RESTL TEMP76 1 = TEMP141 (TYPE LIST)>
637 <PUTL TEMP141 1 LN23>
639 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
644 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE210>
645 <NTHL IT22 1 = TEMP76>
646 <EQUAL? TEMP76 '`RETURN - BOOL213>
648 <CONS EQV6 RETS11 = RETS11>
651 <NTHL IT22 1 = TEMP76>
652 <SET LN23 [`JUMP `RTUPLE `MRETURN `AGAIN] (TYPE VECTOR)>
653 <TYPE? TEMP76 <TYPE-CODE ATOM> - PHRASE210>
654 <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
656 <NTHUV LN23 1 = TEMP141>
657 <VEQUAL? TEMP141 TEMP76 + TAG214>
659 <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
660 <EMPUV? LN23 - TAG215>
664 <SET TEMP76 1 (TYPE FIX)>
665 <LOOP (LN23 VALUE) (TEMP76 VALUE)>
667 <EMPL? LN23 + PHRASE210>
668 <SUB TEMP76 1 = TEMP76 (TYPE FIX)>
669 <LESS? TEMP76 0 + TAG219>
670 <RESTL LN23 1 = LN23 (TYPE LIST)>
673 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
674 <NTHL TEMP76 1 = IT22>
676 <TYPE? IT22 <TYPE-CODE ATOM> + PHRASE210>
677 <TYPE? IT22 <TYPE-CODE FORM> - TAG221>
678 <EMPL? IT22 + TAG221>
679 <NTHL IT22 1 = TEMP76>
680 <SET LN23 [`END `DEAD `ENDIF] (TYPE VECTOR)>
681 <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG221>
682 <LOOP (TEMP76 VALUE) (LN23 LENGTH VALUE)>
684 <NTHUV LN23 1 = TEMP141>
685 <VEQUAL? TEMP141 TEMP76 + PHRASE210>
687 <RESTUV LN23 1 = LN23 (TYPE VECTOR)>
688 <EMPUV? LN23 - TAG222>
690 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
691 <RESTL TEMP76 1 = LN23 (TYPE LIST)>
696 <SET TEMP12 'T (TYPE ATOM)>
699 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE224>
701 <EQUAL? LN23 '`CHTYPE - PHRASE224>
703 <RESTL EQV6 1 = LN23 (TYPE LIST)>
704 <NTHL LN23 1 = TEMP35>
706 <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE224>
707 <NTHL TEMP35 1 = LN23>
708 <EQUAL? LN23 '`CHTYPE - PHRASE224>
710 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
712 <NTHL TEMP35 5 = TEMP76>
713 <EQUAL? LN23 TEMP76 - PHRASE224>
715 <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
716 <NTHL TEMP76 1 = TEMP76>
718 <EQUAL? TEMP76 LN23 - PHRASE224>
720 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
722 <RESTL LN23 1 = LN23 (TYPE LIST)>
724 <RESTL IT22 1 = TEMP76 (TYPE LIST)>
726 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
729 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
730 <RESTL TEMP76 1 = LN23 (TYPE LIST)>
735 <SET TEMP12 'T (TYPE ATOM)>
738 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE226>
740 <EQUAL? LN23 '`SET - PHRASE226>
742 <RESTL IT22 1 = LN23 (TYPE LIST)>
743 <RESTL LN23 1 = LN23 (TYPE LIST)>
744 <NTHL LN23 1 = TEMP44>
746 <EQUAL? TEMP44 %<> + BOOL228>
747 <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE226>
748 <EMPL? TEMP44 + PHRASE226>
749 <RESTL TEMP44 1 = LN23 (TYPE LIST)>
750 <EMPL? LN23 + PHRASE226>
751 <RESTL LN23 1 = LN23 (TYPE LIST)>
752 <EMPL? LN23 - PHRASE226>
754 <NTHL TEMP44 1 = LN23>
755 <EQUAL? LN23 'QUOTE - PHRASE226>
757 <RESTL TEMP44 1 = LN23 (TYPE LIST)>
759 <EQUAL? LN23 'T - PHRASE226>
762 <RESTL EQV6 1 = LN23 (TYPE LIST)>
763 <NTHL LN23 1 = TEMP35>
765 <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE226>
766 <NTHL TEMP35 1 = LN23>
767 <EQUAL? LN23 '`JUMP - PHRASE226>
770 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
772 <RESTL LN23 1 = LN23 (TYPE LIST)>
773 <NTHL LN23 1 = STACK (TYPE ATOM)>
776 <CALL '
\1aDEST-INS 2 = M67>
777 <RESTL M67 1 = LN23 (TYPE LIST)>
778 <NTHL LN23 1 = TEMP35>
780 <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE226>
781 <NTHL TEMP35 1 = LN23>
782 <EQUAL? LN23 '`TYPE? - PHRASE226>
784 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
786 <RESTL IT22 1 = TEMP76 (TYPE LIST)>
787 <NTHL TEMP76 1 = TEMP76>
788 <EQUAL? LN23 TEMP76 - PHRASE226>
790 <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
791 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
792 <NTHL TEMP76 1 = TEMP141>
794 <TYPE? TEMP141 <TYPE-CODE FORM> - PHRASE226>
795 <NTHL TEMP141 1 = TEMP76>
796 <EQUAL? TEMP76 '`TYPE-CODE - PHRASE226>
798 <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
799 <NTHL TEMP76 1 = TEMP76>
800 <EQUAL? TEMP76 'ATOM + BOOL231>
802 <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
803 <NTHL TEMP76 1 = TEMP76>
804 <EQUAL? TEMP76 'FALSE - PHRASE226>
810 <RESTL TEMP141 1 = TEMP76 (TYPE LIST)>
812 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
814 <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
815 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
816 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
817 <NTHL TEMP76 1 = STACK (TYPE ATOM)>
819 <CALL '
\1aJUMP? 3 = TEMP76>
820 <VEQUAL? TEMP76 0 + PHRASE233>
825 <NTHL TEMP35 5 = STACK>
827 <CALL '
\1aFORM 3 = TEMP76>
828 <RESTL EQV6 1 = LN23 (TYPE LIST)>
838 <CALL '
\1aMAKE-TAG 1 = TEMP35>
840 <CALL '
\1aFORM 3 = TEMP76>
841 <RESTL EQV6 1 = LN23 (TYPE LIST)>
844 <CONS TEMP35 EQVP24 = EQVP24>
845 <RESTL M67 1 = TEMP76 (TYPE LIST)>
846 <RESTL M67 1 = TEMP141 (TYPE LIST)>
848 <RESTL TEMP141 1 = LN23 (TYPE LIST)>
850 <CONS TEMP35 LN23 = LN23>
852 <PUTREST TEMP76 LN23>
856 <SET TEMP12 'T (TYPE ATOM)>
859 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE239>
860 <NTHL IT22 1 = TEMP76>
861 <EQUAL? TEMP76 '`SET - PHRASE239>
863 <RESTL IT22 1 = TEMP76 (TYPE LIST)>
864 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
865 <NTHL TEMP76 1 = TEMP44>
867 <EQUAL? TEMP44 %<> + BOOL241>
868 <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE239>
869 <EMPL? TEMP44 + PHRASE239>
870 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
871 <EMPL? TEMP76 + PHRASE239>
872 <RESTL TEMP76 1 = TEMP76 (TYPE LIST)>
873 <EMPL? TEMP76 - PHRASE239>
875 <NTHL TEMP44 1 = TEMP76>
876 <EQUAL? TEMP76 'QUOTE - PHRASE239>
878 <RESTL TEMP44 1 = TEMP76 (TYPE LIST)>
879 <NTHL TEMP76 1 = TEMP76>
880 <EQUAL? TEMP76 'T - PHRASE239>
883 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
884 <NTHL TEMP76 1 = TEMP35>
886 <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE239>
887 <NTHL TEMP35 1 = TEMP76>
888 <EQUAL? TEMP76 '`TYPE? - PHRASE239>
890 <RESTL TEMP35 1 = TEMP76 (TYPE LIST)>
891 <NTHL TEMP76 1 = TEMP76>
892 <RESTL IT22 1 = LN23 (TYPE LIST)>
894 <EQUAL? TEMP76 LN23 - PHRASE239>
896 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
897 <RESTL LN23 1 = LN23 (TYPE LIST)>
898 <NTHL LN23 1 = TEMP141>
900 <TYPE? TEMP141 <TYPE-CODE FORM> - PHRASE239>
901 <NTHL TEMP141 1 = LN23>
902 <EQUAL? LN23 '`TYPE-CODE - PHRASE239>
904 <RESTL TEMP141 1 = LN23 (TYPE LIST)>
906 <EQUAL? LN23 'ATOM + BOOL243>
908 <RESTL TEMP141 1 = LN23 (TYPE LIST)>
910 <EQUAL? LN23 'FALSE - PHRASE239>
916 <RESTL TEMP141 1 = LN23 (TYPE LIST)>
918 <NTHL LN23 1 = STACK (TYPE ATOM)>
920 <RESTL TEMP35 1 = LN23 (TYPE LIST)>
921 <RESTL LN23 1 = LN23 (TYPE LIST)>
922 <RESTL LN23 1 = LN23 (TYPE LIST)>
923 <NTHL LN23 1 = STACK (TYPE ATOM)>
925 <CALL '
\1aJUMP? 3 = LN23>
926 <VEQUAL? LN23 0 + PHRASE245>
931 <NTHL TEMP35 5 = STACK>
933 <CALL '
\1aFORM 3 = LN23>
934 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
939 <RESTL EQV6 1 = TEMP76 (TYPE LIST)>
940 <RESTL TEMP76 1 = LN23 (TYPE LIST)>
946 <SET TEMP12 'T (TYPE ATOM)>
949 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE249>
950 <CHTYPE IT22 <TYPE-CODE LIST> = LN23>
952 <EMPL? LN23 + PHRASE249>
955 <NTHL LN23 1 = TEMP76>
956 <TYPE? TEMP76 <TYPE-CODE ATOM> - TAG254>
957 <VEQUAL? TEMP76 '= + TAG252>
960 <RESTL LN23 1 = LN23 (TYPE LIST)>
961 <EMPL? LN23 - TAG253>
966 <EMPL? IT22 + PHRASE249>
967 <RESTL IT22 1 = LN23 (TYPE LIST)>
968 <EMPL? LN23 + PHRASE249>
970 <RESTL IT22 1 = LN23 (TYPE LIST)>
974 <TYPE? IT22 <TYPE-CODE FORM> - PHRASE249>
976 <EQUAL? LN23 'QUOTE - PHRASE249>
978 <RESTL IT22 1 = LN23 (TYPE LIST)>
981 <EQUAL? LN23 'FLUSHED - PHRASE249>
983 <RESTL EQV6 1 = LN23 (TYPE LIST)>
986 <SET TEMP12 'T (TYPE ATOM)>
991 <RESTL EQV6 1 = EQV6 (TYPE LIST)>
994 <VEQUAL? TEMP12 0 + PHRASE257>
1005 <CALL '
\1aEQV-CODE 3 = LN23>
1006 <TYPE? LN23 <TYPE-CODE FALSE> + EXIT15>
1011 <GVAL 'CHANGED = LN23>
1017 <END
\1aPEEP-PASS1>
\r\r
1019 <GFCN
\1aDEST-INS ("VALUE" <OR !<FALSE> LIST> ATOM <LIST [REST ATOM LIST LIST]>) ATM4 LBP5>
1025 <EMPL? LBP5 - PHRASE11 (TYPE LIST)>
1028 <NTHL LBP5 1 = TEMP6 (TYPE ATOM)>
1029 <VEQUAL? TEMP6 ATM4 - PHRASE13>
1031 <RESTL LBP5 1 = TEMP6 (TYPE LIST)>
1033 <NTHL TEMP6 1 = TEMP6 (TYPE LIST)>
1037 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1038 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1039 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1043 <GFCN
\1aJUMP? ("VALUE" <OR ATOM !<FALSE>> ANY ATOM ATOM) TF4 TNAME5 DIR6>
1046 <TYPE? TF4 <TYPE-CODE FALSE> + PHRASE8>
1048 <SET TF4 'ATOM (TYPE ATOM)>
1051 <SET TF4 'FALSE (TYPE ATOM)>
1053 <VEQUAL? TF4 TNAME5 - PHRASE11>
1055 <VEQUAL? DIR6 '+ - TAG12>
1061 <VEQUAL? DIR6 '- - TAG16>
1068 <GFCN
\1aEQV-CODE ("VALUE" <OR ATOM FALSE> LIST <LIST [REST ATOM LIST LIST]> LIST) L4 LBLS5 RETS6>
1069 <TEMP (WIN7 %<>) RL14:LIST TEMP24 TST23 INSP38 INS39 TS45 TWO47 TEMP52 TEMP53 TA66 TB67 OIP10:LIST OTS9:LIST TB135>
1071 <FRAME '
\1aLREVERSE>
1074 <CALL '
\1aLREVERSE 1 = L4>
1078 <EMPL? LBLS5 + EXIT12 (TYPE LIST) (DEAD-JUMP LBLS5)>
1079 <RESTL LBLS5 1 = RL14 (TYPE LIST)>
1080 <RESTL RL14 1 = RL14 (TYPE LIST)>
1081 <NTHL RL14 1 = RL14 (TYPE LIST)>
1082 <EMPL? RL14 + EXIT22 (TYPE LIST) (DEAD-JUMP RL14)>
1083 <RESTL LBLS5 1 = TEMP24 (TYPE LIST)>
1084 <NTHL TEMP24 1 = TEMP24 (TYPE LIST)>
1085 <RESTL TEMP24 1 = TST23 (TYPE LIST)>
1090 <EMPL? TST23 + MAPAP32 (TYPE LIST) (DEAD-JUMP TST23)>
1091 <SET TEMP24 RL14 (TYPE LIST)>
1095 <EMPL? TEMP24 + MAPAP32 (DEAD-JUMP TST23 TEMP24)>
1096 <NTHL TEMP24 1 = INSP38>
1097 <NTHL INSP38 1 = INS39 (TYPE FORM)>
1098 <NTHL INS39 1 = INS39 (TYPE ATOM)>
1099 <VEQUAL? INS39 '`JUMP - EXIT43 (DEAD-JUMP INSP38)>
1101 <RESTL INSP38 1 = INSP38 (TYPE LIST)>
1106 <NTHL INSP38 1 = INS39>
1107 <TYPE? INS39 <TYPE-CODE FORM> - PHRASE50 (DEAD-JUMP INS39 INSP38)>
1108 <NTHL TS45 1 = TWO47>
1109 <TYPE? TWO47 <TYPE-CODE FORM> - PHRASE50 (DEAD-JUMP TWO47 INS39 INSP38)>
1110 <LENL INS39 = TEMP52 (TYPE FIX)>
1111 <LENL TWO47 = TEMP53 (TYPE FIX)>
1112 <VEQUAL? TEMP52 TEMP53 - PHRASE50 (TYPE FIX) (DEAD-JUMP TWO47 INS39 INSP38)>
1113 <DEAD TEMP52 TEMP53>
1114 <EMPL? INS39 + PHRASE50 (TYPE FORM) (DEAD-JUMP TWO47 INS39 INSP38)>
1115 <NTHL INS39 1 = TEMP52>
1116 <EQUAL? TEMP52 '`ENDIF + PHRASE50 (DEAD-JUMP TWO47 INS39 INSP38)>
1118 <CHTYPE INS39 <TYPE-CODE LIST> = TEMP52>
1120 <CHTYPE TWO47 <TYPE-CODE LIST> = TEMP53>
1122 <EMPL? TEMP52 + PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1123 <EMPL? TEMP53 + PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1127 <EMPL? TEMP52 + MAPAP58 (DEAD-JUMP OTS9 OIP10 TEMP53 TEMP52)>
1128 <EMPL? TEMP53 + MAPAP58 (DEAD-JUMP OTS9 OIP10 TEMP53 TEMP52)>
1129 <NTHL TEMP52 1 = INS39>
1130 <NTHL TEMP53 1 = TWO47>
1133 <EQUAL? INS39 TWO47 + PHRASE71 (DEAD-JUMP TB67 TA66 TWO47 INS39)>
1134 <VEQUAL? TA66 TB67 - PHRASE50 (TYPE FIX) (DEAD-JUMP TEMP53 TEMP52 TWO47 INS39 INSP38)>
1141 <CALL '
\1aN=? 2 = INS39>
1142 <VEQUAL? INS39 0 - PHRASE50 (DEAD-JUMP TEMP53 TEMP52 INSP38)>
1145 <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1146 <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1151 <RESTL OIP10 1 = INSP38 (TYPE LIST)>
1154 <RESTL OTS9 1 = TS45 (TYPE LIST)>
1157 <VEQUAL? TS45 TST23 + EXIT43>
1159 <NTHL OIP10 1 = INS39>
1160 <NTH1 INS39 = INS39>
1161 <EQUAL? INS39 '`ENDIF + EXIT43 (DEAD-FALL WIN7)>
1163 <SET WIN7 'T (TYPE ATOM)>
1164 <FRAME '
\1aMAKE-TAG>
1166 <CALL '
\1aMAKE-TAG 1 = TWO47>
1167 <CONS TWO47 () = TEMP52>
1168 <RESTL OTS9 1 = INS39 (TYPE LIST)>
1169 <PUTREST TEMP52 INS39>
1171 <PUTREST OTS9 TEMP52>
1178 <CALL '
\1aFORM 3 = TEMP52>
1179 <PUTL OIP10 1 TEMP52>
1182 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1185 <NTHL RL14 1 = TST23 (TYPE LIST)>
1186 <NTHL TST23 1 = TEMP52 (TYPE FORM)>
1187 <NTHL TEMP52 1 = TEMP52>
1188 <EQUAL? TEMP52 '`JUMP - EXIT22 (DEAD-JUMP TST23 RL14)>
1190 <RESTL RL14 1 = RL14 (TYPE LIST)>
1191 <EMPL? RL14 + EXIT22 (TYPE LIST) (DEAD-JUMP TST23 RL14)>
1192 <RESTL TST23 1 = TST23 (TYPE LIST)>
1195 <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1196 <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1197 <RESTL LBLS5 1 = LBLS5 (TYPE LIST)>
1200 <EMPL? RETS6 + MAPAP89 (TYPE LIST) (DEAD-JUMP RETS6 OTS9 OIP10)>
1201 <RESTL RETS6 1 = TEMP52 (TYPE LIST)>
1202 <EMPL? TEMP52 + MAPAP89 (TYPE LIST) (DEAD-JUMP RETS6 OTS9 OIP10)>
1204 <SET TEMP52 RETS6 (TYPE LIST)>
1209 <EMPL? TEMP52 + MAPAP89 (DEAD-JUMP OTS9 OIP10 TEMP52)>
1211 <NTHL RL14 1 = TEMP53 (TYPE LIST)>
1212 <RESTL RL14 1 = INS39 (TYPE LIST)>
1214 <EMPL? INS39 + MAPAP101 (TYPE LIST) (DEAD-JUMP TEMP53 INS39)>
1218 <EMPL? INS39 + MAPAP101 (DEAD-JUMP TEMP53 INS39)>
1219 <NTHL INS39 1 = RL14>
1220 <NTHL TEMP53 1 = TEMP24 (TYPE FORM)>
1221 <NTHL TEMP24 1 = TWO47>
1222 <NTHL RL14 1 = TST23 (TYPE FORM)>
1223 <NTHL TST23 1 = TA66>
1224 <EQUAL? TWO47 TA66 - EXIT112 (DEAD-JUMP TST23 TEMP24 RL14)>
1226 <RESTL TEMP24 1 = TA66 (TYPE LIST)>
1228 <NTHL TA66 1 = TA66>
1229 <RESTL TST23 1 = TWO47 (TYPE LIST)>
1231 <NTHL TWO47 1 = TWO47>
1232 <EQUAL? TA66 TWO47 - EXIT112 (DEAD-JUMP RL14)>
1234 <RESTL TEMP53 1 = TEMP24 (TYPE LIST)>
1235 <RESTL RL14 1 = TST23 (TYPE LIST)>
1239 <NTHL TEMP24 1 = TWO47>
1240 <TYPE? TWO47 <TYPE-CODE FORM> - PHRASE119 (DEAD-JUMP TWO47 TEMP24)>
1241 <NTHL TST23 1 = TB67>
1242 <TYPE? TB67 <TYPE-CODE FORM> - PHRASE119 (DEAD-JUMP TB67 TWO47 TEMP24)>
1243 <LENL TWO47 = TA66 (TYPE FIX)>
1244 <LENL TB67 = INSP38 (TYPE FIX)>
1245 <VEQUAL? TA66 INSP38 - PHRASE119 (TYPE FIX) (DEAD-JUMP TB67 TWO47 TEMP24)>
1247 <EMPL? TWO47 + PHRASE119 (TYPE FORM) (DEAD-JUMP TB67 TWO47 TEMP24)>
1248 <NTHL TWO47 1 = TA66>
1249 <EQUAL? TA66 '`ENDIF + PHRASE119 (DEAD-JUMP TB67 TWO47 TEMP24)>
1251 <CHTYPE TWO47 <TYPE-CODE LIST> = TA66>
1253 <CHTYPE TB67 <TYPE-CODE LIST> = INSP38>
1255 <EMPL? TA66 + PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1256 <EMPL? INSP38 + PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1260 <EMPL? TA66 + MAPAP126 (DEAD-JUMP OTS9 OIP10 TA66 INSP38)>
1261 <EMPL? INSP38 + MAPAP126 (DEAD-JUMP OTS9 OIP10 TA66 INSP38)>
1262 <NTHL TA66 1 = TWO47>
1263 <NTHL INSP38 1 = TB67>
1266 <EQUAL? TWO47 TB67 + PHRASE139 (DEAD-JUMP TB135 TB67 TWO47 TS45)>
1267 <VEQUAL? TS45 TB135 - PHRASE119 (TYPE FIX) (DEAD-JUMP TB67 TA66 TWO47 INSP38 TEMP24)>
1274 <CALL '
\1aN=? 2 = TWO47>
1275 <VEQUAL? TWO47 0 - PHRASE119 (DEAD-JUMP TA66 INSP38 TEMP24)>
1278 <RESTL TA66 1 = TA66 (TYPE LIST)>
1279 <RESTL INSP38 1 = INSP38 (TYPE LIST)>
1284 <RESTL OIP10 1 = TEMP24 (TYPE LIST)>
1287 <RESTL OTS9 1 = TST23 (TYPE LIST)>
1290 <RESTL RL14 1 = INSP38 (TYPE LIST)>
1292 <VEQUAL? INSP38 TST23 + EXIT112>
1294 <NTHL OIP10 1 = TA66>
1296 <EQUAL? TA66 '`ENDIF + EXIT112 (DEAD-FALL WIN7)>
1298 <SET WIN7 'T (TYPE ATOM)>
1299 <FRAME '
\1aMAKE-TAG>
1301 <CALL '
\1aMAKE-TAG 1 = TWO47>
1302 <CONS TWO47 () = TB67>
1303 <RESTL OIP10 1 = TA66 (TYPE LIST)>
1306 <PUTREST OIP10 TB67>
1313 <CALL '
\1aFORM 3 = TB67>
1317 <RESTL INS39 1 = INS39 (TYPE LIST)>
1320 <RESTL TEMP52 1 = TEMP52 (TYPE LIST)>
1323 <FRAME '
\1aLREVERSE>
1326 <CALL '
\1aLREVERSE 1>
1332 <GFCN
\1aBUILD-LABEL-TABLE ("VALUE" ATOM ATOM <LIST [REST ATOM LIST LIST]> LIST) LBL4 LBP5 L6>
1333 <TEMP TEMP7 TEMP16:LIST>
1338 <EMPL? LBP5 - PHRASE12 (TYPE LIST)>
1341 <NTHL LBP5 1 = TEMP7 (TYPE ATOM)>
1342 <VEQUAL? TEMP7 LBL4 - PHRASE14>
1344 <RESTL LBP5 1 = TEMP7 (TYPE LIST)>
1345 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1346 <NTHL TEMP7 1 = TEMP7 (TYPE LIST)>
1347 <CONS L6 TEMP7 = TEMP7>
1349 <RESTL LBP5 1 = TEMP16 (TYPE LIST)>
1351 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1352 <PUTL TEMP16 1 TEMP7 (TYPE LIST)>
1356 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1357 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1358 <RESTL LBP5 1 = LBP5 (TYPE LIST)>
1360 <END
\1aBUILD-LABEL-TABLE>
1362 <GFCN
\1aPATCH-LABEL-TABLE ("VALUE" ATOM <LIST [REST ATOM LIST LIST]> ATOM LIST) LBP4 ATM5 L6>
1368 <EMPL? LBP4 - PHRASE12 (TYPE LIST)>
1371 <NTHL LBP4 1 = TEMP7 (TYPE ATOM)>
1372 <VEQUAL? TEMP7 ATM5 - PHRASE14>
1374 <RESTL LBP4 1 = TEMP7 (TYPE LIST)>
1376 <PUTL TEMP7 1 L6 (TYPE LIST)>
1380 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1381 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1382 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1384 <END
\1aPATCH-LABEL-TABLE>
1386 <GFCN
\1aREMOVE-LABEL ("VALUE" ATOM <LIST [REST ATOM LIST LIST]> ATOM LIST) LBP4 ATM5 L6>
1387 <TEMP TEMP7 A10:LIST B11:LIST>
1392 <EMPL? LBP4 - PHRASE14 (TYPE LIST)>
1395 <NTHL LBP4 1 = TEMP7 (TYPE ATOM)>
1396 <VEQUAL? TEMP7 ATM5 - PHRASE16>
1398 <RESTL LBP4 1 = TEMP7 (TYPE LIST)>
1399 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1400 <NTHL TEMP7 1 = A10 (TYPE LIST)>
1406 <EMPL? A10 + EXIT18 (TYPE LIST)>
1407 <NTHL A10 1 = TEMP7>
1408 <EQUAL? TEMP7 L6 - PHRASE23>
1410 <VEQUAL? A10 B11 - PHRASE26>
1411 <RESTL A10 1 = TEMP7 (TYPE LIST)>
1413 <RESTL LBP4 1 = A10 (TYPE LIST)>
1415 <RESTL A10 1 = A10 (TYPE LIST)>
1416 <PUTL A10 1 TEMP7 (TYPE LIST)>
1420 <RESTL A10 1 = TEMP7 (TYPE LIST)>
1427 <RESTL A10 1 = A10 (TYPE LIST)>
1432 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1433 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1434 <RESTL LBP4 1 = LBP4 (TYPE LIST)>
1436 <END
\1aREMOVE-LABEL>
1438 <GFCN
\1aNEXTINS ("VALUE" <LIST <OR ATOM FORM>> LIST) L4>
1439 <TEMP TEMP14 TEMP16:LIST LL17:LIST>
1441 <SET TEMP14 %<> (TYPE FALSE)>
1442 <RESTL L4 1 = TEMP16 (TYPE LIST)>
1447 <EMPL? TEMP16 + MAPAP9>
1449 <NTHL LL17 1 = TEMP14>
1450 <TYPE? TEMP14 <TYPE-CODE FORM> + TAG21>
1452 <SET TEMP14 %<> (TYPE FALSE)>
1458 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1465 <GFCN
\1aFIND-EQV ("VALUE" ATOM ATOM <LIST [REST ATOM <LIST [REST ATOM]>]>) ATM4 EQVL5>
1468 <VEQUAL? ATM4 '`COMPERR + BOOL8>
1469 <VEQUAL? ATM4 '`UNWCONT - PHRASE7>
1477 <RESTL EQVL5 1 = TEMP9 (TYPE LIST)>
1478 <NTHL TEMP9 1 = TEMP9 (TYPE LIST)>
1479 <EMPL? TEMP9 + PHRASE15>
1480 <LOOP (ATM4 VALUE) (TEMP9 VALUE)>
1482 <NTHL TEMP9 1 = TEMP20>
1483 <VEQUAL? TEMP20 ATM4 + TAG16>
1485 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1486 <EMPL? TEMP9 - TAG17>
1489 <NTHL EQVL5 1 = TEMP9 (TYPE ATOM)>
1494 <RESTL EQVL5 1 = EQVL5 (TYPE LIST)>
1495 <RESTL EQVL5 1 = EQVL5 (TYPE LIST)>
1496 <EMPL? EQVL5 - AGAIN13 (TYPE LIST)>