4 <ENTRY NTH-GEN REST-GEN PUT-GEN LNTH-GEN MT-GEN PUTREST-GEN IPUT-GEN IREMAS-GEN COMMUTE-STRUC DEFER-IT LIST-LNT-SPEC EMPTY-CHECK NTH-DO REST-DO RECTYPE? MONAD?-GEN BACK-GEN TOP-GEN>
6 <USE "COMPDEC" "CODGEN" "CHKDCL" "SPCGEN" "CARGEN" "MIMGEN" "ADVMESS">
12 <MANIFEST MAX-IN-ROW CMAX-IN-ROW>
15 <GFCN
\1aLIST-LNT-SPEC ("VALUE" ANY NODE ANY ANY ANY ANY FIX ANY) N4 W5 NF6 BR7 DI8 NUM9 SF10>
16 <TEMP K11 FLS14 B215 SDIR16 (B317 %<>) SBR22 TEMP34 F119 F220 F321 RAC13:TEMP>
18 <NTHUV N4 5 = K11 (TYPE LIST)>
19 <EQUAL? W5 'FLUSHED - TAG24>
20 <SET FLS14 'T (TYPE ATOM)>
23 <SET FLS14 %<> (TYPE FALSE)>
25 <TYPE? BR7 <TYPE-CODE FALSE> + PHRASE27>
26 <VEQUAL? FLS14 0 + PHRASE27>
31 <CALL '
\1aMAKE-TAG 0 = B215>
36 <NTHL K11 1 = TEMP34 (TYPE NODE)>
37 <NTHUV TEMP34 1 = TEMP34 (TYPE FIX)>
38 <VEQUAL? TEMP34 2 - PHRASE33 (TYPE FIX)>
40 <RESTL K11 1 = TEMP34 (TYPE LIST)>
42 <NTHL TEMP34 1 = TEMP34 (TYPE NODE)>
45 <NTHL K11 1 = TEMP34 (TYPE NODE)>
48 <NTHUV TEMP34 5 = TEMP34 (TYPE LIST)>
49 <NTHL TEMP34 1 = K11 (TYPE NODE)>
53 <CALL '
\1aGEN 1 = K11>
54 <TYPE? NF6 <TYPE-CODE FALSE> + TAG38>
56 <TYPE? DI8 <TYPE-CODE FALSE> - TAG37>
58 <SET DI8 'T (TYPE ATOM)>
61 <SET DI8 %<> (TYPE FALSE)>
63 <TYPE? SF10 <TYPE-CODE FALSE> + PHRASE40>
65 <FRAME '
\1aDEALLOCATE-TEMP>
68 <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG44>
69 <SET TEMP34 'T (TYPE ATOM)>
72 <SET TEMP34 %<> (TYPE FALSE)>
76 <CALL '
\1aREFERENCE 1 = STACK>
78 <CALL '
\1aMOVE-ARG 2 = STACK>
79 <CALL '
\1aDEALLOCATE-TEMP 1>
81 <TYPE? BR7 <TYPE-CODE FALSE> + PHRASE47>
82 <VEQUAL? FLS14 0 - PHRASE47>
83 <TYPE? DI8 <TYPE-CODE FALSE> - TAG49>
85 <SET DI8 'T (TYPE ATOM)>
88 <SET DI8 %<> (TYPE FALSE)>
90 <TYPE? DI8 <TYPE-CODE FALSE> + BOOL52>
95 <CALL '
\1aFLIP 1 = SBR22>
97 <SET F119 [==? G? G=? 1? 0?] (TYPE VECTOR)>
98 <TYPE? SBR22 <TYPE-CODE ATOM> - TAG54>
99 <LOOP (SBR22 VALUE) (F119 LENGTH VALUE)>
101 <NTHUV F119 1 = TEMP34>
102 <VEQUAL? TEMP34 SBR22 + TAG55>
104 <RESTUV F119 1 = F119 (TYPE VECTOR)>
105 <EMPUV? F119 - TAG56>
107 <SET F119 %<> (TYPE FALSE)>
109 <SET F220 [G? G=?] (TYPE VECTOR)>
110 <TYPE? SBR22 <TYPE-CODE ATOM> - TAG58>
111 <LOOP (SBR22 VALUE) (F220 LENGTH VALUE)>
113 <NTHUV F220 1 = TEMP34>
114 <VEQUAL? TEMP34 SBR22 + TAG59>
116 <RESTUV F220 1 = F220 (TYPE VECTOR)>
117 <EMPUV? F220 - TAG60>
119 <SET F220 %<> (TYPE FALSE)>
121 <SET F321 [L? L=?] (TYPE VECTOR)>
122 <TYPE? SBR22 <TYPE-CODE ATOM> - TAG62>
123 <LOOP (SBR22 VALUE) (F321 LENGTH VALUE)>
125 <NTHUV F321 1 = TEMP34>
126 <VEQUAL? TEMP34 SBR22 + TAG63>
128 <RESTUV F321 1 = F321 (TYPE VECTOR)>
129 <EMPUV? F321 - TAG64>
131 <SET F321 %<> (TYPE FALSE)>
133 <EQUAL? SBR22 'L=? + BOOL68>
134 <EQUAL? SBR22 'G? - PHRASE67>
137 <SUB NUM9 1 = NUM9 (TYPE FIX)>
139 <GRTR? NUM9 2 + PHRASE70 (TYPE FIX)>
143 <FRAME '
\1aEMPTY-LIST>
145 <GRTR? NUM9 0 + PHRASE76 (TYPE FIX)>
149 <TYPE? F321 <TYPE-CODE FALSE> + PHRASE80>
153 <TYPE? F220 <TYPE-CODE FALSE> - BOOL82>
154 <TYPE? F119 <TYPE-CODE FALSE> - PHRASE81>
157 <TYPE? SBR22 <TYPE-CODE FALSE> - PHRASE85>
159 <CALL '
\1aMAKE-TAG 0 = B317>
167 <VEQUAL? NUM9 0 + TAG87 (TYPE FIX)>
168 <SET SBR22 'T (TYPE ATOM)>
171 <TYPE? F119 <TYPE-CODE FALSE> - TAG90>
172 <SET SBR22 'T (TYPE ATOM)>
175 <SET SBR22 %<> (TYPE FALSE)>
179 <CALL '
\1aEMPTY-LIST 3>
180 <SUB NUM9 1 = NUM9 (TYPE FIX)>
181 <LESS? NUM9 0 - PHRASE93 (TYPE FIX)>
182 <TYPE? B317 <TYPE-CODE FALSE> + EXIT71>
183 <FRAME '
\1aLABEL-TAG>
186 <CALL '
\1aLABEL-TAG 1>
189 <FRAME '
\1aREST-LIST>
191 <TYPE? K11 <TYPE-CODE TEMP> - BOOL101>
192 <NTHUV K11 2 = SBR22 (TYPE FIX)>
193 <LESS? SBR22 2 + PHRASE100 (TYPE FIX)>
196 <FRAME '
\1aFREE-TEMP>
200 <CALL '
\1aFREE-TEMP 2>
203 <CALL '
\1aGEN-TEMP 1 = K11>
212 <CALL '
\1aREST-LIST 3>
215 <FRAME '
\1aFREE-TEMP>
218 <CALL '
\1aFREE-TEMP 1>
221 <TYPE? K11 <TYPE-CODE TEMP> - BOOL109>
222 <NTHUV K11 2 = SBR22 (TYPE FIX)>
223 <LESS? SBR22 2 + PHRASE108 (TYPE FIX)>
231 <CALL '
\1aGEN-TEMP 1 = STACK>
232 <CALL '
\1aMOVE-ARG 2 = K11>
237 <CALL '
\1aGEN-TEMP 1 = RAC13>
239 <TYPE? F220 <TYPE-CODE FALSE> - BOOL116>
240 <TYPE? F321 <TYPE-CODE FALSE> + PHRASE115>
242 <ADD NUM9 1 = SBR22 (TYPE FIX)>
252 <CALL '
\1aSET-TEMP 3>
255 <CONS 'VALUE () = SBR22>
256 <NTHUV K11 1 = TEMP34 (TYPE ATOM)>
257 <CONS TEMP34 SBR22 = STACK>
259 <CONS 'VALUE () = SBR22>
260 <NTHUV RAC13 1 = TEMP34 (TYPE ATOM)>
261 <CONS TEMP34 SBR22 = STACK>
264 <FRAME '
\1aLABEL-TAG>
266 <CALL '
\1aMAKE-TAG 0 = TEMP34>
268 <CALL '
\1aLABEL-TAG 1>
269 <FRAME '
\1aEMPTY-LIST>
271 <TYPE? F321 <TYPE-CODE FALSE> - PHRASE124>
272 <TYPE? F220 <TYPE-CODE FALSE> - BOOL126>
273 <TYPE? F119 <TYPE-CODE FALSE> - PHRASE124>
276 <CALL '
\1aMAKE-TAG 0 = B317>
285 <CALL '
\1aEMPTY-LIST 3>
286 <FRAME '
\1aREST-LIST>
290 <CALL '
\1aREST-LIST 3>
308 <TYPE? F321 <TYPE-CODE FALSE> - BOOL135>
310 <TYPE? F220 <TYPE-CODE FALSE> + PHRASE134>
313 <TYPE? B317 <TYPE-CODE FALSE> + PHRASE138>
314 <FRAME '
\1aBRANCH-TAG>
316 <CALL '
\1aBRANCH-TAG 1>
319 <FRAME '
\1aEMPTY-LIST>
322 <TYPE? F119 <TYPE-CODE FALSE> - TAG140>
324 <SET SBR22 'T (TYPE ATOM)>
327 <SET SBR22 %<> (TYPE FALSE)>
331 <CALL '
\1aEMPTY-LIST 3>
333 <TYPE? B317 <TYPE-CODE FALSE> + PHRASE143>
334 <FRAME '
\1aLABEL-TAG>
337 <CALL '
\1aLABEL-TAG 1>
339 <FRAME '
\1aFREE-TEMP>
342 <CALL '
\1aFREE-TEMP 1>
343 <FRAME '
\1aFREE-TEMP>
346 <CALL '
\1aFREE-TEMP 1>
348 <TYPE? BR7 <TYPE-CODE FALSE> - PHRASE148>
349 <FRAME '
\1aTRUE-FALSE>
356 <CALL '
\1aTRUE-FALSE 3 = SBR22>
360 <VEQUAL? FLS14 0 + TAG151>
365 <FRAME '
\1aREFERENCE>
368 <CALL '
\1aREFERENCE 1 = STACK>
371 <CALL '
\1aMOVE-ARG 2 = W5>
372 <FRAME '
\1aBRANCH-TAG>
375 <CALL '
\1aBRANCH-TAG 1>
376 <FRAME '
\1aLABEL-TAG>
379 <CALL '
\1aLABEL-TAG 1>
382 <END
\1aLIST-LNT-SPEC>
384 <GFCN
\1aLNTH-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
385 <TEMP TEMP12 ITYP10 TYP11>
387 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
389 <NTHL TEMP12 1 = TEMP12 (TYPE NODE)>
390 <NTHUV TEMP12 3 = ITYP10>
393 <CALL '
\1aSTRUCTYP 1 = TYP11>
398 <CALL '
\1aGEN 2 = TEMP12>
399 <FRAME '
\1aFREE-TEMP>
402 <CALL '
\1aFREE-TEMP 2>
403 <EQUAL? WHERE5 'DONT-CARE - PHRASE17>
406 <CALL '
\1aGEN-TEMP 1 = WHERE5>
409 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE19>
413 <CALL '
\1aUSE-TEMP 2>
415 <EQUAL? TYP11 'LIST - PHRASE22>
416 <FRAME '
\1aLENGTH-LIST>
420 <CALL '
\1aLENGTH-LIST 2>
424 <EQUAL? TYP11 'VECTOR + BOOL25>
425 <EQUAL? TYP11 'TUPLE - PHRASE24>
427 <FRAME '
\1aLENGTH-VECTOR>
431 <CALL '
\1aLENGTH-VECTOR 2>
435 <EQUAL? TYP11 'STRING - PHRASE27>
436 <FRAME '
\1aLENGTH-STRING>
440 <CALL '
\1aLENGTH-STRING 2>
444 <EQUAL? TYP11 'BYTES - PHRASE29>
445 <FRAME '
\1aLENGTH-BYTES>
449 <CALL '
\1aLENGTH-BYTES 2>
453 <EQUAL? TYP11 'UVECTOR - PHRASE31>
454 <FRAME '
\1aLENGTH-UVECTOR>
458 <CALL '
\1aLENGTH-UVECTOR 2>
462 <EQUAL? TYP11 'TEMPLATE - PHRASE33>
463 <FRAME '
\1aLENGTH-RECORD>
469 <CALL '
\1aLENGTH-RECORD 3>
473 <FRAME '
\1aLENGTH-RECORD>
479 <CALL '
\1aLENGTH-RECORD 3>
484 <GFCN
\1aMONAD?-GEN ("VALUE" ANY ANY ANY) NOD4 WHERE5>
492 <CALL '
\1aMT-GEN 2 = TEMP7>
497 <GFCN
\1aMT-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY <OR ATOM FALSE> ANY ANY) NOD9 WHERE10 NOTF11 BRANCH12 DIR13 SETF14>
498 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
508 <TEMP TEMP23 STRN15 ITYP17 SDIR18 TYP19 TY20 FLS21 B2-22>
510 <NTHUV NOD9 5 = TEMP23 (TYPE LIST)>
511 <NTHL TEMP23 1 = STRN15 (TYPE NODE)>
513 <NTHUV STRN15 3 = ITYP17>
517 <CALL '
\1aSTRUCTYP 1 = TYP19>
520 <CALL '
\1aISTYPE? 1 = TY20>
521 <EQUAL? WHERE10 'FLUSHED - TAG26>
522 <SET FLS21 'T (TYPE ATOM)>
525 <SET FLS21 %<> (TYPE FALSE)>
527 <TYPE? BRANCH12 <TYPE-CODE FALSE> + PHRASE29>
528 <VEQUAL? FLS21 0 + PHRASE29>
529 <SET TEMP23 BRANCH12>
533 <CALL '
\1aMAKE-TAG 0 = TEMP23>
537 <EQUAL? WHERE10 'DONT-CARE - PHRASE34>
540 <CALL '
\1aGEN-TEMP 1 = WHERE10>
542 <TYPE? NOTF11 <TYPE-CODE FALSE> + TAG38>
544 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG37>
546 <SET DIR13 'T (TYPE ATOM)>
549 <SET DIR13 %<> (TYPE FALSE)>
551 <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE40>
553 <FRAME '
\1aDEALLOCATE-TEMP>
555 <FRAME '
\1aREFERENCE>
556 <TYPE? SDIR18 <TYPE-CODE FALSE> - TAG44>
557 <SET TEMP23 'T (TYPE ATOM)>
560 <SET TEMP23 %<> (TYPE FALSE)>
564 <CALL '
\1aREFERENCE 1 = STACK>
566 <CALL '
\1aMOVE-ARG 2 = STACK>
567 <CALL '
\1aDEALLOCATE-TEMP 1>
569 <TYPE? BRANCH12 <TYPE-CODE FALSE> + PHRASE47>
570 <VEQUAL? FLS21 0 - PHRASE47>
571 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG49>
573 <SET DIR13 'T (TYPE ATOM)>
576 <SET DIR13 %<> (TYPE FALSE)>
581 <CALL '
\1aGEN 1 = STRN15>
582 <NTHUV NOD9 1 = TEMP23 (TYPE FIX)>
583 <VEQUAL? TEMP23 91 - PHRASE54 (TYPE FIX)>
588 <TYPE? DIR13 <TYPE-CODE FALSE> + PHRASE57>
590 <SET TEMP23 '+ (TYPE ATOM)>
593 <SET TEMP23 '- (TYPE ATOM)>
601 <EQUAL? TYP19 'LIST - PHRASE59>
602 <FRAME '
\1aEMPTY-LIST>
609 <CALL '
\1aEMPTY-LIST 4>
612 <EQUAL? TYP19 'VECTOR + BOOL62>
613 <EQUAL? TYP19 'TUPLE - PHRASE61>
615 <FRAME '
\1aEMPTY-VECTOR>
622 <CALL '
\1aEMPTY-VECTOR 4>
625 <EQUAL? TYP19 'UVECTOR - PHRASE64>
626 <FRAME '
\1aEMPTY-UVECTOR>
633 <CALL '
\1aEMPTY-UVECTOR 4>
636 <EQUAL? TYP19 'STRING - PHRASE66>
637 <FRAME '
\1aEMPTY-STRING>
644 <CALL '
\1aEMPTY-STRING 4>
647 <EQUAL? TYP19 'BYTES - PHRASE68>
648 <FRAME '
\1aEMPTY-BYTES>
655 <CALL '
\1aEMPTY-BYTES 4>
658 <EQUAL? TYP19 'TEMPLATE - PHRASE70>
659 <FRAME '
\1aEMPTY-RECORD>
666 <CALL '
\1aEMPTY-RECORD 4>
672 <CALL '
\1aISTYPE? 1 = TEMP23>
673 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE72>
675 <FRAME '
\1aEMPTY-RECORD>
682 <CALL '
\1aEMPTY-RECORD 4>
688 <TYPE? DIR13 <TYPE-CODE FALSE> + PHRASE78>
690 <SET TEMP23 '+ (TYPE ATOM)>
693 <SET TEMP23 '- (TYPE ATOM)>
700 <FRAME '
\1aFREE-TEMP>
703 <CALL '
\1aFREE-TEMP 1>
704 <TYPE? BRANCH12 <TYPE-CODE FALSE> - PHRASE82>
705 <FRAME '
\1aTRUE-FALSE>
712 <CALL '
\1aTRUE-FALSE 3 = TEMP23>
716 <VEQUAL? FLS21 0 + TAG85>
721 <FRAME '
\1aREFERENCE>
724 <CALL '
\1aREFERENCE 1 = STACK>
727 <CALL '
\1aMOVE-ARG 2 = WHERE10>
728 <FRAME '
\1aBRANCH-TAG>
731 <CALL '
\1aBRANCH-TAG 1>
732 <FRAME '
\1aLABEL-TAG>
735 <CALL '
\1aLABEL-TAG 1>
741 <GFCN
\1aREST-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
742 <TEMP TEMP22 STRNOD6:NODE NUMNOD7:NODE TYP8 TPS9 NUMKN10 NUM11:FIX ML12:FIX TEMP3:LBIND LCAREFUL17 W18 TEMP40 RV19>
744 <NTHUV NOD4 5 = TEMP22 (TYPE LIST)>
745 <NTHL TEMP22 1 = STRNOD6 (TYPE NODE)>
747 <NTHUV NOD4 5 = TEMP22 (TYPE LIST)>
748 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
749 <NTHL TEMP22 1 = NUMNOD7 (TYPE NODE)>
751 <NTHUV STRNOD6 3 = TYP8>
754 <CALL '
\1aSTRUCTYP 1 = TPS9>
755 <NTHUV NUMNOD7 1 = TEMP22 (TYPE FIX)>
756 <VEQUAL? TEMP22 2 - TAG24 (TYPE FIX)>
758 <SET NUMKN10 'T (TYPE ATOM)>
761 <SET NUMKN10 %<> (TYPE FALSE)>
763 <VEQUAL? NUMKN10 0 + PHRASE27>
764 <NTHUV NUMNOD7 4 = TEMP22>
765 <TYPE? TEMP22 <TYPE-CODE OFFSET> - PHRASE29>
767 <NTHUV NUMNOD7 4 = TEMP22 (TYPE OFFSET)>
768 <NTHUV TEMP22 1 = TEMP22>
771 <NTHUV NUMNOD7 4 = TEMP22 (TYPE FIX)>
774 <SET TEMP22 0 (TYPE FIX)>
780 <CALL '
\1aMINL 1 = ML12>
781 <GEN-LVAL 'NO-KILL = TEMP22>
782 <GETS 'BIND = TEMP3 (TYPE LBIND)>
783 <BBIND 'NO-KILL 'LIST 'FIX TEMP22>
785 <GEN-LVAL 'CAREFUL = LCAREFUL17>
789 <CALL '
\1aISTYPE? 1 = TEMP40>
790 <EQUAL? TEMP40 TPS9 + TAG38>
792 <SET TEMP22 'T (TYPE ATOM)>
795 <NTHUV STRNOD6 1 = TEMP40 (TYPE FIX)>
796 <VEQUAL? TEMP40 37 - TAG41 (TYPE FIX)>
798 <SET TEMP22 'T (TYPE ATOM)>
801 <SET TEMP22 %<> (TYPE FALSE)>
803 <FRAME '
\1aGET-RANGE>
804 <NTHUV NUMNOD7 3 = STACK>
805 <CALL '
\1aGET-RANGE 1 = TEMP40>
806 <FRAME '
\1aCOMMUTE-STRUC>
810 <CALL '
\1aCOMMUTE-STRUC 3 = RV19>
811 <VEQUAL? NUMKN10 0 + PHRASE46>
813 <LESS? NUM11 0 - PHRASE48 (TYPE FIX)>
814 <FRAME '
\1aCOMPILE-ERROR>
816 <NTHUV NOD4 4 = STACK>
819 <CALL '
\1aCOMPILE-ERROR 3>
822 <VEQUAL? NUM11 0 - PHRASE52 (TYPE FIX)>
823 <EQUAL? WHERE5 'DONT-CARE - PHRASE56>
825 <CALL '
\1aGEN-TEMP 0 = W18>
829 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE58>
832 <VEQUAL? TEMP22 0 + PHRASE61>
833 <SET TEMP40 'ANY (TYPE ATOM)>
841 <CALL '
\1aUSE-TEMP 2>
844 <GVAL 'POP-STACK = TEMP40>
845 <EQUAL? TEMP40 WHERE5 - PHRASE62>
847 <VEQUAL? TEMP22 0 + PHRASE62>
850 <CALL '
\1aGEN-TEMP 1 = W18>
859 <EQUAL? TPS9 'LIST - PHRASE66>
860 <TYPE? LCAREFUL17 <TYPE-CODE FALSE> + BOOL69>
861 <GRTR? NUM11 ML12 + BOOL68 (TYPE FIX)>
863 <GRTR? NUM11 4 + PHRASE66 (TYPE FIX)>
865 <EQUAL? WHERE5 'DONT-CARE - PHRASE71>
868 <CALL '
\1aGEN-TEMP 1 = W18>
872 <TYPE? WHERE5 <TYPE-CODE TEMP> + PHRASE73>
873 <GVAL 'POP-STACK = TEMP40>
874 <EQUAL? TEMP40 WHERE5 - PHRASE73>
876 <VEQUAL? TEMP22 0 + PHRASE73>
879 <CALL '
\1aGEN-TEMP 1 = W18>
881 <FRAME '
\1aEXPANDED-LIST-REST>
885 <CALL '
\1aGEN 1 = STACK>
894 <CALL '
\1aEXPANDED-LIST-REST 5 = W18>
897 <TYPE? TPS9 <TYPE-CODE FALSE> + PHRASE78>
901 <CALL '
\1aGEN 1 = NUMKN10>
902 <TYPE? LCAREFUL17 <TYPE-CODE FALSE> + PHRASE81>
904 <GRTR? NUM11 ML12 - PHRASE81 (TYPE FIX)>
906 <FRAME '
\1aLENGTH-CHECK>
912 <CALL '
\1aRECTYPE? 1 = STACK>
913 <CALL '
\1aLENGTH-CHECK 4>
915 <FRAME '
\1aFREE-TEMP>
918 <CALL '
\1aFREE-TEMP 2>
919 <EQUAL? WHERE5 'DONT-CARE - PHRASE87>
921 <VEQUAL? TEMP22 0 + PHRASE90>
922 <SET TEMP40 'ANY (TYPE ATOM)>
929 <CALL '
\1aGEN-TEMP 1 = W18>
933 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE91>
936 <VEQUAL? TEMP22 0 + PHRASE94>
937 <SET TEMP40 'ANY (TYPE ATOM)>
944 <CALL '
\1aUSE-TEMP 2>
947 <GVAL 'POP-STACK = TEMP40>
948 <EQUAL? TEMP40 WHERE5 - PHRASE95>
950 <VEQUAL? TEMP22 0 + PHRASE95>
952 <CALL '
\1aGEN-TEMP 0 = W18>
964 <CALL '
\1aRECTYPE? 1 = STACK>
971 <CALL '
\1aGEN 1 = NUMKN10>
972 <FRAME '
\1aFREE-TEMP>
975 <CALL '
\1aFREE-TEMP 2>
976 <EQUAL? WHERE5 'DONT-CARE - PHRASE104>
978 <CALL '
\1aGEN-TEMP 0 = W18>
982 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE106>
985 <CALL '
\1aUSE-TEMP 1>
987 <SET TEMP22 %<> (TYPE FALSE)>
996 <VEQUAL? TEMP22 0 + PHRASE110>
998 <FRAME '
\1aGEN-CHTYPE>
1004 <CALL '
\1aGEN-CHTYPE 3>
1010 <TYPE? RV19 <TYPE-CODE FALSE> + PHRASE114>
1016 <CALL '
\1aGEN 2 = RV19>
1017 <FRAME '
\1aINTERF-CHANGE>
1021 <CALL '
\1aINTERF-CHANGE 2 = RV19>
1026 <CALL '
\1aGEN 2 = NUMKN10>
1033 <CALL '
\1aGEN 2 = NUMKN10>
1034 <FRAME '
\1aINTERF-CHANGE>
1038 <CALL '
\1aINTERF-CHANGE 2 = NUMKN10>
1043 <CALL '
\1aGEN 2 = RV19>
1045 <TYPE? LCAREFUL17 <TYPE-CODE FALSE> + PHRASE123>
1046 <TYPE? TEMP40 <TYPE-CODE FALSE> + BOOL125>
1047 <NTHL TEMP40 1 = TEMP40 (TYPE FIX)>
1048 <LESS? TEMP40 0 - PHRASE123 (TYPE FIX)>
1051 <EQUAL? TPS9 'LIST + PHRASE123>
1052 <FRAME '
\1aLENGTH-CHECK>
1056 <FRAME '
\1aRECTYPE?>
1058 <CALL '
\1aRECTYPE? 1 = STACK>
1059 <CALL '
\1aLENGTH-CHECK 4>
1061 <EQUAL? TPS9 'LIST + PHRASE132>
1062 <FRAME '
\1aFREE-TEMP>
1065 <CALL '
\1aFREE-TEMP 2>
1066 <FRAME '
\1aFREE-TEMP>
1069 <CALL '
\1aFREE-TEMP 2>
1071 <EQUAL? TPS9 'LIST - PHRASE136>
1072 <GVAL 'POP-STACK = TEMP40>
1073 <EQUAL? TEMP40 WHERE5 - PHRASE138>
1075 <VEQUAL? TEMP22 0 + PHRASE138>
1076 <FRAME '
\1aGEN-TEMP>
1077 <CALL '
\1aGEN-TEMP 0 = W18>
1079 <FRAME '
\1aEXPANDED-LIST-REST>
1090 <CALL '
\1aEXPANDED-LIST-REST 5 = W18>
1091 <VEQUAL? TEMP22 0 + BOOL144>
1092 <EQUAL? WHERE5 'DONT-CARE - PHRASE145>
1097 <EQUAL? WHERE5 'DONT-CARE - PHRASE147>
1098 <FRAME '
\1aGEN-TEMP>
1099 <VEQUAL? TEMP22 0 + PHRASE150>
1100 <SET TEMP40 'ANY (TYPE ATOM)>
1107 <CALL '
\1aGEN-TEMP 1 = W18>
1111 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE151>
1112 <FRAME '
\1aUSE-TEMP>
1114 <VEQUAL? TEMP22 0 + PHRASE154>
1115 <SET TEMP40 'ANY (TYPE ATOM)>
1122 <CALL '
\1aUSE-TEMP 2>
1125 <GVAL 'POP-STACK = TEMP40>
1126 <EQUAL? TEMP40 WHERE5 - PHRASE155>
1128 <VEQUAL? TEMP22 0 + PHRASE155>
1129 <FRAME '
\1aGEN-TEMP>
1130 <CALL '
\1aGEN-TEMP 0 = W18>
1139 <FRAME '
\1aRECTYPE?>
1142 <CALL '
\1aRECTYPE? 1 = STACK>
1143 <CALL '
\1aREST-DO 5>
1145 <VEQUAL? TEMP22 0 + PHRASE161>
1147 <FRAME '
\1aGEN-CHTYPE>
1153 <CALL '
\1aGEN-CHTYPE 3>
1166 <GFCN
\1aREST-DO ("VALUE" ANY ANY ANY ANY ANY "OPTIONAL" ANY) TPS6 STR7 WHERE8 NUM9 TYP10>
1167 <OPT-DISPATCH 4 %<> OPT4 OPT5>
1173 <EQUAL? TPS6 'VECTOR + BOOL13>
1174 <EQUAL? TPS6 'TUPLE - PHRASE12>
1176 <FRAME '
\1aREST-VECTOR>
1185 <CALL '
\1aREST-VECTOR 4 = TEMP15>
1189 <EQUAL? TPS6 'UVECTOR - PHRASE16>
1190 <FRAME '
\1aREST-UVECTOR>
1197 <CALL '
\1aREST-UVECTOR 3 = TEMP15>
1201 <EQUAL? TPS6 'STRING - PHRASE18>
1202 <FRAME '
\1aREST-STRING>
1209 <CALL '
\1aREST-STRING 3 = TEMP15>
1213 <EQUAL? TPS6 'BYTES - PHRASE20>
1214 <FRAME '
\1aREST-BYTES>
1221 <CALL '
\1aREST-BYTES 3 = TEMP15>
1225 <EQUAL? TPS6 'LIST - PHRASE22>
1226 <FRAME '
\1aREST-LIST>
1233 <CALL '
\1aREST-LIST 3 = TEMP15>
1237 <EQUAL? TPS6 'TEMPLATE - PHRASE24>
1238 <FRAME '
\1aREST-RECORD>
1247 <CALL '
\1aREST-RECORD 4 = TEMP15>
1251 <FRAME '
\1aREST-RECORD>
1260 <CALL '
\1aREST-RECORD 4 = TEMP15>
1265 <GFCN
\1aNTH-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1266 <TEMP (K6 %<>) TEMP24 TYP8 TPS9 2ARG10:NODE NUMKN12 NUM13 NR14 LCAREFUL20 ML21:FIX RESTYP23>
1268 <NTHUV NOD4 5 = K6 (TYPE LIST)>
1269 <NTHL K6 1 = TEMP24 (TYPE NODE)>
1270 <NTHUV TEMP24 3 = TYP8>
1272 <FRAME '
\1aSTRUCTYP>
1274 <CALL '
\1aSTRUCTYP 1 = TPS9>
1275 <RESTL K6 1 = TEMP24 (TYPE LIST)>
1276 <NTHL TEMP24 1 = 2ARG10 (TYPE NODE)>
1278 <NTHUV 2ARG10 1 = TEMP24 (TYPE FIX)>
1279 <VEQUAL? TEMP24 2 - TAG26 (TYPE FIX)>
1281 <SET NUMKN12 'T (TYPE ATOM)>
1284 <SET NUMKN12 %<> (TYPE FALSE)>
1286 <VEQUAL? NUMKN12 0 + PHRASE29>
1287 <NTHUV 2ARG10 4 = TEMP24>
1288 <TYPE? TEMP24 <TYPE-CODE OFFSET> - PHRASE31>
1290 <NTHUV 2ARG10 4 = TEMP24 (TYPE OFFSET)>
1291 <NTHUV TEMP24 1 = TEMP24>
1294 <NTHUV 2ARG10 4 = TEMP24 (TYPE FIX)>
1297 <SET TEMP24 1 (TYPE FIX)>
1301 <FRAME '
\1aGET-RANGE>
1302 <NTHUV 2ARG10 3 = STACK>
1303 <CALL '
\1aGET-RANGE 1 = NR14>
1304 <NTHL K6 1 = K6 (TYPE NODE)>
1305 <GEN-LVAL 'CAREFUL = LCAREFUL20>
1308 <CALL '
\1aMINL 1 = ML21>
1309 <NTHUV NOD4 4 = TEMP24>
1310 <EQUAL? TEMP24 'INTH - TAG38>
1312 <SET TEMP24 'T (TYPE ATOM)>
1315 <SET TEMP24 %<> (TYPE FALSE)>
1318 <NTHUV NOD4 3 = STACK>
1319 <CALL '
\1aISTYPE? 1 = RESTYP23>
1320 <VEQUAL? NUMKN12 0 + PHRASE42>
1321 <PUTUV 2ARG10 4 NUM13>
1323 <VEQUAL? NUMKN12 0 + PHRASE44>
1325 <GRTR? NUM13 0 + PHRASE46 (TYPE FIX)>
1326 <FRAME '
\1aCOMPILE-ERROR>
1327 <PUSH "Negative or 0 ">
1328 <NTHUV NOD4 4 = STACK>
1331 <CALL '
\1aCOMPILE-ERROR 3>
1335 <VEQUAL? NUM13 1 - PHRASE50 (TYPE FIX)>
1339 <CALL '
\1aGEN 1 = NUMKN12>
1340 <TYPE? TPS9 <TYPE-CODE FALSE> + PHRASE55>
1341 <TYPE? LCAREFUL20 <TYPE-CODE FALSE> + PHRASE55>
1343 <VEQUAL? ML21 0 - PHRASE55 (TYPE FIX)>
1345 <FRAME '
\1aEMPTY-CHECK>
1348 <FRAME '
\1aRECTYPE?>
1350 <CALL '
\1aRECTYPE? 1 = STACK>
1351 <CALL '
\1aEMPTY-CHECK 3>
1353 <FRAME '
\1aFREE-TEMP>
1356 <CALL '
\1aFREE-TEMP 2>
1357 <EQUAL? WHERE5 'DONT-CARE - PHRASE63>
1358 <FRAME '
\1aGEN-TEMP>
1359 <NTHUV NOD4 3 = STACK>
1361 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1364 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE65>
1365 <FRAME '
\1aUSE-TEMP>
1367 <NTHUV NOD4 3 = STACK>
1369 <CALL '
\1aUSE-TEMP 2>
1371 <TYPE? TPS9 <TYPE-CODE FALSE> + PHRASE68>
1379 <FRAME '
\1aRECTYPE?>
1382 <CALL '
\1aRECTYPE? 1 = STACK>
1399 <EQUAL? TPS9 'LIST - PHRASE73>
1400 <TYPE? LCAREFUL20 <TYPE-CODE FALSE> + BOOL76>
1401 <GRTR? NUM13 ML21 + BOOL75 (TYPE FIX)>
1403 <GRTR? NUM13 4 + PHRASE73 (TYPE FIX)>
1405 <FRAME '
\1aEXPANDED-LIST-REST>
1409 <CALL '
\1aGEN 1 = STACK>
1416 <CALL '
\1aEXPANDED-LIST-REST 4 = NUMKN12>
1417 <FRAME '
\1aFREE-TEMP>
1420 <CALL '
\1aFREE-TEMP 2>
1421 <EQUAL? WHERE5 'DONT-CARE - PHRASE81>
1422 <FRAME '
\1aGEN-TEMP>
1423 <NTHUV NOD4 3 = STACK>
1425 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1428 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE83>
1429 <FRAME '
\1aUSE-TEMP>
1431 <NTHUV NOD4 3 = STACK>
1433 <CALL '
\1aUSE-TEMP 2>
1452 <CALL '
\1aGEN 2 = NUMKN12>
1453 <TYPE? LCAREFUL20 <TYPE-CODE FALSE> + PHRASE89>
1455 <GRTR? NUM13 ML21 - PHRASE89 (TYPE FIX)>
1457 <FRAME '
\1aLENGTH-CHECK>
1461 <FRAME '
\1aRECTYPE?>
1463 <CALL '
\1aRECTYPE? 1 = STACK>
1464 <CALL '
\1aLENGTH-CHECK 4>
1466 <FRAME '
\1aFREE-TEMP>
1469 <CALL '
\1aFREE-TEMP 2>
1470 <EQUAL? WHERE5 'DONT-CARE - PHRASE95>
1471 <FRAME '
\1aGEN-TEMP>
1472 <NTHUV NOD4 3 = STACK>
1474 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1477 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE97>
1478 <FRAME '
\1aUSE-TEMP>
1480 <NTHUV NOD4 3 = STACK>
1482 <CALL '
\1aUSE-TEMP 2>
1492 <FRAME '
\1aRECTYPE?>
1495 <CALL '
\1aRECTYPE? 1 = STACK>
1502 <VEQUAL? TEMP24 0 + PHRASE103>
1508 <CALL '
\1aGEN 2 = NUM13>
1509 <FRAME '
\1aINTERF-CHANGE>
1513 <CALL '
\1aINTERF-CHANGE 2 = NUM13>
1518 <CALL '
\1aGEN 2 = NUMKN12>
1525 <CALL '
\1aGEN 2 = NUMKN12>
1526 <FRAME '
\1aINTERF-CHANGE>
1530 <CALL '
\1aINTERF-CHANGE 2 = NUMKN12>
1535 <CALL '
\1aGEN 2 = NUM13>
1537 <TYPE? LCAREFUL20 <TYPE-CODE FALSE> + PHRASE112>
1538 <TYPE? NR14 <TYPE-CODE FALSE> + BOOL114>
1539 <NTHL NR14 1 = TEMP24>
1541 <GRTR? TEMP24 0 + PHRASE112>
1544 <EQUAL? TPS9 'LIST + PHRASE112>
1545 <FRAME '
\1aLENGTH-CHECK>
1549 <FRAME '
\1aRECTYPE?>
1551 <CALL '
\1aRECTYPE? 1 = STACK>
1552 <CALL '
\1aLENGTH-CHECK 4>
1554 <EQUAL? WHERE5 'DONT-CARE - PHRASE120>
1555 <FRAME '
\1aGEN-TEMP>
1556 <NTHUV NOD4 3 = STACK>
1558 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1561 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE122>
1562 <FRAME '
\1aUSE-TEMP>
1564 <NTHUV NOD4 3 = STACK>
1566 <CALL '
\1aUSE-TEMP 2>
1568 <EQUAL? TPS9 'LIST - PHRASE125>
1569 <FRAME '
\1aEXPANDED-LIST-REST>
1578 <CALL '
\1aEXPANDED-LIST-REST 4 = NUMKN12>
1588 <FRAME '
\1aFREE-TEMP>
1592 <CALL '
\1aFREE-TEMP 2>
1602 <FRAME '
\1aRECTYPE?>
1605 <CALL '
\1aRECTYPE? 1 = STACK>
1609 <FRAME '
\1aFREE-TEMP>
1613 <CALL '
\1aFREE-TEMP 2>
1614 <FRAME '
\1aFREE-TEMP>
1618 <CALL '
\1aFREE-TEMP 2>
1623 <GFCN
\1aEXPANDED-LIST-REST ("VALUE" ANY ANY ANY FIX ANY "OPTIONAL" ANY) STR6 NUM7 ML8 LCAREFUL9 W10>
1624 <OPT-DISPATCH 4 %<> OPT4 OPT5>
1628 <TEMP TG212 NUMN13 TEMP22 TG111 TEMP92:ATOM>
1631 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE15>
1632 <TYPE? W10 <TYPE-CODE UNBOUND> - PHRASE15>
1633 <SUB NUM7 1 = NUM7 (TYPE FIX)>
1635 <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE18>
1636 <TYPE? LCAREFUL9 <TYPE-CODE FALSE> + PHRASE21>
1637 <SET TEMP22 2 (TYPE FIX)>
1640 <SET TEMP22 4 (TYPE FIX)>
1642 <GRTR? NUM7 TEMP22 + PHRASE18 (TYPE FIX)>
1647 <GRTR? ML8 0 + PHRASE27 (TYPE FIX)>
1648 <TYPE? LCAREFUL9 <TYPE-CODE FALSE> + PHRASE27>
1649 <FRAME '
\1aEMPTY-CHECK>
1653 <CALL '
\1aEMPTY-CHECK 3>
1655 <TYPE? W10 <TYPE-CODE UNBOUND> + PHRASE33>
1656 <VEQUAL? NUM7 1 - PHRASE33 (TYPE FIX)>
1657 <FRAME '
\1aFREE-TEMP>
1660 <CALL '
\1aFREE-TEMP 2>
1661 <EQUAL? W10 'DONT-CARE - PHRASE39>
1662 <FRAME '
\1aGEN-TEMP>
1664 <CALL '
\1aGEN-TEMP 1 = W10>
1667 <TYPE? W10 <TYPE-CODE TEMP> - PHRASE41>
1668 <FRAME '
\1aUSE-TEMP>
1671 <CALL '
\1aUSE-TEMP 2>
1679 <CALL '
\1aREST-DO 4>
1683 <TYPE? STR6 <TYPE-CODE TEMP> - PHRASE44>
1684 <NTHUV STR6 2 = TEMP22 (TYPE FIX)>
1685 <GRTR? TEMP22 1 - BOOL46 (TYPE FIX)>
1687 <TYPE? W10 <TYPE-CODE UNBOUND> + PHRASE44>
1688 <EQUAL? STR6 W10 - PHRASE44>
1695 <CALL '
\1aREST-DO 4>
1698 <FRAME '
\1aFREE-TEMP>
1701 <CALL '
\1aFREE-TEMP 2>
1706 <FRAME '
\1aGEN-TEMP>
1708 <CALL '
\1aGEN-TEMP 1 = STR6>
1711 <CALL '
\1aREST-DO 4>
1713 <SUB NUM7 1 = NUM7 (TYPE FIX)>
1714 <GRTR? NUM7 0 + PHRASE57 (TYPE FIX)>
1715 <TYPE? LCAREFUL9 <TYPE-CODE FALSE> + EXIT24>
1717 <TYPE? W10 <TYPE-CODE UNBOUND> - EXIT24>
1719 <GRTR? ML8 1 + EXIT24 (TYPE FIX)>
1721 <FRAME '
\1aEMPTY-CHECK>
1725 <CALL '
\1aEMPTY-CHECK 3>
1729 <SUB ML8 1 = ML8 (TYPE FIX)>
1735 <TYPE? NUM7 <TYPE-CODE TEMP> - BOOL69>
1736 <NTHUV NUM7 2 = TEMP22 (TYPE FIX)>
1737 <GRTR? TEMP22 1 - PHRASE68 (TYPE FIX)>
1740 <FRAME '
\1aMOVE-ARG>
1742 <FRAME '
\1aGEN-TEMP>
1744 <CALL '
\1aGEN-TEMP 1 = STACK>
1745 <CALL '
\1aMOVE-ARG 2 = NUMN13>
1747 <FRAME '
\1aMAKE-TAG>
1749 <CALL '
\1aMAKE-TAG 1 = TG111>
1750 <TYPE? STR6 <TYPE-CODE TEMP> - BOOL81>
1751 <NTHUV STR6 2 = TEMP22 (TYPE FIX)>
1752 <GRTR? TEMP22 1 - PHRASE76 (TYPE FIX)>
1754 <TYPE? W10 <TYPE-CODE UNBOUND> + BOOL81>
1755 <EQUAL? W10 STR6 + PHRASE76>
1757 <FRAME '
\1aMOVE-ARG>
1760 <FRAME '
\1aGEN-TEMP>
1762 <CALL '
\1aGEN-TEMP 1 = STACK>
1763 <CALL '
\1aMOVE-ARG 2 = STR6>
1765 <TYPE? NUM7 <TYPE-CODE FIX> + PHRASE85>
1766 <FRAME '
\1aMAKE-TAG>
1768 <CALL '
\1aMAKE-TAG 1 = TG212>
1769 <TYPE? W10 <TYPE-CODE UNBOUND> - PHRASE88>
1790 <CONS 'VALUE () = TEMP22>
1791 <NTHUV STR6 1 = TEMP92 (TYPE ATOM)>
1792 <CONS TEMP92 TEMP22 = STACK>
1793 <DEAD TEMP92 TEMP22>
1794 <CONS 'VALUE () = TEMP22>
1795 <NTHUV NUMN13 1 = TEMP92 (TYPE ATOM)>
1796 <CONS TEMP92 TEMP22 = STACK>
1797 <DEAD TEMP92 TEMP22>
1799 <FRAME '
\1aLABEL-TAG>
1801 <CALL '
\1aLABEL-TAG 1>
1805 <TYPE? LCAREFUL9 <TYPE-CODE FALSE> + PHRASE96>
1806 <TYPE? NUM7 <TYPE-CODE FIX> - BOOL98>
1807 <GRTR? NUM7 ML8 - PHRASE96 (TYPE FIX)>
1810 <FRAME '
\1aEMPTY-CHECK>
1814 <CALL '
\1aEMPTY-CHECK 3>
1821 <CALL '
\1aREST-DO 4>
1839 <TYPE? TG212 <TYPE-CODE UNBOUND> + PHRASE104>
1840 <FRAME '
\1aLABEL-TAG>
1843 <CALL '
\1aLABEL-TAG 1>
1845 <FRAME '
\1aFREE-TEMP>
1848 <CALL '
\1aFREE-TEMP 1>
1849 <TYPE? LCAREFUL9 <TYPE-CODE FALSE> + PHRASE108>
1851 <TYPE? W10 <TYPE-CODE UNBOUND> - PHRASE108>
1852 <FRAME '
\1aEMPTY-CHECK>
1856 <CALL '
\1aEMPTY-CHECK 3>
1858 <TYPE? W10 <TYPE-CODE UNBOUND> + PHRASE112>
1859 <FRAME '
\1aMOVE-ARG>
1864 <CALL '
\1aMOVE-ARG 2 = STR6>
1868 <END
\1aEXPANDED-LIST-REST>
\r\r
1870 <GFCN
\1aNTH-DO ("VALUE" ATOM ANY ANY ANY ANY "OPTIONAL" ANY ANY) TPS7 STR8 WHERE9 NUM10 TYP11 RESTYP12>
1871 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
1879 <EQUAL? TPS7 'VECTOR + BOOL15>
1880 <EQUAL? TPS7 'TUPLE - PHRASE14>
1882 <FRAME '
\1aNTH-VECTOR>
1891 <CALL '
\1aNTH-VECTOR 4 = TEMP17>
1895 <EQUAL? TPS7 'UVECTOR - PHRASE18>
1896 <FRAME '
\1aNTH-UVECTOR>
1905 <CALL '
\1aNTH-UVECTOR 4 = TEMP17>
1909 <EQUAL? TPS7 'STRING - PHRASE20>
1910 <FRAME '
\1aNTH-STRING>
1919 <CALL '
\1aNTH-STRING 4 = TEMP17>
1923 <EQUAL? TPS7 'BYTES - PHRASE22>
1924 <FRAME '
\1aNTH-BYTES>
1933 <CALL '
\1aNTH-BYTES 4 = TEMP17>
1937 <EQUAL? TPS7 'LIST - PHRASE24>
1938 <FRAME '
\1aNTH-LIST>
1947 <CALL '
\1aNTH-LIST 4 = TEMP17>
1951 <EQUAL? TPS7 'TEMPLATE - PHRASE26>
1952 <FRAME '
\1aNTH-RECORD>
1963 <CALL '
\1aNTH-RECORD 5 = TEMP17>
1967 <FRAME '
\1aNTH-RECORD>
1978 <CALL '
\1aNTH-RECORD 5 = TEMP17>
1982 <SETG STYPES [LIST TUPLE VECTOR UVECTOR STORAGE STRING BYTES TEMPLATE]>
1985 <GFCN
\1aNTH-PRED ("VALUE" <OR ATOM !<FALSE>> FIX) C4>
1988 <VEQUAL? C4 1 - TAG6 (TYPE FIX)>
1995 <GFCN
\1aPUT-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY) NOD6 WHERE7 SAME?8>
1996 <OPT-DISPATCH 2 %<> OPT4 OPT5>
2000 <TEMP ONO9 K10 SNOD11:NODE TEMP30 NNOD12:NODE TYP14 TPS15 ML16:FIX NUMKN20 NUM21:FIX RV22 RR23 NR24 W26 ETYP25 TEMP61 TEMP62 VN17>
2002 <GEN-LVAL 'NO-KILL = ONO9>
2003 <NTHUV NOD6 5 = K10 (TYPE LIST)>
2004 <NTHL K10 1 = SNOD11 (TYPE NODE)>
2005 <RESTL K10 1 = TEMP30 (TYPE LIST)>
2006 <NTHL TEMP30 1 = NNOD12 (TYPE NODE)>
2008 <RESTL K10 1 = TEMP30 (TYPE LIST)>
2010 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
2011 <NTHL TEMP30 1 = K10 (TYPE NODE)>
2013 <NTHUV SNOD11 3 = TYP14>
2014 <FRAME '
\1aSTRUCTYP>
2016 <CALL '
\1aSTRUCTYP 1 = TPS15>
2019 <CALL '
\1aMINL 1 = ML16>
2020 <NTHUV NNOD12 1 = TEMP30 (TYPE FIX)>
2021 <VEQUAL? TEMP30 2 - TAG33 (TYPE FIX)>
2023 <SET NUMKN20 'T (TYPE ATOM)>
2026 <SET NUMKN20 %<> (TYPE FALSE)>
2028 <VEQUAL? NUMKN20 0 + PHRASE36>
2029 <NTHUV NNOD12 4 = TEMP30>
2030 <TYPE? TEMP30 <TYPE-CODE OFFSET> - PHRASE38>
2032 <NTHUV NNOD12 4 = TEMP30 (TYPE OFFSET)>
2033 <NTHUV TEMP30 1 = TEMP30>
2036 <NTHUV NNOD12 4 = TEMP30 (TYPE FIX)>
2039 <SET TEMP30 1 (TYPE FIX)>
2043 <TYPE? SAME?8 <TYPE-CODE FALSE> + TAG42>
2044 <SET TEMP30 %<> (TYPE FALSE)>
2047 <FRAME '
\1aCOMMUTE-STRUC>
2051 <CALL '
\1aCOMMUTE-STRUC 3 = TEMP30>
2055 <TYPE? SAME?8 <TYPE-CODE FALSE> + TAG45>
2056 <SET TEMP30 %<> (TYPE FALSE)>
2059 <FRAME '
\1aCOMMUTE-STRUC>
2063 <CALL '
\1aCOMMUTE-STRUC 3 = TEMP30>
2064 <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL44>
2065 <FRAME '
\1aCOMMUTE-STRUC>
2069 <CALL '
\1aCOMMUTE-STRUC 3 = TEMP30>
2073 <FRAME '
\1aGET-RANGE>
2074 <NTHUV NNOD12 3 = STACK>
2075 <CALL '
\1aGET-RANGE 1 = NR24>
2078 <VEQUAL? NUMKN20 0 + PHRASE50>
2079 <PUTUV NNOD12 4 NUM21>
2081 <FRAME '
\1aGET-ELE-TYPE>
2083 <VEQUAL? NUMKN20 0 + PHRASE53>
2087 <SET TEMP30 'ALL (TYPE ATOM)>
2091 <CALL '
\1aGET-ELE-TYPE 2 = ETYP25>
2092 <FRAME '
\1aSTRUCTYP>
2094 <CALL '
\1aSTRUCTYP 1 = TEMP30>
2095 <SET TEMP61 [VECTOR UVECTOR STRING BYTES] (TYPE VECTOR)>
2096 <TYPE? TEMP30 <TYPE-CODE ATOM> - PHRASE55>
2097 <LOOP (TEMP30 VALUE) (TEMP61 LENGTH VALUE)>
2099 <NTHUV TEMP61 1 = TEMP62>
2100 <VEQUAL? TEMP62 TEMP30 + TAG57>
2102 <RESTUV TEMP61 1 = TEMP61 (TYPE VECTOR)>
2103 <EMPUV? TEMP61 - TAG58>
2106 <TYPE? ETYP25 <TYPE-CODE SEGMENT> + PHRASE55>
2107 <TYPE? ETYP25 <TYPE-CODE ATOM> - BOOL63>
2108 <FRAME '
\1aDECL-GET>
2110 <CALL '
\1aDECL-GET 1 = TEMP61>
2111 <TYPE? TEMP61 <TYPE-CODE SEGMENT> + PHRASE55>
2114 <SET ETYP25 %<> (TYPE FALSE)>
2120 <CALL '
\1aISTYPE? 1 = ETYP25>
2122 <NTHUV K10 3 = STACK>
2123 <CALL '
\1aISTYPE? 1 = TEMP61>
2124 <VEQUAL? ETYP25 TEMP61 + PHRASE65>
2126 <SET ETYP25 %<> (TYPE FALSE)>
2128 <VEQUAL? NUMKN20 0 + PHRASE69>
2130 <GRTR? NUM21 0 + PHRASE71 (TYPE FIX)>
2131 <FRAME '
\1aCOMPILE-ERROR>
2132 <PUSH "PUT Number to small: ">
2137 <CALL '
\1aCOMPILE-ERROR 3>
2141 <VEQUAL? NUM21 1 - PHRASE75 (TYPE FIX)>
2142 <TYPE? RR23 <TYPE-CODE FALSE> + PHRASE79>
2147 <CALL '
\1aGEN 2 = VN17>
2148 <FRAME '
\1aINTERF-CHANGE>
2152 <CALL '
\1aINTERF-CHANGE 2 = VN17>
2157 <CALL '
\1aGEN 2 = TEMP30>
2158 <VEQUAL? ML16 0 - PHRASE104 (TYPE FIX)>
2160 <GEN-LVAL 'CAREFUL = TEMP61>
2161 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE104>
2163 <FRAME '
\1aEMPTY-CHECK>
2166 <FRAME '
\1aRECTYPE?>
2168 <CALL '
\1aRECTYPE? 1 = STACK>
2169 <CALL '
\1aEMPTY-CHECK 3>
2176 <CALL '
\1aGEN 2 = TEMP30>
2177 <GEN-LVAL 'CAREFUL = TEMP61>
2178 <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE95>
2180 <VEQUAL? ML16 0 - PHRASE95 (TYPE FIX)>
2182 <FRAME '
\1aEMPTY-CHECK>
2185 <FRAME '
\1aRECTYPE?>
2187 <CALL '
\1aRECTYPE? 1 = STACK>
2188 <CALL '
\1aEMPTY-CHECK 3>
2190 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE104>
2191 <FRAME '
\1aINTERF-CHANGE>
2195 <CALL '
\1aINTERF-CHANGE 2 = TEMP30>
2199 <CALL '
\1aGEN 2 = VN17>
2201 <FRAME '
\1aDELAY-KILL>
2202 <GEN-LVAL 'NO-KILL = STACK>
2205 <CALL '
\1aDELAY-KILL 2>
2206 <TYPE? SAME?8 <TYPE-CODE FALSE> + PHRASE111>
2207 <FRAME '
\1aSPEC-GEN>
2215 <CALL '
\1aSPEC-GEN 4>
2229 <CALL '
\1aDATCLOB 6>
2231 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE116>
2233 <FRAME '
\1aFREE-TEMP>
2236 <CALL '
\1aFREE-TEMP 1>
2238 <FRAME '
\1aMOVE-ARG>
2243 <CALL '
\1aMOVE-ARG 2 = W26>
2247 <TYPE? RR23 <TYPE-CODE FALSE> + PHRASE121>
2252 <CALL '
\1aGEN 2 = VN17>
2253 <FRAME '
\1aINTERF-CHANGE>
2257 <CALL '
\1aINTERF-CHANGE 2 = VN17>
2262 <CALL '
\1aGEN 2 = TEMP30>
2269 <CALL '
\1aGEN 2 = TEMP30>
2270 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE128>
2271 <FRAME '
\1aINTERF-CHANGE>
2275 <CALL '
\1aINTERF-CHANGE 2 = TEMP30>
2279 <CALL '
\1aGEN 2 = VN17>
2281 <FRAME '
\1aDELAY-KILL>
2282 <GEN-LVAL 'NO-KILL = STACK>
2285 <CALL '
\1aDELAY-KILL 2>
2286 <GEN-LVAL 'CAREFUL = TEMP62>
2287 <TYPE? TEMP62 <TYPE-CODE FALSE> + PHRASE135>
2289 <LESS? ML16 NUM21 - PHRASE135 (TYPE FIX)>
2290 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE135>
2291 <EQUAL? TPS15 'LIST + PHRASE135>
2292 <FRAME '
\1aLENGTH-CHECK>
2296 <FRAME '
\1aRECTYPE?>
2298 <CALL '
\1aRECTYPE? 1 = STACK>
2299 <CALL '
\1aLENGTH-CHECK 4>
2302 <TYPE? SAME?8 <TYPE-CODE FALSE> + PHRASE142>
2303 <FRAME '
\1aSPEC-GEN>
2310 <CALL '
\1aSPEC-GEN 4>
2313 <EQUAL? TPS15 'LIST - PHRASE146>
2314 <GEN-LVAL 'CAREFUL = TEMP62>
2315 <TYPE? TEMP62 <TYPE-CODE FALSE> + BOOL149>
2317 <GRTR? NUM21 ML16 + BOOL148 (TYPE FIX)>
2319 <GRTR? NUM21 4 + PHRASE146 (TYPE FIX)>
2322 <FRAME '
\1aEXPANDED-LIST-REST>
2323 <FRAME '
\1aUSE-TEMP>
2325 <CALL '
\1aUSE-TEMP 1 = STACK>
2330 <GEN-LVAL 'CAREFUL = STACK>
2331 <CALL '
\1aEXPANDED-LIST-REST 4 = ONO9>
2341 <CALL '
\1aDATCLOB 6>
2355 <CALL '
\1aDATCLOB 6>
2357 <EQUAL? ONO9 TEMP30 + PHRASE160>
2358 <FRAME '
\1aFREE-TEMP>
2361 <CALL '
\1aFREE-TEMP 1>
2363 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE163>
2365 <FRAME '
\1aFREE-TEMP>
2368 <CALL '
\1aFREE-TEMP 1>
2370 <FRAME '
\1aMOVE-ARG>
2375 <CALL '
\1aMOVE-ARG 2 = W26>
2379 <TYPE? RR23 <TYPE-CODE FALSE> + PHRASE168>
2383 <CALL '
\1aGEN 2 = VN17>
2384 <FRAME '
\1aINTERF-CHANGE>
2388 <CALL '
\1aINTERF-CHANGE 2 = VN17>
2389 <FRAME '
\1aINTERF-CHANGE>
2393 <CALL '
\1aINTERF-CHANGE 2 = VN17>
2395 <TYPE? RV22 <TYPE-CODE FALSE> + PHRASE173>
2401 <CALL '
\1aGEN 2 = NUMKN20>
2402 <FRAME '
\1aINTERF-CHANGE>
2406 <CALL '
\1aINTERF-CHANGE 2 = NUMKN20>
2411 <CALL '
\1aGEN 2 = TEMP30>
2412 <TYPE? RR23 <TYPE-CODE FALSE> - PHRASE186>
2413 <FRAME '
\1aINTERF-CHANGE>
2417 <CALL '
\1aINTERF-CHANGE 2 = NUMKN20>
2418 <FRAME '
\1aINTERF-CHANGE>
2422 <CALL '
\1aINTERF-CHANGE 2 = TEMP30>
2429 <CALL '
\1aGEN 2 = TEMP30>
2430 <FRAME '
\1aINTERF-CHANGE>
2434 <CALL '
\1aINTERF-CHANGE 2 = TEMP30>
2439 <CALL '
\1aGEN 2 = NUMKN20>
2440 <TYPE? RR23 <TYPE-CODE FALSE> - PHRASE186>
2441 <FRAME '
\1aINTERF-CHANGE>
2445 <CALL '
\1aINTERF-CHANGE 2 = NUMKN20>
2446 <FRAME '
\1aINTERF-CHANGE>
2450 <CALL '
\1aINTERF-CHANGE 2 = TEMP30>
2452 <TYPE? RR23 <TYPE-CODE FALSE> + PHRASE190>
2453 <FRAME '
\1aDELAY-KILL>
2454 <GEN-LVAL 'NO-KILL = STACK>
2456 <CALL '
\1aDELAY-KILL 2>
2458 <GEN-LVAL 'CAREFUL = RV22>
2459 <TYPE? RV22 <TYPE-CODE FALSE> + PHRASE196>
2461 <TYPE? NR24 <TYPE-CODE FALSE> + BOOL201>
2462 <NTHL NR24 1 = RV22>
2463 <GRTR? RV22 0 + PHRASE196>
2475 <GEN-LVAL 'CAREFUL = RV22>
2476 <TYPE? RV22 <TYPE-CODE FALSE> + PHRASE206>
2478 <EQUAL? TPS15 'LIST + PHRASE206>
2479 <TYPE? NR24 <TYPE-CODE FALSE> + BOOL210>
2481 <RESTL NR24 1 = RV22 (TYPE LIST)>
2483 <NTHL RV22 1 = STACK>
2487 <CALL '
\1aMINL 1 = STACK>
2488 <CALL '
\1aL=? 2 = RV22>
2489 <TYPE? RV22 <TYPE-CODE FALSE> - PHRASE206>
2492 <FRAME '
\1aLENGTH-CHECK>
2496 <FRAME '
\1aRECTYPE?>
2498 <CALL '
\1aRECTYPE? 1 = STACK>
2499 <CALL '
\1aLENGTH-CHECK 4>
2501 <TYPE? RR23 <TYPE-CODE FALSE> - PHRASE222>
2503 <FRAME '
\1aDELAY-KILL>
2504 <GEN-LVAL 'NO-KILL = STACK>
2507 <CALL '
\1aDELAY-KILL 2>
2508 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE222>
2512 <CALL '
\1aGEN 2 = VN17>
2514 <TYPE? SAME?8 <TYPE-CODE FALSE> + PHRASE225>
2515 <FRAME '
\1aSPEC-GEN>
2523 <CALL '
\1aSPEC-GEN 4>
2526 <EQUAL? TPS15 'LIST - PHRASE229>
2527 <GEN-LVAL 'CAREFUL = ONO9>
2528 <TYPE? ONO9 <TYPE-CODE FALSE> + PHRASE229>
2530 <FRAME '
\1aEXPANDED-LIST-REST>
2537 <GEN-LVAL 'CAREFUL = STACK>
2538 <CALL '
\1aEXPANDED-LIST-REST 4 = TEMP30>
2549 <CALL '
\1aDATCLOB 6>
2562 <CALL '
\1aDATCLOB 6>
2563 <FRAME '
\1aFREE-TEMP>
2566 <CALL '
\1aFREE-TEMP 1>
2568 <TYPE? SAME?8 <TYPE-CODE FALSE> - PHRASE242>
2570 <FRAME '
\1aFREE-TEMP>
2573 <CALL '
\1aFREE-TEMP 1>
2575 <FRAME '
\1aMOVE-ARG>
2580 <CALL '
\1aMOVE-ARG 2 = W26>
2583 <END
\1aPUT-GEN>
\r\r
2585 <GFCN
\1aDATCLOB ("VALUE" ATOM ANY ANY ANY ANY ANY ANY) STR4 NUM5 VDAT6 TPS7 TYP8 ETYP9>
2588 <TYPE? ETYP9 <TYPE-CODE FALSE> + PHRASE13>
2589 <CONS ETYP9 () = TEMP14>
2591 <CONS '`TYPE TEMP14 = ETYP9>
2594 <EQUAL? TPS7 'LIST - PHRASE16>
2595 <FRAME '
\1aPUT-LIST>
2604 <CALL '
\1aPUT-LIST 4 = TEMP14>
2608 <EQUAL? TPS7 'VECTOR + BOOL19>
2609 <EQUAL? TPS7 'TUPLE - PHRASE18>
2611 <FRAME '
\1aPUT-VECTOR>
2620 <CALL '
\1aPUT-VECTOR 4 = TEMP14>
2624 <EQUAL? TPS7 'UVECTOR - PHRASE21>
2625 <FRAME '
\1aPUT-UVECTOR>
2632 <CALL '
\1aPUT-UVECTOR 3 = TEMP14>
2636 <EQUAL? TPS7 'STRING - PHRASE23>
2637 <FRAME '
\1aPUT-STRING>
2644 <CALL '
\1aPUT-STRING 3 = TEMP14>
2648 <EQUAL? TPS7 'BYTES - PHRASE25>
2649 <FRAME '
\1aPUT-BYTES>
2656 <CALL '
\1aPUT-BYTES 3 = TEMP14>
2660 <EQUAL? TPS7 'TEMPLATE - PHRASE27>
2661 <FRAME '
\1aPUT-RECORD>
2668 <FRAME '
\1aRECTYPE?>
2671 <CALL '
\1aRECTYPE? 1 = STACK>
2674 <CALL '
\1aPUT-RECORD 5 = TEMP14>
2678 <FRAME '
\1aPUT-RECORD>
2689 <CALL '
\1aPUT-RECORD 5 = TEMP14>
2694 <GFCN
\1aRECTYPE? ("VALUE" ANY ANY) TYP4>
2699 <CALL '
\1aISTYPE? 1 = TEMP6>
2700 <TYPE? TEMP6 <TYPE-CODE FALSE> - PHRASE8>
2701 <TYPE? TYP4 <TYPE-CODE FORM> + TAG10>
2702 <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG10>
2705 <EMPL? TYP4 + TAG13>
2706 <RESTL TYP4 1 = TEMP6 (TYPE LIST)>
2707 <EMPL? TEMP6 - TAG12>
2712 <NTHL TYP4 1 = TEMP6>
2713 <EQUAL? TEMP6 'OR + TAG15>
2717 <FRAME '
\1aRECTYPE?>
2718 <RESTL TYP4 1 = TEMP6 (TYPE LIST)>
2720 <NTHL TEMP6 1 = STACK>
2722 <CALL '
\1aRECTYPE? 1 = TEMP6>
2728 <GFCN
\1aPUTREST-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
2729 <TEMP ST27 K8:LIST ONO9 TEMP3:LBIND (2RET11 %<>) TEMP18>
2731 <NTHUV NOD4 5 = K8 (TYPE LIST)>
2732 <GEN-LVAL 'NO-KILL = ONO9>
2733 <GETS 'BIND = TEMP3 (TYPE LBIND)>
2734 <BBIND 'NO-KILL 'LIST 'FIX ONO9>
2736 <NTHUV NOD4 9 = ONO9>
2738 <GVAL 'REST = TEMP18>
2739 <EQUAL? ONO9 TEMP18 - PHRASE16>
2741 <NTHL K8 1 = NOD4 (TYPE NODE)>
2743 <NTHUV NOD4 5 = K8 (TYPE LIST)>
2745 <SET 2RET11 'T (TYPE ATOM)>
2747 <RESTL K8 1 = TEMP18 (TYPE LIST)>
2748 <NTHL TEMP18 1 = TEMP18 (TYPE NODE)>
2749 <NTHUV TEMP18 1 = TEMP18 (TYPE FIX)>
2750 <VEQUAL? TEMP18 2 - PHRASE20 (TYPE FIX)>
2752 <RESTL K8 1 = TEMP18 (TYPE LIST)>
2753 <NTHL TEMP18 1 = TEMP18 (TYPE NODE)>
2754 <NTHUV TEMP18 4 = TEMP18>
2755 <EQUAL? TEMP18 () - PHRASE20>
2758 <NTHL K8 1 = STACK (TYPE NODE)>
2760 <CALL '
\1aGEN 2 = ONO9>
2764 <NTHL K8 1 = STACK (TYPE NODE)>
2766 <CALL '
\1aGEN 2 = ONO9>
2767 <FRAME '
\1aINTERF-CHANGE>
2770 <RESTL K8 1 = TEMP18 (TYPE LIST)>
2771 <NTHL TEMP18 1 = STACK (TYPE NODE)>
2773 <CALL '
\1aINTERF-CHANGE 2 = ONO9>
2775 <RESTL K8 1 = TEMP18 (TYPE LIST)>
2776 <NTHL TEMP18 1 = STACK (TYPE NODE)>
2779 <CALL '
\1aGEN 2 = ST27>
2781 <GEN-LVAL 'CAREFUL = TEMP18>
2782 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE28>
2785 <NTHL K8 1 = TEMP18 (TYPE NODE)>
2787 <NTHUV TEMP18 3 = STACK>
2789 <CALL '
\1aMINL 1 = TEMP18>
2790 <LESS? TEMP18 1 - PHRASE28 (TYPE FIX)>
2792 <FRAME '
\1aEMPTY-CHECK>
2796 <CALL '
\1aEMPTY-CHECK 3>
2798 <TYPE? ST27 <TYPE-CODE UNBOUND> + PHRASE37>
2812 <FRAME '
\1aMOVE-ARG>
2813 <VEQUAL? 2RET11 0 + PHRASE43>
2815 <FRAME '
\1aFREE-TEMP>
2818 <CALL '
\1aFREE-TEMP 1>
2823 <FRAME '
\1aFREE-TEMP>
2826 <CALL '
\1aFREE-TEMP 1>
2834 <CALL '
\1aMOVE-ARG 2 = TEMP18>
2840 <END
\1aPUTREST-GEN>
2842 <GFCN
\1aSIDE-EFFECTS? ("VALUE" ANY NODE) N4>
2845 <NTHUV N4 1 = TEMP7 (TYPE FIX)>
2846 <VEQUAL? TEMP7 2 - TAG8 (TYPE FIX)>
2850 <NTHUV N4 8 = TEMP7>
2854 <END
\1aSIDE-EFFECTS?>
2856 <GFCN
\1aCOMMUTE-STRUC ("VALUE" ANY ANY NODE NODE) RV4 NUMNOD5 STRNOD6>
2857 <TEMP (TEMP11 'T) L8:LIST TEMP20 N7:NODE CD9 TEMP24>
2859 <GEN-LVAL 'NO-KILL = L8>
2860 <TYPE? RV4 <TYPE-CODE FALSE> - TAG21>
2861 <NTHUV NUMNOD5 1 = TEMP20 (TYPE FIX)>
2862 <VEQUAL? TEMP20 2 - BOOL19 (TYPE FIX)>
2864 <SET TEMP11 %<> (TYPE FALSE)>
2867 <NTHUV NUMNOD5 8 = TEMP20>
2868 <TYPE? TEMP20 <TYPE-CODE FALSE> - TAG21>
2872 <NTHUV N7 1 = CD9 (TYPE FIX)>
2873 <GVAL 'SNODES = TEMP20>
2874 <EMPUU? TEMP20 + TAG21>
2875 <LOOP (CD9 VALUE) (TEMP20 LENGTH VALUE)>
2877 <NTHUU TEMP20 1 = TEMP24>
2878 <VEQUAL? TEMP24 CD9 + TAG28>
2880 <RESTUU TEMP20 1 = TEMP20 (TYPE UVECTOR)>
2881 <EMPUU? TEMP20 - TAG22>
2883 <TYPE? RV4 <TYPE-CODE FALSE> + PHRASE15>
2884 <NTHUV STRNOD6 1 = TEMP20 (TYPE FIX)>
2885 <VEQUAL? TEMP20 2 - BOOL27 (TYPE FIX)>
2887 <SET TEMP11 %<> (TYPE FALSE)>
2890 <NTHUV STRNOD6 8 = TEMP20>
2892 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE15>
2897 <NTHUV N7 1 = CD9 (TYPE FIX)>
2898 <GVAL 'SNODES = TEMP20>
2899 <EMPUU? TEMP20 + TAG28>
2900 <LOOP (CD9 VALUE) (TEMP20 LENGTH VALUE)>
2902 <NTHUU TEMP20 1 = TEMP24>
2903 <VEQUAL? TEMP24 CD9 + PHRASE15>
2905 <RESTUU TEMP20 1 = TEMP20 (TYPE UVECTOR)>
2906 <EMPUU? TEMP20 - TAG29>
2908 <VEQUAL? TEMP11 0 + PHRASE32>
2910 <VEQUAL? CD9 10 - PHRASE32 (TYPE FIX)>
2912 <NTHUV N7 7 = CD9 (TYPE LIST)>
2913 <EMPL? CD9 + PHRASE35>
2914 <RESTL CD9 1 = TEMP20 (TYPE LIST)>
2915 <EMPL? TEMP20 + PHRASE35>
2916 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
2917 <EMPL? TEMP20 - PHRASE35>
2919 <RESTL CD9 1 = TEMP20 (TYPE LIST)>
2921 <NTHL TEMP20 1 = TEMP20>
2922 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE32>
2927 <TYPE? CD9 <TYPE-CODE FALSE> + PHRASE32>
2928 <SET TEMP20 L8 (TYPE LIST)>
2932 <EMPL? TEMP20 + MAPAP41>
2933 <NTHL TEMP20 1 = TEMP11>
2934 <NTHL TEMP11 1 = TEMP11 (TYPE SYMTAB)>
2935 <EQUAL? TEMP11 CD9 + PHRASE32>
2937 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
2940 <CONS %<> () = TEMP11>
2941 <CONS CD9 TEMP11 = TEMP11>
2943 <CONS TEMP11 L8 = TEMP11>
2945 <GEN-SET 'NO-KILL TEMP11>
2948 <TYPE? RV4 <TYPE-CODE FALSE> - TAG51>
2956 <END
\1aCOMMUTE-STRUC>
2960 <GFCN
\1aEMPTY-CHECK ("VALUE" <OR ATOM !<FORM ATOM [4 LVAL]>> ANY ANY ANY "OPTIONAL" ANY ANY) TPS7 STR8 TYP9 DIR10 TG11>
2961 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
2969 <EQUAL? TPS7 'VECTOR + BOOL14>
2970 <EQUAL? TPS7 'TUPLE - PHRASE13>
2972 <FRAME '
\1aEMPTY-VECTOR>
2979 <CALL '
\1aEMPTY-VECTOR 3 = TEMP16>
2983 <EQUAL? TPS7 'UVECTOR - PHRASE17>
2984 <FRAME '
\1aEMPTY-UVECTOR>
2991 <CALL '
\1aEMPTY-UVECTOR 3 = TEMP16>
2995 <EQUAL? TPS7 'STRING - PHRASE19>
2996 <FRAME '
\1aEMPTY-STRING>
3003 <CALL '
\1aEMPTY-STRING 3 = TEMP16>
3007 <EQUAL? TPS7 'BYTES - PHRASE21>
3008 <FRAME '
\1aEMPTY-BYTES>
3015 <CALL '
\1aEMPTY-BYTES 3 = TEMP16>
3019 <EQUAL? TPS7 'LIST - PHRASE23>
3020 <FRAME '
\1aEMPTY-LIST>
3027 <CALL '
\1aEMPTY-LIST 3 = TEMP16>
3031 <EQUAL? TPS7 'TEMPLATE - PHRASE25>
3033 <RETURN <EMPTY-RECORD .STR .TG .DIR .TYP>>
3035 <RETURN <EMPTY-RECORD .STR .TG .DIR .TPS>>
3036 <END
\1aEMPTY-CHECK>
3038 <GFCN
\1aLENGTH-CHECK ("VALUE" ANY ANY ANY ANY ANY) TPS4 STR5 NUM6 TYP7>
3041 <FRAME '
\1aGEN-TEMP>
3043 <CALL '
\1aGEN-TEMP 1 = TMP8>
3044 <EQUAL? TPS4 'VECTOR + BOOL16>
3045 <EQUAL? TPS4 'TUPLE - PHRASE15>
3047 <FRAME '
\1aLENGTH-VECTOR>
3051 <CALL '
\1aLENGTH-VECTOR 2>
3054 <EQUAL? TPS4 'LIST - PHRASE18>
3055 <FRAME '
\1aLENGTH-LIST>
3059 <CALL '
\1aLENGTH-LIST 2>
3062 <EQUAL? TPS4 'UVECTOR - PHRASE20>
3063 <FRAME '
\1aLENGTH-UVECTOR>
3067 <CALL '
\1aLENGTH-UVECTOR 2>
3070 <EQUAL? TPS4 'STRING - PHRASE22>
3071 <FRAME '
\1aLENGTH-STRING>
3075 <CALL '
\1aLENGTH-STRING 2>
3078 <EQUAL? TPS4 'BYTES - PHRASE24>
3080 <FRAME '
\1aLENGTH-BYTES>
3084 <CALL '
\1aLENGTH-BYTES 2>
3087 <FRAME '
\1aFREE-TEMP>
3090 <CALL '
\1aFREE-TEMP 1>
3102 <FRAME '
\1aFREE-TEMP>
3105 <CALL '
\1aFREE-TEMP 1 = TMP8>
3108 <END
\1aLENGTH-CHECK>
3110 <GFCN
\1aTOP-GEN ("VALUE" ANY NODE ANY) N4 W5>
3114 <NTHUV N4 5 = TEMP8 (TYPE LIST)>
3116 <NTHL TEMP8 1 = STACK (TYPE NODE)>
3119 <CALL '
\1aGEN 2 = TEMP8>
3120 <FRAME '
\1aFREE-TEMP>
3123 <CALL '
\1aFREE-TEMP 2>
3129 <EQUAL? W5 'DONT-CARE - PHRASE12>
3130 <FRAME '
\1aGEN-TEMP>
3131 <CALL '
\1aGEN-TEMP 0 = W5>
3135 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE14>
3136 <FRAME '
\1aUSE-TEMP>
3138 <CALL '
\1aUSE-TEMP 1>
3151 <GFCN
\1aBACK-GEN ("VALUE" ANY NODE ANY) N4 W5>
3152 <TEMP K8:LIST D6 TEMP14>
3154 <NTHUV N4 5 = K8 (TYPE LIST)>
3157 <NTHL K8 1 = STACK (TYPE NODE)>
3159 <CALL '
\1aGEN 2 = D6>
3160 <RESTL K8 1 = TEMP14 (TYPE LIST)>
3161 <EMPL? TEMP14 - BOOL13 (TYPE LIST)>
3163 <SET TEMP14 1 (TYPE FIX)>
3166 <RESTL K8 1 = TEMP14 (TYPE LIST)>
3167 <NTHL TEMP14 1 = TEMP14 (TYPE NODE)>
3168 <NTHUV TEMP14 1 = TEMP14 (TYPE FIX)>
3169 <VEQUAL? TEMP14 2 - PHRASE11 (TYPE FIX)>
3171 <RESTL K8 1 = TEMP14 (TYPE LIST)>
3172 <NTHL TEMP14 1 = TEMP14 (TYPE NODE)>
3173 <NTHUV TEMP14 4 = TEMP14>
3174 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE11>
3176 <TYPE? TEMP14 <TYPE-CODE OFFSET> - PHRASE17>
3177 <NTHUV TEMP14 1 = TEMP14>
3179 <FRAME '
\1aFREE-TEMP>
3182 <CALL '
\1aFREE-TEMP 2>
3190 <EQUAL? W5 'DONT-CARE - PHRASE21>
3191 <FRAME '
\1aGEN-TEMP>
3192 <CALL '
\1aGEN-TEMP 0 = W5>
3196 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE23>
3197 <FRAME '
\1aUSE-TEMP>
3199 <CALL '
\1aUSE-TEMP 1>
3211 <FRAME '
\1aFREE-TEMP>
3213 <RESTL K8 1 = TEMP14 (TYPE LIST)>
3215 <NTHL TEMP14 1 = STACK (TYPE NODE)>
3218 <CALL '
\1aGEN 2 = TEMP14>
3221 <CALL '
\1aFREE-TEMP 2>
3222 <FRAME '
\1aFREE-TEMP>
3225 <CALL '
\1aFREE-TEMP 2>
3233 <EQUAL? W5 'DONT-CARE - PHRASE32>
3234 <FRAME '
\1aGEN-TEMP>
3235 <CALL '
\1aGEN-TEMP 0 = W5>
3239 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE34>
3240 <FRAME '
\1aUSE-TEMP>
3242 <CALL '
\1aUSE-TEMP 1>