4 <ENTRY LENGTH-ANA EMPTY?-ANA LENGTH?-ANA NTH-ANA REST-ANA PUT-ANA PUTREST-ANA MEMQ-ANA NTH-REST-ANA MONAD-ANA BACK-ANA TOP-ANA>
6 <USE "SYMANA" "CHKDCL" "COMPDEC" "ADVMESS">
8 "Structure hackers for the compiler (analyzers)"
11 <GFCN
\1aLNTH-MT-ANA ("VALUE" ANY NODE ANY FIX) NOD4 RTYP5 COD6>
12 <TEMP K7:LIST LN8 TEMP3:LBIND (TY11 'BOOLEAN) TEMP22 TEMP27>
14 <NTHUV NOD4 5 = K7 (TYPE LIST)>
15 <LENL K7 = LN8 (TYPE FIX)>
16 <GETS 'BIND = TEMP3 (TYPE LBIND)>
17 <BBIND 'WHO 'LIST 'FIX ()>
18 <VEQUAL? COD6 25 - BOOL16 (TYPE FIX)>
19 <GEN-ASSIGNED? 'GLN - BOOL16>
21 <GEN-LVAL 'GLN = STACK>
22 <NTHUV NOD4 2 = STACK (TYPE NODE)>
23 <CALL '
\1aANCEST 2 = TEMP22>
24 <TYPE? TEMP22 <TYPE-CODE FALSE> - TAG28>
27 <GEN-LVAL 'PRED = TEMP22>
28 <NTHUV NOD4 2 = TEMP27>
29 <EQUAL? TEMP22 TEMP27 + TAG24>
31 <SET TEMP22 %<> (TYPE FALSE)>
34 <VEQUAL? COD6 26 + TAG28 (TYPE FIX)>
35 <SET TEMP22 %<> (TYPE FALSE)>
40 <BBIND 'WHON <OR NODE FALSE> 'FIX TEMP22>
45 <CALL '
\1aSEGFLUSH 2 = TEMP22>
46 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE38>
52 <NTHUV NOD4 4 = STACK>
57 <NTHL K7 1 = STACK (TYPE NODE)>
59 <NTHUV NOD4 4 = STACK>
60 <CALL '
\1aEANA 3 = STACK>
61 <CALL '
\1aSTRUCTYP 1 = TEMP22>
62 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL37>
64 <VEQUAL? COD6 26 - PHRASE36 (TYPE FIX)>
66 <PUTUV NOD4 1 COD6 (TYPE FIX)>
67 <SET TY11 'BOOLEAN (TYPE ATOM)>
70 <GEN-LVAL 'VERBOSE = TEMP22>
71 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE40>
75 <NTHL K7 1 = TEMP22 (TYPE NODE)>
77 <NTHUV TEMP22 3 = TEMP22>
78 <CONS TEMP22 () = TEMP22>
79 <CONS "Not open compiled because type is: " TEMP22 = STACK>
83 <PUTUV NOD4 1 52 (TYPE FIX)>
85 <VEQUAL? COD6 26 - PHRASE45 (TYPE FIX)>
87 <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
88 <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
93 <EMPL? TEMP22 + PHRASE67>
95 <RESTL K7 1 = TEMP27 (TYPE LIST)>
96 <NTHL TEMP27 1 = TEMP27 (TYPE SYMTAB)>
98 <FRAME '
\1aADD-TYPE-LIST>
101 <PUSH <STRUCTURED ANY>>
102 <GEN-LVAL 'UNTRUTH = STACK>
105 <RESTL K7 1 = TEMP27 (TYPE LIST)>
107 <RESTL TEMP27 1 = STACK (TYPE LIST)>
109 <CALL '
\1aADD-TYPE-LIST 5 = TEMP27>
110 <GEN-SET 'UNTRUTH TEMP27>
112 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
115 <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
116 <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
118 <GEN-SET 'GLE TEMP22>
122 <NTHUV NOD4 9 = TEMP22>
124 <GVAL 'LENGTH = TEMP27>
125 <EQUAL? TEMP22 TEMP27 - PHRASE74>
129 <GVAL 'PLUSINF = TEMP27>
130 <CONS TEMP27 () = TEMP27>
131 <CONS 0 TEMP27 = STACK>
133 <CALL '
\1aFORM 2 = TEMP27>
143 <CALL '
\1aTYPE-OK? 2 = TEMP27>
151 <GFCN
\1aANCEST ("VALUE" <OR ATOM FALSE> NODE NODE) N14 N25>
157 <VEQUAL? N14 N25 - PHRASE11>
160 <NTHUV N25 1 = TEMP6 (TYPE FIX)>
161 <VEQUAL? TEMP6 11 + BOOL12 (TYPE FIX)>
165 <NTHUV N25 2 = TEMP6>
166 <TYPE? TEMP6 <TYPE-CODE NODE> - PHRASE15>
168 <NTHUV N25 2 = N25 (TYPE NODE)>
174 <GFCN
\1aLENGTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
177 <FRAME '
\1aLNTH-MT-ANA>
183 <CALL '
\1aLNTH-MT-ANA 3 = TEMP7>
188 <GFCN
\1aEMPTY?-ANA ("VALUE" ANY ANY ANY) N4 R5>
191 <FRAME '
\1aLNTH-MT-ANA>
197 <CALL '
\1aLNTH-MT-ANA 3 = TEMP7>
201 <COND (<GASSIGNED? LENGTH-ANA> <PUTPROP ,EMPTY? ANALYSIS ,EMPTY?-ANA> <PUTPROP ,LENGTH ANALYSIS ,LENGTH-ANA>)>
204 <GFCN
\1aLENGTH?-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
205 <TEMP K6:LIST TEMP3:LBIND TEMP13 TEMP16 TEMP37 L40:LIST FLG42>
207 <NTHUV NOD4 5 = K6 (TYPE LIST)>
208 <GETS 'BIND = TEMP3 (TYPE LBIND)>
209 <BBIND 'WHO 'LIST 'FIX ()>
210 <GEN-LVAL 'PRED = TEMP13>
211 <NTHUV NOD4 2 = TEMP16>
212 <EQUAL? TEMP13 TEMP16 + TAG12>
214 <SET TEMP13 %<> (TYPE FALSE)>
219 <BBIND 'WHON 'ANY 'FIX TEMP13>
224 <CALL '
\1aSEGFLUSH 2 = TEMP13>
225 <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE19>
227 <LENL K6 = STACK (TYPE FIX)>
233 <NTHL K6 1 = STACK (TYPE NODE)>
236 <CALL '
\1aEANA 3 = TEMP13>
237 <NTHR 'WHON 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
238 <PUTR TEMP16 1 %<> (RECORD-TYPE LBIND)>
241 <RESTL K6 1 = TEMP16 (TYPE LIST)>
242 <NTHL TEMP16 1 = STACK (TYPE NODE)>
247 <RESTL K6 1 = TEMP16 (TYPE LIST)>
248 <NTHL TEMP16 1 = TEMP16 (TYPE NODE)>
249 <NTHUV TEMP16 1 = TEMP16 (TYPE FIX)>
250 <VEQUAL? TEMP16 2 - MAPAP31 (TYPE FIX)>
252 <NTHR 'WHO 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
253 <NTHR TEMP37 1 = TEMP16 (RECORD-TYPE LBIND)>
258 <EMPL? TEMP16 + MAPAP31>
259 <NTHL TEMP16 1 = L40>
260 <RESTL L40 1 = TEMP37 (TYPE LIST)>
261 <NTHL TEMP37 1 = TEMP37 (TYPE SYMTAB)>
263 <FRAME '
\1aADD-TYPE-LIST>
268 <RESTL K6 1 = TEMP37 (TYPE LIST)>
269 <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
270 <NTHUV TEMP37 4 = STACK>
273 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
274 <CALL '
\1aFORM 2 = STACK>
275 <GEN-LVAL 'TRUTH = STACK>
278 <RESTL L40 1 = TEMP37 (TYPE LIST)>
280 <RESTL TEMP37 1 = STACK (TYPE LIST)>
282 <CALL '
\1aADD-TYPE-LIST 5 = TEMP37>
283 <GEN-SET 'UNTRUTH TEMP37>
285 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
291 <CALL '
\1aSTRUCTYP 1 = TEMP13>
292 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE52>
294 <PUTUV NOD4 1 69 (TYPE FIX)>
297 <GEN-LVAL 'VERBOSE = TEMP16>
298 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE56>
302 <NTHL K6 1 = TEMP13 (TYPE NODE)>
303 <NTHUV TEMP13 3 = TEMP13>
304 <CONS TEMP13 () = TEMP37>
306 <CONS "Not open compiled because type is: " TEMP37 = STACK>
308 <CALL '
\1aADDVMESS 2>
310 <PUTUV NOD4 1 52 (TYPE FIX)>
317 <RESTL K6 1 = TEMP37 (TYPE LIST)>
319 <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
320 <NTHUV TEMP37 1 = TEMP37 (TYPE FIX)>
321 <VEQUAL? TEMP37 2 - PHRASE64 (TYPE FIX)>
323 <NTHUV NOD4 4 = TEMP37>
327 <GVAL 'PLUSINF = TEMP37>
329 <CONS TEMP37 () = TEMP37>
330 <CONS 0 TEMP37 = STACK>
332 <CALL '
\1aFORM 2 = STACK>
334 <CALL '
\1aFORM 3 = STACK>
337 <CALL '
\1aTYPE-OK? 2 = TEMP13>
345 <COND (<GASSIGNED? LENGTH?-ANA> <PUTPROP ,LENGTH? ANALYSIS ,LENGTH?-ANA>)>
348 <GFCN
\1aMONAD-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
349 <TEMP K6:LIST LN7:FIX TEMP12>
351 <NTHUV NOD4 5 = K6 (TYPE LIST)>
352 <LENL K6 = LN7 (TYPE FIX)>
356 <CALL '
\1aSEGFLUSH 2 = TEMP12>
357 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
363 <CALL '
\1aTYPE-OK? 2 = TEMP12>
375 <NTHL K6 1 = STACK (TYPE NODE)>
378 <NTHUV NOD4 4 = STACK>
380 <PUTUV NOD4 1 91 (TYPE FIX)>
386 <CALL '
\1aTYPE-OK? 2 = TEMP12>
390 <COND (<GASSIGNED? MONAD-ANA> <PUTPROP ,MONAD? ANALYSIS ,MONAD-ANA>)>
393 <GFCN
\1aNTH-REST-ANA ("VALUE" ANY NODE ANY FIX "OPTIONAL" ANY) NOD6 RTYP7 COD8 TF9>
394 <OPT-DISPATCH 3 %<> OPT4 OPT5>
398 <TEMP K10:LIST LN11 TEMP24 TEMP26 RV15 (SVWHO16:LIST ()) AMT17 NM19 TEMP35 OWHON21 TPS14 NUMB22>
400 <NTHUV NOD6 5 = K10 (TYPE LIST)>
401 <LENL K10 = LN11 (TYPE FIX)>
403 <TYPE? TEMP24 <TYPE-CODE FALSE> - TAG27>
404 <NTHUV NOD6 4 = TEMP26>
405 <EQUAL? TEMP26 'INTH - TAG25>
407 <SET TEMP24 'T (TYPE ATOM)>
410 <SET TEMP24 %<> (TYPE FALSE)>
414 <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE29>
415 <SET NM19 'NTH (TYPE ATOM)>
418 <NTHUV NOD6 4 = NM19>
420 <GEN-LVAL 'WHON = TEMP26>
421 <NTHUV NOD6 2 = TEMP35>
422 <EQUAL? TEMP26 TEMP35 + TAG32>
424 <SET TEMP24 %<> (TYPE FALSE)>
431 <GETS 'BIND = TEMP24 (TYPE LBIND)>
432 <BBIND 'WHO 'LIST 'FIX ()>
433 <BBIND 'WHON 'ANY 'FIX %<>>
437 <CALL '
\1aSEGFLUSH 2 = TEMP26>
438 <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE42>
439 <VEQUAL? LN11 1 - PHRASE44 (TYPE FIX)>
440 <NTHL K10 1 = TEMP35 (TYPE NODE)>
442 <CONS TEMP35 () = TEMP35>
449 <CALL '
\1aNODE1 5 = TEMP26>
450 <CONS TEMP26 () = TEMP26>
451 <PUTREST TEMP35 TEMP26>
455 <PUTUV NOD6 5 K10 (TYPE LIST)>
462 <NTHUV NOD6 4 = STACK>
466 <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE51>
468 <TYPE? TF9 <TYPE-CODE FALSE> - BOOL52>
470 <RESTL K10 1 = TEMP35 (TYPE LIST)>
471 <NTHL TEMP35 1 = STACK (TYPE NODE)>
473 <PUSH <OR FIX OFFSET>>
475 <CALL '
\1aEANA 3 = TF9>
477 <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
478 <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
481 <NTHL K10 1 = STACK (TYPE NODE)>
484 <CALL '
\1aEANA 3 = TEMP26>
487 <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
488 <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
491 <NTHL K10 1 = STACK (TYPE NODE)>
494 <CALL '
\1aEANA 3 = TEMP26>
495 <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
496 <PUTR TEMP35 1 %<> (RECORD-TYPE LBIND)>
498 <TYPE? TF9 <TYPE-CODE FALSE> - BOOL63>
500 <RESTL K10 1 = TEMP35 (TYPE LIST)>
501 <NTHL TEMP35 1 = STACK (TYPE NODE)>
503 <PUSH <OR FIX OFFSET>>
505 <CALL '
\1aEANA 3 = TF9>
507 <RESTL K10 1 = TEMP35 (TYPE LIST)>
508 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
509 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
510 <VEQUAL? TEMP35 2 - PHRASE66 (TYPE FIX)>
512 <RESTL K10 1 = TEMP35 (TYPE LIST)>
513 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
514 <NTHUV TEMP35 4 = AMT17>
516 <TYPE? AMT17 <TYPE-CODE FALSE> + PHRASE66>
519 <CALL '
\1aISTYPE? 1 = TEMP35>
520 <VEQUAL? TEMP35 'OFFSET - PHRASE66>
527 <CALL '
\1aGET-DECL 1 = STACK>
528 <CALL '
\1aTYPE-AND 2 = TEMP26>
529 <NTHUV AMT17 1 = AMT17>
530 <NTHL K10 1 = TEMP35 (TYPE NODE)>
531 <PUTUV TEMP35 3 TEMP26>
534 <TYPE? AMT17 <TYPE-CODE UNBOUND> + PHRASE72>
535 <VEQUAL? COD8 27 - PHRASE74 (TYPE FIX)>
536 <EQUAL? AMT17 1 - PHRASE76>
543 <CALL '
\1aFORM 2 = STACK>
544 <CALL '
\1aTYPE-AND 2 = TEMP26>
556 <CALL '
\1a- 2 = STACK>
558 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
560 <CALL '
\1aFORM 3 = STACK>
561 <CALL '
\1aTYPE-AND 2 = TEMP26>
566 <CALL '
\1aSTRUCTYP 1 = RV15>
567 <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE84>
568 <EQUAL? AMT17 0 - PHRASE87>
576 <CALL '
\1aFORM 2 = STACK>
577 <CALL '
\1aTYPE-AND 2 = TEMP26>
588 <CALL '
\1aFORM 2 = STACK>
592 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
593 <CALL '
\1aFORM 2 = STACK>
594 <CALL '
\1aTYPE-AND 2 = TEMP26>
597 <EQUAL? AMT17 0 + PHRASE102>
606 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
607 <CALL '
\1aFORM 2 = STACK>
608 <CALL '
\1aTYPE-AND 2 = TEMP26>
611 <VEQUAL? COD8 27 - PHRASE99 (TYPE FIX)>
618 <CALL '
\1aFORM 2 = STACK>
619 <CALL '
\1aTYPE-AND 2 = TEMP26>
624 <CALL '
\1aSTRUCTYP 1 = RV15>
625 <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE102>
633 <CALL '
\1aFORM 2 = STACK>
634 <CALL '
\1aTYPE-AND 2 = TEMP26>
636 <NTHL K10 1 = TEMP35 (TYPE NODE)>
637 <PUTUV TEMP35 3 TEMP26>
641 <CALL '
\1aSTRUCTYP 1 = TPS14>
642 <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE108>
643 <RESTL K10 1 = TEMP35 (TYPE LIST)>
644 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
645 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
646 <VEQUAL? TEMP35 2 - PHRASE108 (TYPE FIX)>
648 <NTHR 'WHO 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
649 <NTHR TEMP35 1 = SVWHO16 (RECORD-TYPE LBIND)>
651 <RESTL K10 1 = TEMP35 (TYPE LIST)>
652 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
653 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
654 <VEQUAL? TEMP35 2 - BOOL115 (TYPE FIX)>
656 <RESTL K10 1 = TEMP35 (TYPE LIST)>
657 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
658 <NTHUV TEMP35 4 = TEMP35>
659 <EQUAL? TEMP35 1 + BOOL117>
662 <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE113>
665 <CALL '
\1aISTYPE? 1 = TEMP35>
666 <VEQUAL? TEMP35 'FIX + BOOL117>
670 <CALL '
\1aISTYPE? 1 = TEMP35>
671 <VEQUAL? TEMP35 'OFFSET - BOOL119>
673 <RESTL K10 1 = TEMP35 (TYPE LIST)>
674 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
675 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
676 <VEQUAL? TEMP35 2 + BOOL117 (TYPE FIX)>
682 <CALL '
\1aTYPE-OK? 2 = TEMP35>
683 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE113>
685 <RESTL K10 1 = TEMP35 (TYPE LIST)>
686 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
687 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
688 <VEQUAL? TEMP35 2 + PHRASE113 (TYPE FIX)>
691 <PUTUV NOD6 1 COD8 (TYPE FIX)>
694 <VEQUAL? COD8 27 - BOOL124 (TYPE FIX)>
697 <GEN-LVAL 'VERBOSE = TEMP35>
698 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE126>
702 <CONS TEMP26 () = TEMP35>
703 <CONS "Not open compiled because type is: " TEMP35 = STACK>
705 <CALL '
\1aADDVMESS 2>
707 <PUTUV NOD6 1 52 (TYPE FIX)>
710 <FRAME '
\1aGET-ELE-TYPE>
713 <RESTL K10 1 = TEMP35 (TYPE LIST)>
714 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
715 <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
716 <VEQUAL? TEMP35 2 - PHRASE133 (TYPE FIX)>
721 <CALL '
\1aISTYPE? 1 = TEMP35>
722 <VEQUAL? TEMP35 'OFFSET - PHRASE135>
724 <RESTL K10 1 = TEMP35 (TYPE LIST)>
725 <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
726 <NTHUV TEMP35 4 = TEMP35 (TYPE OFFSET)>
727 <NTHUV TEMP35 1 = TEMP35>
730 <RESTL K10 1 = TEMP26 (TYPE LIST)>
731 <NTHL TEMP26 1 = TEMP26 (TYPE NODE)>
732 <NTHUV TEMP26 4 = TEMP35 (TYPE FIX)>
740 <SET TEMP35 'ALL (TYPE ATOM)>
744 <NTHUV NOD6 9 = TEMP35>
745 <GVAL 'REST = TEMP26>
746 <EQUAL? TEMP35 TEMP26 - TAG139>
753 <CALL '
\1aGET-ELE-TYPE 3 = STACK>
756 <CALL '
\1aTYPE-OK? 2 = TEMP26>
761 <SET TEMP24 SVWHO16 (TYPE LIST)>
766 <EMPL? TEMP24 + MAPAP145>
767 <NTHL TEMP24 1 = SVWHO16>
768 <RESTL SVWHO16 1 = RV15 (TYPE LIST)>
769 <NTHL RV15 1 = AMT17 (TYPE SYMTAB)>
771 <NTHL SVWHO16 1 = TEMP35>
772 <RESTL SVWHO16 1 = LN11 (TYPE LIST)>
774 <RESTL LN11 1 = RV15 (TYPE LIST)>
776 <CONS NUMB22 RV15 = SVWHO16>
778 <CONS NM19 SVWHO16 = SVWHO16>
779 <FRAME '
\1aSET-CURRENT-TYPE>
782 <FRAME '
\1aGET-CURRENT-TYPE>
784 <CALL '
\1aGET-CURRENT-TYPE 1 = STACK>
785 <FRAME '
\1aTYPE-NTH-REST>
788 <CALL '
\1aTYPE-NTH-REST 2 = STACK>
789 <CALL '
\1aTYPE-AND 2 = STACK>
790 <CALL '
\1aSET-CURRENT-TYPE 2>
791 <TYPE? OWHON21 <TYPE-CODE FALSE> + PHRASE161>
792 <GEN-LVAL 'WHO = RV15>
793 <CONS AMT17 SVWHO16 = LN11>
794 <CONS TEMP35 LN11 = LN11>
795 <CONS LN11 RV15 = LN11>
800 <GEN-LVAL 'PRED = LN11>
801 <NTHUV NOD6 2 = RV15>
802 <EQUAL? LN11 RV15 - PHRASE167>
807 <CALL '
\1aTYPE-OK? 2 = RV15>
808 <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE167>
812 <CALL '
\1aTYPE-OK? 2 = LN11>
813 <TYPE? LN11 <TYPE-CODE FALSE> + PHRASE167>
814 <FRAME '
\1aADD-TYPE-LIST>
818 <GEN-LVAL 'TRUTH = STACK>
821 <CALL '
\1aADD-TYPE-LIST 5 = LN11>
822 <GEN-SET 'TRUTH LN11>
824 <FRAME '
\1aADD-TYPE-LIST>
829 <GEN-LVAL 'UNTRUTH = STACK>
834 <CALL '
\1aADD-TYPE-LIST 5 = RV15>
835 <GEN-SET 'UNTRUTH RV15>
838 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
841 <EQUAL? TPS14 'LIST - PHRASE185>
842 <NTHL K10 1 = TEMP24 (TYPE NODE)>
843 <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
844 <VEQUAL? TEMP24 10 + BOOL187 (TYPE FIX)>
846 <NTHL K10 1 = TEMP24 (TYPE NODE)>
847 <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
848 <VEQUAL? TEMP24 11 - PHRASE185 (TYPE FIX)>
853 <NTHL K10 1 = STACK (TYPE NODE)>
854 <RESTL K10 1 = RV15 (TYPE LIST)>
855 <NTHL RV15 1 = STACK (TYPE NODE)>
857 <NTHUV NOD6 9 = RV15>
858 <GVAL 'REST = TEMP24>
859 <EQUAL? RV15 TEMP24 - TAG189>
866 <CALL '
\1aLOOK-FOR 4 = TEMP24>
867 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE185>
869 <PUTUV NOD6 1 79 (TYPE FIX)>
874 <EQUAL? TPS14 'LIST - PHRASE191>
876 <VEQUAL? COD8 28 - PHRASE191 (TYPE FIX)>
878 <NTHR 'PUT-SAME-CODE 1 = TEMP24 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE191)>
879 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE191>
880 <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE GBIND)>
881 <TYPE? TEMP24 <TYPE-CODE UNBOUND> + PHRASE191>
883 <NTHL K10 1 = TEMP24 (TYPE NODE)>
884 <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
885 <VEQUAL? TEMP24 30 - PHRASE191 (TYPE FIX)>
887 <RESTL K10 1 = TEMP24 (TYPE LIST)>
889 <NTHL TEMP24 1 = TEMP24 (TYPE NODE)>
890 <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
891 <VEQUAL? TEMP24 2 - PHRASE191 (TYPE FIX)>
893 <VEQUAL? NUMB22 1 - PHRASE191 (TYPE FIX)>
895 <PUTUV NOD6 1 30 (TYPE FIX)>
900 <END
\1aNTH-REST-ANA>
902 <GFCN
\1aLOOK-FOR ("VALUE" <OR FALSE NODE> NODE NODE NODE ANY) MN4 N15 N6 RFLG7>
903 <TEMP (S10:LIST ()) TEMP12:LIST TEMP17 TT8>
905 <CONS () () = TEMP12>
906 <CONS () TEMP12 = TEMP12>
907 <CONS () TEMP12 = TEMP12>
911 <NTHUV N15 1 = TEMP17 (TYPE FIX)>
912 <VEQUAL? TEMP17 10 - PHRASE16 (TYPE FIX)>
918 <NTHUV N15 1 = TEMP17 (TYPE FIX)>
919 <VEQUAL? TEMP17 11 - EXIT13 (TYPE FIX)>
922 <NTHUV N15 5 = TEMP17 (TYPE LIST)>
924 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
925 <NTHL TEMP17 1 = N15 (TYPE NODE)>
929 <TYPE? RFLG7 <TYPE-CODE FALSE> + BOOL22>
930 <FRAME '
\1aSET-SEARCH>
935 <CALL '
\1aSET-SEARCH 4 = TT8>
936 <VEQUAL? TT8 0 + BOOL22>
939 <NTHUV N6 9 = TEMP17>
941 <EQUAL? TEMP17 TT8 - BOOL22>
943 <NTHUV N6 5 = TEMP17 (TYPE LIST)>
944 <EMPL? TEMP17 + BOOL22>
945 <RESTL TEMP17 1 = TT8 (TYPE LIST)>
947 <RESTL TT8 1 = TT8 (TYPE LIST)>
950 <RESTL TEMP17 1 = TT8 (TYPE LIST)>
951 <NTHL TT8 1 = TT8 (TYPE NODE)>
952 <NTHUV TT8 1 = TT8 (TYPE FIX)>
953 <VEQUAL? TT8 2 - BOOL22 (TYPE FIX)>
955 <RESTL TEMP17 1 = TT8 (TYPE LIST)>
956 <NTHL TT8 1 = TT8 (TYPE NODE)>
958 <EQUAL? TT8 1 - BOOL22>
960 <NTHL TEMP17 1 = N6 (TYPE NODE)>
964 <TYPE? RFLG7 <TYPE-CODE FALSE> + TAG26>
968 <FRAME '
\1aSET-SEARCH>
973 <RESTL TEMP12 1 = STACK (TYPE LIST)>
974 <CALL '
\1aSET-SEARCH 4 = TT8>
976 <VEQUAL? TEMP17 0 + BOOL20>
977 <FRAME '
\1aSET-SEARCH>
978 <NTHUV TT8 5 = TT8 (TYPE LIST)>
979 <NTHL TT8 1 = STACK (TYPE NODE)>
983 <RESTL TEMP12 1 = TT8 (TYPE LIST)>
984 <RESTL TT8 1 = STACK (TYPE LIST)>
986 <CALL '
\1aSET-SEARCH 4 = TT8>
988 <VEQUAL? TEMP17 0 + BOOL20>
990 <NTHUV TT8 4 = STACK (TYPE SYMTAB)>
994 <CALL '
\1aSMEMQ 2 = TEMP17>
995 <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
996 <PUTUV MN4 7 TEMP12 (TYPE LIST)>
1005 <GFCN
\1aSET-SEARCH ("VALUE" <OR !<FALSE> NODE> NODE FIX <LIST [REST NODE]> LIST) N4 C5 S6 SS7>
1006 <TEMP (L8:LIST ()) TEMP15>
1011 <NTHUV N4 1 = TEMP15 (TYPE FIX)>
1012 <VEQUAL? C5 TEMP15 - PHRASE14 (TYPE FIX)>
1019 <NTHUV N4 1 = TEMP15 (TYPE FIX)>
1020 <VEQUAL? TEMP15 11 - BOOL18 (TYPE FIX)>
1023 <NTHUV N4 4 = STACK (TYPE SYMTAB)>
1025 <CALL '
\1aSMEMQ 2 = TEMP15>
1026 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE17>
1032 <NTHUV N4 5 = TEMP15 (TYPE LIST)>
1034 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1035 <NTHL TEMP15 1 = N4 (TYPE NODE)>
1040 <GFCN
\1aSMEMQ ("VALUE" <OR FALSE <LIST NODE>> SYMTAB LIST) SYM4 L5>
1041 <TEMP TEMP15 TEMP12:LIST LL17:LIST>
1043 <SET TEMP15 %<> (TYPE FALSE)>
1044 <SET TEMP12 L5 (TYPE LIST)>
1049 <EMPL? TEMP12 + MAPAP10>
1051 <NTHL LL17 1 = TEMP15 (TYPE NODE)>
1052 <NTHUV TEMP15 4 = TEMP15>
1053 <EQUAL? TEMP15 SYM4 + TAG21>
1055 <SET TEMP15 %<> (TYPE FALSE)>
1061 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1068 <GFCN
\1aNTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
1071 <FRAME '
\1aNTH-REST-ANA>
1077 <CALL '
\1aNTH-REST-ANA 3 = TEMP7>
1082 <GFCN
\1aREST-ANA ("VALUE" ANY ANY ANY) N4 R5>
1085 <FRAME '
\1aNTH-REST-ANA>
1091 <CALL '
\1aNTH-REST-ANA 3 = TEMP7>
1095 <COND (<GASSIGNED? NTH-ANA> <PUTPROP ,NTH ANALYSIS ,NTH-ANA> <PUTPROP ,REST ANALYSIS ,REST-ANA>)>
1098 <GFCN
\1aPUT-ANA ("VALUE" ANY NODE ANY "OPTIONAL" ANY) NOD6 RTYP7 TF8>
1099 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1103 <TEMP K9:LIST LN10 (TS11 'ANY) (TPS13 %<>) (SVWHO15:LIST ()) (P20:LIST ()) TEMP27 TEMP29 RV23 AMT24 WHICH16 TEMP115 TEMP118 L148:LIST ND150 TEMP152 TEMP153>
1105 <NTHUV NOD6 5 = K9 (TYPE LIST)>
1106 <LENL K9 = LN10 (TYPE FIX)>
1108 <TYPE? TEMP27 <TYPE-CODE FALSE> - TAG30>
1109 <NTHUV NOD6 4 = TEMP29>
1110 <EQUAL? TEMP29 'IPUT - TAG28>
1112 <SET TEMP27 'T (TYPE ATOM)>
1115 <SET TEMP27 %<> (TYPE FALSE)>
1119 <GETS 'BIND = TEMP27 (TYPE LBIND)>
1120 <BBIND 'WHO 'LIST 'FIX ()>
1121 <BBIND 'WHON <OR FALSE NODE> 'FIX %<>>
1122 <FRAME '
\1aSEGFLUSH>
1125 <CALL '
\1aSEGFLUSH 2 = TEMP29>
1126 <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE204>
1132 <NTHUV NOD6 4 = STACK>
1135 <TYPE? RV23 <TYPE-CODE FALSE> + PHRASE43>
1137 <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1138 <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1140 <TYPE? TF8 <TYPE-CODE FALSE> - BOOL46>
1142 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1143 <NTHL TEMP29 1 = STACK (TYPE NODE)>
1145 <PUSH <OR FIX OFFSET>>
1147 <CALL '
\1aEANA 3 = TEMP29>
1151 <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1152 <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
1155 <NTHL K9 1 = STACK (TYPE NODE)>
1157 <CALL '
\1aANA 2 = TS11>
1158 <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1159 <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1163 <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1164 <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
1167 <NTHL K9 1 = STACK (TYPE NODE)>
1169 <CALL '
\1aANA 2 = TS11>
1170 <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1171 <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1173 <TYPE? TF8 <TYPE-CODE FALSE> - BOOL59>
1175 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1176 <NTHL TEMP29 1 = STACK (TYPE NODE)>
1178 <PUSH <OR FIX OFFSET>>
1180 <CALL '
\1aEANA 3 = TF8>
1183 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1184 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1185 <NTHL TEMP29 1 = STACK (TYPE NODE)>
1188 <CALL '
\1aANA 2 = RV23>
1189 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1190 <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1191 <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
1192 <VEQUAL? TEMP29 2 - PHRASE63 (TYPE FIX)>
1194 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1195 <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1196 <NTHUV TEMP29 4 = AMT24>
1198 <TYPE? AMT24 <TYPE-CODE FALSE> + PHRASE63>
1201 <CALL '
\1aISTYPE? 1 = TEMP29>
1202 <VEQUAL? TEMP29 'OFFSET - PHRASE63>
1204 <FRAME '
\1aTYPE-AND>
1207 <FRAME '
\1aGET-DECL>
1208 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1209 <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1210 <NTHUV TEMP29 4 = STACK>
1212 <CALL '
\1aGET-DECL 1 = STACK>
1213 <CALL '
\1aTYPE-AND 2 = TS11>
1214 <NTHUV AMT24 1 = AMT24>
1215 <NTHL K9 1 = TEMP29 (TYPE NODE)>
1216 <PUTUV TEMP29 3 TS11>
1221 <CALL '
\1aISTYPE? 1 = TEMP29>
1222 <VEQUAL? TEMP29 'FIX + BOOL70>
1226 <CALL '
\1aISTYPE? 1 = TEMP29>
1227 <VEQUAL? TEMP29 'OFFSET - BOOL69>
1229 <RESTL K9 1 = TEMP29 (TYPE LIST)>
1230 <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1231 <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
1232 <VEQUAL? TEMP29 2 - BOOL69 (TYPE FIX)>
1235 <NTHUV NOD6 9 = TEMP29>
1237 <EQUAL? TEMP29 LN10 + BOOL68>
1240 <SET TF8 %<> (TYPE FALSE)>
1242 <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE76>
1243 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE76>
1244 <TYPE? AMT24 <TYPE-CODE UNBOUND> + PHRASE76>
1249 <SET TEMP29 1 (TYPE FIX)>
1250 <TYPE? WHICH16 <TYPE-CODE FLOAT> - TAG81>
1251 <VEQUAL? WHICH16 1.0 + TAG82 (TYPE FLOAT)>
1254 <TYPE? WHICH16 <TYPE-CODE FIX> - COMPERR>
1255 <VEQUAL? WHICH16 1 - PHRASE80 (TYPE FIX)>
1257 <CONS 'ANY () = LN10>
1260 <CONS 'ANY () = LN10>
1264 <CALL '
\1a- 2 = STACK>
1266 <UBLOCK <TYPE-CODE VECTOR> 2 = AMT24>
1267 <CONS AMT24 LN10 = LN10>
1270 <LOOP (LN10 VALUE) (TEMP29 VALUE)>
1273 <EMPL? LN10 + TAG78>
1274 <NTHL LN10 1 = STACK>
1275 <RESTL LN10 1 = LN10 (TYPE LIST)>
1276 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1279 <CALL '
\1aFORM TEMP29 = AMT24>
1283 <SET WHICH16 'ALL (TYPE ATOM)>
1284 <SET AMT24 <STRUCTURED ANY> (TYPE FORM)>
1286 <FRAME '
\1aTYPE-AND>
1290 <CALL '
\1aTYPE-AND 2 = TS11>
1291 <EQUAL? WHICH16 'ALL + PHRASE126>
1292 <EQUAL? RV23 'ANY + PHRASE126>
1293 <TYPE? TS11 <TYPE-CODE FORM> + TAG97>
1294 <TYPE? TS11 <TYPE-CODE SEGMENT> - PHRASE121>
1296 <NTHL TS11 1 = TEMP29>
1297 <EQUAL? TEMP29 'OR - PHRASE99>
1299 <RESTL TS11 1 = TEMP29 (TYPE LIST)>
1300 <CHTYPE TEMP29 <TYPE-CODE LIST> = TEMP29>
1301 <EMPL? TEMP29 + PHRASE95>
1305 <EMPL? TEMP29 + PHRASE121>
1306 <NTHL TEMP29 1 = LN10>
1307 <TYPE? LN10 <TYPE-CODE FORM> - PHRASE111>
1310 <RESTL LN10 1 = TEMP115 (TYPE LIST)>
1311 <EMPL? TEMP115 + TAG116>
1317 <LOOP (TEMP115 VALUE)>
1319 <RESTL TEMP115 1 = TEMP118 (TYPE LIST)>
1320 <EMPL? TEMP118 + TAG119>
1321 <SET TEMP115 TEMP118>
1325 <VEQUAL? LN10 TEMP115 + PHRASE95>
1328 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1332 <LOOP (TEMP29 VALUE)>
1334 <RESTL TEMP29 1 = TEMP115 (TYPE LIST)>
1335 <EMPL? TEMP115 + TAG123>
1336 <SET TEMP29 TEMP115>
1341 <LOOP (TEMP115 VALUE)>
1343 <RESTL TEMP115 1 = LN10 (TYPE LIST)>
1344 <EMPL? LN10 + TAG125>
1349 <VEQUAL? TEMP29 TEMP115 + PHRASE95>
1350 <DEAD TEMP29 TEMP115>
1352 <LENL AMT24 = LN10 (TYPE FIX)>
1353 <PUTL AMT24 LN10 RV23>
1358 <SET TEMP118 0 (TYPE FIX)>
1361 <LOOP (LN10 VALUE) (TEMP118 VALUE)>
1364 <EMPL? LN10 + TAG127>
1365 <NTHL LN10 1 = STACK>
1366 <RESTL LN10 1 = LN10 (TYPE LIST)>
1367 <ADD TEMP118 1 = TEMP118 (TYPE FIX)>
1370 <CALL '
\1aFORM TEMP118 = AMT24>
1372 <LENL AMT24 = TEMP118 (TYPE FIX)>
1373 <PUTL AMT24 TEMP118 RV23>
1376 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE131>
1377 <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE131>
1378 <NTHR 'WHO 2 = TEMP118 (RECORD-TYPE ATOM) (TYPE LBIND)>
1379 <NTHR TEMP118 1 = TEMP118 (RECORD-TYPE LBIND)>
1380 <EMPL? TEMP118 + PHRASE131 (TYPE LIST)>
1382 <NTHR 'WHO 2 = LN10 (RECORD-TYPE ATOM) (TYPE LBIND)>
1383 <NTHR LN10 1 = TEMP29 (RECORD-TYPE LBIND)>
1385 <SET TEMP115 0 (TYPE FIX)>
1386 <FRAME '
\1aTYPE-MERGE>
1390 <EMPL? TEMP29 + MAPAP139>
1391 <NTHL TEMP29 1 = L148>
1392 <RESTL L148 1 = LN10 (TYPE LIST)>
1393 <NTHL LN10 1 = TEMP118 (TYPE SYMTAB)>
1395 <NTHUV TEMP118 7 = ND150>
1396 <FRAME '
\1aDECL-DOWN>
1399 <SET TEMP152 1 (TYPE FIX)>
1400 <RESTL L148 1 = TEMP153 (TYPE LIST)>
1401 <RESTL TEMP153 1 = LN10 (TYPE LIST)>
1403 <LOOP (LN10 VALUE) (TEMP152 VALUE)>
1406 <EMPL? LN10 + TAG151>
1407 <NTHL LN10 1 = STACK>
1408 <RESTL LN10 1 = LN10 (TYPE LIST)>
1409 <ADD TEMP152 1 = TEMP152 (TYPE FIX)>
1412 <CALL '
\1aDECL-DOWN TEMP152 = ND150>
1414 <FRAME '
\1aTYPE-AND>
1418 <CALL '
\1aTYPE-AND 2 = ND150>
1419 <TYPE? ND150 <TYPE-CODE FALSE> - PHRASE157>
1420 <FRAME '
\1aCOMPILE-ERROR>
1421 <PUSH "Bad argument to PUT ">
1423 <CALL '
\1aCOMPILE-ERROR 2>
1425 <FRAME '
\1aTYPE-AND>
1426 <FRAME '
\1aTOP-TYPE>
1427 <FRAME '
\1aDECL-DOWN>
1428 <FRAME '
\1aGET-CURRENT-TYPE>
1431 <CALL '
\1aGET-CURRENT-TYPE 1 = STACK>
1432 <SET LN10 1 (TYPE FIX)>
1433 <RESTL L148 1 = TEMP153 (TYPE LIST)>
1435 <RESTL TEMP153 1 = TEMP152 (TYPE LIST)>
1437 <LOOP (TEMP152 VALUE) (LN10 VALUE)>
1440 <EMPL? TEMP152 + TAG162>
1441 <NTHL TEMP152 1 = STACK>
1442 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1443 <ADD LN10 1 = LN10 (TYPE FIX)>
1446 <CALL '
\1aDECL-DOWN LN10 = STACK>
1448 <CALL '
\1aTOP-TYPE 1 = STACK>
1451 <CALL '
\1aTYPE-AND 2 = ND150>
1454 <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
1455 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1458 <CALL '
\1aTYPE-MERGE TEMP115 = AMT24>
1460 <FRAME '
\1aTYPE-AND>
1463 <FRAME '
\1aGET-ELE-TYPE>
1466 <CALL '
\1aGET-ELE-TYPE 2 = STACK>
1467 <CALL '
\1aTYPE-AND 2 = RV23>
1470 <NTHR 'WHO 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
1471 <NTHR TEMP115 1 = TEMP29 (RECORD-TYPE LBIND)>
1473 <EMPL? TEMP29 + PHRASE168 (TYPE LIST)>
1475 <SET RV23 'ANY (TYPE ATOM)>
1477 <TYPE? TS11 <TYPE-CODE FALSE> + BOOL171>
1478 <NTHL K9 1 = TEMP29 (TYPE NODE)>
1479 <FRAME '
\1aTYPE-AND>
1480 <FRAME '
\1aTOP-TYPE>
1483 <CALL '
\1aTOP-TYPE 1 = STACK>
1486 <CALL '
\1aTYPE-AND 2 = TS11>
1487 <PUTUV TEMP29 3 TS11>
1490 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE175>
1491 <FRAME '
\1aGET-ELE-TYPE>
1494 <CALL '
\1aGET-ELE-TYPE 2>
1495 <FRAME '
\1aGET-ELE-TYPE>
1502 <CALL '
\1aGET-ELE-TYPE 4 = TS11>
1504 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE179>
1505 <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE179>
1506 <RESTL K9 1 = TEMP153 (TYPE LIST)>
1507 <NTHL TEMP153 1 = TEMP153 (TYPE NODE)>
1508 <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
1509 <VEQUAL? TEMP153 2 - PHRASE179 (TYPE FIX)>
1511 <NTHR 'WHO 2 = TEMP153 (RECORD-TYPE ATOM) (TYPE LBIND)>
1512 <NTHR TEMP153 1 = SVWHO15 (RECORD-TYPE LBIND)>
1514 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE184>
1515 <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE184>
1517 <SET TEMP29 1 (TYPE FIX)>
1518 <NTHUV NOD6 8 = TEMP153>
1519 <TYPE TEMP153 = LN10>
1521 <VEQUAL? LN10 1 + TAG187>
1523 <LOOP (TEMP153 TYPE VALUE LENGTH) (TEMP29 VALUE)>
1526 <EMPTY? TEMP153 + TAG191>
1527 <NTH1 TEMP153 = STACK>
1528 <REST1 TEMP153 = TEMP153>
1529 <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1532 <LIST TEMP29 = TEMP115 (TYPE LIST)>
1538 <VEQUAL? TEMP29 0 + TAG189>
1540 <CONS LN10 TEMP153 = TEMP153 (TYPE LIST)>
1542 <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
1545 <SET TEMP115 TEMP153>
1548 <PUTUV NOD6 8 TEMP115>
1551 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE194>
1552 <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE194>
1553 <FRAME '
\1aSTRUCTYP>
1555 <CALL '
\1aSTRUCTYP 1 = TPS13>
1556 <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE194>
1559 <CALL '
\1aISTYPE? 1 = TEMP153>
1560 <VEQUAL? TEMP153 'FIX + BOOL197>
1565 <CALL '
\1aISTYPE? 1 = TEMP153>
1566 <VEQUAL? TEMP153 'OFFSET - PHRASE194>
1569 <PUTUV NOD6 1 29 (TYPE FIX)>
1570 <NTHL K9 1 = TEMP153 (TYPE NODE)>
1571 <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
1572 <VEQUAL? TEMP153 2 - PHRASE204 (TYPE FIX)>
1574 <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP153>
1575 <TYPE? TEMP153 <TYPE-CODE FALSE> - PHRASE204>
1577 <FRAME '
\1aCOMPILE-ERROR>
1578 <PUSH "Attempt to PUT in quoted object ">
1580 <CALL '
\1aCOMPILE-ERROR 2>
1583 <GEN-LVAL 'VERBOSE = TEMP153>
1584 <TYPE? TEMP153 <TYPE-CODE FALSE> + PHRASE206>
1586 <NTHUV NOD6 9 = TEMP153>
1588 <EQUAL? TEMP153 LN10 - PHRASE206>
1590 <FRAME '
\1aADDVMESS>
1592 <CONS TS11 () = LN10>
1593 <CONS "Not open compiled because type is: " LN10 = STACK>
1595 <CALL '
\1aADDVMESS 2>
1597 <PUTUV NOD6 1 58 (TYPE FIX)>
1600 <FRAME '
\1aPUT-FLUSH>
1602 <TYPE? LN10 <TYPE-CODE FALSE> - BOOL212>
1603 <SET LN10 'ALL (TYPE ATOM)>
1607 <CALL '
\1aPUT-FLUSH 1>
1608 <FRAME '
\1aTYPE-OK?>
1609 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE215>
1613 <SET LN10 'ANY (TYPE ATOM)>
1619 <CALL '
\1aTYPE-OK? 2 = TEMP29>
1623 <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
1624 <VEQUAL? TEMP27 29 - MAPAP223 (TYPE FIX)>
1626 <SET TEMP27 SVWHO15 (TYPE LIST)>
1631 <EMPL? TEMP27 + MAPAP223>
1632 <NTHL TEMP27 1 = SVWHO15>
1633 <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1634 <NTHL TEMP152 1 = RV23 (TYPE SYMTAB)>
1636 <FRAME '
\1aSET-CURRENT-TYPE>
1638 <FRAME '
\1aPUT-TYPE-HACK>
1639 <FRAME '
\1aGET-CURRENT-TYPE>
1642 <CALL '
\1aGET-CURRENT-TYPE 1 = STACK>
1645 <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1647 <RESTL TEMP152 1 = STACK (TYPE LIST)>
1649 <CALL '
\1aLPR 1 = STACK>
1652 <CALL '
\1aPUT-TYPE-HACK 5 = STACK>
1653 <CALL '
\1aSET-CURRENT-TYPE 2>
1654 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1657 <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
1658 <VEQUAL? TEMP27 29 - PHRASE233 (TYPE FIX)>
1660 <NTHR 'PUT-SAME-CODE 1 = TEMP27 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE233)>
1661 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE233>
1662 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE GBIND)>
1663 <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE233>
1665 <SET TEMP27 [LIST VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
1666 <TYPE? TPS13 <TYPE-CODE ATOM> - PHRASE233>
1667 <LOOP (TPS13 VALUE) (TEMP27 LENGTH VALUE)>
1669 <NTHUV TEMP27 1 = LN10>
1670 <VEQUAL? LN10 TPS13 + TAG235>
1672 <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
1673 <EMPUV? TEMP27 - TAG236>
1677 <SET TEMP27 K9 (TYPE LIST)>
1678 <EMPL? TEMP27 + PHRASE233>
1682 <EMPL? TEMP27 + MAPAP242>
1683 <NTHL TEMP27 1 = LN10>
1684 <LENUV LN10 = TS11 (TYPE FIX)>
1685 <LESS? TS11 8 + PHRASE247 (TYPE FIX)>
1687 <NTHUV LN10 8 = TS11>
1689 <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE247>
1694 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1697 <RESTL K9 1 = TEMP27 (TYPE LIST)>
1698 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1699 <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
1700 <NTHUV TEMP27 1 = TEMP27 (TYPE FIX)>
1701 <GVAL 'HACK-NODES = TEMP152>
1702 <EMPTY? TEMP152 + PHRASE233>
1703 <LOOP (TEMP27 VALUE) (TEMP152 LENGTH VALUE TYPE)>
1705 <NTH1 TEMP152 = LN10>
1706 <TYPE? LN10 <TYPE-CODE FIX> - TAG253>
1707 <VEQUAL? LN10 TEMP27 + TAG251>
1710 <REST1 TEMP152 = TEMP152>
1711 <EMPTY? TEMP152 - TAG252>
1716 <RESTL K9 1 = TEMP152 (TYPE LIST)>
1717 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1718 <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1719 <NTHUV TEMP152 3 = STACK>
1721 <CALL '
\1aISTYPE? 1 = TEMP152>
1722 <VEQUAL? TEMP152 'FIX - PHRASE233>
1724 <RESTL K9 1 = TEMP152 (TYPE LIST)>
1725 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1726 <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1727 <NTHUV TEMP152 5 = SVWHO15 (TYPE LIST)>
1729 <EMPL? SVWHO15 + PHRASE233 (TYPE LIST)>
1730 <RESTL K9 1 = TEMP152 (TYPE LIST)>
1731 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1732 <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1733 <NTHUV TEMP152 9 = TEMP152>
1735 <EQUAL? TEMP152 TEMP27 + PHRASE233>
1736 <DEAD TEMP152 TEMP27>
1737 <RESTL K9 1 = TEMP27 (TYPE LIST)>
1738 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1739 <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
1740 <NTHUV TEMP27 9 = TEMP27>
1742 <EQUAL? TEMP27 TEMP152 - BOOL256>
1743 <DEAD TEMP27 TEMP152>
1744 <EMPL? SVWHO15 + PHRASE233>
1745 <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1746 <EMPL? TEMP152 + PHRASE233>
1747 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1748 <EMPL? TEMP152 - PHRASE233>
1750 <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1751 <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1752 <NTHUV TEMP152 4 = TEMP152>
1753 <EQUAL? TEMP152 1 - PHRASE233>
1756 <SET TEMP152 SVWHO15 (TYPE LIST)>
1760 <EMPL? TEMP152 + PHRASE233>
1762 <NTHL L148 1 = TS11>
1763 <NTHUV TS11 1 = TPS13 (TYPE FIX)>
1764 <VEQUAL? TPS13 27 - PHRASE268 (TYPE FIX)>
1766 <FRAME '
\1aSAME-OBJ>
1767 <NTHL K9 1 = STACK (TYPE NODE)>
1768 <NTHUV TS11 5 = TPS13 (TYPE LIST)>
1769 <NTHL TPS13 1 = STACK (TYPE NODE)>
1771 <CALL '
\1aSAME-OBJ 2 = TPS13>
1772 <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
1774 <FRAME '
\1aSAME-OBJ>
1775 <RESTL K9 1 = TPS13 (TYPE LIST)>
1776 <NTHL TPS13 1 = STACK (TYPE NODE)>
1778 <NTHUV TS11 5 = TPS13 (TYPE LIST)>
1779 <RESTL TPS13 1 = TPS13 (TYPE LIST)>
1780 <NTHL TPS13 1 = STACK (TYPE NODE)>
1782 <CALL '
\1aSAME-OBJ 2 = TPS13>
1783 <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
1785 <EMPL? P20 + MAPAP262 (TYPE LIST)>
1786 <RESTL L148 1 = TPS13 (TYPE LIST)>
1790 <CONS TS11 SVWHO15 = SVWHO15>
1796 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1799 <RESTL K9 1 = TEMP152 (TYPE LIST)>
1801 <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1802 <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1803 <PUTUV TEMP152 5 SVWHO15 (TYPE LIST)>
1804 <DEAD TEMP152 SVWHO15>
1805 <PUTUV NOD6 1 85 (TYPE FIX)>
1813 <GFCN
\1aPUT-TYPE-HACK ("VALUE" ANY ANY ANY <LIST [REST FIX ATOM]> ANY ANY) TY4 TS5 L6 WHICH7 EX8>
1816 <EMPL? L6 - PHRASE10 (TYPE LIST)>
1820 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1821 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1822 <EMPL? TEMP11 - PHRASE12 (TYPE LIST)>
1824 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1825 <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
1826 <VEQUAL? TEMP11 'REST - PHRASE12>
1828 <FRAME '
\1aGET-ELE-TYPE>
1832 <NTHL L6 1 = STACK (TYPE FIX)>
1834 <CALL '
\1a+ 2 = STACK>
1836 <FRAME '
\1aPUT-TYPE-HACK>
1837 <FRAME '
\1aGET-ELE-TYPE>
1840 <CALL '
\1aGET-ELE-TYPE 2 = STACK>
1843 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1845 <RESTL TEMP11 1 = STACK (TYPE LIST)>
1850 <CALL '
\1aPUT-TYPE-HACK 5 = STACK>
1851 <CALL '
\1aGET-ELE-TYPE 4 = TEMP11>
1855 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1856 <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
1857 <VEQUAL? TEMP11 'REST - PHRASE20>
1859 <FRAME '
\1aPUT-TYPE-HACK>
1864 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1865 <RESTL TEMP11 1 = STACK (TYPE LIST)>
1869 <NTHL L6 1 = STACK (TYPE FIX)>
1871 <CALL '
\1aPUT-TYPE-HACK 5 = TEMP11>
1875 <FRAME '
\1aGET-ELE-TYPE>
1878 <NTHL L6 1 = STACK (TYPE FIX)>
1880 <CALL '
\1a+ 2 = STACK>
1882 <FRAME '
\1aPUT-TYPE-HACK>
1883 <FRAME '
\1aGET-ELE-TYPE>
1887 <NTHL L6 1 = STACK (TYPE FIX)>
1890 <CALL '
\1a+ 2 = STACK>
1891 <CALL '
\1aGET-ELE-TYPE 2 = STACK>
1894 <RESTL L6 1 = TEMP11 (TYPE LIST)>
1896 <RESTL TEMP11 1 = STACK (TYPE LIST)>
1901 <CALL '
\1aPUT-TYPE-HACK 5 = STACK>
1902 <CALL '
\1aGET-ELE-TYPE 4 = TEMP11>
1905 <END
\1aPUT-TYPE-HACK>
1907 <GFCN
\1aLPR ("VALUE" LIST LIST) L4>
1908 <TEMP TEMP7 TEMP9 TEMP13 TEMP14 TEMP15>
1910 <EMPL? L4 - PHRASE6 (TYPE LIST)>
1915 <CONS TEMP9 () = TEMP7>
1918 <RESTL L4 1 = STACK (TYPE LIST)>
1920 <CALL '
\1aLPR 1 = TEMP9>
1922 <EMPL? TEMP9 + TAG11>
1923 <NTHL TEMP9 1 = TEMP14>
1924 <CONS TEMP14 TEMP7 = TEMP14>
1926 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1927 <EMPL? TEMP9 + TAG11>
1928 <LOOP (TEMP9 VALUE) (TEMP14 VALUE) (TEMP7 VALUE)>
1930 <NTHL TEMP9 1 = TEMP15>
1931 <CONS TEMP15 TEMP7 = TEMP15>
1932 <PUTREST TEMP14 TEMP15>
1936 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1937 <EMPL? TEMP9 - TAG10>
1942 <SETG HACK-NODES [,ABS-CODE ,ARITH-CODE]>
1944 <COND (<GASSIGNED? PUT-ANA> <PUTPROP ,PUT ANALYSIS ,PUT-ANA>)>
1947 <GFCN
\1aSAME-OBJ ("VALUE" ANY NODE NODE) N14 N25>
1948 <TEMP TEMP9 TEMP10 TEMP17 N433:NODE>
1950 <NTHUV N14 1 = TEMP9 (TYPE FIX)>
1951 <NTHUV N25 1 = TEMP10 (TYPE FIX)>
1952 <VEQUAL? TEMP9 TEMP10 + TAG11 (TYPE FIX)>
1956 <NTHUV N14 1 = TEMP9 (TYPE FIX)>
1957 <GVAL 'SNODES = TEMP10>
1958 <EMPUU? TEMP10 + PHRASE13>
1959 <LOOP (TEMP9 VALUE) (TEMP10 LENGTH VALUE)>
1961 <NTHUU TEMP10 1 = TEMP17>
1962 <VEQUAL? TEMP17 TEMP9 + TAG14>
1964 <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
1965 <EMPUU? TEMP10 - TAG15>
1968 <NTHUV N14 4 = TEMP10>
1970 <NTHUV N25 4 = TEMP9>
1972 <EQUAL? TEMP10 TEMP9 - TAG18>
1978 <SET TEMP9 %<> (TYPE FALSE)>
1979 <NTHUV N14 5 = TEMP10 (TYPE LIST)>
1981 <NTHUV N25 5 = TEMP17 (TYPE LIST)>
1986 <EMPL? TEMP10 + MAPAP25>
1987 <EMPL? TEMP17 + MAPAP25>
1988 <NTHL TEMP10 1 = TEMP9>
1989 <NTHL TEMP17 1 = N433>
1990 <FRAME '
\1aSAME-OBJ>
1995 <CALL '
\1aSAME-OBJ 2 = TEMP9>
1996 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE36>
1999 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2000 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
2007 <GFCN
\1aDECL-DOWN ("VALUE" ANY "TUPLE" TUPLE)>
2008 <MAKTUP TUP4:TUPLE ND5 TEMP7 = TUP4>
2010 <NTHUV TUP4 1 = ND5>
2011 <LENUV TUP4 = TEMP7 (TYPE FIX)>
2012 <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
2016 <LESS? TEMP7 2 - PHRASE12 (TYPE FIX)>
2020 <FRAME '
\1aGET-ELE-TYPE>
2023 <ADD TEMP7 1 = ND5 (TYPE FIX)>
2024 <NTHUV TUP4 ND5 = STACK>
2026 <NTHUV TUP4 TEMP7 = ND5>
2027 <EQUAL? ND5 'REST - TAG16>
2034 <CALL '
\1aGET-ELE-TYPE 3 = ND5>
2035 <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
2039 <GFCN
\1aDECL-UP ("VALUE" ANY ANY LIST) NX4 L5>
2040 <TEMP FIRST9 NUM10:FIX TEMP16 TEMP18>
2042 <SET FIRST9 'T (TYPE ATOM)>
2043 <SET NUM10 0 (TYPE FIX)>
2047 <EMPL? L5 - PHRASE13 (TYPE LIST)>
2051 <NTHL L5 1 = TEMP16>
2052 <EQUAL? TEMP16 'NTH - PHRASE15>
2056 <SET TEMP18 2 (TYPE FIX)>
2057 <RESTL L5 1 = FIRST9 (TYPE LIST)>
2058 <NTHL FIRST9 1 = FIRST9 (TYPE FIX)>
2059 <ADD FIRST9 NUM10 = FIRST9 (TYPE FIX)>
2061 <ADD FIRST9 -1 = NUM10 (TYPE FIX)>
2063 <VEQUAL? NUM10 0 - PHRASE20 (TYPE FIX)>
2064 <SET TEMP16 () (TYPE LIST)>
2067 <VEQUAL? NUM10 1 - PHRASE24 (TYPE FIX)>
2068 <CONS 'ANY () = TEMP16>
2074 <UBLOCK <TYPE-CODE VECTOR> 2 = FIRST9>
2075 <CONS FIRST9 () = TEMP16>
2078 <LOOP (TEMP16 VALUE) (TEMP18 VALUE)>
2081 <EMPL? TEMP16 + TAG17>
2082 <NTHL TEMP16 1 = STACK>
2083 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2084 <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
2089 <CALL '
\1aFORM TEMP18 = NX4>
2091 <SET NUM10 0 (TYPE FIX)>
2092 <SET FIRST9 %<> (TYPE FALSE)>
2095 <VEQUAL? FIRST9 0 + PHRASE31>
2096 <FRAME '
\1aREST-DECL>
2099 <RESTL L5 1 = TEMP18 (TYPE LIST)>
2100 <NTHL TEMP18 1 = STACK (TYPE FIX)>
2102 <CALL '
\1aREST-DECL 2 = NX4>
2105 <RESTL L5 1 = TEMP18 (TYPE LIST)>
2106 <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
2107 <ADD TEMP18 NUM10 = NUM10 (TYPE FIX)>
2110 <RESTL L5 1 = L5 (TYPE LIST)>
2111 <RESTL L5 1 = L5 (TYPE LIST)>
2115 <GFCN
\1aPUTREST-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
2116 <TEMP K6 TEMP11 TEMP12 T17>
2118 <NTHUV NOD4 5 = K6 (TYPE LIST)>
2119 <NTHUV NOD4 9 = TEMP11>
2120 <GVAL 'REST = TEMP12>
2121 <EQUAL? TEMP11 TEMP12 - PHRASE10>
2122 <DEAD TEMP11 TEMP12>
2123 <FRAME '
\1aREST-ANA>
2128 <CALL '
\1aREST-ANA 2 = TEMP12>
2132 <FRAME '
\1aSEGFLUSH>
2135 <CALL '
\1aSEGFLUSH 2 = TEMP11>
2136 <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
2139 <SET K6 1 (TYPE FIX)>
2140 <NTHUV NOD4 8 = TEMP11>
2141 <TYPE TEMP11 = TEMP12>
2142 <AND TEMP12 7 = TEMP12>
2143 <VEQUAL? TEMP12 1 + TAG19>
2145 <LOOP (TEMP11 TYPE VALUE LENGTH) (K6 VALUE)>
2148 <EMPTY? TEMP11 + TAG24>
2149 <NTH1 TEMP11 = STACK>
2150 <REST1 TEMP11 = TEMP11>
2151 <ADD K6 1 = K6 (TYPE FIX)>
2154 <LIST K6 = TEMP11 (TYPE LIST)>
2160 <VEQUAL? K6 0 + TAG21>
2162 <CONS TEMP12 TEMP11 = TEMP11 (TYPE LIST)>
2164 <SUB K6 1 = K6 (TYPE FIX)>
2167 <PUTUV NOD4 8 TEMP11>
2169 <FRAME '
\1aTYPE-OK?>
2170 <PUSH <PRIMTYPE LIST>>
2173 <CALL '
\1aTYPE-OK? 2 = TEMP12>
2178 <LENL K6 = STACK (TYPE FIX)>
2184 <NTHL K6 1 = STACK (TYPE NODE)>
2185 <PUSH <PRIMTYPE LIST>>
2187 <CALL '
\1aEANA 3 = T17>
2189 <RESTL K6 1 = TEMP11 (TYPE LIST)>
2190 <NTHL TEMP11 1 = STACK (TYPE NODE)>
2192 <PUSH <PRIMTYPE LIST>>
2195 <NTHL K6 1 = TEMP11 (TYPE NODE)>
2197 <NTHUV TEMP11 1 = TEMP11 (TYPE FIX)>
2198 <VEQUAL? TEMP11 2 - PHRASE32 (TYPE FIX)>
2200 <FRAME '
\1aCOMPILE-ERROR>
2201 <PUSH "Attempt to PUTREST in quoted object ">
2203 <CALL '
\1aCOMPILE-ERROR 2>
2205 <PUTUV NOD4 1 30 (TYPE FIX)>
2207 <SET TEMP12 1 (TYPE FIX)>
2208 <NTHUV NOD4 8 = TEMP11>
2211 <VEQUAL? K6 1 + TAG36>
2213 <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
2216 <EMPTY? TEMP11 + TAG41>
2217 <NTH1 TEMP11 = STACK>
2218 <REST1 TEMP11 = TEMP11>
2219 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2222 <LIST TEMP12 = TEMP11 (TYPE LIST)>
2228 <VEQUAL? TEMP12 0 + TAG38>
2230 <CONS K6 TEMP11 = TEMP11 (TYPE LIST)>
2232 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
2235 <PUTUV NOD4 8 TEMP11>
2237 <FRAME '
\1aTYPE-OK?>
2242 <CALL '
\1aTYPE-OK? 2 = TEMP12>
2245 <END
\1aPUTREST-ANA>
2246 <COND (<GASSIGNED? PUTREST-ANA> <PUTPROP ,PUTREST ANALYSIS ,PUTREST-ANA>)>
2249 <GFCN
\1aMEMQ-ANA ("VALUE" ANY NODE ANY) N4 R5>
2250 <TEMP K6 TEMP12 TYP7 STYP9>
2252 <NTHUV N4 5 = K6 (TYPE LIST)>
2253 <FRAME '
\1aSEGFLUSH>
2256 <CALL '
\1aSEGFLUSH 2 = TEMP12>
2257 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
2259 <LENL K6 = STACK (TYPE FIX)>
2265 <NTHL K6 1 = STACK (TYPE NODE)>
2268 <CALL '
\1aEANA 3 = TEMP12>
2270 <RESTL K6 1 = K6 (TYPE LIST)>
2271 <NTHL K6 1 = STACK (TYPE NODE)>
2275 <CALL '
\1aEANA 3 = TYP7>
2276 <FRAME '
\1aTYPE-OK?>
2279 <FRAME '
\1aGET-ELE-TYPE>
2282 <CALL '
\1aGET-ELE-TYPE 2 = TEMP12>
2284 <CALL '
\1aTYPE-OK? 2 = K6>
2285 <TYPE? K6 <TYPE-CODE FALSE> - PHRASE20>
2287 <FRAME '
\1aCOMPILE-WARNING>
2288 <PUSH "MEMQ never true ">
2290 <CALL '
\1aCOMPILE-WARNING 2>
2292 <FRAME '
\1aSTRUCTYP>
2294 <CALL '
\1aSTRUCTYP 1 = STYP9>
2295 <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE25>
2296 <EQUAL? STYP9 'TEMPLATE + PHRASE25>
2297 <PUTUV N4 1 73 (TYPE FIX)>
2301 <GEN-LVAL 'VERBOSE = K6>
2302 <TYPE? K6 <TYPE-CODE FALSE> + PHRASE30>
2304 <FRAME '
\1aADDVMESS>
2308 <CONS "Not efficiently open compiled because type is: " K6 = STACK>
2310 <CALL '
\1aADDVMESS 2>
2312 <PUTUV N4 1 73 (TYPE FIX)>
2315 <FRAME '
\1aTYPE-OK?>
2316 <FRAME '
\1aTYPE-MERGE>
2318 <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE37>
2319 <EQUAL? TEMP12 'ANY + PHRASE37>
2323 <TYPE? K6 <TYPE-CODE FALSE> - COND40>
2324 <SET K6 'STRUCTURED (TYPE ATOM)>
2332 <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
2333 <CALL '
\1aFORM 3 = K6>
2336 <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE42>
2341 <CALL '
\1aFORM 2 = K6>
2344 <SET K6 <STRUCTURED ANY> (TYPE FORM)>
2348 <CALL '
\1aTYPE-MERGE 2 = STACK>
2351 <CALL '
\1aTYPE-OK? 2 = TEMP12>
2357 <GFCN
\1aTOP-ANA ("VALUE" ANY NODE ANY) N4 R5>
2358 <TEMP K6:LIST TEMP8>
2360 <NTHUV N4 5 = K6 (TYPE LIST)>
2361 <FRAME '
\1aSEGFLUSH>
2364 <CALL '
\1aSEGFLUSH 2 = TEMP8>
2365 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
2367 <LENL K6 = STACK (TYPE FIX)>
2373 <NTHL K6 1 = STACK (TYPE NODE)>
2377 <CALL '
\1aEANA 3 = TEMP8>
2378 <GEN-SET 'TYP TEMP8>
2380 <FRAME '
\1aSTRUCTYP>
2381 <GEN-LVAL 'TYP = STACK>
2382 <CALL '
\1aSTRUCTYP 1 = TEMP8>
2383 <GEN-SET 'TYP TEMP8>
2384 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
2386 <GEN-LVAL 'TYP = TEMP8>
2387 <EQUAL? TEMP8 'LIST - PHRASE17>
2389 <FRAME '
\1aCOMPIL-ERROR>
2390 <PUSH "Cant TOP a list: ">
2392 <CALL '
\1aCOMPIL-ERROR 2>
2394 <PUTUV N4 1 83 (TYPE FIX)>
2396 <FRAME '
\1aTYPE-OK?>
2397 <GEN-LVAL 'TYP = TEMP8>
2398 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE32>
2399 <SET TEMP8 'STRUCTURED (TYPE ATOM)>
2405 <CALL '
\1aTYPE-OK? 2 = TEMP8>
2409 <END
\1aTOP-ANA>
\r\r
2411 <GFCN
\1aBACK-ANA ("VALUE" ANY NODE ANY) N4 R5>
2412 <TEMP K6:LIST TEMP8>
2414 <NTHUV N4 5 = K6 (TYPE LIST)>
2415 <FRAME '
\1aSEGFLUSH>
2418 <CALL '
\1aSEGFLUSH 2 = TEMP8>
2419 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
2421 <LENL K6 = STACK (TYPE FIX)>
2427 <NTHL K6 1 = STACK (TYPE NODE)>
2430 <CALL '
\1aEANA 3 = TEMP8>
2431 <GEN-SET 'TYP TEMP8>
2433 <FRAME '
\1aSTRUCTYP>
2434 <GEN-LVAL 'TYP = STACK>
2435 <CALL '
\1aSTRUCTYP 1 = TEMP8>
2436 <GEN-SET 'TYP TEMP8>
2437 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
2439 <GEN-LVAL 'TYP = TEMP8>
2440 <EQUAL? TEMP8 'LIST - PHRASE17>
2442 <FRAME '
\1aCOMPIL-ERROR>
2443 <PUSH "Cant BACK a list: ">
2445 <CALL '
\1aCOMPIL-ERROR 2>
2447 <RESTL K6 1 = TEMP8 (TYPE LIST)>
2448 <EMPL? TEMP8 + PHRASE29 (TYPE LIST)>
2451 <RESTL K6 1 = TEMP8 (TYPE LIST)>
2453 <NTHL TEMP8 1 = STACK (TYPE NODE)>
2459 <PUTUV N4 1 82 (TYPE FIX)>
2461 <FRAME '
\1aTYPE-OK?>
2462 <GEN-LVAL 'TYP = TEMP8>
2463 <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE35>
2464 <SET TEMP8 'STRUCTURED (TYPE ATOM)>
2470 <CALL '
\1aTYPE-OK? 2 = TEMP8>
2475 <COND (<GASSIGNED? BACK-ANA> <PUTPROP ,BACK ANALYSIS ,BACK-ANA>)>
2477 <COND (<GASSIGNED? TOP-ANA> <PUTPROP ,TOP ANALYSIS ,TOP-ANA>)>
2479 <COND (<GASSIGNED? MEMQ-ANA> <PUTPROP ,MEMQ ANALYSIS ,MEMQ-ANA>)>