4 <ENTRY MTYPR TYPE-AND TYPE-OK? TASTEFUL-DECL GET-ELE-TYPE STRUCTYP STRUCTYP-SEG TYPE-ATOM-OK? ISTYPE-GOOD? TYPE-MERGE DEFERN TOP-TYPE ISTYPE? TYPESAME ANY-PAT STRUC GETBSYZ GEN-DECL REST-DECL MINL GET-RANGE PRIMITIVE-TYPE INTERPRETER-IMPLEMENTOR? DECL-GET BOOLEAN BOOL-TRUE BOOL-FALSE MAXL>
6 <PUT-DECL BOOLEAN '<OR ATOM !<FALSE>>>
8 <PUT-DECL BOOL-TRUE ATOM>
10 <PUT-DECL BOOL-FALSE '!<FALSE>>
12 <USE "COMPDEC" "ADVMESS">
14 <SETG INTERPRETER-IMPLEMENTOR? T>
20 <SETG DECL-ITEM-COUNT 3>
24 <SETG DECL-IN-COUNT-VEC 5>
26 <SETG DECL-REST-VEC 6>
28 <MANIFEST DECL-RESTED DECL-ELEMENT DECL-ITEM-COUNT DECL-IN-REST DECL-IN-COUNT-VEC DECL-REST-VEC>
34 <MANIFEST HIGHBOUND LOWBOUND>
36 <SETG ALLWORDS '<PRIMTYPE WORD>>
39 <GFCN
\1aTASTEFUL-DECL ("VALUE" ANY ANY) D4>
40 <TEMP TEMP10 TT6 TEMP40 TEMP43 TEMP66:VECTOR>
42 <TYPE? D4 <TYPE-CODE FALSE> + BOOL9>
43 <EQUAL? D4 'NO-RETURN - PHRASE8>
47 <TYPE? D4 <TYPE-CODE ATOM> - PHRASE11>
48 <NTHR D4 5 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE11)>
49 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
55 <TYPE? TEMP10 <TYPE-CODE ATOM> + BOOL16>
58 <CALL '
\1aISTYPE? 1 = TEMP10>
59 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
63 <CALL '
\1aDECL-GET 1 = TT6>
64 <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE14>
65 <VEQUAL? TEMP10 'BOOLEAN + BOOL21>
66 <VEQUAL? TEMP10 'BOOL-FALSE + BOOL21>
67 <VEQUAL? TEMP10 'BOOL-TRUE - PHRASE20>
75 <TYPE? D4 <TYPE-CODE FORM> + TAG24>
76 <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE23>
79 <SET TT6 1 (TYPE FIX)>
80 <LOOP (TEMP10 VALUE) (TT6 VALUE)>
82 <EMPL? TEMP10 + TAG27>
83 <SUB TT6 1 = TT6 (TYPE FIX)>
84 <LESS? TT6 0 + PHRASE26>
85 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
91 <FRAME '
\1aTASTEFUL-DECL>
94 <CALL '
\1aTASTEFUL-DECL 1 = TEMP10>
99 <EQUAL? TT6 'FIX - PHRASE34>
103 <EMPL? D4 + PHRASE35>
104 <RESTL D4 1 = TT6 (TYPE LIST)>
105 <EMPL? TT6 + PHRASE35>
106 <RESTL TT6 1 = TT6 (TYPE LIST)>
107 <EMPL? TT6 - PHRASE35>
110 <EQUAL? TT6 'NOT - PHRASE35>
114 <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE37>
115 <SET TEMP10 () (TYPE LIST)>
116 <SET TEMP40 () (TYPE LIST)>
117 <CHTYPE D4 <TYPE-CODE LIST> = TT6>
123 <FRAME '
\1aTASTEFUL-DECL>
125 <CALL '
\1aTASTEFUL-DECL 1 = TEMP43>
126 <CONS TEMP43 () = TEMP43 (TYPE LIST)>
127 <EMPL? TEMP10 - TAG44>
128 <SET TEMP10 TEMP43 (TYPE LIST)>
131 <PUTREST TEMP40 TEMP43>
134 <SET TEMP40 TEMP43 (TYPE LIST)>
136 <RESTL TT6 1 = TT6 (TYPE LIST)>
139 <CHTYPE TEMP10 <TYPE-CODE SEGMENT> = TEMP10>
143 <SET TEMP43 () (TYPE LIST)>
144 <SET TEMP10 () (TYPE LIST)>
145 <CHTYPE D4 <TYPE-CODE LIST> = TT6>
151 <FRAME '
\1aTASTEFUL-DECL>
153 <CALL '
\1aTASTEFUL-DECL 1 = TEMP40>
154 <CONS TEMP40 () = TEMP40 (TYPE LIST)>
155 <EMPL? TEMP43 - TAG53>
156 <SET TEMP43 TEMP40 (TYPE LIST)>
159 <PUTREST TEMP10 TEMP40>
162 <SET TEMP10 TEMP40 (TYPE LIST)>
164 <RESTL TT6 1 = TT6 (TYPE LIST)>
167 <CHTYPE TEMP43 <TYPE-CODE FORM> = TEMP10>
172 <TYPE? D4 <TYPE-CODE VECTOR> - PHRASE55>
174 <EQUAL? TT6 'OPT - PHRASE58>
176 <SET TT6 'OPTIONAL (TYPE ATOM)>
183 <SET TEMP40 1 (TYPE FIX)>
184 <SET TT6 () (TYPE LIST)>
185 <SET TEMP10 () (TYPE LIST)>
186 <RESTUV D4 1 = TEMP66 (TYPE VECTOR)>
191 <EMPUV? TEMP66 + MAP60>
192 <FRAME '
\1aTASTEFUL-DECL>
193 <NTHUV TEMP66 1 = STACK>
194 <CALL '
\1aTASTEFUL-DECL 1 = TEMP43>
195 <CONS TEMP43 () = TEMP43 (TYPE LIST)>
197 <SET TT6 TEMP43 (TYPE LIST)>
200 <PUTREST TEMP10 TEMP43>
203 <SET TEMP10 TEMP43 (TYPE LIST)>
205 <RESTUV TEMP66 1 = TEMP66 (TYPE VECTOR)>
208 <LOOP (TT6 VALUE) (TEMP40 VALUE)>
213 <RESTL TT6 1 = TT6 (TYPE LIST)>
214 <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
217 <UBLOCK <TYPE-CODE VECTOR> TEMP40 = TEMP10>
224 <END
\1aTASTEFUL-DECL>
\r\r
226 <GFCN
\1aTMERGE ("VALUE" ANY ANY ANY) P14 P25>
229 <EQUAL? P14 'ANY + BOOL9>
230 <EQUAL? P25 'ANY - PHRASE8>
234 <EQUAL? P14 P25 - PHRASE11>
238 <TYPE? P14 <TYPE-CODE FORM> - BOOL12>
240 <RESTL P14 1 = TEMP10 (TYPE LIST)>
241 <EMPL? TEMP10 + BOOL12>
242 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
243 <EMPL? TEMP10 - BOOL12>
245 <NTHL P14 1 = TEMP10>
246 <EQUAL? TEMP10 'NOT - BOOL12>
248 <RESTL P14 1 = TEMP10 (TYPE LIST)>
250 <NTHL TEMP10 1 = TEMP10>
251 <EQUAL? TEMP10 'ANY - BOOL15>
255 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
259 <TYPE? P25 <TYPE-CODE FORM> - BOOL16>
261 <RESTL P25 1 = TEMP10 (TYPE LIST)>
262 <EMPL? TEMP10 + BOOL16>
263 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
264 <EMPL? TEMP10 - BOOL16>
266 <NTHL P25 1 = TEMP10>
267 <EQUAL? TEMP10 'NOT - BOOL16>
269 <RESTL P25 1 = TEMP10 (TYPE LIST)>
271 <NTHL TEMP10 1 = TEMP10>
272 <EQUAL? TEMP10 'ANY - BOOL18>
276 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
280 <TYPE? P14 <TYPE-CODE ATOM> - PHRASE19>
281 <TYPE? P25 <TYPE-CODE ATOM> - PHRASE19>
282 <VEQUAL? P14 'BOOL-TRUE + BOOL21>
283 <VEQUAL? P14 'BOOL-FALSE + BOOL21>
284 <VEQUAL? P14 'BOOLEAN - PHRASE19>
286 <VEQUAL? P25 'BOOL-TRUE + BOOL22>
287 <VEQUAL? P25 'BOOL-FALSE + BOOL22>
288 <VEQUAL? P25 'BOOLEAN - PHRASE19>
292 <TYPE? P14 <TYPE-CODE FORM> + TAG26>
293 <TYPE? P14 <TYPE-CODE SEGMENT> - BOOL25>
296 <RESTL P14 1 = TEMP10 (TYPE LIST)>
297 <EMPL? TEMP10 + BOOL25>
298 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
299 <EMPL? TEMP10 - BOOL25>
301 <RESTL P14 1 = TEMP10 (TYPE LIST)>
302 <NTHL TEMP10 1 = TEMP10>
303 <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
306 <TYPE? P25 <TYPE-CODE FORM> + TAG28>
307 <TYPE? P25 <TYPE-CODE SEGMENT> - BOOL27>
310 <RESTL P25 1 = TEMP10 (TYPE LIST)>
311 <EMPL? TEMP10 + BOOL27>
312 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
313 <EMPL? TEMP10 - BOOL27>
315 <RESTL P25 1 = TEMP10 (TYPE LIST)>
316 <NTHL TEMP10 1 = TEMP10>
317 <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
326 <CALL '
\1aCTMATCH 5 = TEMP10>
327 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
338 <CALL '
\1aCTMATCH 5 = TEMP10>
347 <CALL '
\1aPUT-IN 2 = STACK>
350 <CALL '
\1aPUT-IN 2 = TEMP10>
351 <CONS 'OR TEMP10 = TEMP10>
352 <CHTYPE TEMP10 <TYPE-CODE FORM> = TEMP10>
358 <GFCN
\1aTYPE-AND ("VALUE" ANY ANY ANY) P14 P25>
361 <TYPE? P14 <TYPE-CODE FALSE> - PHRASE7>
362 <SET P14 'ANY (TYPE ATOM)>
364 <TYPE? P25 <TYPE-CODE FALSE> - PHRASE9>
365 <SET P25 'ANY (TYPE ATOM)>
367 <EQUAL? P14 'ANY - PHRASE11>
371 <EQUAL? P25 'ANY - PHRASE13>
375 <EQUAL? P14 P25 - PHRASE14>
387 <CALL '
\1aCTMATCH 5 = TEMP12>
392 <GFCN
\1aTMATCH ("VALUE" ANY ANY ANY) P14 P25>
395 <EQUAL? P14 'ANY - PHRASE7>
399 <EQUAL? P25 'ANY - PHRASE9>
403 <EQUAL? P14 P25 - PHRASE10>
415 <CALL '
\1aCTMATCH 5 = TEMP8>
420 <GFCN
\1aCTMATCH ("VALUE" ANY ANY ANY <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) P14 P25 ANDF6 ORF7 MAYBEF8>
421 <TEMP TEMP3:LBIND TEMP11>
423 <GETS 'BIND = TEMP3 (TYPE LBIND)>
424 <BBIND 'ANDF <OR FALSE ATOM> %<> ANDF6>
426 <BBIND 'ORF <OR FALSE ATOM> %<> ORF7>
428 <BBIND 'MAYBEF <OR FALSE ATOM> %<> MAYBEF8>
436 <CALL '
\1aDTMATCH 2 = TEMP11>
444 <GFCN
\1aDTMATCH ("VALUE" ANY ANY ANY) PAT14 PAT25>
445 <TEMP ORF6 TEMP24 TEMP25 FP17 FP28>
447 <GEN-LVAL 'ORF = ORF6>
448 <TYPE? PAT14 <TYPE-CODE FALSE> - BOOL11>
449 <SET PAT14 'ANY (TYPE ATOM)>
451 <TYPE? PAT25 <TYPE-CODE FALSE> - BOOL12>
452 <SET PAT25 'ANY (TYPE ATOM)>
454 <EQUAL? PAT25 'BOOLEAN - PHRASE14>
457 <SET PAT14 'BOOLEAN (TYPE ATOM)>
460 <EQUAL? PAT25 'BOOL-TRUE - PHRASE15>
463 <SET PAT14 'BOOL-TRUE (TYPE ATOM)>
466 <EQUAL? PAT25 'BOOL-FALSE - PHRASE16>
469 <SET PAT14 'BOOL-FALSE (TYPE ATOM)>
471 <EQUAL? PAT14 PAT25 + BOOL19>
472 <TYPE? PAT14 <TYPE-CODE FORM> - BOOL22>
473 <TYPE? PAT25 <TYPE-CODE FORM> + BOOL21>
475 <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE18>
476 <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE18>
478 <LENL PAT14 = TEMP24 (TYPE FIX)>
479 <LENL PAT25 = TEMP25 (TYPE FIX)>
480 <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
482 <NTHL PAT14 1 = FP17>
484 <NTHL PAT25 1 = FP28>
486 <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
488 <TYPE? FP17 <TYPE-CODE ATOM> - PHRASE27>
489 <EQUAL? FP17 FP28 - PHRASE18>
495 <CALL '
\1a=? 2 = TEMP24>
496 <VEQUAL? TEMP24 0 + PHRASE18>
502 <EQUAL? PAT14 'BOOLEAN - BOOL37>
503 <TYPE? ORF6 <TYPE-CODE FALSE> + BOOL32>
504 <EQUAL? PAT25 'BOOL-TRUE + BOOL33>
505 <EQUAL? PAT25 'BOOL-FALSE - BOOL32>
509 <TYPE? ORF6 <TYPE-CODE FALSE> - BOOL37>
510 <EQUAL? PAT14 'BOOL-TRUE - BOOL36>
513 <EQUAL? PAT25 'BOOL-FALSE - BOOL37>
516 <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE38>
517 <EQUAL? PAT14 'BOOL-FALSE - PHRASE38>
522 <CALL '
\1aTEXP1 2 = TEMP24>
523 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
526 <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE43>
527 <EQUAL? PAT14 'BOOL-TRUE - PHRASE43>
532 <CALL '
\1aTYPMAT 2 = TEMP24>
533 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
536 <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE48>
538 <EQUAL? PAT14 'BOOLEAN - PHRASE48>
542 <CALL '
\1aTYPMAT 2 = TEMP25>
543 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE51>
549 <CALL '
\1aTEXP1 2 = TEMP25>
550 <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE54>
560 <CALL '
\1aTEXP1 2 = TEMP24>
561 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
567 <CALL '
\1aVTS 1 = PAT14>
568 <TYPE? PAT14 <TYPE-CODE ATOM> - PHRASE59>
575 <CALL '
\1aVTS 1 = STACK>
576 <CALL '
\1aTYPMAT 2 = TEMP24>
583 <CALL '
\1aVTS 1 = PAT25>
584 <TYPE? PAT25 <TYPE-CODE ATOM> - PHRASE63>
590 <CALL '
\1aTYPMAT 2 = TEMP24>
594 <TYPE? PAT14 <TYPE-CODE FORM> + TAG68>
595 <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE66>
597 <TYPE? PAT25 <TYPE-CODE FORM> + TAG69>
598 <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE66>
605 <CALL '
\1aTEXP1 2 = TEMP24>
609 <SET TEMP24 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
615 <GFCN
\1aVTS ("VALUE" ANY ANY) X4>
618 <TYPE? X4 <TYPE-CODE ATOM> - BOOL7>
619 <NTHR X4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL8)>
620 <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL8>
622 <VEQUAL? X4 'ANY + BOOL8>
623 <VEQUAL? X4 'STRUCTURED + BOOL8>
624 <VEQUAL? X4 'MULTI + BOOL8>
625 <VEQUAL? X4 'APPLICABLE - BOOL7>
630 <TYPE? X4 <TYPE-CODE ATOM> - BOOL10>
633 <CALL '
\1aDECL-GET 1 = TEMP9>
634 <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL5>
643 <GFCN
\1a2-ELEM ("VALUE" <OR ATOM FALSE> <PRIMTYPE LIST>) OBJ4>
649 <RESTL OBJ4 1 = TEMP6 (TYPE LIST)>
651 <CHTYPE TEMP6 <TYPE-CODE LIST> = TEMP6>
652 <EMPL? TEMP6 - TAG8 (TYPE LIST)>
659 <GFCN
\1aTYPMAT ("VALUE" ANY ATOM ANY) TYP4 PAT5>
660 <TEMP ORF8 TEM6 TEMP27 TEMP28:FRAME>
662 <GEN-LVAL 'ORF = ORF8>
663 <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE14>
664 <VEQUAL? PAT5 'ANY - BOOL16>
665 <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE18>
667 <SET TEM6 'ANY (TYPE ATOM)>
673 <VEQUAL? TYP4 'ANY - BOOL20>
674 <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE22>
676 <SET TEM6 'ANY (TYPE ATOM)>
682 <VEQUAL? PAT5 TYP4 - BOOL24>
689 <CFRAME = STACK (TYPE FRAME)>
690 <CALL '
\1aGETPROP 3 = TEMP27>
691 <CFRAME = TEMP28 (TYPE FRAME)>
692 <EQUAL? TEMP28 TEMP27 - TAG29>
699 <CFRAME = STACK (TYPE FRAME)>
700 <CALL '
\1aGETPROP 3 = TEM6>
701 <CFRAME = TEMP28 (TYPE FRAME)>
702 <EQUAL? TEMP28 TEM6 - TAG31>
706 <EQUAL? TEMP27 TEM6 - PHRASE37>
708 <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE33>
710 <EQUAL? TEM6 TYP4 - PHRASE35>
718 <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
724 <CALL '
\1aSTRUC 3 = TEM6>
725 <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
730 <CALL '
\1aSTRUC 3 = TEM6>
733 <TYPE? PAT5 <TYPE-CODE FORM> + TAG41>
734 <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE40>
739 <CALL '
\1aTEXP1 2 = TEM6>
742 <SET TEM6 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
745 <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
746 <EMPL? TEM6 + TAG45 (TYPE FALSE)>
752 <CALL '
\1aVTS 1 = TEM6>
753 <EQUAL? TEM6 TYP4 + BOOL47>
758 <CALL '
\1aDTMATCH 2 = ORF8>
759 <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
763 <CALL '
\1aVTS 1 = TEM6>
764 <EQUAL? TEM6 PAT5 - TAG51>
773 <CALL '
\1aTYPMAT 2 = ORF8>
781 <GFCN
\1aTEXP1 ("VALUE" ANY <OR FORM SEGMENT> ANY) FORT4 PAT5>
784 <EMPL? FORT4 - PHRASE8>
785 <RETURN #FALSE (EMPTY-TYPE-FORM!-ERRORS)>
787 <NTHL FORT4 1 = TEMP9>
788 <EQUAL? TEMP9 'OR + BOOL11>
789 <EQUAL? TEMP9 'AND + BOOL11>
790 <EQUAL? TEMP9 'NOT + BOOL11>
791 <EQUAL? TEMP9 'PRIMTYPE - PHRASE10>
798 <CALL '
\1aACTORT 2 = TEMP9>
802 <EQUAL? TEMP9 'QUOTE - PHRASE13>
804 <EMPL? FORT4 + PHRASE13>
805 <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
806 <EMPL? TEMP9 + PHRASE13>
807 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
808 <EMPL? TEMP9 - PHRASE13>
812 <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
814 <NTHL TEMP9 1 = STACK>
816 <CALL '
\1aGEN-DECL 1 = STACK>
819 <CALL '
\1aDTMATCH 2 = TEMP9>
828 <CALL '
\1aFORMATCH 2 = TEMP9>
833 <GFCN
\1aACTORT ("VALUE" ANY <PRIMTYPE LIST> ANY) FORT4 PAT5>
834 <TEMP ACTOR6 ORF8 ANDF9 AL23:LIST TEM22 TEMP33>
836 <NTHL FORT4 1 = ACTOR6>
837 <GEN-LVAL 'ORF = ORF8>
838 <GEN-LVAL 'ANDF = ANDF9>
839 <EQUAL? ACTOR6 'OR - PHRASE15>
840 <RESTL FORT4 1 = FORT4 (TYPE LIST)>
841 <CHTYPE FORT4 <TYPE-CODE LIST> = FORT4>
842 <EMPL? FORT4 - PHRASE17 (TYPE LIST)>
843 <RETURN #FALSE (EMPTY-OR-MATCH!-ERRORS)>
845 <SET AL23 () (TYPE LIST)>
849 <NTHL FORT4 1 = TEM22>
850 <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
854 <NTHR TEM22 5 = TEMP33 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE34)>
855 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE34>
859 <CALL '
\1aDECL-GET 1 = TEMP33>
860 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE34>
863 <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
870 <CALL '
\1aTYPMAT 2 = TEM22>
871 <TYPE? TEM22 <TYPE-CODE FALSE> - BOOL27>
873 <TYPE? TEM22 <TYPE-CODE FORM> + TAG40>
874 <TYPE? TEM22 <TYPE-CODE SEGMENT> - PHRASE26>
880 <CALL '
\1aTEXP1 2 = TEM22>
881 <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE26>
883 <TYPE? ANDF9 <TYPE-CODE FALSE> + PHRASE43>
884 <EQUAL? TEM22 'ANY - PHRASE47>
887 <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE49>
893 <CALL '
\1aPUT-IN 2 = AL23>
899 <CALL '
\1aMEMBER 2 = TEMP33>
900 <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE55>
902 <CONS TEM22 AL23 = AL23>
908 <EMPTY? TEM22 + PHRASE55>
912 <RESTL FORT4 1 = FORT4 (TYPE LIST)>
913 <EMPL? FORT4 - AGAIN24 (TYPE LIST)>
914 <EMPL? AL23 - TAG59 (TYPE LIST)>
917 <RESTL AL23 1 = ORF8 (TYPE LIST)>
918 <EMPL? ORF8 - PHRASE61 (TYPE LIST)>
920 <NTHL AL23 1 = TEMP33>
926 <CONS ACTOR6 AL23 = ORF8>
928 <CHTYPE ORF8 <TYPE-CODE FORM> = STACK>
930 <CALL '
\1aORSORT 1 = TEMP33>
934 <EQUAL? ACTOR6 'NOT - PHRASE65>
941 <CALL '
\1aNOT-IT 2 = ACTOR6>
950 <CALL '
\1aPTACT 2 = ACTOR6>
955 <GFCN
\1aPTACT ("VALUE" ANY ANY ANY) FORTYP4 PAT5>
958 <TYPE? FORTYP4 <TYPE-CODE FORM> + TAG8>
959 <TYPE? FORTYP4 <TYPE-CODE SEGMENT> - PHRASE7>
961 <EMPL? FORTYP4 + PHRASE10>
962 <RESTL FORTYP4 1 = TEMP12 (TYPE LIST)>
963 <EMPL? TEMP12 + PHRASE10>
964 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
965 <EMPL? TEMP12 - PHRASE10>
967 <NTHL FORTYP4 1 = TEMP12>
968 <EQUAL? TEMP12 'PRIMTYPE - PHRASE10>
975 <CALL '
\1aPRIMATCH 2 = TEMP12>
979 <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
981 <TYPE? FORTYP4 <TYPE-CODE ATOM> - PHRASE15>
987 <CALL '
\1aTYPMAT 2 = TEMP12>
991 <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
996 <GFCN
\1aSTRUC ("VALUE" ANY ANY ATOM ANY) WRD4 TYP5 ACTAND6>
999 <EQUAL? WRD4 'STRUCTURED - PHRASE16>
1000 <VEQUAL? TYP5 'APPLICABLE - PHRASE18>
1001 <GEN-LVAL 'ORF = TEMP21>
1002 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE20>
1004 <RETURN <OR APPLICABLE STRUCTURED>>
1006 <RETURN <OR MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO>>
1008 <NTHR TYP5 5 = TC7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
1009 <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE14>
1010 <AND TC7 #WORD *7* = TC7>
1011 <VEQUAL? TC7 1 + TAG38 (TYPE FIX)>
1012 <GRTR? TC7 3 + TAG38 (TYPE FIX)>
1013 <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP21>
1014 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE14>
1016 <VEQUAL? TC7 2 - PHRASE14 (TYPE FIX)>
1018 <FRAME '
\1aGC-PRIMTYPE>
1019 <NTHR TYP5 5 = TEMP21 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1022 <CALL '
\1aGC-PRIMTYPE 1 = TEMP21>
1023 <VEQUAL? TEMP21 'ATOM + TAG38>
1024 <VEQUAL? TEMP21 'GBIND + TAG38>
1025 <VEQUAL? TEMP21 'LBIND + TAG38>
1026 <VEQUAL? TEMP21 'FRAME - PHRASE14>
1030 <EQUAL? WRD4 'APPLICABLE - PHRASE14>
1031 <VEQUAL? TYP5 'STRUCTURED - PHRASE36>
1039 <CALL '
\1aSTRUC 3 = TEMP21>
1043 <SET TEMP21 [MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO OFFSET T$OFFSET FIX] (TYPE VECTOR)>
1044 <LOOP (TYP5 VALUE) (TEMP21 LENGTH VALUE)>
1046 <NTHUV TEMP21 1 = TC7>
1047 <VEQUAL? TC7 TYP5 + TAG38>
1049 <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
1050 <EMPUV? TEMP21 - TAG39>
1053 <GEN-LVAL 'ORF = TEMP21>
1054 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE43>
1062 <GEN-LVAL 'ORF = TEMP21>
1063 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE49>
1065 <TYPE? ACTAND6 <TYPE-CODE FALSE> - PHRASE49>
1074 <CALL '
\1aFORM 3 = STACK>
1075 <CALL '
\1aORSORT 1 = TEMP21>
1082 <GFCN
\1aPRIMATCH ("VALUE" ANY <OR <FORM ANY ANY> <SEGMENT ANY ANY>> ANY) PTYP4 PAT5>
1083 <TEMP ORF9 ANDF10 PAT16 TEMP19 TEM8>
1085 <GEN-LVAL 'ORF = ORF9>
1086 <GEN-LVAL 'ANDF = ANDF10>
1087 <TYPE? PAT5 <TYPE-CODE FORM> + TAG18>
1088 <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE16>
1091 <EMPL? PAT16 + PHRASE16>
1092 <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1093 <EMPL? TEMP19 + PHRASE16>
1094 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1095 <EMPL? TEMP19 - PHRASE16>
1097 <NTHL PAT16 1 = TEMP19>
1098 <EQUAL? TEMP19 'PRIMTYPE - PHRASE16>
1100 <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1101 <NTHL TEMP19 1 = TEMP19>
1102 <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1103 <NTHL ANDF10 1 = ANDF10>
1104 <EQUAL? TEMP19 ANDF10 + BOOL22>
1105 <DEAD TEMP19 ANDF10>
1106 <FRAME '
\1aGC-PRIMTYPE>
1107 <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
1108 <NTHL ANDF10 1 = ANDF10 (TYPE ATOM)>
1109 <NTHR ANDF10 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1112 <CALL '
\1aGC-PRIMTYPE 1 = ANDF10>
1113 <FRAME '
\1aGC-PRIMTYPE>
1114 <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
1115 <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
1116 <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1119 <CALL '
\1aGC-PRIMTYPE 1 = TEMP19>
1120 <VEQUAL? ANDF10 TEMP19 - PHRASE21>
1121 <DEAD ANDF10 TEMP19>
1128 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1136 <CALL '
\1aFORM 3 = STACK>
1137 <CALL '
\1aORSORT 1 = TEMP19>
1141 <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE31>
1142 <VEQUAL? PAT5 'ANY - PHRASE33>
1143 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE35>
1147 <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE36>
1154 <VEQUAL? PAT5 'STRUCTURED + BOOL39>
1155 <VEQUAL? PAT5 'APPLICABLE - PHRASE38>
1159 <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1160 <NTHL ANDF10 1 = STACK (TYPE ATOM)>
1163 <CALL '
\1aSTRUC 3 = ANDF10>
1164 <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE41>
1166 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE44>
1176 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE66>
1184 <CALL '
\1aFORM 3 = STACK>
1185 <CALL '
\1aORSORT 1 = TEMP19>
1189 <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
1190 <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE52>
1192 <FRAME '
\1aGC-PRIMTYPE>
1193 <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1196 <CALL '
\1aGC-PRIMTYPE 1 = ANDF10>
1197 <FRAME '
\1aGC-PRIMTYPE>
1198 <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
1199 <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
1200 <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1203 <CALL '
\1aGC-PRIMTYPE 1 = TEMP19>
1204 <VEQUAL? ANDF10 TEMP19 - PHRASE61>
1205 <DEAD ANDF10 TEMP19>
1206 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE59>
1214 <FRAME '
\1aDECL-GET>
1216 <CALL '
\1aDECL-GET 1 = TEM8>
1217 <EQUAL? TEM8 PAT5 + PHRASE61>
1218 <FRAME '
\1aPRIMATCH>
1222 <CALL '
\1aPRIMATCH 2 = TEMP19>
1223 <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE102>
1227 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1235 <CALL '
\1aFORM 3 = STACK>
1236 <CALL '
\1aORSORT 1 = TEMP19>
1241 <TYPE? PAT5 <TYPE-CODE FORM> + TAG71>
1242 <TYPE? PAT5 <TYPE-CODE SEGMENT> + TAG71>
1246 <EMPL? PAT16 - TAG73>
1249 <NTHL PAT16 1 = TEMP19>
1250 <EQUAL? TEMP19 'OR - PHRASE75>
1256 <CALL '
\1aACTORT 2 = TEMP19>
1260 <EQUAL? TEMP19 'NOT - PHRASE77>
1262 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE79>
1269 <CALL '
\1aNOT-IT 2 = TEMP19>
1273 <FRAME '
\1aPRIMATCH>
1275 <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1277 <NTHL TEMP19 1 = STACK>
1279 <CALL '
\1aPRIMATCH 2 = TEM8>
1280 <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE84>
1281 <EMPL? TEM8 - PHRASE84 (TYPE FALSE)>
1285 <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE86>
1289 <TYPE? TEM8 <TYPE-CODE FORM> + TAG89>
1290 <TYPE? TEM8 <TYPE-CODE SEGMENT> - TAG90>
1292 <EMPL? TEM8 + TAG90>
1293 <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
1294 <EMPL? TEMP19 + TAG90>
1295 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1296 <EMPL? TEMP19 - TAG90>
1298 <NTHL TEM8 1 = TEMP19>
1299 <EQUAL? TEMP19 'PRIMTYPE - TAG90>
1301 <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
1303 <NTHL TEMP19 1 = TEMP19>
1304 <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1306 <NTHL ANDF10 1 = ANDF10>
1307 <EQUAL? TEMP19 ANDF10 - TAG90>
1308 <DEAD TEMP19 ANDF10>
1313 <FRAME '
\1aPRIMATCH>
1316 <NTHL PAT16 1 = STACK>
1317 <CALL '
\1aPRIMATCH 2 = TEM8>
1319 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1320 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE94>
1325 <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE95>
1327 <TYPE? PAT5 <TYPE-CODE FORM> - PHRASE97>
1332 <SET TEMP19 1 (TYPE FIX)>
1333 <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
1335 <CHTYPE ANDF10 <TYPE-CODE LIST> = ANDF10>
1336 <LOOP (ANDF10 VALUE) (TEMP19 VALUE)>
1339 <EMPL? ANDF10 + TAG98>
1340 <NTHL ANDF10 1 = STACK>
1341 <RESTL ANDF10 1 = ANDF10 (TYPE LIST)>
1342 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1345 <CALL '
\1aFORM TEMP19 = TEMP19>
1349 <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1351 <CHTYPE TEMP19 <TYPE-CODE LIST> = TEMP19>
1352 <CONS TEM8 TEMP19 = TEMP19>
1354 <CHTYPE TEMP19 <TYPE-CODE SEGMENT> = TEMP19>
1358 <SET TEMP19 'T (TYPE ATOM)>
1366 <GFCN
\1aNOT-IT ("VALUE" ANY <OR FORM SEGMENT> ANY) NF4 PAT5>
1367 <TEMP TEMP12 T16 TEMP46:FIX>
1369 <TYPE? PAT5 <TYPE-CODE FORM> + TAG10>
1370 <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE8>
1372 <EMPL? PAT5 + PHRASE8>
1373 <NTHL PAT5 1 = TEMP12>
1374 <EQUAL? TEMP12 'OR + BOOL11>
1376 <NTHL PAT5 1 = TEMP12>
1377 <EQUAL? TEMP12 'AND - PHRASE8>
1385 <CALL '
\1aACTORT 2 = TEMP12>
1389 <EMPL? NF4 + PHRASE16>
1390 <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1391 <EMPL? TEMP12 + PHRASE16>
1392 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1393 <EMPL? TEMP12 - PHRASE16>
1395 <FRAME '
\1aTYPE-AND>
1396 <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1397 <NTHL TEMP12 1 = STACK>
1400 <CALL '
\1aTYPE-AND 2 = T16>
1401 <TYPE? T16 <TYPE-CODE FALSE> - PHRASE19>
1402 <GEN-LVAL 'ORF = TEMP12>
1403 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
1408 <GEN-LVAL 'ANDF = TEMP12>
1409 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE25>
1416 <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1418 <NTHL TEMP12 1 = TEMP12>
1419 <EQUAL? TEMP12 'ANY - PHRASE29>
1421 <GEN-LVAL 'ORF = TEMP12>
1422 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
1429 <CALL '
\1aVTS 1 = T16>
1433 <CALL '
\1aVTS 1 = PAT5>
1434 <EQUAL? T16 PAT5 - PHRASE34>
1435 <GEN-LVAL 'ORF = TEMP12>
1436 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
1439 <TYPE? PAT5 <TYPE-CODE ATOM> - BOOL43>
1440 <TYPE? T16 <TYPE-CODE ATOM> + BOOL42>
1443 <TYPE PAT5 = TEMP46>
1444 <VEQUAL? TEMP12 TEMP46 - BOOL45 (TYPE FIX)>
1445 <DEAD TEMP12 TEMP46>
1449 <CALL '
\1aN=? 2 = TEMP12>
1450 <VEQUAL? TEMP12 0 + PHRASE41>
1454 <FRAME '
\1aCANONICAL-DECL>
1456 <CALL '
\1aCANONICAL-DECL 1 = STACK>
1457 <FRAME '
\1aCANONICAL-DECL>
1460 <CALL '
\1aCANONICAL-DECL 1 = STACK>
1461 <CALL '
\1aN=? 2 = TEMP12>
1462 <VEQUAL? TEMP12 0 + PHRASE41>
1465 <GEN-LVAL 'ANDF = TEMP12>
1466 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE52>
1471 <GEN-LVAL 'ORF = TEMP12>
1472 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE55>
1478 <GEN-LVAL 'ORF = TEMP12>
1479 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE62>
1480 <SET TEMP12 'ANY (TYPE ATOM)>
1485 <SET TEMP12 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1491 <GFCN
\1aNOTIFY ("VALUE" ANY ANY) D4>
1494 <TYPE? D4 <TYPE-CODE FORM> + TAG8>
1495 <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE6>
1497 <EMPL? D4 + PHRASE6>
1498 <RESTL D4 1 = TEMP9 (TYPE LIST)>
1499 <EMPL? TEMP9 + PHRASE6>
1500 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1501 <EMPL? TEMP9 - PHRASE6>
1504 <EQUAL? TEMP9 'NOT - PHRASE6>
1506 <RESTL D4 1 = TEMP9 (TYPE LIST)>
1508 <NTHL TEMP9 1 = TEMP9>
1516 <CALL '
\1aFORM 2 = TEMP9>
1523 <GFCN
\1aFORMATCH ("VALUE" ANY <OR <FORM ANY> <SEGMENT ANY>> <OR ATOM FORM LIST SEGMENT VECTOR FIX>) FRM4 RPAT5>
1524 <TEMP PAT7 EX8 ORF9 ANDF10 TEMP18 TEM6>
1527 <GEN-LVAL 'ORF = ORF9>
1528 <GEN-LVAL 'ANDF = ANDF10>
1529 <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE16>
1530 <NTHL FRM4 1 = TEMP18>
1531 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE16>
1533 <NTHL FRM4 1 = TEMP18 (TYPE ATOM)>
1534 <VEQUAL? TEMP18 RPAT5 - PHRASE16>
1536 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE20>
1544 <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE24>
1545 <FRAME '
\1aDECL-GET>
1548 <CALL '
\1aDECL-GET 2 = EX8>
1554 <TYPE? PAT7 <TYPE-CODE ATOM> - PHRASE28>
1555 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE30>
1558 <NTHL FRM4 1 = STACK>
1562 <CALL '
\1aCTMATCH 5 = TEMP18>
1563 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE30>
1571 <CALL '
\1aFORM 3 = STACK>
1572 <CALL '
\1aORSORT 1 = TEM6>
1575 <NTHL FRM4 1 = TEMP18>
1576 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE38>
1579 <NTHL FRM4 1 = STACK (TYPE ATOM)>
1582 <CALL '
\1aTYPMAT 2 = TEM6>
1585 <NTHL FRM4 1 = TEMP18>
1586 <TYPE? TEMP18 <TYPE-CODE FORM> + TAG41>
1588 <SET TEM6 %<> (TYPE FALSE)>
1592 <NTHL FRM4 1 = STACK (TYPE FORM)>
1595 <CALL '
\1aACTORT 2 = TEM6>
1597 <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE45>
1599 <TYPE? ORF9 <TYPE-CODE FALSE> - PHRASE45>
1601 <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE45>
1602 <TYPE? FRM4 <TYPE-CODE FORM> - PHRASE48>
1603 <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
1605 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1606 <CONS TEM6 TEMP18 = TEMP18>
1608 <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
1612 <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
1614 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1615 <CONS TEM6 TEMP18 = TEMP18>
1617 <CHTYPE TEMP18 <TYPE-CODE SEGMENT> = TEMP18>
1624 <TYPE? PAT7 <TYPE-CODE FORM> + TAG52>
1625 <TYPE? PAT7 <TYPE-CODE SEGMENT> + TAG52>
1628 <NTHL PAT7 1 = TEM6>
1629 <EQUAL? TEM6 'OR + BOOL56>
1630 <EQUAL? TEM6 'AND + BOOL56>
1631 <EQUAL? TEM6 'NOT + BOOL56>
1632 <EQUAL? TEM6 'PRIMTYPE - PHRASE55>
1640 <CALL '
\1aACTORT 2 = TEMP18>
1644 <EMPL? PAT7 + PHRASE60>
1645 <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
1646 <EMPL? TEMP18 + PHRASE60>
1647 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1648 <EMPL? TEMP18 - PHRASE60>
1650 <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
1651 <NTHL TEMP18 1 = TEMP18>
1652 <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE60>
1661 <CALL '
\1aWRDFX 3 = TEMP18>
1665 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE63>
1666 <TYPE? EX8 <TYPE-CODE UNBOUND> + PHRASE63>
1673 <CALL '
\1aCTMATCH 5 = TEMP18>
1674 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE63>
1683 <CALL '
\1aFORM 3 = STACK>
1684 <CALL '
\1aORSORT 1 = TEMP18>
1688 <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE68>
1696 <CALL '
\1aCTMATCH 5 = TEMP18>
1697 <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE68>
1706 <CALL '
\1aFORM 3 = STACK>
1707 <CALL '
\1aORSORT 1 = TEMP18>
1717 <CALL '
\1aELETYPE 3 = TEM6>
1718 <TYPE? EX8 <TYPE-CODE UNBOUND> + MAPAP81>
1719 <TYPE? TEM6 <TYPE-CODE FORM> + TAG76>
1720 <TYPE? TEM6 <TYPE-CODE SEGMENT> - MAPAP81>
1722 <EMPL? TEM6 + MAPAP81>
1723 <RESTL TEM6 1 = TEMP18 (TYPE LIST)>
1724 <EMPL? TEMP18 + MAPAP81>
1726 <NTHL TEM6 1 = TEMP18>
1727 <EQUAL? TEMP18 'OR - MAPAP81>
1729 <RESTL TEM6 1 = ORF9 (TYPE LIST)>
1730 <CHTYPE ORF9 <TYPE-CODE LIST> = ORF9>
1734 <EMPL? ORF9 + MAPAP81>
1737 <NTHL ANDF10 1 = STACK>
1739 <CALL '
\1a=? 2 = PAT7>
1740 <VEQUAL? PAT7 0 + BOOL89>
1742 <PUTL ANDF10 1 RPAT5>
1746 <RESTL ORF9 1 = ORF9 (TYPE LIST)>
1751 <END
\1aFORMATCH>
\r\r
1755 <GFCN
\1aFOSE ("VALUE" <OR FORM SEGMENT> "TUPLE" ANY)>
1756 <MAKTUP TUP4 FLG5 TEMP12 TEMP13 = TUP4>
1758 <NTHUV TUP4 1 = FLG5>
1759 <TYPE? FLG5 <TYPE-CODE FALSE> + PHRASE7>
1761 <RESTUV TUP4 1 = FLG5 (TYPE VECTOR)>
1763 <CHTYPE FLG5 <TYPE-CODE VECTOR> = FLG5>
1764 <SET TUP4 () (TYPE LIST)>
1765 <EMPUV? FLG5 + TAG9>
1766 <NTHUV FLG5 1 = TEMP12>
1767 <CONS TEMP12 () = TEMP12>
1769 <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
1770 <EMPUV? FLG5 + TAG9>
1771 <LOOP (FLG5 VALUE LENGTH) (TEMP12 VALUE)>
1773 <NTHUV FLG5 1 = TEMP13>
1774 <CONS TEMP13 () = TEMP13>
1775 <PUTREST TEMP12 TEMP13>
1779 <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
1780 <EMPUV? FLG5 - TAG8>
1782 <CHTYPE TUP4 <TYPE-CODE SEGMENT> = TUP4>
1786 <RESTUV TUP4 1 = TEMP12 (TYPE VECTOR)>
1788 <CHTYPE TEMP12 <TYPE-CODE VECTOR> = TEMP12>
1789 <SET FLG5 () (TYPE LIST)>
1790 <EMPUV? TEMP12 + TAG16>
1791 <NTHUV TEMP12 1 = TEMP13>
1792 <CONS TEMP13 () = TEMP13>
1794 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1795 <EMPUV? TEMP12 + TAG16>
1796 <LOOP (TEMP12 VALUE LENGTH) (TEMP13 VALUE)>
1798 <NTHUV TEMP12 1 = TUP4>
1799 <CONS TUP4 () = TUP4>
1800 <PUTREST TEMP13 TUP4>
1804 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1805 <EMPUV? TEMP12 - TAG15>
1807 <CHTYPE FLG5 <TYPE-CODE FORM> = TUP4>
1813 <GFCN
\1aSEGANDOR ("VALUE" <OR ATOM FALSE> ANY ANY ANY) F14 F25 ORF6>
1816 <FRAME '
\1aREAL-SEG?>
1819 <CALL '
\1aREAL-SEG? 1 = F14>
1820 <FRAME '
\1aREAL-SEG?>
1823 <CALL '
\1aREAL-SEG? 1 = F25>
1824 <TYPE? ORF6 <TYPE-CODE FALSE> + PHRASE10>
1826 <TYPE? F14 <TYPE-CODE SEGMENT> + TAG13>
1830 <TYPE? F25 <TYPE-CODE SEGMENT> - TAG16>
1836 <TYPE? F14 <TYPE-CODE SEGMENT> - TAG21>
1840 <TYPE? F25 <TYPE-CODE SEGMENT> - TAG23>
1847 <GFCN
\1aREAL-SEG? ("VALUE" ANY ANY) F4>
1850 <TYPE? F4 <TYPE-CODE SEGMENT> - PHRASE7>
1851 <EMPL? F4 + PHRASE7>
1852 <RESTL F4 1 = TEMP9 (TYPE LIST)>
1853 <EMPL? TEMP9 + PHRASE7>
1856 <LOOP (LAST5 VALUE)>
1858 <RESTL LAST5 1 = TEMP9 (TYPE LIST)>
1859 <EMPL? TEMP9 + TAG11>
1864 <NTHL LAST5 1 = LAST5>
1865 <TYPE? LAST5 <TYPE-CODE VECTOR> - PHRASE7>
1866 <NTHUV LAST5 1 = TEMP9>
1868 <EQUAL? TEMP9 'REST - PHRASE7>
1870 <CHTYPE F4 <TYPE-CODE FORM> = TEMP9>
1879 <GFCN
\1aWRDFX ("VALUE" ANY <OR FORM SEGMENT> <OR FORM SEGMENT> ANY) F114 F225 RPAT6>
1880 <TEMP F17 F28:FORM TEMP18 FST9 TEMP44:FIX>
1882 <CHTYPE F114 <TYPE-CODE FORM> = F17>
1883 <CHTYPE F225 <TYPE-CODE FORM> = F28>
1884 <TYPE? RPAT6 <TYPE-CODE ATOM> - PHRASE15>
1885 <NTHL F28 1 = TEMP18>
1886 <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE17>
1889 <NTHL F28 1 = STACK (TYPE ATOM)>
1891 <CALL '
\1aTYPMAT 2 = FST9>
1894 <NTHL F28 1 = TEMP18>
1895 <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE20>
1898 <NTHL F28 1 = STACK (TYPE FORM)>
1900 <CALL '
\1aACTORT 2 = FST9>
1903 <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1906 <TYPE? RPAT6 <TYPE-CODE FORM> - PHRASE23>
1909 <NTHL F28 1 = STACK>
1910 <CALL '
\1aACTORT 2 = FST9>
1913 <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1915 <TYPE? FST9 <TYPE-CODE FALSE> - PHRASE27>
1922 <GVAL 'ALLWORDS = STACK>
1926 <CALL '
\1aCTMATCH 5 = TEMP18>
1927 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE30>
1929 <EMPL? F28 + PHRASE34>
1930 <RESTL F28 1 = TEMP18 (TYPE LIST)>
1931 <EMPL? TEMP18 + PHRASE34>
1932 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1933 <EMPL? TEMP18 - PHRASE34>
1935 <RESTL F28 1 = TEMP18 (TYPE LIST)>
1936 <NTHL TEMP18 1 = TEMP18>
1937 <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE34>
1940 <NTHL F28 1 = STACK>
1941 <GVAL 'ALLWORDS = STACK>
1945 <CALL '
\1aCTMATCH 5 = TEMP18>
1946 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE37>
1948 <GEN-LVAL 'ORF = TEMP18>
1949 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE40>
1951 <FRAME '
\1aMAP-MERGE>
1952 <SET TEMP44 0 (TYPE FIX)>
1953 <RESTL F17 1 = TEMP18 (TYPE LIST)>
1955 <NTHL TEMP18 1 = TEMP18>
1956 <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1959 <EMPTY? TEMP18 + TAG43>
1960 <NTH1 TEMP18 = STACK>
1961 <REST1 TEMP18 = TEMP18>
1962 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1965 <RESTL F28 1 = TEMP18 (TYPE LIST)>
1967 <NTHL TEMP18 1 = TEMP18>
1968 <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1971 <EMPTY? TEMP18 + TAG47>
1972 <NTH1 TEMP18 = STACK>
1973 <REST1 TEMP18 = TEMP18>
1974 <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1977 <CALL '
\1aMAP-MERGE TEMP44 = F17>
1979 <EMPL? F17 - PHRASE51 (TYPE LIST)>
1988 <CALL '
\1aFORM 2 = TEMP18>
1992 <FRAME '
\1aAND-MERGE>
1993 <RESTL F17 1 = TEMP18 (TYPE LIST)>
1995 <NTHL TEMP18 1 = STACK (TYPE LIST)>
1997 <RESTL F28 1 = TEMP18 (TYPE LIST)>
1999 <NTHL TEMP18 1 = STACK (TYPE LIST)>
2001 <CALL '
\1aAND-MERGE 2 = F17>
2003 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE66>
2009 <CALL '
\1aFORM 2 = TEMP18>
2013 <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
2015 <GEN-LVAL 'ORF = TEMP18>
2016 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE60>
2025 <CALL '
\1aFORM 3 = STACK>
2026 <CALL '
\1aORSORT 1 = TEMP18>
2032 <SET TEMP18 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2038 <GFCN
\1aMAP-MERGE ("VALUE" LIST "TUPLE" <<PRIMTYPE VECTOR> [REST FIX]>)>
2039 <MAKTUP PAIRS4 HIGH5:FIX LOW6:FIX TEMP12:FIX = PAIRS4>
2041 <NTHUV PAIRS4 2 = HIGH5 (TYPE FIX)>
2042 <NTHUV PAIRS4 1 = LOW6 (TYPE FIX)>
2046 <RESTUV PAIRS4 2 = PAIRS4 (TYPE VECTOR)>
2047 <CHTYPE PAIRS4 <TYPE-CODE VECTOR> = PAIRS4>
2048 <EMPUV? PAIRS4 + EXIT7 (TYPE VECTOR)>
2049 <NTHUV PAIRS4 2 = TEMP12 (TYPE FIX)>
2050 <LESS? TEMP12 HIGH5 - TAG13>
2051 <SET TEMP12 HIGH5 (TYPE FIX)>
2056 <NTHUV PAIRS4 1 = TEMP12 (TYPE FIX)>
2057 <GRTR? TEMP12 LOW6 - TAG15>
2058 <SET TEMP12 LOW6 (TYPE FIX)>
2065 <VEQUAL? HIGH5 %<CHTYPE <MIN> FIX> - PHRASE17 (TYPE FIX)>
2066 <VEQUAL? LOW6 %<CHTYPE <MAX> FIX> - PHRASE17 (TYPE FIX)>
2069 <CONS HIGH5 () = PAIRS4>
2071 <CONS LOW6 PAIRS4 = PAIRS4>
2077 <GFCN
\1aAND-MERGE ("VALUE" <OR !<FALSE> <LIST [REST FIX]>> <LIST [REST FIX]> <LIST [REST FIX]>) L14 L25>
2078 <TEMP (FLG6 %<>) L10:LIST LL11:LIST TEMP14 TEMP15:FIX TEM9:LIST HI22:FIX TEMP26 LO21:FIX>
2082 <LENL L14 = TEMP14 (TYPE FIX)>
2083 <LENL L25 = TEMP15 (TYPE FIX)>
2084 <GRTR? TEMP14 TEMP15 - PHRASE13 (TYPE FIX)>
2085 <DEAD TEMP14 TEMP15>
2096 <NTHL L25 1 = TEMP14 (TYPE FIX)>
2097 <RESTL L25 1 = TEM9 (TYPE LIST)>
2098 <NTHL TEM9 1 = TEMP15 (TYPE FIX)>
2104 <EMPL? TEM9 + EXIT19 (TYPE LIST)>
2105 <RESTL TEM9 1 = TEMP26 (TYPE LIST)>
2106 <NTHL TEMP26 1 = HI22 (TYPE FIX)>
2108 <NTHL TEM9 1 = LO21 (TYPE FIX)>
2109 <LESS? LO21 TEMP14 + BOOL30 (TYPE FIX)>
2110 <GRTR? LO21 TEMP15 - BOOL29 (TYPE FIX)>
2112 <GRTR? HI22 TEMP15 + BOOL31 (TYPE FIX)>
2113 <LESS? HI22 TEMP14 - BOOL29 (TYPE FIX)>
2115 <LESS? TEMP14 LO21 + BOOL32 (TYPE FIX)>
2116 <GRTR? TEMP14 HI22 - BOOL29 (TYPE FIX)>
2118 <GRTR? TEMP15 HI22 + PHRASE28 (TYPE FIX)>
2119 <LESS? TEMP15 LO21 + PHRASE28 (TYPE FIX)>
2123 <LESS? TEMP26 LO21 - TAG34>
2124 <SET TEMP26 LO21 (TYPE FIX)>
2129 <GRTR? TEMP15 HI22 - TAG36>
2130 <SET TEMP15 HI22 (TYPE FIX)>
2133 <CONS TEMP15 () = TEM9>
2135 <CONS TEMP14 TEM9 = TEM9>
2139 <RESTL L10 1 = L10 (TYPE LIST)>
2140 <RESTL L10 1 = L10 (TYPE LIST)>
2141 <SET FLG6 'T (TYPE ATOM)>
2144 <RESTL TEM9 1 = TEM9 (TYPE LIST)>
2145 <RESTL TEM9 1 = TEM9 (TYPE LIST)>
2148 <RESTL L25 1 = L25 (TYPE LIST)>
2149 <RESTL L25 1 = L25 (TYPE LIST)>
2150 <EMPL? L25 - AGAIN17 (TYPE LIST)>
2151 <VEQUAL? FLG6 0 + PHRASE41>
2153 <RESTL LL11 1 = TEMP14 (TYPE LIST)>
2163 <GFCN
\1aGET-RANGE ("VALUE" <OR FALSE <LIST ANY>> ANY) L14>
2164 <TEMP TEMP8 TEMP20:FIX>
2166 <TYPE? L14 <TYPE-CODE FORM> + TAG10>
2171 <GVAL 'ALLWORDS = STACK>
2172 <CALL '
\1aTMATCH 2 = TEMP8>
2173 <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG18>
2174 <RESTL L14 1 = TEMP8 (TYPE LIST)>
2175 <NTHL TEMP8 1 = TEMP8>
2176 <TYPE? TEMP8 <TYPE-CODE LIST> + TAG14>
2180 <FRAME '
\1aMAP-MERGE>
2181 <SET TEMP20 0 (TYPE FIX)>
2182 <RESTL L14 1 = TEMP8 (TYPE LIST)>
2184 <NTHL TEMP8 1 = TEMP8 (TYPE LIST)>
2185 <LOOP (TEMP8 VALUE) (TEMP20 VALUE)>
2188 <EMPL? TEMP8 + TAG19>
2189 <NTHL TEMP8 1 = STACK>
2190 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
2191 <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
2194 <CALL '
\1aMAP-MERGE TEMP20 = TEMP8>
2196 <EMPL? TEMP8 - TAG18 (TYPE LIST)>
2205 <GFCN
\1aELETYPE ("VALUE" ANY <PRIMTYPE LIST> <PRIMTYPE LIST> ANY) F14 F25 RTYP6>
2206 <TEMP S17:VECTOR (FAIL8 %<>) S29:VECTOR (FL10:LIST ()) (FP11 <>) (INOPT12 %<>) ORF16 ANDF17 SEGF14 TEMP28 FSTL13 TEM257 T259 TEMP85 TEM60 RTEM15>
2214 <SBLOCK <TYPE-CODE VECTOR> 6 = S17 (TYPE VECTOR)>
2221 <SBLOCK <TYPE-CODE VECTOR> 6 = S29 (TYPE VECTOR)>
2222 <GEN-LVAL 'ORF = ORF16>
2223 <GEN-LVAL 'ANDF = ANDF17>
2224 <FRAME '
\1aSEGANDOR>
2228 <CALL '
\1aSEGANDOR 3 = SEGF14>
2229 <EMPL? F14 + BOOL27>
2230 <EMPL? F25 - PHRASE26>
2232 <SET TEMP28 #FALSE (EMPTY-FORM-IN-DECL!-ERRORS) (TYPE FALSE)>
2235 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE29>
2236 <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE29>
2238 <NTHL F25 1 = STACK>
2240 <CALL '
\1aTMATCH 2 = TEMP28>
2241 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE29>
2250 <CALL '
\1aFORM 3 = STACK>
2251 <CALL '
\1aORSORT 1 = TEMP28>
2254 <TYPE? RTYP6 <TYPE-CODE ATOM> - PHRASE39>
2255 <NTHL F25 1 = TEMP28>
2256 <TYPE? TEMP28 <TYPE-CODE ATOM> - PHRASE41>
2261 <NTHL F25 1 = STACK (TYPE ATOM)>
2262 <CALL '
\1aTYPMAT 2 = FSTL13>
2265 <NTHL F25 1 = TEMP28>
2266 <TYPE? TEMP28 <TYPE-CODE FORM> - PHRASE43>
2269 <NTHL F25 1 = STACK (TYPE FORM)>
2272 <CALL '
\1aACTORT 2 = FSTL13>
2275 <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2278 <TYPE? RTYP6 <TYPE-CODE FORM> - PHRASE46>
2282 <NTHL F25 1 = STACK>
2283 <CALL '
\1aACTORT 2 = FSTL13>
2286 <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2289 <TYPE? TEMP28 <TYPE-CODE FALSE> + EXIT55>
2290 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE50>
2291 <TYPE? SEGF14 <TYPE-CODE FALSE> + PHRASE52>
2292 <CONS FSTL13 () = TEMP28>
2294 <CHTYPE TEMP28 <TYPE-CODE SEGMENT> = TEMP28>
2300 <CALL '
\1aFORM 1 = TEMP28>
2304 <CHTYPE FP11 <TYPE-CODE LIST> = FL10>
2306 <RESTL F14 1 = TEMP28 (TYPE LIST)>
2307 <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
2308 <PUTUV S17 1 TEMP28>
2310 <RESTL F25 1 = TEMP28 (TYPE LIST)>
2311 <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
2312 <PUTUV S29 1 TEMP28>
2314 <SET TEM257 %<> (TYPE FALSE)>
2320 <CALL '
\1aNEXTP 1 = FSTL13>
2321 <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL67>
2322 <NTHUV S17 2 = TEMP28>
2323 <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL66>
2325 <EMPTY? FSTL13 - PHRASE64>
2326 <SET TEMP28 'ANY (TYPE ATOM)>
2330 <CALL '
\1aNEXTP 1 = TEM257>
2331 <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL71>
2332 <NTHUV S29 2 = T259>
2333 <TYPE? T259 <TYPE-CODE FALSE> - BOOL70>
2335 <TYPE? FSTL13 <TYPE-CODE FALSE> + PHRASE64>
2336 <EMPTY? TEM257 - PHRASE64>
2337 <SET T259 'ANY (TYPE ATOM)>
2339 <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE75>
2340 <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL77>
2341 <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE75>
2343 <FRAME '
\1aONE-CHECK>
2348 <CALL '
\1aONE-CHECK 2 = TEMP28>
2351 <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE81>
2352 <TYPE? F14 <TYPE-CODE FORM> + BOOL84>
2353 <NTHUV S29 4 = TEMP85>
2354 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL84>
2356 <NTHUV S29 5 = TEMP85>
2357 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE83>
2363 <SET FAIL8 'T (TYPE ATOM)>
2364 <SET TEM60 %<> (TYPE FALSE)>
2367 <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE87>
2368 <TYPE? F25 <TYPE-CODE FORM> + BOOL90>
2369 <NTHUV S17 4 = TEMP85>
2370 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL90>
2372 <NTHUV S17 5 = TEMP85>
2373 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE89>
2379 <SET FAIL8 'T (TYPE ATOM)>
2380 <SET TEM60 %<> (TYPE FALSE)>
2386 <CALL '
\1aDTMATCH 2 = TEM60>
2389 <TYPE? RTEM15 <TYPE-CODE FALSE> - PHRASE104>
2390 <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE95>
2398 <CALL '
\1aFORM 3 = STACK>
2399 <CALL '
\1aORSORT 1 = TEM60>
2402 <GEN-LVAL 'MAYBEF = TEMP85>
2403 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE98>
2405 <VEQUAL? FAIL8 0 + PHRASE102>
2407 <SET TEMP28 %<> (TYPE FALSE)>
2410 <SET FAIL8 'T (TYPE ATOM)>
2413 <SET TEMP28 %<> (TYPE FALSE)>
2416 <TYPE? INOPT12 <TYPE-CODE FALSE> - PHRASE106>
2417 <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL109>
2418 <NTHUV S17 5 = TEMP85>
2419 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
2421 <NTHUV S29 5 = TEMP85>
2422 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
2425 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE106>
2426 <TYPE? ORF16 <TYPE-CODE FALSE> - PHRASE106>
2427 <NTHUV S17 5 = TEMP85>
2428 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
2430 <NTHUV S29 5 = TEMP85>
2431 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
2434 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE113>
2435 <CONS TEM60 () = TEMP85>
2436 <CONS 'OPTIONAL TEMP85 = INOPT12>
2440 <SET INOPT12 () (TYPE LIST)>
2443 <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE115>
2444 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE115>
2445 <SET TEMP85 INOPT12>
2446 <LOOP (TEMP85 VALUE)>
2448 <RESTL TEMP85 1 = T259 (TYPE LIST)>
2449 <EMPL? T259 + TAG119>
2454 <CONS TEM60 () = T259>
2455 <PUTREST TEMP85 T259>
2458 <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE121>
2459 <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL124>
2460 <NTHUV S17 3 = T259 (TYPE FIX)>
2461 <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
2463 <NTHUV S29 3 = T259 (TYPE FIX)>
2464 <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
2467 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE121>
2468 <NTHUV S17 3 = T259 (TYPE FIX)>
2469 <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
2471 <NTHUV S29 3 = T259 (TYPE FIX)>
2472 <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
2475 <TYPE? ANDF17 <TYPE-CODE FALSE> + BOOL135>
2476 <SET TEMP28 0 (TYPE FIX)>
2479 <LOOP (T259 VALUE) (TEMP28 VALUE)>
2482 <EMPL? T259 + TAG136>
2483 <NTHL T259 1 = STACK>
2484 <RESTL T259 1 = T259 (TYPE LIST)>
2485 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2488 <UBLOCK <TYPE-CODE VECTOR> TEMP28 = TEM60>
2491 <SET INOPT12 %<> (TYPE FALSE)>
2493 <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL143>
2494 <NTHUV S17 4 = T259>
2495 <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2497 <NTHUV S29 4 = T259>
2498 <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2501 <NTHUV S17 4 = T259>
2502 <TYPE? T259 <TYPE-CODE FALSE> - BOOL148>
2504 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
2505 <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL148>
2506 <NTHUV S17 5 = T259>
2507 <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
2510 <NTHUV S29 4 = T259>
2511 <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2513 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
2514 <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL151>
2515 <NTHUV S29 5 = T259>
2516 <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
2519 <TYPE? ORF16 <TYPE-CODE FALSE> - BOOL154>
2520 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE153>
2527 <TYPE? F25 <TYPE-CODE SEGMENT> - TAG159>
2528 <SET T259 'SEGMENT (TYPE ATOM)>
2531 <SET T259 %<> (TYPE FALSE)>
2535 <CALL '
\1aRESTER? 5 = TEMP28>
2536 <EQUAL? TEMP28 0 + PHRASE164>
2537 <EQUAL? TEMP28 'T - PHRASE162>
2538 <FRAME '
\1aONE-CHECK>
2543 <CALL '
\1aONE-CHECK 2 = TEMP28>
2546 <TYPE? TEMP28 <TYPE-CODE FORM> + TAG168>
2547 <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
2551 <SET TEMP85 1 (TYPE FIX)>
2552 <LOOP (T259 VALUE) (TEMP85 VALUE)>
2554 <EMPL? T259 + TAG169>
2555 <SUB TEMP85 1 = TEMP85 (TYPE FIX)>
2556 <LESS? TEMP85 0 + EXIT55>
2557 <RESTL T259 1 = T259 (TYPE LIST)>
2560 <NTHL TEMP28 1 = TEMP28>
2569 <TYPE? F14 <TYPE-CODE SEGMENT> - TAG177>
2570 <SET TEMP85 'SEGMENT (TYPE ATOM)>
2573 <SET TEMP85 %<> (TYPE FALSE)>
2577 <CALL '
\1aRESTER? 5 = TEMP28>
2578 <EQUAL? TEMP28 0 + PHRASE189>
2579 <EQUAL? TEMP28 'T - PHRASE180>
2580 <FRAME '
\1aONE-CHECK>
2585 <CALL '
\1aONE-CHECK 2 = TEMP28>
2588 <TYPE? TEMP28 <TYPE-CODE FORM> + TAG185>
2589 <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
2591 <FRAME '
\1aONE-CHECK>
2596 <CALL '
\1aONE-CHECK 2 = TEMP28>
2599 <SET TEMP28 'T (TYPE ATOM)>
2602 <TYPE? ANDF17 <TYPE-CODE FALSE> - PHRASE189>
2603 <NTHUV S17 4 = TEMP85>
2604 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL191>
2606 <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE189>
2609 <NTHUV S29 4 = TEMP85>
2610 <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL192>
2612 <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE189>
2614 <SET TEMP28 'T (TYPE ATOM)>
2617 <TYPE? INOPT12 <TYPE-CODE FALSE> - AGAIN62>
2618 <TYPE? ANDF17 <TYPE-CODE FALSE> + AGAIN62>
2619 <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL196>
2620 <NTHUV S17 4 = TEMP85>
2621 <TYPE? TEMP85 <TYPE-CODE FALSE> - AGAIN62>
2623 <NTHUV S29 4 = T259>
2624 <TYPE? T259 <TYPE-CODE FALSE> - AGAIN62>
2627 <NTHL FL10 1 = TEMP28>
2628 <TYPE? TEMP28 <TYPE-CODE VECTOR> - PHRASE199>
2631 <NTHL FL10 1 = FSTL13 (TYPE VECTOR)>
2632 <NTHUV FSTL13 2 = STACK>
2634 <CALL '
\1a=? 2 = TEMP28>
2635 <VEQUAL? TEMP28 0 + PHRASE199>
2637 <NTHUV FSTL13 1 = TEMP28 (TYPE FIX)>
2638 <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2639 <PUTUV FSTL13 1 TEMP28 (TYPE FIX)>
2640 <DEAD FSTL13 TEMP28>
2643 <CHTYPE FP11 <TYPE-CODE LIST> = TEMP28>
2644 <VEQUAL? TEMP28 FL10 + PHRASE203>
2648 <NTHL FL10 1 = STACK>
2649 <CALL '
\1a=? 2 = TEMP28>
2650 <VEQUAL? TEMP28 0 + PHRASE203>
2655 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP28>
2656 <PUTL FL10 1 TEMP28>
2660 <CONS TEM60 () = TEMP28>
2662 <PUTREST FL10 TEMP28>
2668 <EMPTY? FSTL13 - PHRASE215>
2671 <EMPTY? FSTL13 - PHRASE215>
2672 <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE213>
2674 <FRAME '
\1aONE-CHECK>
2679 <CALL '
\1aONE-CHECK 2 = TEMP28>
2682 <SET TEMP28 'T (TYPE ATOM)>
2693 <GFCN
\1aONE-CHECK ("VALUE" ANY <OR FORM SEGMENT> ANY) FP4 SEGF5>
2696 <TYPE? SEGF5 <TYPE-CODE FALSE> - PHRASE7>
2698 <RESTL FP4 1 = TEMP9 (TYPE LIST)>
2699 <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
2700 <EMPL? TEMP9 - PHRASE7 (TYPE LIST)>
2702 <NTHL FP4 1 = TEMP9>
2714 <GFCN
\1aRESTER? ("VALUE" ANY <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR> <LIST ANY> ANY ANY) S14 S25 FL6 FST7 SEGF8>
2715 <TEMP TT9 (TEM110 'T) (TEM211 'T) (OPTIT12 %<>) TEMP17 TEMP30 TEMP41:VECTOR SO45:VECTOR>
2717 <NTHUV S14 6 = TT9 (TYPE VECTOR)>
2718 <GEN-LVAL 'ORF = TEMP17>
2719 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL16>
2721 <NTHUV S25 5 = TEMP17>
2722 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE14>
2725 <NTHUV S25 1 = TEMP17>
2726 <EMPTY? TEMP17 - PHRASE14>
2728 <NTHUV S25 4 = TEMP17>
2729 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE14>
2731 <SET OPTIT12 'T (TYPE ATOM)>
2733 <TYPE? SEGF8 <TYPE-CODE FALSE> + PHRASE21>
2735 <GEN-LVAL 'ORF = TEMP17>
2736 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
2738 <NTHUV S14 4 = TEMP17>
2739 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL25>
2741 <NTHUV S25 4 = TEMP17>
2742 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
2747 <EMPUV? TT9 + PHRASE26 (TYPE VECTOR)>
2748 <NTHUV S25 4 = TEMP17>
2749 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL28>
2751 <LENUV TT9 = TEMP17 (TYPE FIX)>
2752 <NTHUV S25 6 = TEMP30 (TYPE VECTOR)>
2753 <TOPU TEMP30 = TEMP30>
2754 <RESTUV TEMP30 1 = TEMP30 (TYPE VECTOR)>
2755 <LENUV TEMP30 = TEMP30 (TYPE FIX)>
2756 <LESS? TEMP17 TEMP30 + PHRASE26 (TYPE FIX)>
2757 <DEAD TEMP17 TEMP30>
2761 <RESTUV TEMP17 1 = TT9 (TYPE VECTOR)>
2766 <SET TEMP17 2 (TYPE FIX)>
2767 <RESTUV TT9 1 = TEMP41 (TYPE VECTOR)>
2769 <LOOP (TEMP41 VALUE LENGTH) (TEMP17 VALUE)>
2772 <EMPUV? TEMP41 + TAG40>
2773 <NTHUV TEMP41 1 = STACK>
2774 <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
2775 <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2778 <UBLOCK <TYPE-CODE VECTOR> TEMP17 = TT9>
2780 <RESTUV TT9 2 = TEMP41 (TYPE VECTOR)>
2784 <EMPUV? TEMP41 + MAPAP35>
2788 <CALL '
\1aNEXTP 1 = TEM110>
2789 <TYPE? TEM110 <TYPE-CODE FALSE> + BOOL48>
2790 <NTHUV S25 2 = TEMP17>
2791 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE57>
2793 <EMPTY? TEM110 + TAG51>
2794 <SET TEMP17 %<> (TYPE FALSE)>
2797 <GEN-LVAL 'ORF = TEMP30>
2798 <TYPE? TEMP30 <TYPE-CODE FALSE> - MAPAP35>
2800 <SET TEMP17 'ANY (TYPE ATOM)>
2802 <GEN-LVAL 'ORF = TEMP30>
2803 <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL59>
2805 <NTHUV S25 5 = TEMP30>
2806 <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL58>
2809 <NTHUV S25 1 = TEMP30>
2810 <EMPTY? TEMP30 - BOOL58>
2812 <NTHUV S25 4 = TEMP30>
2813 <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL58>
2815 <SET OPTIT12 'T (TYPE ATOM)>
2817 <TYPE? TEM110 <TYPE-CODE FALSE> - BOOL64>
2818 <EMPL? TEM110 - BOOL64 (TYPE FALSE)>
2819 <SET TEM110 'T (TYPE ATOM)>
2821 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE66>
2825 <CALL '
\1aNEXTP 1 = TEMP30>
2826 <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL68>
2827 <NTHUV S14 2 = TEMP30>
2832 <CALL '
\1aDTMATCH 2 = TEM211>
2833 <PUTUV SO45 1 TEM211>
2836 <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP35>
2838 <TYPE? TEM211 <TYPE-CODE FALSE> + MAPAP35>
2839 <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
2842 <VEQUAL? OPTIT12 0 + PHRASE73>
2844 <PUTUV TT9 1 'OPTIONAL>
2847 <FRAME '
\1aUNIQUE-VECTOR-CHECK>
2850 <CALL '
\1aUNIQUE-VECTOR-CHECK 1 = TT9>
2852 <TYPE? TEM110 <TYPE-CODE FALSE> + PHRASE77>
2853 <TYPE? TEM211 <TYPE-CODE FALSE> + PHRASE77>
2859 <TYPE? TEM110 <TYPE-CODE FALSE> - PHRASE79>
2860 <EMPL? TEM110 + PHRASE79 (TYPE FALSE)>
2870 <GFCN
\1aUNIQUE-VECTOR-CHECK ("VALUE" <VECTOR [2 ANY]> <VECTOR [2 ANY]>) V4>
2871 <TEMP FRST5 TEMP17 TEMP19:VECTOR>
2873 <NTHUV V4 2 = FRST5>
2874 <SET TEMP17 %<> (TYPE FALSE)>
2875 <RESTUV V4 2 = TEMP19 (TYPE VECTOR)>
2879 <EMPUV? TEMP19 + MAPAP12>
2880 <NTHUV TEMP19 1 = TEMP17>
2885 <CALL '
\1aN=? 2 = TEMP17>
2886 <VEQUAL? TEMP17 0 + PHRASE22>
2891 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
2894 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE25>
2898 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP17>
2902 <END
\1aUNIQUE-VECTOR-CHECK>
2904 <GFCN
\1aNEXTP ("VALUE" <OR FALSE <VECTOR [6 ANY]>> <VECTOR <PRIMTYPE LIST> ANY FIX ANY ANY ANY>) S4>
2905 <TEMP TEMP10 TEM5 N7:FIX>
2907 <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2908 <VEQUAL? TEMP10 0 - PHRASE9 (TYPE FIX)>
2912 <NTHUV S4 4 = TEMP10>
2913 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
2918 <CALL '
\1aNTHREST 1 = TEMP10>
2922 <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2923 <VEQUAL? TEMP10 0 + PHRASE16 (TYPE FIX)>
2925 <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2926 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
2927 <PUTUV S4 3 TEMP10 (TYPE FIX)>
2932 <CALL '
\1aNTHREST 1 = TEMP10>
2937 <EMPL? TEM5 - PHRASE21>
2940 <NTHL TEM5 1 = TEMP10>
2941 <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG23>
2942 <TYPE? TEMP10 <TYPE-CODE FORM> + TAG23>
2943 <TYPE? TEMP10 <TYPE-CODE SEGMENT> - PHRASE22>
2946 <NTHL TEM5 1 = TEM5>
2947 <NTHUV S4 1 = TEMP10>
2948 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2949 <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
2957 <NTHL TEM5 1 = TEMP10>
2958 <TYPE? TEMP10 <TYPE-CODE VECTOR> - PHRASE25>
2960 <NTHL TEM5 1 = TEM5 (TYPE VECTOR)>
2961 <NTHUV S4 1 = TEMP10>
2962 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2963 <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
2966 <RESTUV TEM5 1 = TEMP10 (TYPE VECTOR)>
2969 <LENUV TEM5 = TEMP10 (TYPE FIX)>
2970 <GRTR? TEMP10 1 - PHRASE27 (TYPE FIX)>
2972 <NTHUV TEM5 1 = TEMP10>
2973 <EQUAL? TEMP10 'REST - PHRASE31>
2975 <LENUV TEM5 = TEMP10 (TYPE FIX)>
2976 <VEQUAL? TEMP10 2 - PHRASE33 (TYPE FIX)>
2978 <NTHUV TEM5 2 = TEMP10>
2979 <EQUAL? TEMP10 'ANY - PHRASE33>
2984 <NTHUV TEM5 2 = TEMP10>
2991 <NTHUV TEM5 1 = TEMP10>
2992 <TYPE? TEMP10 <TYPE-CODE FIX> - BOOL38>
2994 <NTHUV TEM5 1 = N7 (TYPE FIX)>
2997 <NTHUV TEM5 1 = TEMP10>
2998 <EQUAL? TEMP10 'OPT + BOOL40>
3000 <NTHUV TEM5 1 = TEMP10>
3001 <EQUAL? TEMP10 'OPTIONAL - PHRASE36>
3004 <SET N7 1 (TYPE FIX)>
3006 <NTHUV TEM5 1 = TEMP10>
3007 <TYPE? TEMP10 <TYPE-CODE FIX> + BOOL41>
3011 <LENUV TEM5 = TEMP10 (TYPE FIX)>
3012 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
3013 <MUL TEMP10 N7 = TEMP10 (TYPE FIX)>
3014 <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
3015 <PUTUV S4 3 TEMP10 (TYPE FIX)>
3017 <NTHUV TEM5 2 = TEMP10>
3021 <GRTR? N7 0 + PHRASE43 (TYPE FIX)>
3028 <RETURN #FALSE (BAD-VECTOR-SYNTAX!-ERRORS)>
3030 <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
3032 <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
3037 <GFCN
\1aNTHREST ("VALUE" <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR>) S4>
3040 <NTHUV S4 6 = TEMP6 (TYPE VECTOR)>
3041 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3042 <EMPUV? TEMP6 - PHRASE8 (TYPE VECTOR)>
3043 <TOPU TEMP6 = TEMP6>
3044 <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3047 <NTHUV TEMP6 1 = TEMP6>
3056 <GFCN
\1aGET-ELE-TYPE ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) DCL27 NN8 RST9 PT10>
3057 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3063 <TEMP (ET15 'FIX) TEMP19 VT14 TEMP39:FIX>
3065 <GVAL 'MIM = TEMP19>
3066 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
3070 <CALL '
\1aISTYPE? 1 = TEMP19>
3071 <TYPE? TEMP19 <TYPE-CODE FALSE> + BOOL21>
3072 <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL20)>
3073 <TYPE? VT14 <TYPE-CODE FALSE> - BOOL20>
3075 <FRAME '
\1aSTRUCTYP>
3077 <CALL '
\1aSTRUCTYP 1 = TEMP19>
3078 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
3079 <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE17)>
3080 <TYPE? VT14 <TYPE-CODE FALSE> + PHRASE17>
3085 <CALL '
\1aFORM 2 = TEMP19>
3087 <AND VT14 #WORD *7* = VT14>
3088 <VEQUAL? VT14 4 + BOOL30 (TYPE FIX)>
3089 <VEQUAL? VT14 5 - BOOL31 (TYPE FIX)>
3090 <SET ET15 'CHARACTER (TYPE ATOM)>
3093 <VEQUAL? VT14 6 - PHRASE17 (TYPE FIX)>
3095 <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE40>
3096 <EQUAL? NN8 'ALL + BOOL36>
3097 <TYPE? NN8 <TYPE-CODE FIX> - PHRASE35>
3100 <CALL '
\1aMINL 1 = TEMP39>
3101 <GRTR? NN8 TEMP39 + PHRASE35 (TYPE FIX)>
3105 <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE73>
3108 <TYPE? NN8 <TYPE-CODE FIX> - PHRASE40>
3109 <GRTR? NN8 0 - PHRASE40 (TYPE FIX)>
3116 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3120 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3121 <CALL '
\1aFORM 3 = TEMP19>
3125 <TYPE? RST9 <TYPE-CODE FALSE> + PHRASE62>
3126 <VEQUAL? VT14 5 - PHRASE49 (TYPE FIX)>
3127 <SET TEMP19 'STRING (TYPE ATOM)>
3130 <VEQUAL? VT14 4 - PHRASE50 (TYPE FIX)>
3132 <SET TEMP19 'BYTES (TYPE ATOM)>
3135 <SET TEMP19 'UVECTOR (TYPE ATOM)>
3137 <EQUAL? NN8 'ALL - PHRASE53>
3141 <TYPE? NN8 <TYPE-CODE FIX> - PHRASE54>
3144 <CALL '
\1aMINL 1 = TEMP39>
3145 <SUB TEMP39 NN8 = TEMP39 (TYPE FIX)>
3146 <GRTR? TEMP39 0 - PHRASE54 (TYPE FIX)>
3153 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3157 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3158 <CALL '
\1aFORM 3 = TEMP19>
3162 <TYPE? NN8 <TYPE-CODE FIX> - PHRASE62>
3163 <LESS? NN8 0 + PHRASE62 (TYPE FIX)>
3167 <EQUAL? NN8 'ALL + BOOL67>
3168 <TYPE? NN8 <TYPE-CODE FIX> - PHRASE66>
3169 <GRTR? NN8 0 - PHRASE66 (TYPE FIX)>
3175 <PUSH 'BAD-CALL-TO-GET-ELE-TYPE>
3184 <CALL '
\1aERROR 5 = TEMP19>
3188 <FRAME '
\1aREAL-GET-ELE-TYPE>
3197 <CALL '
\1aREAL-GET-ELE-TYPE 4 = TEMP19>
3201 <END
\1aGET-ELE-TYPE>
3203 <GFCN
\1aREAL-GET-ELE-TYPE ("VALUE" ANY ANY ANY ANY ANY) DCL24 NN5 RST6 PT7>
3204 <TEMP (LN8 0) (CNT9:FIX 0) SDC12 (N14 0) (QOK16 %<>) (FMOK17 %<>) (GD19 <>) (GP20:LIST ()) (K21:FIX 0) (SEGF23 %<>) STRU18 DCL13 TEMP62 DC11 X151 ITYP10>
3210 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE30>
3213 <CALL '
\1aISTYPE? 1 = LN8>
3214 <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE30>
3215 <FRAME '
\1aTYPE-AND>
3216 <FRAME '
\1aGET-ELE-TYPE>
3220 <CALL '
\1aGET-ELE-TYPE 2 = STACK>
3223 <CALL '
\1aTYPE-AND 2 = PT7>
3225 <TYPE? N14 <TYPE-CODE ATOM> - BOOL35>
3226 <FRAME '
\1aDECL-GET>
3230 <CALL '
\1aDECL-GET 2 = N14>
3232 <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE38>
3233 <SET SEGF23 'T (TYPE ATOM)>
3235 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE40>
3236 <FRAME '
\1aSTRUCTYP>
3238 <CALL '
\1aSTRUCTYP 1 = STRU18>
3239 <TYPE? STRU18 <TYPE-CODE FALSE> - PHRASE44>
3240 <SET STRU18 'STRUCTURED (TYPE ATOM)>
3243 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE44>
3246 <CALL '
\1aISTYPE? 1 = LN8>
3247 <TYPE? LN8 <TYPE-CODE FALSE> - PHRASE51>
3248 <FRAME '
\1aSTRUCTYP>
3250 <CALL '
\1aSTRUCTYP 1 = STRU18>
3251 <TYPE? STRU18 <TYPE-CODE FALSE> + PHRASE48>
3256 <CALL '
\1aFORM 2 = LN8>
3259 <SET LN8 'STRUCTURED (TYPE ATOM)>
3264 <TYPE? N14 <TYPE-CODE FORM> + TAG55>
3265 <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE53>
3268 <LENL DCL13 = LN8 (TYPE FIX)>
3269 <GRTR? LN8 1 - PHRASE53 (TYPE FIX)>
3271 <NTHL DCL13 1 = LN8>
3272 <SET TEMP62 [OR AND NOT] (TYPE VECTOR)>
3273 <TYPE? LN8 <TYPE-CODE ATOM> - TAG59>
3274 <LOOP (LN8 VALUE) (TEMP62 LENGTH VALUE)>
3276 <NTHUV TEMP62 1 = FMOK17>
3277 <VEQUAL? FMOK17 LN8 + TAG58>
3279 <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3280 <EMPUV? TEMP62 - TAG60>
3287 <SET FMOK17 %<> (TYPE FALSE)>
3288 <SET QOK16 %<> (TYPE FALSE)>
3289 <NTHL DCL13 1 = TEMP62>
3290 <EQUAL? TEMP62 'QUOTE - TAG64>
3292 <SET QOK16 'T (TYPE ATOM)>
3295 <NTHL DCL13 1 = TEMP62>
3296 <EQUAL? TEMP62 'PRIMTYPE + PHRASE53>
3298 <EQUAL? NN5 'ALL - PHRASE66>
3299 <TYPE? PT7 <TYPE-CODE FALSE> + BOOL67>
3303 <CALL '
\1aFOSE 2 = GD19>
3304 <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
3306 <RESTL DCL13 1 = TEMP62 (TYPE LIST)>
3307 <NTHL TEMP62 1 = QOK16>
3309 <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE103>
3312 <LENUV DC11 = TEMP62 (TYPE FIX)>
3313 <LESS? TEMP62 2 + PHRASE103 (TYPE FIX)>
3315 <NTHUV DC11 1 = TEMP62>
3316 <EQUAL? TEMP62 'REST - PHRASE103>
3318 <LENUV DC11 = TEMP62 (TYPE FIX)>
3319 <VEQUAL? TEMP62 2 - PHRASE72 (TYPE FIX)>
3321 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE74>
3326 <NTHUV DC11 2 = STACK>
3328 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3329 <CALL '
\1aFORM 2 = SDC12>
3333 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE77>
3338 <FRAME '
\1aTYPE-MERGE>
3339 <NTHUV DC11 2 = STACK>
3343 <CALL '
\1aTYPE-MERGE 2 = STACK>
3344 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3345 <CALL '
\1aFORM 2 = SDC12>
3349 <NTHUV DC11 2 = SDC12>
3351 <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
3354 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE82>
3359 <FRAME '
\1aTYPE-MERGE>
3360 <SET LN8 0 (TYPE FIX)>
3361 <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
3363 <LOOP (TEMP62 VALUE LENGTH) (LN8 VALUE)>
3366 <EMPUV? TEMP62 + TAG85>
3367 <NTHUV TEMP62 1 = STACK>
3368 <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3369 <ADD LN8 1 = LN8 (TYPE FIX)>
3372 <CALL '
\1aTYPE-MERGE LN8 = STACK>
3374 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3375 <CALL '
\1aFORM 2 = SDC12>
3379 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE88>
3384 <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3386 <SET LN8 0 (TYPE FIX)>
3387 <FRAME '
\1aTYPE-MERGE>
3391 <EMPUV? SDC12 + MAPAP95>
3392 <NTHUV SDC12 1 = QOK16>
3393 <FRAME '
\1aTYPE-MERGE>
3397 <CALL '
\1aTYPE-MERGE 2 = QOK16>
3400 <ADD LN8 1 = LN8 (TYPE FIX)>
3401 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3404 <CALL '
\1aTYPE-MERGE LN8 = STACK>
3406 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3407 <CALL '
\1aFORM 2 = SDC12>
3411 <FRAME '
\1aTYPE-MERGE>
3412 <SET LN8 0 (TYPE FIX)>
3413 <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3415 <LOOP (SDC12 VALUE LENGTH) (LN8 VALUE)>
3418 <EMPUV? SDC12 + TAG104>
3419 <NTHUV SDC12 1 = STACK>
3420 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3421 <ADD LN8 1 = LN8 (TYPE FIX)>
3424 <CALL '
\1aTYPE-MERGE LN8 = SDC12>
3426 <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
3429 <RESTL DCL13 1 = SDC12 (TYPE LIST)>
3430 <NTHL SDC12 1 = FMOK17>
3433 <CALL '
\1aDCX 1 = N14>
3437 <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3438 <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
3439 <EMPL? DCL13 - PHRASE115 (TYPE LIST)>
3440 <TYPE? SEGF23 <TYPE-CODE FALSE> - TAG121>
3441 <TYPE? FMOK17 <TYPE-CODE VECTOR> + TAG118>
3442 <SET SEGF23 %<> (TYPE FALSE)>
3445 <NTHUV FMOK17 1 = SDC12>
3447 <EQUAL? SDC12 'REST - TAG120>
3449 <SET SEGF23 'T (TYPE ATOM)>
3452 <SET SEGF23 %<> (TYPE FALSE)>
3454 <TYPE? SEGF23 <TYPE-CODE FALSE> + PHRASE123>
3456 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE125>
3464 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3465 <CALL '
\1aFORM 2 = SDC12>
3469 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE128>
3477 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE130>
3482 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE131>
3489 <FRAME '
\1aTYPE-MERGE>
3493 <NTHL DCL13 1 = FMOK17>
3495 <CALL '
\1aDCX 1 = STACK>
3496 <CALL '
\1aTYPE-MERGE 2 = N14>
3497 <TYPE? PT7 <TYPE-CODE FALSE> + AGAIN113>
3500 <TYPE? FMOK17 <TYPE-CODE VECTOR> - PHRASE137>
3501 <NTHUV FMOK17 1 = STACK>
3502 <SET QOK16 1 (TYPE FIX)>
3503 <SET TEMP62 () (TYPE LIST)>
3504 <SET LN8 () (TYPE LIST)>
3505 <RESTUV FMOK17 1 = DC11 (TYPE VECTOR)>
3509 <EMPUV? DC11 + MAPAP143>
3510 <NTHUV DC11 1 = X151>
3511 <FRAME '
\1aTYPE-MERGE>
3515 <CALL '
\1aTYPE-MERGE 2 = X151>
3516 <CONS X151 () = X151 (TYPE LIST)>
3517 <EMPL? TEMP62 - TAG154>
3518 <SET TEMP62 X151 (TYPE LIST)>
3524 <SET LN8 X151 (TYPE LIST)>
3526 <RESTUV DC11 1 = DC11 (TYPE VECTOR)>
3529 <LOOP (TEMP62 VALUE) (QOK16 VALUE)>
3532 <EMPL? TEMP62 + TAG138>
3533 <NTHL TEMP62 1 = STACK>
3534 <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3535 <ADD QOK16 1 = QOK16 (TYPE FIX)>
3538 <UBLOCK <TYPE-CODE VECTOR> QOK16 = DC11>
3542 <FRAME '
\1aTYPE-MERGE>
3545 <CALL '
\1aTYPE-MERGE 2 = DC11>
3547 <CONS DC11 () = DC11>
3548 <PUTREST SDC12 DC11>
3556 <TYPE? PT7 <TYPE-CODE FALSE> + BOOL161>
3560 <CALL '
\1aFOSE 2 = GD19>
3561 <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
3563 <TYPE? RST6 <TYPE-CODE FALSE> + BOOL163>
3564 <ADD N14 1 = N14 (TYPE FIX)>
3566 <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3567 <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
3568 <EMPL? DCL13 - PHRASE165 (TYPE LIST)>
3569 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE167>
3574 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE168>
3580 <SET SDC12 3 (TYPE FIX)>
3582 <SUB N14 1 = STACK (TYPE FIX)>
3584 <CALL '
\1aANY-PAT 1 = DC11>
3585 <LOOP (DC11 VALUE) (SDC12 VALUE)>
3588 <EMPL? DC11 + TAG169>
3589 <NTHL DC11 1 = STACK>
3590 <RESTL DC11 1 = DC11 (TYPE LIST)>
3591 <ADD SDC12 1 = SDC12 (TYPE FIX)>
3596 <CALL '
\1aFOSE SDC12 = SDC12>
3605 <VEQUAL? CNT9 0 + PHRASE177 (TYPE FIX)>
3606 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3607 <EMPUV? SDC12 - PHRASE196 (TYPE VECTOR)>
3608 <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3609 <SUB CNT9 1 = CNT9 (TYPE FIX)>
3610 <VEQUAL? CNT9 0 - PHRASE196 (TYPE FIX)>
3611 <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3612 <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
3613 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE188>
3618 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE189>
3619 <CONS PT7 () = DC11>
3622 <SUB N14 1 = STACK (TYPE FIX)>
3624 <CALL '
\1aANY-PAT 1 = TEMP62>
3626 <EMPL? TEMP62 + TAG191>
3627 <NTHL TEMP62 1 = SDC12>
3628 <CONS SDC12 DC11 = SDC12>
3630 <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3631 <EMPL? TEMP62 + TAG191>
3632 <LOOP (TEMP62 VALUE) (SDC12 VALUE) (DC11 VALUE)>
3634 <NTHL TEMP62 1 = QOK16>
3635 <CONS QOK16 DC11 = QOK16>
3636 <PUTREST SDC12 QOK16>
3640 <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3641 <EMPL? TEMP62 - TAG190>
3650 <NTHUV SDC12 1 = ITYP10>
3653 <NTHL DCL13 1 = X151>
3654 <TYPE? X151 <TYPE-CODE ATOM> + TAG198>
3655 <TYPE? X151 <TYPE-CODE FORM> + TAG198>
3656 <TYPE? X151 <TYPE-CODE SEGMENT> - PHRASE197>
3659 <NTHL DCL13 1 = ITYP10>
3660 <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3663 <NTHL DCL13 1 = QOK16>
3664 <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE261>
3667 <NTHUV DC11 1 = X151>
3668 <EQUAL? X151 'REST - PHRASE201>
3670 <TYPE? RST6 <TYPE-CODE FALSE> + BOOL204>
3671 <VEQUAL? N14 1 - BOOL203 (TYPE FIX)>
3673 <TYPE? PT7 <TYPE-CODE FALSE> + BOOL202>
3675 <LENUV DC11 = X151 (TYPE FIX)>
3676 <VEQUAL? X151 2 - BOOL202 (TYPE FIX)>
3679 <NTHUV DC11 2 = STACK>
3681 <CALL '
\1a=? 2 = X151>
3682 <VEQUAL? X151 0 + BOOL202>
3686 <SUB N14 1 = X151 (TYPE FIX)>
3687 <LENUV DC11 = SDC12 (TYPE FIX)>
3688 <SUB SDC12 1 = SDC12 (TYPE FIX)>
3689 <MOD X151 SDC12 = K21 (TYPE FIX)>
3691 <SUB N14 1 = SDC12 (TYPE FIX)>
3693 <LENUV DC11 = X151 (TYPE FIX)>
3694 <SUB X151 1 = X151 (TYPE FIX)>
3695 <DIV SDC12 X151 = N14 (TYPE FIX)>
3697 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE209>
3704 <VEQUAL? K21 0 - PHRASE212 (TYPE FIX)>
3711 <FRAME '
\1aTYPE-MERGE>
3712 <SET TEMP62 0 (TYPE FIX)>
3713 <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3715 <LOOP (SDC12 VALUE LENGTH) (TEMP62 VALUE)>
3718 <EMPUV? SDC12 + TAG217>
3719 <NTHUV SDC12 1 = STACK>
3720 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3721 <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
3724 <CALL '
\1aTYPE-MERGE TEMP62 = STACK>
3726 <UBLOCK <TYPE-CODE VECTOR> 2 = X151>
3730 <CALL '
\1aFOSE 3 = SDC12>
3734 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE220>
3735 <CONS DC11 () = X151>
3736 <SET TEMP62 () (TYPE LIST)>
3737 <SET QOK16 () (TYPE LIST)>
3738 <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3742 <EMPUV? SDC12 + MAPAP227>
3743 <NTHUV SDC12 1 = FMOK17>
3744 <SUB K21 1 = K21 (TYPE FIX)>
3745 <VEQUAL? K21 -1 - PHRASE235 (TYPE FIX)>
3748 <CONS FMOK17 () = FMOK17 (TYPE LIST)>
3749 <EMPL? TEMP62 - TAG240>
3750 <SET TEMP62 FMOK17 (TYPE LIST)>
3753 <PUTREST QOK16 FMOK17>
3756 <SET QOK16 FMOK17 (TYPE LIST)>
3758 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3762 <EMPL? TEMP62 + TAG222>
3763 <NTHL TEMP62 1 = FMOK17>
3764 <CONS FMOK17 X151 = FMOK17>
3766 <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3767 <EMPL? TEMP62 + TAG222>
3768 <LOOP (TEMP62 VALUE) (FMOK17 VALUE) (X151 VALUE)>
3770 <NTHL TEMP62 1 = QOK16>
3771 <CONS QOK16 X151 = QOK16>
3772 <PUTREST FMOK17 QOK16>
3776 <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3777 <EMPL? TEMP62 - TAG221>
3779 <GRTR? N14 0 + PHRASE246 (TYPE FIX)>
3780 <SET FMOK17 () (TYPE LIST)>
3783 <VEQUAL? N14 1 - PHRASE249 (TYPE FIX)>
3784 <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
3786 <SET QOK16 () (TYPE LIST)>
3787 <EMPUV? TEMP62 + TAG253>
3788 <NTHUV TEMP62 1 = FMOK17>
3789 <CONS FMOK17 () = FMOK17>
3791 <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3792 <EMPUV? TEMP62 + TAG253>
3793 <LOOP (TEMP62 VALUE LENGTH) (FMOK17 VALUE)>
3795 <NTHUV TEMP62 1 = N14>
3797 <PUTREST FMOK17 N14>
3801 <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3802 <EMPUV? TEMP62 - TAG252>
3810 <SET FMOK17 1 (TYPE FIX)>
3811 <RESTUV DC11 1 = QOK16 (TYPE VECTOR)>
3813 <LOOP (QOK16 VALUE LENGTH) (FMOK17 VALUE)>
3816 <EMPUV? QOK16 + TAG257>
3817 <NTHUV QOK16 1 = STACK>
3818 <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
3819 <ADD FMOK17 1 = FMOK17 (TYPE FIX)>
3822 <UBLOCK <TYPE-CODE VECTOR> FMOK17 = QOK16>
3824 <CONS QOK16 () = FMOK17>
3828 <EMPL? FMOK17 + TAG244>
3829 <NTHL FMOK17 1 = TEMP62>
3830 <CONS TEMP62 SDC12 = TEMP62>
3832 <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
3833 <EMPL? FMOK17 + TAG244>
3834 <LOOP (FMOK17 VALUE) (TEMP62 VALUE) (SDC12 VALUE)>
3836 <NTHL FMOK17 1 = N14>
3837 <CONS N14 SDC12 = N14>
3838 <PUTREST TEMP62 N14>
3842 <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
3843 <EMPL? FMOK17 - TAG243>
3845 <PUTREST GP20 QOK16>
3850 <ADD K21 2 = QOK16 (TYPE FIX)>
3852 <NTHUV DC11 QOK16 = SDC12>
3857 <NTHUV DC11 1 = QOK16>
3858 <TYPE? QOK16 <TYPE-CODE FIX> + BOOL262>
3860 <NTHUV DC11 1 = QOK16>
3861 <EQUAL? QOK16 'OPT + BOOL262>
3863 <NTHUV DC11 1 = QOK16>
3864 <EQUAL? QOK16 'OPTIONAL - PHRASE261>
3867 <NTHUV DC11 1 = QOK16>
3868 <TYPE? QOK16 <TYPE-CODE FIX> - PHRASE264>
3870 <NTHUV DC11 1 = QOK16 (TYPE FIX)>
3873 <SET QOK16 1 (TYPE FIX)>
3880 <SUB N14 1 = N14 (TYPE FIX)>
3881 <VEQUAL? N14 0 - BOOL266 (TYPE FIX)>
3882 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE270>
3884 <EMPL? DCL13 - PHRASE272 (TYPE LIST)>
3885 <VEQUAL? CNT9 0 - PHRASE272 (TYPE FIX)>
3894 <SET TEMP62 2 (TYPE FIX)>
3895 <VEQUAL? CNT9 0 - PHRASE278 (TYPE FIX)>
3896 <CONS ITYP10 DCL13 = QOK16>
3900 <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
3901 <VEQUAL? FMOK17 SDC12 + PHRASE281>
3903 <SUB CNT9 1 = CNT9 (TYPE FIX)>
3904 <VEQUAL? CNT9 0 - PHRASE283 (TYPE FIX)>
3905 <RESTL DCL13 1 = FMOK17 (TYPE LIST)>
3910 <EMPUV? N14 + TAG287>
3911 <NTHUV N14 1 = SEGF23>
3912 <CONS SEGF23 FMOK17 = SEGF23>
3914 <RESTUV N14 1 = N14 (TYPE VECTOR)>
3915 <EMPUV? N14 + TAG287>
3916 <LOOP (N14 VALUE LENGTH) (SEGF23 VALUE) (FMOK17 VALUE)>
3919 <CONS LN8 FMOK17 = LN8>
3920 <PUTREST SEGF23 LN8>
3924 <RESTUV N14 1 = N14 (TYPE VECTOR)>
3925 <EMPUV? N14 - TAG286>
3931 <RESTL DCL13 1 = GD19 (TYPE LIST)>
3935 <SET N14 1 (TYPE FIX)>
3936 <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
3938 <LOOP (SEGF23 VALUE LENGTH) (N14 VALUE)>
3941 <EMPUV? SEGF23 + TAG292>
3942 <NTHUV SEGF23 1 = STACK>
3943 <RESTUV SEGF23 1 = SEGF23 (TYPE VECTOR)>
3944 <ADD N14 1 = N14 (TYPE FIX)>
3947 <UBLOCK <TYPE-CODE VECTOR> N14 = SEGF23>
3949 <CONS SEGF23 GD19 = QOK16>
3954 <EMPUV? GD19 + TAG296>
3955 <NTHUV GD19 1 = LN8>
3956 <CONS LN8 QOK16 = LN8>
3958 <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
3959 <EMPUV? GD19 + TAG296>
3960 <LOOP (GD19 VALUE LENGTH) (LN8 VALUE) (QOK16 VALUE)>
3962 <NTHUV GD19 1 = SDC12>
3963 <CONS SDC12 QOK16 = SDC12>
3968 <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
3969 <EMPUV? GD19 - TAG295>
3975 <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
3979 <SET GD19 1 (TYPE FIX)>
3982 <LOOP (LN8 VALUE LENGTH) (GD19 VALUE)>
3985 <EMPUV? LN8 + TAG299>
3986 <NTHUV LN8 1 = STACK>
3987 <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
3988 <ADD GD19 1 = GD19 (TYPE FIX)>
3991 <UBLOCK <TYPE-CODE VECTOR> GD19 = LN8>
3993 <CONS LN8 SEGF23 = QOK16>
3996 <LOOP (QOK16 VALUE) (TEMP62 VALUE)>
3999 <EMPL? QOK16 + TAG276>
4000 <NTHL QOK16 1 = STACK>
4001 <RESTL QOK16 1 = QOK16 (TYPE LIST)>
4002 <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
4005 <CALL '
\1aFOSE TEMP62 = SDC12>
4010 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE304>
4011 <CONS PT7 () = TEMP62>
4013 <PUTREST GP20 TEMP62>
4017 <TYPE? SDC12 <TYPE-CODE UNBOUND> + BOOL305>
4018 <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
4020 <EMPL? DCL13 - PHRASE307 (TYPE LIST)>
4021 <VEQUAL? CNT9 0 - PHRASE307 (TYPE FIX)>
4025 <VEQUAL? CNT9 0 + BOOL314 (TYPE FIX)>
4026 <VEQUAL? CNT9 1 - PHRASE313 (TYPE FIX)>
4027 <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
4028 <VEQUAL? TEMP62 SDC12 - PHRASE313>
4035 <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
4036 <VEQUAL? SEGF23 SDC12 - PHRASE320>
4038 <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
4042 <SET SDC12 1 (TYPE FIX)>
4043 <RESTUV DC11 1 = LN8 (TYPE VECTOR)>
4045 <LOOP (LN8 VALUE LENGTH) (SDC12 VALUE)>
4048 <EMPUV? LN8 + TAG321>
4049 <NTHUV LN8 1 = STACK>
4050 <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4051 <ADD SDC12 1 = SDC12 (TYPE FIX)>
4054 <UBLOCK <TYPE-CODE VECTOR> SDC12 = LN8>
4056 <CONS LN8 SEGF23 = TEMP62>
4060 <SUB CNT9 1 = CNT9 (TYPE FIX)>
4061 <GRTR? CNT9 0 + PHRASE324 (TYPE FIX)>
4062 <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
4067 <EMPUV? LN8 + TAG328>
4068 <NTHUV LN8 1 = FMOK17>
4069 <CONS FMOK17 SEGF23 = FMOK17>
4071 <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4072 <EMPUV? LN8 + TAG328>
4073 <LOOP (LN8 VALUE LENGTH) (FMOK17 VALUE) (SEGF23 VALUE)>
4075 <NTHUV LN8 1 = SDC12>
4076 <CONS SDC12 SEGF23 = SDC12>
4077 <PUTREST FMOK17 SDC12>
4081 <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4082 <EMPUV? LN8 - TAG327>
4088 <RESTL DCL13 1 = QOK16 (TYPE LIST)>
4092 <SET LN8 1 (TYPE FIX)>
4093 <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
4095 <LOOP (FMOK17 VALUE LENGTH) (LN8 VALUE)>
4098 <EMPUV? FMOK17 + TAG333>
4099 <NTHUV FMOK17 1 = STACK>
4100 <RESTUV FMOK17 1 = FMOK17 (TYPE VECTOR)>
4101 <ADD LN8 1 = LN8 (TYPE FIX)>
4104 <UBLOCK <TYPE-CODE VECTOR> LN8 = FMOK17>
4106 <CONS FMOK17 QOK16 = TEMP62>
4111 <EMPUV? QOK16 + TAG337>
4112 <NTHUV QOK16 1 = SDC12>
4113 <CONS SDC12 TEMP62 = SDC12>
4115 <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
4116 <EMPUV? QOK16 + TAG337>
4117 <LOOP (QOK16 VALUE LENGTH) (SDC12 VALUE) (TEMP62 VALUE)>
4119 <NTHUV QOK16 1 = N14>
4120 <CONS N14 TEMP62 = N14>
4125 <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
4126 <EMPUV? QOK16 - TAG336>
4131 <PUTREST GP20 TEMP62>
4139 <TYPE? PT7 <TYPE-CODE FALSE> - BOOL341>
4140 <TYPE? RST6 <TYPE-CODE FALSE> + BOOL340>
4145 <CALL '
\1a=? 2 = FMOK17>
4146 <VEQUAL? FMOK17 0 + BOOL340>
4150 <TYPE? PT7 <TYPE-CODE FALSE> + BOOL343>
4151 <CONS ITYP10 () = FMOK17>
4152 <PUTREST GP20 FMOK17>
4157 <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
4158 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE347>
4163 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE348>
4164 <CONS PT7 () = FMOK17>
4167 <SUB N14 1 = STACK (TYPE FIX)>
4169 <CALL '
\1aANY-PAT 1 = SDC12>
4171 <EMPL? SDC12 + TAG350>
4172 <NTHL SDC12 1 = N14>
4173 <CONS N14 FMOK17 = N14>
4175 <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4176 <EMPL? SDC12 + TAG350>
4177 <LOOP (SDC12 VALUE) (N14 VALUE) (FMOK17 VALUE)>
4179 <NTHL SDC12 1 = SEGF23>
4180 <CONS SEGF23 FMOK17 = SEGF23>
4181 <PUTREST N14 SEGF23>
4185 <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4186 <EMPL? SDC12 - TAG349>
4188 <PUTREST GP20 QOK16>
4198 <VEQUAL? QOK16 0 + PHRASE354>
4200 <FRAME '
\1aGEN-DECL>
4201 <RESTL DCL13 1 = QOK16 (TYPE LIST)>
4202 <NTHL QOK16 1 = STACK>
4204 <CALL '
\1aGEN-DECL 1 = N14>
4205 <SET QOK16 %<> (TYPE FALSE)>
4208 <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE356>
4209 <NTHUV FMOK17 1 = QOK16>
4210 <EQUAL? QOK16 'OR - PHRASE356>
4212 <RESTL DCL13 1 = SDC12 (TYPE LIST)>
4214 <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
4215 <SET SEGF23 0 (TYPE FIX)>
4216 <FRAME '
\1aTYPE-MERGE>
4220 <EMPL? SDC12 + MAPAP362>
4221 <NTHL SDC12 1 = QOK16>
4222 <FRAME '
\1aGET-ELE-TYPE>
4228 <CALL '
\1aGET-ELE-TYPE 4 = QOK16>
4229 <TYPE? QOK16 <TYPE-CODE FALSE> + MAP360>
4230 <EQUAL? QOK16 'ANY - BOOL371>
4231 <SET SDC12 'ANY (TYPE ATOM)>
4232 <SUB 0 SEGF23 = SEGF23 (TYPE FIX)>
4233 <MUL SEGF23 2 = SEGF23 (TYPE FIX)>
4241 <ADD SEGF23 1 = SEGF23 (TYPE FIX)>
4243 <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4246 <CALL '
\1aTYPE-MERGE SEGF23 = SDC12>
4251 <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE376>
4252 <NTHUV FMOK17 1 = SDC12>
4254 <EQUAL? SDC12 'AND - PHRASE376>
4256 <SET ITYP10 'ANY (TYPE ATOM)>
4257 <RESTL DCL13 1 = SDC12 (TYPE LIST)>
4259 <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
4263 <EMPL? SDC12 + MAPAP382>
4264 <NTHL SDC12 1 = QOK16>
4265 <FRAME '
\1aTYPE-OK?>
4268 <FRAME '
\1aGET-ELE-TYPE>
4273 <CALL '
\1aGET-ELE-TYPE 3 = STACK>
4274 <CALL '
\1aTYPE-OK? 2 = ITYP10>
4275 <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4281 <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE389>
4283 <FRAME '
\1aSTRUCTYP>
4286 <CALL '
\1aSTRUCTYP 1 = SDC12>
4287 <TYPE? SDC12 <TYPE-CODE FALSE> - PHRASE392>
4288 <SET SDC12 'STRUCTURED (TYPE ATOM)>
4293 <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE393>
4294 <EQUAL? NN5 'ALL - PHRASE395>
4303 <SET QOK16 3 (TYPE FIX)>
4305 <SUB NN5 1 = STACK (TYPE FIX)>
4307 <CALL '
\1aANY-PAT 1 = SDC12>
4308 <LOOP (SDC12 VALUE) (QOK16 VALUE)>
4311 <EMPL? SDC12 + TAG397>
4312 <NTHL SDC12 1 = STACK>
4313 <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4314 <ADD QOK16 1 = QOK16 (TYPE FIX)>
4319 <CALL '
\1aFOSE QOK16 = SDC12>
4325 <END
\1aREAL-GET-ELE-TYPE>
4329 <GFCN
\1aMINL ("VALUE" FIX ANY) DCL4>
4332 <FRAME '
\1aMIN-MAX-L>
4336 <CALL '
\1aMIN-MAX-L 2 = TEMP6>
4341 <GFCN
\1aMAXL ("VALUE" FIX ANY) DCL4>
4344 <FRAME '
\1aMIN-MAX-L>
4348 <CALL '
\1aMIN-MAX-L 2 = TEMP6>
4353 <GFCN
\1aMIN-MAX-L ("VALUE" FIX ANY ANY) DCL4 MAXF5>
4354 <TEMP (N6:FIX 0) (LN10:FIX 0) (QOK11 %<>) (ANDOK12 %<>) (OROK14 %<>) DC9 TEMP26>
4356 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE17>
4357 <SET LN10 0 (TYPE FIX)>
4360 <SET LN10 65535 (TYPE FIX)>
4362 <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE20>
4363 <FRAME '
\1aDECL-GET>
4367 <CALL '
\1aDECL-GET 2 = DCL4>
4369 <TYPE? DCL4 <TYPE-CODE FORM> + TAG25>
4370 <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE23>
4373 <EMPL? DC9 + PHRASE23>
4374 <RESTL DC9 1 = TEMP26 (TYPE LIST)>
4375 <EMPL? TEMP26 + PHRASE23>
4377 <NTHL DC9 1 = TEMP26>
4378 <EQUAL? TEMP26 'PRIMTYPE + PHRASE23>
4379 <SET OROK14 %<> (TYPE FALSE)>
4380 <EQUAL? TEMP26 'OR - TAG27>
4381 <SET OROK14 'T (TYPE ATOM)>
4384 <SET QOK11 %<> (TYPE FALSE)>
4385 <EQUAL? TEMP26 'QUOTE - TAG28>
4386 <SET QOK11 'T (TYPE ATOM)>
4389 <SET ANDOK12 %<> (TYPE FALSE)>
4390 <EQUAL? TEMP26 'AND - TAG29>
4391 <SET ANDOK12 'T (TYPE ATOM)>
4394 <EQUAL? TEMP26 'NOT + PHRASE23>
4396 <RESTL DC9 1 = DC9 (TYPE LIST)>
4397 <CHTYPE DC9 <TYPE-CODE LIST> = DC9>
4398 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE31>
4399 <TYPE? DCL4 <TYPE-CODE FORM> - PHRASE31>
4405 <NTHL DC9 1 = QOK11>
4406 <TYPE? QOK11 <TYPE-CODE VECTOR> - PHRASE39>
4408 <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4409 <GRTR? OROK14 1 - PHRASE39 (TYPE FIX)>
4411 <NTHUV ANDOK12 1 = QOK11>
4412 <EQUAL? QOK11 'REST + BOOL46>
4413 <EQUAL? QOK11 'OPT + BOOL46>
4414 <EQUAL? QOK11 'OPTIONAL - PHRASE45>
4416 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE48>
4417 <EQUAL? QOK11 'REST - PHRASE50>
4421 <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4423 <SUB OROK14 1 = OROK14 (TYPE FIX)>
4424 <ADD OROK14 N6 = N6 (TYPE FIX)>
4431 <NTHUV ANDOK12 1 = OROK14>
4432 <TYPE? OROK14 <TYPE-CODE FIX> - PHRASE53>
4434 <NTHUV ANDOK12 1 = LN10 (TYPE FIX)>
4435 <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4437 <SUB OROK14 1 = OROK14 (TYPE FIX)>
4438 <MUL OROK14 LN10 = OROK14 (TYPE FIX)>
4440 <ADD OROK14 N6 = N6 (TYPE FIX)>
4444 <FRAME '
\1aCOMPILE-ERROR>
4445 <PUSH "Bad DECL syntax">
4447 <CALL '
\1aCOMPILE-ERROR 2>
4450 <TYPE? QOK11 <TYPE-CODE ATOM> + TAG57>
4451 <TYPE? QOK11 <TYPE-CODE FORM> + TAG57>
4452 <TYPE? QOK11 <TYPE-CODE SEGMENT> - PHRASE56>
4455 <ADD N6 1 = N6 (TYPE FIX)>
4458 <FRAME '
\1aCOMPILE-ERROR>
4459 <PUSH "Bad DECL syntax">
4461 <CALL '
\1aCOMPILE-ERROR 2>
4463 <RESTL DC9 1 = DC9 (TYPE LIST)>
4464 <EMPL? DC9 - AGAIN37 (TYPE LIST)>
4468 <VEQUAL? OROK14 0 - BOOL63>
4469 <VEQUAL? ANDOK12 0 + PHRASE62>
4472 <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4474 <CHTYPE ANDOK12 <TYPE-CODE LIST> = ANDOK12>
4478 <EMPL? ANDOK12 + MAPAP68>
4479 <NTHL ANDOK12 1 = QOK11>
4480 <VEQUAL? OROK14 0 + PHRASE77>
4481 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE79>
4482 <FRAME '
\1aMIN-MAX-L>
4486 <CALL '
\1aMIN-MAX-L 2 = N6>
4487 <LESS? LN10 N6 - PHRASE92>
4488 <SET LN10 N6 (TYPE FIX)>
4494 <FRAME '
\1aMIN-MAX-L>
4498 <CALL '
\1aMIN-MAX-L 2 = LN10>
4499 <GRTR? N6 LN10 - TAG87>
4500 <SET N6 LN10 (TYPE FIX)>
4507 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE88>
4508 <FRAME '
\1aMIN-MAX-L>
4512 <CALL '
\1aMIN-MAX-L 2 = N6>
4513 <GRTR? LN10 N6 - PHRASE92>
4514 <SET LN10 N6 (TYPE FIX)>
4520 <FRAME '
\1aMIN-MAX-L>
4524 <CALL '
\1aMIN-MAX-L 2 = LN10>
4525 <LESS? N6 LN10 - TAG95>
4526 <SET N6 LN10 (TYPE FIX)>
4532 <RESTL ANDOK12 1 = ANDOK12 (TYPE LIST)>
4538 <VEQUAL? QOK11 0 + PHRASE96>
4540 <FRAME '
\1aSTRUCTURED?>
4541 <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4542 <NTHL ANDOK12 1 = STACK>
4544 <CALL '
\1aSTRUCTURED? 1 = QOK11>
4545 <TYPE? QOK11 <TYPE-CODE FALSE> + PHRASE98>
4548 <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4550 <NTHL ANDOK12 1 = STACK>
4552 <CALL '
\1aLENGTH 1 = TEMP26>
4558 <TYPE? DCL4 <TYPE-CODE ATOM> + TAG103>
4559 <TYPE? DCL4 <TYPE-CODE FALSE> + TAG103>
4560 <TYPE? DCL4 <TYPE-CODE FORM> + TAG103>
4561 <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE102>
4563 <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE105>
4569 <FRAME '
\1aCOMPILE-ERROR>
4570 <PUSH "Bad DECL syntax">
4573 <CALL '
\1aCOMPILE-ERROR 2 = TEMP26>
4578 <GFCN
\1aSTRUCTYP-SEG ("VALUE" ANY ANY) DCL4>
4581 <FRAME '
\1aSTRUCTYP>
4583 <CALL '
\1aSTRUCTYP 1 = TEMP6>
4584 <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL9>
4585 <EQUAL? DCL4 'MULTI - BOOL8>
4588 <TYPE? DCL4 <TYPE-CODE FORM> + TAG10>
4589 <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG10>
4592 <EMPL? DCL4 - TAG12>
4595 <NTHL DCL4 1 = TEMP6>
4597 <EQUAL? TEMP6 'MULTI + TAG13>
4601 <SET TEMP6 'MULTI (TYPE ATOM)>
4605 <END
\1aSTRUCTYP-SEG>
4607 <GFCN
\1aSTRUCTYP ("VALUE" ANY ANY) DCL4>
4610 <FRAME '
\1aTYPE-AND>
4614 <CALL '
\1aTYPE-AND 2 = DCL4>
4615 <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE8>
4616 <NTHR DCL4 5 = VT5 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
4618 <TYPE? VT5 <TYPE-CODE FALSE> + TAG12>
4621 <SET VT5 %<> (TYPE FALSE)>
4624 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
4625 <FRAME '
\1aGC-PRIMTYPE>
4628 <CALL '
\1aGC-PRIMTYPE 1 = TEMP10>
4632 <TYPE? DCL4 <TYPE-CODE FORM> + TAG15>
4633 <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG15>
4639 <CALL '
\1aPRIMHK 2 = TEMP10>
4640 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE19>
4642 <TYPE? VT5 <TYPE-CODE FORM> + TAG21>
4647 <NTHL DCL4 1 = STACK (TYPE FORM)>
4650 <CALL '
\1aPRIMHK 2 = TEMP10>
4656 <GFCN
\1aPRIMHK ("VALUE" ANY <OR FORM SEGMENT> ANY) FRM4 FLG5>
4659 <LENL FRM4 = LN7 (TYPE FIX)>
4660 <VEQUAL? LN7 2 - PHRASE16 (TYPE FIX)>
4661 <NTHL FRM4 1 = TEM6>
4662 <EQUAL? TEM6 'PRIMTYPE - PHRASE12>
4663 <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4664 <NTHL TEM6 1 = TEM6>
4665 <TYPE? TEM6 <TYPE-CODE ATOM> - PHRASE16>
4666 <NTHR TEM6 5 = TEM6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE16)>
4667 <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE16>
4669 <FRAME '
\1aSTRUCTYP>
4670 <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4671 <NTHL TEM6 1 = STACK (TYPE ATOM)>
4673 <CALL '
\1aSTRUCTYP 1 = TEM6>
4674 <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE61>
4677 <EQUAL? TEM6 'QUOTE - PHRASE16>
4679 <FRAME '
\1aPRIMTYPE>
4680 <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4682 <NTHL TEM6 1 = STACK>
4684 <CALL '
\1aPRIMTYPE 1 = TEM6>
4688 <VEQUAL? LN7 0 - TAG20 (TYPE FIX)>
4692 <NTHL FRM4 1 = TEM6>
4693 <EQUAL? TEM6 'OR - PHRASE24>
4694 <SET TEM6 'NO-RETURN (TYPE ATOM)>
4695 <RESTL FRM4 1 = LN7 (TYPE LIST)>
4697 <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
4701 <EMPL? LN7 + MAPAP29>
4703 <FRAME '
\1aTYPE-MERGE>
4704 <FRAME '
\1aSTRUCTYP>
4707 <CALL '
\1aSTRUCTYP 1 = STACK>
4710 <CALL '
\1aTYPE-MERGE 2 = TEM6>
4711 <RESTL LN7 1 = LN7 (TYPE LIST)>
4714 <TYPE? TEM6 <TYPE-CODE ATOM> + TAG42>
4717 <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG44)>
4718 <TYPE? LN7 <TYPE-CODE FALSE> - TAG44>
4725 <EQUAL? TEM6 'AND - PHRASE46>
4726 <RESTL FRM4 1 = LN7 (TYPE LIST)>
4728 <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
4732 <EMPL? LN7 + MAPAP51>
4734 <FRAME '
\1aSTRUCTYP>
4737 <CALL '
\1aSTRUCTYP 1 = TEM6>
4738 <TYPE? TEM6 <TYPE-CODE FALSE> - MAPAP51>
4739 <RESTL LN7 1 = LN7 (TYPE LIST)>
4745 <TYPE? TEM6 <TYPE-CODE ATOM> + TAG63>
4748 <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG65)>
4749 <TYPE? LN7 <TYPE-CODE FALSE> - TAG65>
4756 <CALL '
\1aMTYPR 1 = TEM6>
4764 <GFCN
\1aTYPESAME ("VALUE" <OR ATOM FALSE> ANY ANY) T14 T25>
4765 <TEMP TEMP7 TEMP16 TEMP19:FRAME>
4770 <CALL '
\1aISTYPE? 1 = T14>
4771 <TYPE? T14 <TYPE-CODE FALSE> + TAG10>
4775 <CALL '
\1aISTYPE? 1 = T25>
4776 <VEQUAL? T14 T25 - TAG10>
4780 <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
4782 <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
4786 <CFRAME = STACK (TYPE FRAME)>
4787 <CALL '
\1aGETPROP 3 = TEMP7>
4788 <CFRAME = TEMP16 (TYPE FRAME)>
4789 <EQUAL? TEMP16 TEMP7 - TAG17>
4797 <CFRAME = STACK (TYPE FRAME)>
4798 <CALL '
\1aGETPROP 3 = TEMP16>
4799 <CFRAME = TEMP19 (TYPE FRAME)>
4800 <EQUAL? TEMP19 TEMP16 - TAG20>
4805 <EQUAL? TEMP7 TEMP16 - TAG13>
4809 <SET TEMP7 %<> (TYPE FALSE)>
4815 <GFCN
\1aISTYPE-GOOD? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
4816 <OPT-DISPATCH 1 %<> OPT4 OPT5>
4820 <TEMP TEMP9 TEMP16 TEMP17>
4827 <CALL '
\1aISTYPE? 2 = TYP6>
4829 <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
4832 <CALL '
\1aMTYPR 1 = TEMP16>
4833 <SET TEMP9 [BYTES STRING LOCD TUPLE FRAME] (TYPE VECTOR)>
4834 <TYPE? TEMP16 <TYPE-CODE ATOM> - TAG12>
4835 <LOOP (TEMP16 VALUE) (TEMP9 LENGTH VALUE)>
4837 <NTHUV TEMP9 1 = TEMP17>
4838 <VEQUAL? TEMP17 TEMP16 + TAG11>
4840 <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
4841 <EMPUV? TEMP9 - TAG13>
4851 <END
\1aISTYPE-GOOD?>
4853 <GFCN
\1aTOP-TYPE ("VALUE" ANY ANY) TYP4>
4856 <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE7>
4857 <NTHR TYP4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE7)>
4858 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
4860 <SET TEMP9 [STRUCTURED APPLICABLE ANY LOCATIVE] (TYPE VECTOR)>
4861 <LOOP (TYP4 VALUE) (TEMP9 LENGTH VALUE)>
4863 <NTHUV TEMP9 1 = TEMP13>
4864 <VEQUAL? TEMP13 TYP4 + PHRASE7>
4866 <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
4867 <EMPUV? TEMP9 - TAG11>
4868 <FRAME '
\1aDECL-GET>
4872 <CALL '
\1aDECL-GET 2 = TYP4>
4874 <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE16>
4878 <TYPE? TYP4 <TYPE-CODE FORM> + TAG19>
4879 <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG19>
4883 <SET TEMP9 1 (TYPE FIX)>
4884 <LOOP (TEMP13 VALUE) (TEMP9 VALUE)>
4886 <EMPL? TEMP13 + TAG22>
4887 <SUB TEMP9 1 = TEMP9 (TYPE FIX)>
4888 <LESS? TEMP9 0 + TAG21>
4889 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
4894 <NTHL TYP4 1 = TEMP9>
4895 <EQUAL? TEMP9 'OR - PHRASE27>
4896 <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
4898 <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
4899 <SET TEMP13 0 (TYPE FIX)>
4900 <FRAME '
\1aTYPE-MERGE>
4904 <EMPL? TEMP9 + MAP28>
4905 <FRAME '
\1aTOP-TYPE>
4906 <NTHL TEMP9 1 = STACK>
4907 <CALL '
\1aTOP-TYPE 1 = STACK>
4908 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4909 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
4912 <CALL '
\1aTYPE-MERGE TEMP13 = TEMP9>
4917 <EQUAL? TEMP9 'NOT - PHRASE34>
4920 <EQUAL? TEMP9 'QUOTE - PHRASE35>
4922 <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
4924 <NTHL TEMP9 1 = STACK>
4926 <CALL '
\1aTYPE 1 = TEMP9>
4930 <EQUAL? TEMP9 'PRIMTYPE - PHRASE37>
4938 <GFCN
\1aPRIMITIVE-TYPE ("VALUE" ANY ANY) TYP4>
4939 <TEMP TEMP11 TEMP15>
4941 <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE9>
4942 <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE9)>
4943 <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
4945 <SET TEMP11 [STRUCTURED APPLICABLE ANY] (TYPE VECTOR)>
4946 <LOOP (TYP4 VALUE) (TEMP11 LENGTH VALUE)>
4948 <NTHUV TEMP11 1 = TEMP15>
4949 <VEQUAL? TEMP15 TYP4 + PHRASE9>
4951 <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
4952 <EMPUV? TEMP11 - TAG13>
4953 <FRAME '
\1aDECL-GET>
4957 <CALL '
\1aDECL-GET 2 = TYP4>
4959 <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE18>
4960 <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE20)>
4961 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
4962 <FRAME '
\1aGC-PRIMTYPE>
4965 <CALL '
\1aGC-PRIMTYPE 1 = TEMP11>
4972 <TYPE? TYP4 <TYPE-CODE FORM> + TAG27>
4973 <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG27>
4977 <SET TEMP11 1 (TYPE FIX)>
4978 <LOOP (TEMP15 VALUE) (TEMP11 VALUE)>
4980 <EMPL? TEMP15 + TAG30>
4981 <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
4982 <LESS? TEMP11 0 + TAG29>
4983 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
4988 <NTHL TYP4 1 = TEMP11>
4989 <EQUAL? TEMP11 'OR - PHRASE35>
4990 <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
4992 <CHTYPE TEMP11 <TYPE-CODE LIST> = TEMP11>
4993 <SET TEMP15 0 (TYPE FIX)>
4994 <FRAME '
\1aTYPE-MERGE>
4998 <EMPL? TEMP11 + MAP36>
4999 <FRAME '
\1aPRIMITIVE-TYPE>
5000 <NTHL TEMP11 1 = STACK>
5001 <CALL '
\1aPRIMITIVE-TYPE 1 = STACK>
5002 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
5003 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
5006 <CALL '
\1aTYPE-MERGE TEMP15 = TEMP11>
5008 <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE43>
5014 <EQUAL? TEMP11 'NOT - PHRASE45>
5017 <EQUAL? TEMP11 'QUOTE - PHRASE46>
5018 <FRAME '
\1aPRIMTYPE>
5019 <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
5021 <NTHL TEMP11 1 = STACK>
5023 <CALL '
\1aPRIMTYPE 1 = TEMP11>
5027 <EQUAL? TEMP11 'PRIMTYPE - PHRASE48>
5029 <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
5031 <NTHL TEMP11 1 = TEMP11>
5035 <FRAME '
\1aPRIMITIVE-TYPE>
5036 <NTHL TYP4 1 = STACK>
5038 <CALL '
\1aPRIMITIVE-TYPE 1 = TEMP11>
5041 <END
\1aPRIMITIVE-TYPE>
5043 <GFCN
\1aISTYPE? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
5044 <OPT-DISPATCH 1 %<> OPT4 OPT5>
5048 <TEMP TEMP17 TEMP21>
5053 <TYPE? STRICT7 <TYPE-CODE FALSE> - PHRASE14>
5054 <TYPE? TYP6 <TYPE-CODE FORM> + TAG16>
5055 <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE14>
5057 <EMPL? TYP6 + PHRASE14>
5058 <NTHL TYP6 1 = TEMP17>
5059 <EQUAL? TEMP17 'OR - PHRASE14>
5061 <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5062 <CHTYPE TEMP17 <TYPE-CODE LIST> = TEMP17>
5063 <EMPL? TEMP17 + PHRASE14>
5064 <LOOP (TEMP17 VALUE)>
5066 <NTHL TEMP17 1 = TEMP21>
5067 <TYPE? TEMP21 <TYPE-CODE ATOM> - TAG20>
5068 <VEQUAL? TEMP21 'UNBOUND + TAG18>
5071 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
5072 <EMPL? TEMP17 - TAG19>
5075 <FRAME '
\1aTYPE-AND>
5078 <PUSH <NOT UNBOUND>>
5079 <CALL '
\1aTYPE-AND 2 = TYP6>
5081 <TYPE? TYP6 <TYPE-CODE FORM> + TAG25>
5082 <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE47>
5084 <EMPL? TYP6 + PHRASE27>
5085 <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5086 <EMPL? TEMP17 + PHRASE27>
5087 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
5088 <EMPL? TEMP17 - PHRASE27>
5090 <NTHL TYP6 1 = TEMP17>
5091 <EQUAL? TEMP17 'QUOTE - PHRASE27>
5094 <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5096 <NTHL TEMP17 1 = STACK>
5098 <CALL '
\1aTYPE 1 = TYP6>
5101 <NTHL TYP6 1 = TEMP17>
5102 <EQUAL? TEMP17 'OR - PHRASE30>
5107 <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
5108 <NTHL TEMP17 1 = STACK>
5110 <CALL '
\1aISTYPE? 1 = TYP6>
5111 <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
5113 <RESTL TEMP17 1 = TEMP21 (TYPE LIST)>
5115 <CHTYPE TEMP21 <TYPE-CODE LIST> = TEMP21>
5119 <EMPL? TEMP21 + PHRASE47>
5120 <NTHL TEMP21 1 = TEMP17>
5124 <CALL '
\1aISTYPE? 1 = TEMP17>
5125 <EQUAL? TYP6 TEMP17 + PHRASE45>
5127 <SET TYP6 %<> (TYPE FALSE)>
5130 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
5133 <NTHL TYP6 1 = TYP6>
5135 <TYPE? TYP6 <TYPE-CODE ATOM> + TAG49>
5138 <NTHR TYP6 5 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
5139 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE52>
5144 <FRAME '
\1aDECL-GET>
5147 <CALL '
\1aDECL-GET 1 = TYP6>
5149 <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
5154 <GFCN
\1aDCX ("VALUE" ANY ANY) IT4>
5157 <TYPE? IT4 <TYPE-CODE VECTOR> - PHRASE12>
5159 <LENUV TT5 = LN6 (TYPE FIX)>
5160 <LESS? LN6 2 + PHRASE12 (TYPE FIX)>
5161 <VEQUAL? LN6 2 - PHRASE11 (TYPE FIX)>
5164 <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
5167 <FRAME '
\1aTYPE-MERGE>
5168 <SET LN6 0 (TYPE FIX)>
5169 <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
5170 <LOOP (TT5 VALUE LENGTH) (LN6 VALUE)>
5173 <EMPUV? TT5 + TAG13>
5174 <NTHUV TT5 1 = STACK>
5175 <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
5176 <ADD LN6 1 = LN6 (TYPE FIX)>
5179 <CALL '
\1aTYPE-MERGE LN6 = TT5>
5181 <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
5189 " Define a decl for a given quoted object for maximum winnage."
5194 <GFCN
\1aGEN-DECL ("VALUE" <OR ATOM SEGMENT> ANY) OBJ4>
5195 <TEMP TEMP7 CNT20:FIX TEMP23 FRM21:SEGMENT FRME24 TT25>
5197 <EQUAL? OBJ4 %<> - PHRASE6>
5198 <RETURN 'BOOL-FALSE>
5200 <MONAD? OBJ4 - TAG10>
5201 <SET TEMP7 'T (TYPE ATOM)>
5204 <SET TEMP7 %<> (TYPE FALSE)>
5206 <VEQUAL? TEMP7 0 - TAG14>
5208 <FRAME '
\1aAPPLICABLE?>
5210 <CALL '
\1aAPPLICABLE? 1 = TEMP7>
5211 <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG14>
5213 <TYPE? OBJ4 <TYPE-CODE STRING> + TAG14>
5214 <TYPE? OBJ4 <TYPE-CODE BYTES> - PHRASE8>
5219 <CALL '
\1aTYPE 1 = TEMP7>
5223 <FRAME '
\1aGEN-DECL>
5225 <CALL '
\1aGEN-DECL 1 = TEMP7>
5226 <SET CNT20 1 (TYPE FIX)>
5229 <CALL '
\1aTYPE 1 = TEMP23>
5230 <CONS TEMP23 () = TEMP23>
5231 <CHTYPE TEMP23 <TYPE-CODE SEGMENT> = FRM21>
5238 <EMPTY? OBJ4 - PHRASE29>
5239 <GRTR? CNT20 1 - PHRASE31 (TYPE FIX)>
5244 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
5245 <CONS TEMP23 () = TEMP23>
5246 <PUTREST FRME24 TEMP23>
5247 <DEAD FRME24 TEMP23>
5251 <CONS TEMP7 () = TEMP23>
5253 <PUTREST FRME24 TEMP23>
5254 <DEAD FRME24 TEMP23>
5259 <FRAME '
\1aGEN-DECL>
5261 <CALL '
\1aGEN-DECL 1 = TT25>
5264 <CALL '
\1a=? 2 = TEMP23>
5265 <VEQUAL? TEMP23 0 + PHRASE36>
5267 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE36>
5268 <ADD CNT20 1 = CNT20 (TYPE FIX)>
5271 <GRTR? CNT20 1 - PHRASE42 (TYPE FIX)>
5276 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
5277 <CONS TEMP23 () = TEMP23>
5278 <PUTREST FRME24 TEMP23>
5284 <CONS TEMP7 () = TEMP23>
5286 <PUTREST FRME24 TEMP23>
5293 <SET CNT20 1 (TYPE FIX)>
5299 <GFCN
\1aREST-DECL ("VALUE" ANY ANY FIX) DC4 N5>
5300 <TEMP TT6 TEMP23 TEMP21 TEMP25 D26>
5302 <TYPE? DC4 <TYPE-CODE FORM> + TAG10>
5303 <TYPE? DC4 <TYPE-CODE SEGMENT> - PHRASE9>
5306 <EQUAL? TT6 'OR + BOOL13>
5307 <EQUAL? TT6 'AND - PHRASE12>
5309 <SET TEMP23 () (TYPE LIST)>
5310 <SET TEMP21 () (TYPE LIST)>
5311 <RESTL DC4 1 = TEMP25 (TYPE LIST)>
5313 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
5317 <EMPL? TEMP25 + MAPAP18>
5318 <NTHL TEMP25 1 = D26>
5319 <FRAME '
\1aREST-DECL>
5323 <CALL '
\1aREST-DECL 2 = D26>
5324 <EQUAL? D26 'ANY - PHRASE34>
5325 <EQUAL? TT6 'OR - MAP16>
5326 <CONS 'ANY () = TEMP23>
5329 <CONS D26 () = D26 (TYPE LIST)>
5330 <EMPL? TEMP23 - TAG38>
5331 <SET TEMP23 D26 (TYPE LIST)>
5334 <PUTREST TEMP21 D26>
5337 <SET TEMP21 D26 (TYPE LIST)>
5340 <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5343 <CONS TT6 TEMP23 = TEMP25>
5345 <CHTYPE TEMP25 <TYPE-CODE FORM> = TT6>
5347 <RESTL TT6 1 = TEMP25 (TYPE LIST)>
5348 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
5349 <EMPL? TEMP25 - PHRASE41 (TYPE LIST)>
5353 <RESTL TT6 1 = TEMP23 (TYPE LIST)>
5354 <RESTL TEMP23 1 = D26 (TYPE LIST)>
5356 <CHTYPE D26 <TYPE-CODE LIST> = D26>
5357 <EMPL? D26 - PHRASE42 (TYPE LIST)>
5359 <RESTL TT6 1 = TEMP23 (TYPE LIST)>
5361 <NTHL TEMP23 1 = TEMP25>
5369 <EQUAL? TT6 'NOT - PHRASE45>
5372 <EQUAL? TT6 'PRIMTYPE - PHRASE46>
5373 <VEQUAL? N5 0 - PHRASE48 (TYPE FIX)>
5380 <CALL '
\1aANY-PAT 1 = TEMP23>
5381 <CONS DC4 TEMP23 = TEMP23>
5383 <CHTYPE TEMP23 <TYPE-CODE FORM> = TEMP25>
5389 <TYPE? DC4 <TYPE-CODE SEGMENT> - TAG56>
5390 <SET TEMP23 'SEGMENT (TYPE ATOM)>
5393 <SET TEMP23 %<> (TYPE FALSE)>
5397 <FRAME '
\1aSTRUCTYP>
5400 <CALL '
\1aSTRUCTYP 1 = TT6>
5401 <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE59>
5406 <CALL '
\1aFORM 2 = TEMP23>
5409 <SET TEMP23 'STRUCTURED (TYPE ATOM)>
5413 <SET D26 2 (TYPE FIX)>
5417 <CALL '
\1aANY-PAT 1 = TEMP23>
5418 <LOOP (TEMP23 VALUE) (D26 VALUE)>
5421 <EMPL? TEMP23 + TAG54>
5422 <NTHL TEMP23 1 = STACK>
5423 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5424 <ADD D26 1 = D26 (TYPE FIX)>
5427 <RESTL DC4 1 = TEMP23 (TYPE LIST)>
5429 <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
5430 <LOOP (TEMP23 VALUE) (D26 VALUE)>
5433 <EMPL? TEMP23 + TAG65>
5434 <NTHL TEMP23 1 = STACK>
5435 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5436 <ADD D26 1 = D26 (TYPE FIX)>
5439 <CALL '
\1aFOSE D26 = TEMP25>
5444 <FRAME '
\1aSTRUCTYP>
5447 <CALL '
\1aSTRUCTYP 1 = TT6>
5448 <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE68>
5449 <VEQUAL? N5 0 - PHRASE71 (TYPE FIX)>
5454 <CALL '
\1aFORM 2 = TEMP25>
5462 <CALL '
\1aFORM 2 = D26>
5467 <CALL '
\1aANY-PAT 1 = TT6>
5470 <CHTYPE D26 <TYPE-CODE FORM> = TEMP25>
5475 <VEQUAL? N5 0 - PHRASE81 (TYPE FIX)>
5476 <RETURN 'STRUCTURED>
5481 <CALL '
\1aANY-PAT 1 = TT6>
5482 <CONS 'STRUCTURED TT6 = TT6>
5483 <CHTYPE TT6 <TYPE-CODE FORM> = TEMP25>
5487 <END
\1aREST-DECL>
\r\r
5489 <GFCN
\1aANY-PAT ("VALUE" LIST FIX) N4>
5492 <GRTR? N4 0 + PHRASE6 (TYPE FIX)>
5495 <VEQUAL? N4 1 - PHRASE10 (TYPE FIX)>
5496 <CONS 'ANY () = TEMP9>
5503 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP9>
5504 <CONS TEMP9 () = TEMP9>
5508 " TYPE-OK? are two type patterns compatible. If the patterns
5509 don't parse, send user a message."
5512 <GFCN
\1aTYPE-OK? ("VALUE" ANY ANY ANY) P14 P25>
5515 <EQUAL? P14 'NO-RETURN + BOOL9>
5516 <EQUAL? P25 'NO-RETURN - PHRASE8>
5520 <FRAME '
\1aTYPE-AND>
5523 <CALL '
\1aTYPE-AND 2 = TEMP10>
5524 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
5528 <EMPL? TEMP10 - PHRASE13 (TYPE FALSE)>
5532 <FRAME '
\1aCOMPILE-ERROR>
5533 <NTHL TEMP10 1 = STACK>
5539 <CALL '
\1aCOMPILE-ERROR 3 = TEMP10>
5543 " TYPE-ATOM-OK? does an atom's initial value agree with its DECL?"
5546 <GFCN
\1aTYPE-ATOM-OK? ("VALUE" ANY ANY ANY ATOM) P14 P25 ATM6>
5549 <FRAME '
\1aTYPE-OK?>
5554 <CALL '
\1aTYPE-OK? 2 = TEMP8>
5555 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
5556 <FRAME '
\1aCOMPILE-ERROR>
5557 <PUSH "Atom's intial value disagrees with DECL">
5560 <CALL '
\1aCOMPILE-ERROR 2 = TEMP8>
5564 <END
\1aTYPE-ATOM-OK?>
5565 " Merge a group of type specs into an OR."
5570 <GFCN
\1aTYPE-MERGE ("VALUE" ANY "TUPLE" <PRIMTYPE VECTOR>)>
5571 <MAKTUP TYPS4 ORS11 TEMP17 = TYPS4>
5573 <EMPUV? TYPS4 - PHRASE6 (TYPE TUPLE)>
5576 <NTHUV TYPS4 1 = ORS11>
5580 <RESTUV TYPS4 1 = TYPS4 (TYPE VECTOR)>
5581 <CHTYPE TYPS4 <TYPE-CODE VECTOR> = TYPS4>
5582 <EMPUV? TYPS4 - PHRASE14 (TYPE VECTOR)>
5586 <NTHUV TYPS4 1 = TEMP17>
5587 <EQUAL? TEMP17 'NO-RETURN + AGAIN12>
5589 <EQUAL? ORS11 'NO-RETURN - PHRASE18>
5590 <NTHUV TYPS4 1 = ORS11>
5596 <NTHUV TYPS4 1 = STACK>
5597 <CALL '
\1aTMERGE 2 = ORS11>
5601 <GFCN
\1aPUT-IN ("VALUE" LIST <PRIMTYPE LIST> ANY) LST4 ELE5>
5602 <TEMP TEMP10 TEMP12 TEMP23 L125 A33:LIST TEMP39 B34>
5604 <TYPE? ELE5 <TYPE-CODE FORM> + TAG9>
5605 <TYPE? ELE5 <TYPE-CODE SEGMENT> - PHRASE7>
5607 <EMPL? ELE5 + PHRASE7>
5608 <NTHL ELE5 1 = TEMP10>
5609 <EQUAL? TEMP10 'OR - PHRASE7>
5611 <SET TEMP12 0 (TYPE FIX)>
5612 <RESTL ELE5 1 = TEMP10 (TYPE LIST)>
5614 <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
5615 <LOOP (TEMP10 VALUE) (TEMP12 VALUE)>
5618 <EMPL? TEMP10 + TAG11>
5619 <NTHL TEMP10 1 = STACK>
5620 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
5621 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
5624 <LIST TEMP12 = ELE5 (TYPE LIST)>
5628 <CONS ELE5 () = ELE5>
5630 <SET TEMP23 () (TYPE LIST)>
5631 <SET TEMP10 () (TYPE LIST)>
5632 <CHTYPE LST4 <TYPE-CODE LIST> = TEMP12>
5637 <EMPL? TEMP12 + MAPAP20>
5638 <NTHL TEMP12 1 = L125>
5639 <EMPL? ELE5 + PHRASE30 (TYPE LIST)>
5645 <NTHL A33 1 = STACK>
5647 <CALL '
\1aTMATCH 2 = TEMP39>
5648 <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE37>
5651 <NTHL A33 1 = STACK>
5654 <CALL '
\1aTMERGE 2 = L125>
5655 <VEQUAL? A33 ELE5 - PHRASE42>
5656 <RESTL ELE5 1 = ELE5 (TYPE LIST)>
5659 <RESTL A33 1 = TEMP39 (TYPE LIST)>
5661 <PUTREST B34 TEMP39>
5667 <RESTL B34 1 = A33 (TYPE LIST)>
5668 <EMPL? A33 - AGAIN35 (TYPE LIST)>
5670 <CONS L125 () = L125 (TYPE LIST)>
5671 <EMPL? TEMP23 - TAG46>
5672 <SET TEMP23 L125 (TYPE LIST)>
5675 <PUTREST TEMP10 L125>
5678 <SET TEMP10 L125 (TYPE LIST)>
5680 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5686 <EMPL? ELE5 - PHRASE50 (TYPE LIST)>
5694 <RESTL L125 1 = TEMP39 (TYPE LIST)>
5695 <EMPL? TEMP39 + TAG53>
5707 <CALL '
\1aLSORT 1 = TEMP12>
5712 <GFCN
\1aORSORT ("VALUE" <FORM ANY ANY> <FORM ANY ANY>) F4>
5716 <RESTL F4 1 = TEMP6 (TYPE LIST)>
5717 <CHTYPE TEMP6 <TYPE-CODE LIST> = STACK>
5719 <CALL '
\1aLSORT 1 = TEMP6>
5726 <GFCN
\1aLSORT ("VALUE" LIST LIST) L4>
5727 <TEMP (M5:LIST ()) (B6:LIST ()) (TMP7:LIST ()) (IT8 ()) (N9:FIX 0) A211 TEMP43 TEMP46 TEMP47>
5729 <LENL L4 = N9 (TYPE FIX)>
5730 <LESS? N9 2 - PHRASE17 (TYPE FIX)>
5734 <DIV N9 2 = IT8 (TYPE FIX)>
5736 <SUB IT8 1 = IT8 (TYPE FIX)>
5738 <GRTR? IT8 0 - RESTL21 (TYPE FIX)>
5739 <LOOP (TMP7 VALUE) (IT8 VALUE)>
5742 <RESTL TMP7 1 = TMP7 (TYPE LIST)>
5743 <SUB IT8 1 = IT8 (TYPE FIX)>
5744 <GRTR? IT8 0 + RESTL19 (TYPE FIX)>
5746 <RESTL TMP7 1 = B6 (TYPE LIST)>
5752 <CALL '
\1aLSORT 1 = L4>
5756 <CALL '
\1aLSORT 1 = B6>
5757 <SET TMP7 () (TYPE LIST)>
5761 <EMPL? L4 - PHRASE30 (TYPE LIST)>
5762 <EMPL? TMP7 - PHRASE29 (TYPE LIST)>
5771 <EMPL? B6 - PHRASE34 (TYPE LIST)>
5772 <EMPL? TMP7 - PHRASE33 (TYPE LIST)>
5783 <TYPE? IT8 <TYPE-CODE ATOM> - PHRASE39>
5784 <TYPE? A211 <TYPE-CODE ATOM> - PHRASE39>
5785 <NTHR IT8 3 = IT8 (RECORD-TYPE ATOM)>
5786 <NTHR A211 3 = A211 (RECORD-TYPE ATOM)>
5788 <STRCOMP IT8 A211 = TEMP43>
5790 <IFCANNOT "STRCOMP">
5791 <LENUS IT8 = TEMP43 (TYPE FIX)>
5792 <LENUS A211 = N9 (TYPE FIX)>
5793 <LOOP (IT8 VALUE LENGTH) (A211 VALUE LENGTH) (TEMP43 VALUE) (N9 VALUE)>
5795 <NTHUS IT8 1 = TEMP46>
5796 <NTHUS A211 1 = TEMP47>
5797 <VEQUAL? TEMP46 TEMP47 - TAG42>
5798 <RESTUS IT8 1 = IT8 (TYPE STRING)>
5799 <RESTUS A211 1 = A211 (TYPE STRING)>
5800 <SUB N9 1 = N9 (TYPE FIX)>
5801 <GRTR? N9 0 - TAG49 (TYPE FIX)>
5802 <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
5803 <GRTR? TEMP43 0 + TAG48 (TYPE FIX)>
5804 <SET TEMP43 1 (TYPE FIX)>
5807 <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
5808 <VEQUAL TEMP43 0 - TAG51>
5810 <SET TEMP43 0 (TYPE FIX)>
5813 <SET TEMP43 -1 (TYPE FIX)>
5816 <GRTR? TEMP46 TEMP47 - TAG51>
5817 <DEAD TEMP46 TEMP47>
5818 <SET TEMP43 1 (TYPE FIX)>
5821 <LESS? TEMP43 0 - PHRASE37 (TYPE FIX)>
5824 <TYPE? IT8 <TYPE-CODE ATOM> + COND38>
5825 <TYPE? A211 <TYPE-CODE ATOM> + PHRASE37>
5826 <FRAME '
\1aFCOMPARE>
5831 <CALL '
\1aFCOMPARE 2 = A211>
5832 <LESS? A211 0 - PHRASE37 (TYPE FIX)>
5837 <RESTL IT8 1 = L4 (TYPE LIST)>
5842 <RESTL IT8 1 = B6 (TYPE LIST)>
5845 <EMPL? M5 - PHRASE61 (TYPE LIST)>
5860 <GFCN
\1aFCOMPARE ("VALUE" FIX <PRIMTYPE LIST> <PRIMTYPE LIST>) F14 F25>
5861 <TEMP L18:FIX L29 TEMP24 TEMP20 TEMP21 E126 E227>
5863 <LENL F14 = L18 (TYPE FIX)>
5864 <LENL F25 = L29 (TYPE FIX)>
5865 <VEQUAL? L18 L29 - PHRASE11 (TYPE FIX)>
5868 <VEQUAL? L18 L29 - PHRASE13 (TYPE FIX)>
5869 <SET TEMP24 %<> (TYPE FALSE)>
5870 <CHTYPE F14 <TYPE-CODE LIST> = TEMP20>
5872 <CHTYPE F25 <TYPE-CODE LIST> = TEMP21>
5877 <EMPL? TEMP20 + MAPAP18>
5878 <EMPL? TEMP21 + MAPAP18>
5879 <NTHL TEMP20 1 = E126>
5880 <NTHL TEMP21 1 = E227>
5881 <EQUAL? E126 E227 + PHRASE29>
5884 <VEQUAL? L18 L29 + PHRASE31 (TYPE FIX)>
5885 <LESS? L18 L29 - PHRASE33 (TYPE FIX)>
5887 <SET TEMP24 -1 (TYPE FIX)>
5892 <TYPE? E126 <TYPE-CODE ATOM> - PHRASE36>
5893 <NTHR E126 3 = L29 (RECORD-TYPE ATOM)>
5895 <NTHR E227 3 = TEMP20 (RECORD-TYPE ATOM)>
5898 <STRCOMP L29 TEMP20 = TEMP24>
5900 <IFCANNOT "STRCOMP">
5901 <LENUS L29 = TEMP24 (TYPE FIX)>
5902 <LENUS TEMP20 = L18 (TYPE FIX)>
5903 <LOOP (L29 VALUE LENGTH) (TEMP20 VALUE LENGTH) (TEMP24 VALUE) (L18 VALUE)>
5905 <NTHUS L29 1 = TEMP21>
5906 <NTHUS TEMP20 1 = E126>
5907 <VEQUAL? TEMP21 E126 - TAG40>
5908 <RESTUS L29 1 = L29 (TYPE STRING)>
5909 <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
5910 <SUB L18 1 = L18 (TYPE FIX)>
5911 <GRTR? L18 0 - TAG46 (TYPE FIX)>
5912 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
5913 <GRTR? TEMP24 0 + TAG45 (TYPE FIX)>
5914 <SET TEMP24 1 (TYPE FIX)>
5917 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
5918 <VEQUAL TEMP24 0 - TAG48>
5920 <SET TEMP24 0 (TYPE FIX)>
5923 <SET TEMP24 -1 (TYPE FIX)>
5926 <GRTR? TEMP21 E126 - TAG48>
5928 <SET TEMP24 1 (TYPE FIX)>
5934 <TYPE? E126 <TYPE-CODE VECTOR> - PHRASE49>
5940 <CALL '
\1aVCOMP 2 = TEMP24>
5944 <FRAME '
\1aFCOMPARE>
5949 <CALL '
\1aFCOMPARE 2 = TEMP24>
5953 <SET TEMP24 0 (TYPE FIX)>
5955 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5956 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
5962 <LESS? L18 L29 - PHRASE54 (TYPE FIX)>
5968 <LESS? L18 L29 - PHRASE56 (TYPE FIX)>
5975 <GFCN
\1aVCOMP ("VALUE" FIX <VECTOR ANY> <VECTOR ANY>) V14 V25>
5976 <TEMP L16 L27 TEMP12 E18 E29 TEMP25:STRING>
5978 <LENUV V14 = L16 (TYPE FIX)>
5979 <LENUV V25 = L27 (TYPE FIX)>
5980 <GRTR? L16 L27 - PHRASE11 (TYPE FIX)>
5983 <LESS? L16 L27 - PHRASE13 (TYPE FIX)>
5989 <EQUAL? E18 E29 + PHRASE14>
5990 <TYPE? E18 <TYPE-CODE FIX> - PHRASE16>
5991 <TYPE? E29 <TYPE-CODE FIX> - PHRASE16>
5992 <GRTR? E18 E29 - PHRASE19 (TYPE FIX)>
5998 <TYPE? E18 <TYPE-CODE FIX> - PHRASE21>
6001 <TYPE? E29 <TYPE-CODE FIX> - PHRASE22>
6004 <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
6006 <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
6009 <STRCOMP L27 TEMP25 = TEMP12>
6011 <IFCANNOT "STRCOMP">
6012 <LENUS L27 = TEMP12 (TYPE FIX)>
6013 <LENUS TEMP25 = L16 (TYPE FIX)>
6014 <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
6017 <NTHUS TEMP25 1 = E29>
6018 <VEQUAL? E18 E29 - TAG26>
6019 <RESTUS L27 1 = L27 (TYPE STRING)>
6020 <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
6021 <SUB L16 1 = L16 (TYPE FIX)>
6022 <GRTR? L16 0 - TAG32 (TYPE FIX)>
6023 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6024 <GRTR? TEMP12 0 + TAG31 (TYPE FIX)>
6025 <SET TEMP12 1 (TYPE FIX)>
6028 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6029 <VEQUAL TEMP12 0 - TAG34>
6031 <SET TEMP12 0 (TYPE FIX)>
6034 <SET TEMP12 -1 (TYPE FIX)>
6037 <GRTR? E18 E29 - TAG34>
6039 <SET TEMP12 1 (TYPE FIX)>
6045 <SET E18 %<> (TYPE FALSE)>
6046 <RESTUV V14 1 = L16 (TYPE VECTOR)>
6048 <RESTUV V25 1 = L27 (TYPE VECTOR)>
6053 <EMPUV? L16 + MAPAP40>
6054 <EMPUV? L27 + MAPAP40>
6057 <EQUAL? E18 E29 - PHRASE51>
6058 <SET E18 0 (TYPE FIX)>
6063 <VEQUAL? L16 L27 - PHRASE67 (TYPE FIX)>
6064 <TYPE? E18 <TYPE-CODE ATOM> - PHRASE54>
6065 <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
6067 <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
6070 <STRCOMP L27 TEMP25 = TEMP12>
6072 <IFCANNOT "STRCOMP">
6073 <LENUS L27 = TEMP12 (TYPE FIX)>
6074 <LENUS TEMP25 = L16 (TYPE FIX)>
6075 <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
6078 <NTHUS TEMP25 1 = E29>
6079 <VEQUAL? E18 E29 - TAG58>
6080 <RESTUS L27 1 = L27 (TYPE STRING)>
6081 <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
6082 <SUB L16 1 = L16 (TYPE FIX)>
6083 <GRTR? L16 0 - TAG64 (TYPE FIX)>
6084 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6085 <GRTR? TEMP12 0 + TAG63 (TYPE FIX)>
6086 <SET TEMP12 1 (TYPE FIX)>
6089 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6090 <VEQUAL TEMP12 0 - TAG66>
6092 <SET TEMP12 0 (TYPE FIX)>
6095 <SET TEMP12 -1 (TYPE FIX)>
6098 <GRTR? E18 E29 - TAG66>
6100 <SET TEMP12 1 (TYPE FIX)>
6106 <FRAME '
\1aFCOMPARE>
6111 <CALL '
\1aFCOMPARE 2 = TEMP12>
6115 <GRTR? L16 L27 - PHRASE69 (TYPE FIX)>
6121 <RESTUV L16 1 = L16 (TYPE VECTOR)>
6122 <RESTUV L27 1 = L27 (TYPE VECTOR)>
6129 <GFCN
\1aCANONICAL-DECL ("VALUE" ANY ANY) D4>
6130 <TEMP TEMP12 TEMP15 TEMP20 TEMP22:LIST TEMP24>
6135 <CALL '
\1aVTS 1 = D4>
6136 <TYPE? D4 <TYPE-CODE FORM> + TAG9>
6137 <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE7>
6139 <EMPL? D4 + PHRASE7>
6140 <NTHL D4 1 = TEMP12>
6141 <EQUAL? TEMP12 'OR - PHRASE11>
6146 <SET TEMP15 1 (TYPE FIX)>
6147 <SET TEMP12 () (TYPE LIST)>
6148 <SET TEMP20 () (TYPE LIST)>
6149 <RESTL D4 1 = TEMP22 (TYPE LIST)>
6151 <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
6155 <EMPL? TEMP22 + MAP16>
6156 <FRAME '
\1aCANONICAL-DECL>
6157 <NTHL TEMP22 1 = STACK>
6158 <CALL '
\1aCANONICAL-DECL 1 = TEMP24>
6159 <CONS TEMP24 () = TEMP24 (TYPE LIST)>
6160 <EMPL? TEMP12 - TAG25>
6161 <SET TEMP12 TEMP24 (TYPE LIST)>
6164 <PUTREST TEMP20 TEMP24>
6167 <SET TEMP20 TEMP24 (TYPE LIST)>
6169 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
6172 <LOOP (TEMP12 VALUE) (TEMP15 VALUE)>
6175 <EMPL? TEMP12 + TAG14>
6176 <NTHL TEMP12 1 = STACK>
6177 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
6178 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
6181 <CALL '
\1aFORM TEMP15 = STACK>
6183 <CALL '
\1aORSORT 1 = TEMP15>
6187 <NTHL D4 1 = TEMP12>
6188 <EQUAL? TEMP12 'QUOTE - PHRASE29>
6190 <FRAME '
\1aCANONICAL-DECL>
6191 <FRAME '
\1aGEN-DECL>
6192 <RESTL D4 1 = TEMP22 (TYPE LIST)>
6194 <NTHL TEMP22 1 = STACK>
6196 <CALL '
\1aGEN-DECL 1 = STACK>
6197 <CALL '
\1aCANONICAL-DECL 1 = TEMP15>
6204 <CALL '
\1aCAN-ELE 1 = TEMP15>
6210 <END
\1aCANONICAL-DECL>
6212 <GFCN
\1aCAN-ELE ("VALUE" ANY <PRIMTYPE LIST>) L4>
6213 <TEMP (SAME5 %<>) TEMP14 X9 Y10 TEMP25 EL41 ELE42 LAST43 TT7 SAMCNT6 TEMP118:VECTOR X120:VECTOR>
6215 <NTHL L4 1 = TEMP14>
6216 <TYPE? TEMP14 <TYPE-CODE ATOM> - PHRASE12>
6218 <NTHL L4 1 = TEMP14 (TYPE ATOM)>
6219 <NTHR TEMP14 5 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE12)>
6220 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
6222 <FRAME '
\1aDECL-GET>
6223 <NTHL L4 1 = STACK (TYPE ATOM)>
6224 <CALL '
\1aDECL-GET 1 = X9>
6225 <TYPE? X9 <TYPE-CODE FALSE> + PHRASE12>
6226 <TYPE? X9 <TYPE-CODE FORM> + TAG17>
6227 <TYPE? X9 <TYPE-CODE SEGMENT> - PHRASE12>
6229 <EMPL? X9 + PHRASE12>
6230 <RESTL X9 1 = TEMP14 (TYPE LIST)>
6231 <EMPL? TEMP14 + PHRASE12>
6234 <RESTL X9 1 = TEMP14 (TYPE LIST)>
6235 <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
6237 <RESTL L4 1 = TEMP14 (TYPE LIST)>
6238 <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
6240 <CALL '
\1a=? 2 = TEMP14>
6241 <VEQUAL? TEMP14 0 - BOOL18>
6244 <FRAME '
\1aCANONICAL-DECL>
6248 <NTHL L4 1 = STACK (TYPE ATOM)>
6249 <CALL '
\1aMTYPR 1 = STACK>
6250 <CALL '
\1aFORM 2 = Y10>
6251 <CONS Y10 () = TEMP14>
6252 <RESTL L4 1 = TEMP25 (TYPE LIST)>
6253 <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
6254 <PUTREST TEMP14 TEMP25>
6256 <CHTYPE TEMP14 <TYPE-CODE FORM> = STACK>
6258 <CALL '
\1aCANONICAL-DECL 1 = STACK>
6259 <FRAME '
\1aCANONICAL-DECL>
6260 <RESTL X9 1 = TEMP14 (TYPE LIST)>
6262 <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
6263 <CONS Y10 TEMP14 = TEMP25>
6265 <CHTYPE TEMP25 <TYPE-CODE FORM> = STACK>
6267 <CALL '
\1aCANONICAL-DECL 1 = STACK>
6268 <CALL '
\1a=? 2 = TEMP25>
6269 <VEQUAL? TEMP25 0 + PHRASE12>
6272 <NTHL L4 1 = TEMP25>
6277 <FRAME '
\1aCANONICAL-DECL>
6279 <CALL '
\1aCANONICAL-DECL 1 = TEMP14>
6280 <CONS TEMP14 () = TEMP14>
6281 <SET X9 () (TYPE LIST)>
6282 <SET TEMP25 () (TYPE LIST)>
6283 <RESTL L4 1 = Y10 (TYPE LIST)>
6285 <CHTYPE Y10 <TYPE-CODE LIST> = Y10>
6289 <EMPL? Y10 + MAPAP33>
6291 <NTHL EL41 1 = ELE42>
6292 <RESTL EL41 1 = EL41 (TYPE LIST)>
6293 <EMPL? EL41 - TAG44 (TYPE LIST)>
6295 <SET LAST43 'T (TYPE ATOM)>
6298 <SET LAST43 %<> (TYPE FALSE)>
6300 <TYPE? ELE42 <TYPE-CODE VECTOR> - PHRASE48>
6301 <LENUV ELE42 = EL41 (TYPE FIX)>
6302 <VEQUAL? EL41 2 - PHRASE50 (TYPE FIX)>
6304 <NTHUV ELE42 1 = EL41>
6305 <TYPE? EL41 <TYPE-CODE FIX> - PHRASE50>
6307 <FRAME '
\1aCANONICAL-DECL>
6308 <NTHUV ELE42 2 = STACK>
6309 <CALL '
\1aCANONICAL-DECL 1 = TT7>
6310 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE54>
6314 <CALL '
\1a=? 2 = EL41>
6315 <VEQUAL? EL41 0 + PHRASE54>
6317 <NTHUV ELE42 1 = EL41 (TYPE FIX)>
6319 <ADD EL41 SAMCNT6 = SAMCNT6 (TYPE FIX)>
6321 <VEQUAL? LAST43 0 + MAP31>
6326 <UBLOCK <TYPE-CODE VECTOR> 2 = EL41>
6329 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE64>
6335 <CALL '
\1aGR-RET 2 = EL41>
6338 <SET EL41 %<> (TYPE FALSE)>
6341 <NTHUV ELE42 1 = SAMCNT6 (TYPE FIX)>
6343 <VEQUAL? LAST43 0 + PHRASE68>
6345 <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE70>
6346 <CONS EL41 () = LAST43 (TYPE LIST)>
6349 <SET X9 LAST43 (TYPE LIST)>
6352 <PUTREST TEMP25 LAST43>
6355 <SET TEMP25 LAST43 (TYPE LIST)>
6361 <CALL '
\1aGR-RET 2 = LAST43>
6362 <CONS LAST43 () = LAST43 (TYPE LIST)>
6364 <SET X9 LAST43 (TYPE LIST)>
6367 <PUTREST TEMP25 LAST43>
6370 <SET TEMP25 LAST43 (TYPE LIST)>
6378 <CALL '
\1aGR-RET 2 = EL41>
6381 <TYPE? EL41 <TYPE-CODE FALSE> - PHRASE165>
6384 <NTHUV ELE42 1 = LAST43>
6385 <EQUAL? LAST43 'REST - PHRASE90>
6387 <LENUV ELE42 = LAST43 (TYPE FIX)>
6388 <VEQUAL? LAST43 2 - PHRASE90 (TYPE FIX)>
6390 <NTHUV ELE42 2 = LAST43>
6391 <EQUAL? LAST43 'ANY - PHRASE90>
6393 <TYPE? SAME5 <TYPE-CODE FALSE> + MAP31>
6398 <CALL '
\1aGR-RET 2 = EL41>
6399 <SET SAME5 %<> (TYPE FALSE)>
6400 <CONS EL41 () = LAST43 (TYPE LIST)>
6403 <SET X9 LAST43 (TYPE LIST)>
6406 <PUTREST TEMP25 LAST43>
6409 <SET TEMP25 LAST43 (TYPE LIST)>
6413 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE94>
6418 <CALL '
\1aGR-RET 2 = EL41>
6421 <SET EL41 %<> (TYPE FALSE)>
6423 <LENUV ELE42 = LAST43 (TYPE FIX)>
6424 <UUBLOCK <TYPE-CODE VECTOR> LAST43 = TT7 (TYPE VECTOR)>
6426 <NTHUV ELE42 1 = LAST43>
6427 <EQUAL? LAST43 'OPT - PHRASE98>
6429 <SET LAST43 'OPTIONAL (TYPE ATOM)>
6432 <NTHUV ELE42 1 = LAST43>
6434 <PUTUV TT7 1 LAST43>
6436 <LENUV ELE42 = LAST43 (TYPE FIX)>
6437 <LESS? LAST43 2 + PHRASE101 (TYPE FIX)>
6439 <NTHUV ELE42 1 = LAST43>
6440 <EQUAL? LAST43 'REST - PHRASE101>
6442 <FRAME '
\1aCANONICAL-DECL>
6443 <NTHUV ELE42 2 = STACK>
6444 <CALL '
\1aCANONICAL-DECL 1 = SAME5>
6448 <SET SAME5 %<> (TYPE FALSE)>
6450 <LENUV ELE42 = LAST43 (TYPE FIX)>
6451 <LESS? LAST43 3 + PHRASE129 (TYPE FIX)>
6453 <RESTUV TT7 2 = TEMP118 (TYPE VECTOR)>
6454 <RESTUV ELE42 2 = ELE42 (TYPE VECTOR)>
6458 <EMPUV? TEMP118 + MAPAP111>
6459 <EMPUV? ELE42 + MAPAP111>
6462 <FRAME '
\1aCANONICAL-DECL>
6463 <NTHUV LAST43 1 = STACK>
6465 <CALL '
\1aCANONICAL-DECL 1 = LAST43>
6466 <PUTUV X120 1 LAST43>
6472 <CALL '
\1aN=? 2 = LAST43>
6473 <VEQUAL? LAST43 0 + PHRASE125>
6475 <SET SAME5 %<> (TYPE FALSE)>
6477 <RESTUV TEMP118 1 = TEMP118 (TYPE VECTOR)>
6478 <RESTUV ELE42 1 = ELE42 (TYPE VECTOR)>
6481 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE129>
6483 <NTHUV TT7 1 = STACK>
6484 <NTHUV TT7 2 = STACK>
6486 <UBLOCK <TYPE-CODE VECTOR> 2 = TT7>
6488 <SET SAME5 %<> (TYPE FALSE)>
6489 <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE132>
6490 <CONS EL41 () = ELE42 (TYPE LIST)>
6493 <SET X9 ELE42 (TYPE LIST)>
6496 <PUTREST TEMP25 ELE42>
6499 <SET TEMP25 ELE42 (TYPE LIST)>
6501 <CONS TT7 () = ELE42 (TYPE LIST)>
6504 <SET X9 ELE42 (TYPE LIST)>
6507 <PUTREST TEMP25 ELE42>
6510 <SET TEMP25 ELE42 (TYPE LIST)>
6518 <FRAME '
\1aCANONICAL-DECL>
6521 <CALL '
\1aCANONICAL-DECL 1 = ELE42>
6522 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE142>
6526 <CALL '
\1a=? 2 = EL41>
6527 <VEQUAL? EL41 0 + PHRASE142>
6529 <ADD SAMCNT6 1 = SAMCNT6 (TYPE FIX)>
6530 <VEQUAL? LAST43 0 + MAP31>
6536 <CALL '
\1aGR-RET 2 = EL41>
6539 <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE152>
6545 <CALL '
\1aGR-RET 2 = EL41>
6548 <SET EL41 %<> (TYPE FALSE)>
6551 <SET SAMCNT6 1 (TYPE FIX)>
6552 <VEQUAL? LAST43 0 + PHRASE156>
6554 <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE158>
6555 <CONS EL41 () = EL41 (TYPE LIST)>
6557 <SET X9 EL41 (TYPE LIST)>
6560 <PUTREST TEMP25 EL41>
6563 <SET TEMP25 EL41 (TYPE LIST)>
6565 <CONS ELE42 () = EL41 (TYPE LIST)>
6568 <SET X9 EL41 (TYPE LIST)>
6571 <PUTREST TEMP25 EL41>
6574 <SET TEMP25 EL41 (TYPE LIST)>
6582 <TYPE? EL41 <TYPE-CODE FALSE> + MAP31>
6584 <CONS EL41 () = EL41 (TYPE LIST)>
6586 <SET X9 EL41 (TYPE LIST)>
6589 <PUTREST TEMP25 EL41>
6592 <SET TEMP25 EL41 (TYPE LIST)>
6595 <RESTL Y10 1 = Y10 (TYPE LIST)>
6600 <CHTYPE TEMP14 <TYPE-CODE FORM> = TEMP25>
6606 <GFCN
\1aGR-RET ("VALUE" ANY ANY FIX) X4 N5>
6609 <VEQUAL? N5 1 - PHRASE7 (TYPE FIX)>
6617 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP10>
6622 <GFCN
\1aDECL-GET ("VALUE" ANY ANY "OPTIONAL" ANY) DCL6 DEF7>
6623 <OPT-DISPATCH 1 %<> OPT4 OPT5>
6627 <TEMP TEMP11 TEMP18:FRAME>
6629 <GVAL 'MIM = TEMP11>
6630 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE10>
6632 <FRAME '
\1aGET-DECL>
6634 <CALL '
\1aGET-DECL 1 = TEMP11>
6635 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
6636 <VEQUAL? TEMP11 'ANY + PHRASE13>
6644 <CFRAME = STACK (TYPE FRAME)>
6645 <CALL '
\1aGETPROP 3 = TEMP11>
6646 <CFRAME = TEMP18 (TYPE FRAME)>
6647 <EQUAL? TEMP18 TEMP11 - TAG22>
6652 <CALL '
\1aEVAL 1 = TEMP11>
6660 <CFRAME = STACK (TYPE FRAME)>
6661 <CALL '
\1aGETPROP 3 = TEMP11>
6662 <CFRAME = TEMP18 (TYPE FRAME)>
6663 <EQUAL? TEMP18 TEMP11 - TAG22>
6668 <CALL '
\1aEVAL 1 = TEMP11>
6674 <GFCN
\1aMTYPR ("VALUE" ANY ANY) X4>
6675 <TEMP TEMP10 TEMP11>
6677 <SET TEMP10 [OBLIST LVAL GVAL] (TYPE VECTOR)>
6678 <TYPE? X4 <TYPE-CODE ATOM> - PHRASE6>
6679 <LOOP (X4 VALUE) (TEMP10 LENGTH VALUE)>
6681 <NTHUV TEMP10 1 = TEMP11>
6682 <VEQUAL? TEMP11 X4 + TAG7>
6684 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
6685 <EMPUV? TEMP10 - TAG8>
6690 <FRAME '
\1aTYPEPRIM>
6693 <CALL '
\1aTYPEPRIM 1 = TEMP10>
6698 <GFCN
\1aGC-PRIMTYPE ("VALUE" ATOM ANY) ARG4>
6699 <TEMP TYP6 TEMP7:VECTOR>
6701 <LSH ARG4 -6 = TYP6 (TYPE FIX)>
6703 <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP7>
6704 <ADD TYP6 1 = TYP6 (TYPE FIX)>
6705 <NTHUV TEMP7 TYP6 = TYP6 (TYPE TYPE-ENTRY)>
6707 <NTHUV TYP6 2 = TYP6 (TYPE ATOM)>
6710 <END
\1aGC-PRIMTYPE>