4 <ENTRY NODE-COMPLAIN NODE-PRINT>
6 <USE "COMPDEC" "NEWSTRUC">
8 <NEW-CHANNEL-TYPE INTCHAN DEFAULT OPEN INTCHAN-OPEN CLOSE INTCHAN-CLOSE WRITE-BYTE INTCHAN-WRITE-BYTE WRITE-BUFFER INTCHAN-WRITE-BUFFER>
10 <NEWSTRUC INTCHAN VECTOR INTOUT <OR CHANNEL FALSE> INTCOUNT FIX INTMAX FIX>
13 <GFCN
\1aNODE-COMPLAIN ("VALUE" <OR FALSE FIX> NODE "OPTIONAL" FIX) N6 MAX7>
14 <OPT-DISPATCH 1 %<> OPT4 OPT5>
18 <TEMP P8:NODE OPP12 TEMP17 TEM9 TEMP24>
25 <EMPUV? OPP12 + EXIT10 (TYPE NODE)>
26 <FRAME '
\1aNODE-PRINT>
31 <CALL '
\1aNODE-PRINT 4 = TEMP17>
32 <TYPE? TEMP17 <TYPE-CODE FALSE> + EXIT10>
36 <TYPE? TEM9 <TYPE-CODE NODE> - EXIT10>
41 <NTHUV OPP12 5 = TEM9 (TYPE LIST)>
43 <LOOP (TEMP17 VALUE) (TEM9 VALUE)>
45 <NTHL TEM9 1 = TEMP24>
46 <VEQUAL? TEMP24 TEMP17 + AGAIN13>
48 <RESTL TEM9 1 = TEM9 (TYPE LIST)>
51 <FRAME '
\1aNODE-PRINT>
58 <CALL '
\1aNODE-PRINT 3 = TEM9>
61 <END
\1aNODE-COMPLAIN>
64 <GFCN
\1aNODE-PRINT ("VALUE" <OR !<FALSE> FIX> ANY "OPTIONAL" <OR FALSE NODE> FIX ANY) N8 LOSER9 MAX10 FLAT11>
65 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
73 <TEMP TEMP3:LBIND OUTC12 TEMP22 SU27>
75 <GETS 'BIND = TEMP3 (TYPE LBIND)>
76 <TYPE? LOSER9 <TYPE-CODE UNBOUND> - TAG15>
77 <SET LOSER9 %<> (TYPE FALSE)>
79 <BBIND 'LOSER <OR FALSE NODE> 'FIX LOSER9>
82 <GEN-LVAL 'OUTCHAN = OUTC12>
83 <FRAME '
\1aCHANNEL-OPEN>
86 <TYPE? FLAT11 <TYPE-CODE FALSE> + PHRASE21>
87 <SET TEMP22 %<> (TYPE FALSE)>
97 <CALL '
\1aCHANNEL-OPEN 5 = TEMP22>
98 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP22>
101 <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
102 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
105 <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
106 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
107 <NTHUV TEMP22 6 = SU27 (TYPE MUD-CHAN)>
109 <NTHUV OUTC12 6 = TEMP22 (TYPE MUD-CHAN)>
110 <NTHUV TEMP22 1 = TEMP22 (TYPE FIX)>
111 <SUB TEMP22 2 = TEMP22 (TYPE FIX)>
112 <PUTUV SU27 1 TEMP22 (TYPE FIX)>
114 <ICALL EXIT38 = TEMP22>
118 <NTHR TEMP39 5 = TEMP39 (RECORD-TYPE FRAME)>
119 <CFRAME = TEMP42 (TYPE FRAME)>
120 <BBIND 'NACT 'FRAME 'FIX TEMP42>
124 <SETLR TEMP42 TEMP39 N8>
130 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE37>
132 <TYPE? FLAT11 <TYPE-CODE FALSE> - BOOL45>
138 <SET SU27 %<> (TYPE FALSE)>
141 <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
142 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
143 <NTHUV TEMP22 5 = TEMP22 (TYPE INTCHAN)>
144 <NTHUV TEMP22 2 = SU27 (TYPE FIX)>
147 <TYPE? FLAT11 <TYPE-CODE FALSE> - BOOL50>
155 <NTHR 'OUTCHAN 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
156 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
167 <GFCN
\1aINTCHAN-OPEN ("VALUE" INTCHAN ANY ANY ANY ANY ANY ANY) TYP4 OPER5 NM6 C-OR-F7 CNT8 MAX9>
176 <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP11>
177 <CHTYPE TEMP11 <TYPE-CODE INTCHAN> = TEMP11>
180 <END
\1aINTCHAN-OPEN>
183 <GFCN
\1aINTCHAN-CLOSE ("VALUE" ATOM ANY ANY) CHANNEL4 OPER5>
187 <END
\1aINTCHAN-CLOSE>
190 <GFCN
\1aINTCHAN-WRITE-BYTE ("VALUE" ANY CHANNEL ANY ANY) CHAN4 OPER5 CHR6>
191 <TEMP D7 INO8 TEMP13>
196 <TYPE? INO8 <TYPE-CODE FALSE> - PHRASE10>
198 <NTHUV D7 2 = TEMP13 (TYPE FIX)>
199 <ADD TEMP13 1 = INO8 (TYPE FIX)>
201 <NTHUV D7 3 = TEMP13 (TYPE FIX)>
202 <GRTR? INO8 TEMP13 - PHRASE12 (TYPE FIX)>
206 <GEN-LVAL 'NACT = STACK>
207 <CALL '
\1aRETURN 2 = D7>
211 <PUTUV D7 2 INO8 (TYPE FIX)>
216 <NTHUV D7 2 = INO8 (TYPE FIX)>
217 <NTHUV D7 3 = TEMP13 (TYPE FIX)>
218 <VEQUAL? INO8 TEMP13 - TAG22 (TYPE FIX)>
222 <FRAME '
\1aCHANNEL-OP>
223 <NTHUV D7 1 = STACK (TYPE CHANNEL)>
227 <CALL '
\1aCHANNEL-OP 3>
228 <NTHUV D7 2 = INO8 (TYPE FIX)>
229 <ADD INO8 1 = INO8 (TYPE FIX)>
230 <PUTUV D7 2 INO8 (TYPE FIX)>
234 <END
\1aINTCHAN-WRITE-BYTE>
237 <GFCN
\1aINTCHAN-WRITE-BUFFER ("VALUE" ANY CHANNEL ANY STRING "OPTIONAL" FIX) CHAN6 OPER7 STR8 N9>
238 <OPT-DISPATCH 3 %<> OPT4 OPT5>
242 <TEMP D10 INO11 TEMP16:FIX TEMP30:FIX>
244 <TYPE? N9 <TYPE-CODE UNBOUND> - TAG12>
245 <LENUS STR8 = N9 (TYPE FIX)>
247 <NTHUV CHAN6 5 = D10>
249 <NTHUV D10 1 = INO11>
250 <TYPE? INO11 <TYPE-CODE FALSE> - PHRASE15>
251 <NTHUV D10 3 = TEMP16 (TYPE FIX)>
252 <NTHUV D10 2 = INO11 (TYPE FIX)>
253 <ADD INO11 N9 = INO11 (TYPE FIX)>
255 <GRTR? TEMP16 INO11 - TAG18>
256 <SET TEMP16 INO11 (TYPE FIX)>
261 <PUTUV D10 2 INO11 (TYPE FIX)>
262 <NTHUV D10 3 = D10 (TYPE FIX)>
263 <VEQUAL? INO11 D10 + TAG22 (TYPE FIX)>
269 <GEN-LVAL 'NACT = STACK>
270 <CALL '
\1aRETURN 2 = INO11>
274 <NTHUV D10 2 = TEMP16 (TYPE FIX)>
275 <ADD TEMP16 N9 = N9 (TYPE FIX)>
277 <NTHUV D10 3 = TEMP16 (TYPE FIX)>
278 <GRTR? N9 TEMP16 + PHRASE26 (TYPE FIX)>
280 <FRAME '
\1aCHANNEL-OP>
286 <NTHUV D10 2 = TEMP16 (TYPE FIX)>
287 <SUB N9 TEMP16 = STACK (TYPE FIX)>
289 <CALL '
\1aCHANNEL-OP 4>
290 <PUTUV D10 2 N9 (TYPE FIX)>
295 <NTHUV D10 2 = TEMP16 (TYPE FIX)>
296 <NTHUV D10 3 = TEMP30 (TYPE FIX)>
297 <VEQUAL? TEMP16 TEMP30 - TAG31 (TYPE FIX)>
301 <FRAME '
\1aCHANNEL-OP>
307 <NTHUV D10 3 = TEMP16 (TYPE FIX)>
308 <NTHUV D10 2 = TEMP30 (TYPE FIX)>
309 <SUB TEMP16 TEMP30 = STACK (TYPE FIX)>
311 <CALL '
\1aCHANNEL-OP 4>
312 <NTHUV D10 3 = TEMP30 (TYPE FIX)>
313 <PUTUV D10 2 TEMP30 (TYPE FIX)>
317 <END
\1aINTCHAN-WRITE-BUFFER>
320 <GFCN
\1aNPRINT ("VALUE" ANY NODE) N4>
321 <TEMP COD5 TEMP9 TEMP61 TEMP62 TEMP83>
323 <NTHUV N4 1 = COD5 (TYPE FIX)>
324 <GEN-LVAL 'LOSER = TEMP9>
325 <EQUAL? TEMP9 N4 - TAG8>
327 <SET TEMP9 'T (TYPE ATOM)>
330 <SET TEMP9 %<> (TYPE FALSE)>
332 <VEQUAL? TEMP9 0 + BOOL13>
335 <GEN-LVAL 'OUTCHAN = STACK>
338 <VEQUAL? COD5 1 + BOOL19 (TYPE FIX)>
339 <VEQUAL? COD5 51 - PHRASE18 (TYPE FIX)>
343 <GEN-LVAL 'OUTCHAN = STACK>
346 <NTHUV N4 10 = STACK (TYPE LIST)>
352 <GEN-LVAL 'OUTCHAN = STACK>
354 <FRAME '
\1aSEQ-PRINT>
355 <NTHUV N4 5 = STACK (TYPE LIST)>
357 <CALL '
\1aSEQ-PRINT 1>
360 <GEN-LVAL 'OUTCHAN = STACK>
364 <VEQUAL? COD5 5 - PHRASE36 (TYPE FIX)>
367 <GEN-LVAL 'OUTCHAN = STACK>
371 <GEN-LVAL 'OUTCHAN = STACK>
375 <GEN-LVAL 'OUTCHAN = STACK>
378 <NTHUV N4 10 = STACK (TYPE LIST)>
384 <GEN-LVAL 'OUTCHAN = STACK>
386 <FRAME '
\1aSEQ-PRINT>
387 <NTHUV N4 5 = STACK (TYPE LIST)>
389 <CALL '
\1aSEQ-PRINT 1>
392 <GEN-LVAL 'OUTCHAN = STACK>
396 <VEQUAL? COD5 71 - PHRASE59 (TYPE FIX)>
398 <GVAL 'MAP-SPEC-PRINT = TEMP61>
399 <NTHUV N4 9 = TEMP62>
401 <NTHUV TEMP61 TEMP62 = STACK (TYPE STRING)>
403 <GEN-LVAL 'OUTCHAN = STACK>
407 <VEQUAL? COD5 62 - PHRASE65 (TYPE FIX)>
410 <GEN-LVAL 'OUTCHAN = STACK>
412 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
413 <EMPL? TEMP61 + PHRASE194 (TYPE LIST)>
416 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
418 <NTHL TEMP61 1 = TEMP61 (TYPE NODE)>
419 <NTHUV TEMP61 4 = STACK>
421 <GEN-LVAL 'OUTCHAN = STACK>
425 <VEQUAL? COD5 15 - PHRASE75 (TYPE FIX)>
427 <GVAL 'ST-CHRS = TEMP61>
428 <NTHUV N4 4 = TEMP62>
429 <SET TEMP83 [TUPLE UVECTOR VECTOR LIST] (TYPE VECTOR)>
430 <TYPE? TEMP62 <TYPE-CODE ATOM> - TAG78>
431 <LOOP (TEMP62 VALUE) (TEMP83 LENGTH VALUE)>
433 <NTHUV TEMP83 1 = COD5>
434 <VEQUAL? COD5 TEMP62 + TAG79>
436 <RESTUV TEMP83 1 = TEMP83 (TYPE VECTOR)>
437 <EMPUV? TEMP83 - TAG80>
439 <SET TEMP83 %<> (TYPE FALSE)>
441 <LENR TEMP83 = COD5 (RECORD-TYPE %<>) (TYPE FIX)>
443 <NTHUV TEMP61 COD5 = STACK (TYPE STRING)>
445 <GEN-LVAL 'OUTCHAN = STACK>
447 <FRAME '
\1aSEQ-PRINT>
448 <NTHUV N4 5 = STACK (TYPE LIST)>
450 <CALL '
\1aSEQ-PRINT 1>
452 <GVAL 'EN-CHRS = TEMP83>
453 <NTHUV TEMP83 COD5 = STACK (TYPE STRING)>
455 <GEN-LVAL 'OUTCHAN = STACK>
459 <VEQUAL? COD5 68 + BOOL92 (TYPE FIX)>
460 <VEQUAL? COD5 3 - PHRASE91 (TYPE FIX)>
464 <GEN-LVAL 'OUTCHAN = STACK>
466 <NTHUV N4 5 = COD5 (TYPE LIST)>
467 <EMPL? COD5 + PHRASE194 (TYPE LIST)>
470 <NTHUV N4 5 = COD5 (TYPE LIST)>
472 <NTHL COD5 1 = STACK (TYPE NODE)>
477 <VEQUAL? COD5 8 - PHRASE99 (TYPE FIX)>
480 <GEN-LVAL 'OUTCHAN = STACK>
483 <NTHUV N4 4 = STACK (TYPE NODE)>
485 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
486 <EMPL? TEMP61 + PHRASE105 (TYPE LIST)>
490 <GEN-LVAL 'OUTCHAN = STACK>
492 <FRAME '
\1aSEQ-PRINT>
493 <NTHUV N4 5 = STACK (TYPE LIST)>
495 <CALL '
\1aSEQ-PRINT 1>
499 <GEN-LVAL 'OUTCHAN = STACK>
503 <VEQUAL? COD5 2 - PHRASE115 (TYPE FIX)>
504 <NTHUV N4 4 = TEMP61>
505 <TYPE? TEMP61 <TYPE-CODE VECTOR> + TAG118>
506 <TYPE? TEMP61 <TYPE-CODE UVECTOR> + TAG118>
507 <TYPE? TEMP61 <TYPE-CODE LIST> + TAG118>
508 <TYPE? TEMP61 <TYPE-CODE FORM> - BOOL116>
513 <GEN-LVAL 'OUTCHAN = STACK>
519 <GEN-LVAL 'OUTCHAN = STACK>
523 <VEQUAL? COD5 11 + BOOL128 (TYPE FIX)>
524 <VEQUAL? COD5 32 - PHRASE127 (TYPE FIX)>
528 <GEN-LVAL 'OUTCHAN = STACK>
532 <GEN-LVAL 'OUTCHAN = STACK>
536 <GEN-LVAL 'OUTCHAN = STACK>
538 <FRAME '
\1aSEQ-PRINT>
539 <NTHUV N4 5 = STACK (TYPE LIST)>
541 <CALL '
\1aSEQ-PRINT 1>
544 <GEN-LVAL 'OUTCHAN = STACK>
549 <EMPUU? TEMP61 + TAG148>
550 <LOOP (COD5 VALUE) (TEMP61 LENGTH VALUE)>
552 <NTHUU TEMP61 1 = TEMP62>
553 <VEQUAL? TEMP62 COD5 + BOOL154>
555 <RESTUU TEMP61 1 = TEMP61 (TYPE UVECTOR)>
556 <EMPUU? TEMP61 - TAG149>
558 <VEQUAL? COD5 6 - PHRASE146 (TYPE FIX)>
560 <NTHUV N4 9 = TEMP61>
561 <GVAL 'LVAL = TEMP62>
562 <EQUAL? TEMP61 TEMP62 - BOOL155>
564 <SET COD5 31 (TYPE FIX)>
567 <NTHUV N4 9 = TEMP62>
568 <GVAL 'GVAL = TEMP61>
569 <EQUAL? TEMP62 TEMP61 - PHRASE146>
571 <SET COD5 33 (TYPE FIX)>
573 <VEQUAL? COD5 10 + BOOL159 (TYPE FIX)>
574 <VEQUAL? COD5 31 - PHRASE158 (TYPE FIX)>
579 <GEN-LVAL 'OUTCHAN = STACK>
585 <GEN-LVAL 'OUTCHAN = STACK>
588 <NTHUV N4 4 = TEMP61>
589 <TYPE? TEMP61 <TYPE-CODE SYMTAB> - PHRASE168>
592 <NTHUV N4 4 = TEMP61 (TYPE SYMTAB)>
594 <NTHUV TEMP61 2 = STACK (TYPE ATOM)>
596 <GEN-LVAL 'OUTCHAN = STACK>
600 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
601 <EMPL? TEMP61 + PHRASE194 (TYPE LIST)>
604 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
606 <NTHL TEMP61 1 = STACK (TYPE NODE)>
611 <NTHUV N4 4 = TEMP61>
612 <EQUAL? TEMP61 'INTH - PHRASE178>
616 <GEN-LVAL 'OUTCHAN = STACK>
618 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
619 <EMPL? TEMP61 + BOOL182 (TYPE LIST)>
622 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
623 <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
624 <NTHL TEMP61 1 = STACK (TYPE NODE)>
630 <GEN-LVAL 'OUTCHAN = STACK>
632 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
633 <EMPL? TEMP61 + BOOL188 (TYPE LIST)>
636 <NTHUV N4 5 = TEMP61 (TYPE LIST)>
638 <NTHL TEMP61 1 = STACK (TYPE NODE)>
644 <GEN-LVAL 'OUTCHAN = STACK>
650 <GEN-LVAL 'OUTCHAN = STACK>
654 <GEN-LVAL 'OUTCHAN = STACK>
658 <GEN-LVAL 'OUTCHAN = STACK>
660 <FRAME '
\1aSEQ-PRINT>
661 <NTHUV N4 5 = STACK (TYPE LIST)>
663 <CALL '
\1aSEQ-PRINT 1>
666 <GEN-LVAL 'OUTCHAN = STACK>
669 <VEQUAL? TEMP9 0 + BOOL212>
672 <GEN-LVAL 'OUTCHAN = STACK>
673 <CALL '
\1aPRINC 2 = TEMP9>
679 <SETG MAP-SPEC-PRINT [",+" ",-" ",*" ",/" ",LIST"]>
681 <SETG LGV <UVECTOR ,LVAL-CODE ,FLVAL-CODE ,GVAL-CODE ,FGVAL-CODE ,ASSIGNED?-CODE>>
683 <SETG ST-CHRS ["(" "[" "![" "<TUPLE"]>
685 <SETG EN-CHRS [")" "]" "!]" ">"]>
687 <GDECL (MAP-SPEC-PRINT ST-CHRS EN-CHRS) <VECTOR [REST STRING]> (LGV) <UVECTOR [REST FIX]>>
690 <GFCN
\1aSEQ-PRINT ("VALUE" ANY <LIST [REST NODE]>) L4>
691 <TEMP TEMP7 TEMP19:LIST>
693 <EMPL? L4 - TAG8 (TYPE LIST)>
697 <NTHL L4 1 = STACK (TYPE NODE)>
699 <RESTL L4 1 = L4 (TYPE LIST)>
700 <EMPL? L4 - TAG12 (TYPE LIST)>
703 <SET TEMP7 %<> (TYPE FALSE)>
704 <SET TEMP19 L4 (TYPE LIST)>
709 <EMPL? TEMP19 + MAPAP17>
710 <NTHL TEMP19 1 = TEMP7>
713 <GEN-LVAL 'OUTCHAN = STACK>
718 <CALL '
\1aNPRINT 1 = TEMP7>
719 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
727 <GFCN
\1aPRNARGL ("VALUE" ANY <LIST [REST SYMTAB]> ANY "OPTIONAL" ANY) B6 R7 INAUX8>
728 <OPT-DISPATCH 2 %<> OPT4 OPT5>
732 <TEMP (INOPT9 %<>) (DC10 ()) (FIRST11 'T) TEMP22 SYM27:SYMTAB COD28>
736 <GEN-LVAL 'OUTCHAN = STACK>
738 <SET TEMP22 B6 (TYPE LIST)>
743 <EMPL? TEMP22 + MAPAP20>
744 <NTHL TEMP22 1 = SYM27>
745 <NTHUV SYM27 4 = COD28 (TYPE FIX)>
746 <VEQUAL? FIRST11 0 - BOOL29>
750 <GEN-LVAL 'OUTCHAN = STACK>
753 <SET FIRST11 %<> (TYPE FALSE)>
754 <VEQUAL? COD28 1 - PHRASE35 (TYPE FIX)>
757 <GEN-LVAL 'OUTCHAN = STACK>
760 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
761 <GEN-LVAL 'OUTCHAN = STACK>
765 <GRTR? COD28 3 + PHRASE46 (TYPE FIX)>
766 <TYPE? INAUX8 <TYPE-CODE FALSE> - PHRASE48>
767 <SET INAUX8 'T (TYPE ATOM)>
770 <GEN-LVAL 'OUTCHAN = STACK>
773 <VEQUAL? COD28 2 - PHRASE54 (TYPE FIX)>
777 <GEN-LVAL 'OUTCHAN = STACK>
780 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
781 <GEN-LVAL 'OUTCHAN = STACK>
785 <GEN-LVAL 'OUTCHAN = STACK>
788 <NTHUV SYM27 9 = STACK>
792 <GEN-LVAL 'OUTCHAN = STACK>
797 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
798 <GEN-LVAL 'OUTCHAN = STACK>
802 <VEQUAL? COD28 4 - PHRASE77 (TYPE FIX)>
805 <GEN-LVAL 'OUTCHAN = STACK>
808 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
809 <GEN-LVAL 'OUTCHAN = STACK>
813 <VEQUAL? COD28 5 - PHRASE86 (TYPE FIX)>
816 <GEN-LVAL 'OUTCHAN = STACK>
819 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
820 <GEN-LVAL 'OUTCHAN = STACK>
824 <GRTR? COD28 9 + PHRASE95 (TYPE FIX)>
825 <VEQUAL? INOPT9 0 - PHRASE97>
826 <SET INOPT9 'T (TYPE ATOM)>
828 <PUSH "\"OPTIONAL\" ">
829 <GEN-LVAL 'OUTCHAN = STACK>
832 <GRTR? COD28 7 + PHRASE103 (TYPE FIX)>
835 <GEN-LVAL 'OUTCHAN = STACK>
837 <VEQUAL? COD28 6 - BOOL108 (TYPE FIX)>
841 <GEN-LVAL 'OUTCHAN = STACK>
845 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
846 <GEN-LVAL 'OUTCHAN = STACK>
850 <GEN-LVAL 'OUTCHAN = STACK>
853 <NTHUV SYM27 9 = STACK>
857 <GEN-LVAL 'OUTCHAN = STACK>
861 <VEQUAL? COD28 8 - BOOL127 (TYPE FIX)>
865 <GEN-LVAL 'OUTCHAN = STACK>
869 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
870 <GEN-LVAL 'OUTCHAN = STACK>
874 <VEQUAL? COD28 10 - PHRASE136 (TYPE FIX)>
877 <GEN-LVAL 'OUTCHAN = STACK>
880 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
881 <GEN-LVAL 'OUTCHAN = STACK>
885 <VEQUAL? COD28 11 - PHRASE145 (TYPE FIX)>
888 <GEN-LVAL 'OUTCHAN = STACK>
891 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
892 <GEN-LVAL 'OUTCHAN = STACK>
896 <VEQUAL? COD28 12 - BOOL155 (TYPE FIX)>
900 <GEN-LVAL 'OUTCHAN = STACK>
904 <NTHUV SYM27 2 = STACK (TYPE ATOM)>
905 <GEN-LVAL 'OUTCHAN = STACK>
908 <NTHUV SYM27 7 = COD28>
909 <VEQUAL? COD28 'ANY + PHRASE165>
911 <NTHUV SYM27 7 = COD28>
912 <CONS COD28 DC10 = COD28>
914 <NTHUV SYM27 2 = DC10 (TYPE ATOM)>
916 <CONS DC10 () = DC10>
917 <CONS DC10 COD28 = DC10>
920 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
923 <TYPE? R7 <TYPE-CODE FALSE> + PHRASE169>
924 <EQUAL? R7 'ANY + PHRASE169>
925 <CONS R7 DC10 = TEMP22>
927 <CONS (VALUE) TEMP22 = DC10>
932 <GEN-LVAL 'OUTCHAN = STACK>
934 <EMPL? DC10 - TAG176 (TYPE LIST)>
939 <GEN-LVAL 'OUTCHAN = STACK>
942 <CHTYPE DC10 <TYPE-CODE DECL> = STACK>
944 <GEN-LVAL 'OUTCHAN = STACK>
945 <CALL '
\1aPRIN1 2 = INOPT9>