9 <GFCN
\1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
12 <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8) (DEAD-JUMP ATM4 TEMP9)>
13 <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8 (DEAD-JUMP ATM4 TEMP9)>
14 <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
15 <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7 (DEAD-FALL ATM4)>
21 <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12 (DEAD-FALL ATM4)>
27 <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
35 <GFCN
\1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
36 <TEMP TEMP6:FIX TEMP7>
38 <LENL LS4 = TEMP6 (TYPE FIX)>
39 <LENL SUBLS5 = TEMP7 (TYPE FIX)>
41 <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
43 <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
46 <GRTR? TEMP6 0 - RESTL9 (TYPE FIX) (DEAD-JUMP TEMP6)>
47 <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
50 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
51 <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
52 <GRTR? TEMP6 0 + RESTL8 (TYPE FIX) (DEAD-FALL TEMP6)>
59 <GFCN
\1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
65 <EMPL? FL4 - PHRASE12 (TYPE LIST) (DEAD-FALL OU5 FL4)>
69 <EMPTY? TEMP6 + PHRASE21 (DEAD-JUMP TEMP6)>
70 <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
73 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17 (DEAD-JUMP TEMP18)>
74 <VEQUAL? TEMP18 OU5 + TAG15>
78 <EMPTY? TEMP6 - TAG16 (DEAD-FALL TEMP6)>
82 <EQUAL? TEMP18 TEMP6 - PHRASE20>
84 <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
91 <NTHL FL4 1 = STACK (TYPE LIST)>
93 <CALL '
\1aPREV 2 = TEMP18>
94 <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
95 <PUTREST TEMP18 TEMP6>
98 <RESTL FL4 1 = FL4 (TYPE LIST)>
99 <RESTL FL4 1 = FL4 (TYPE LIST)>
104 <GFCN
\1aREVERSE ("VALUE" LIST LIST) LS4>
105 <TEMP RES8:LIST TEM9:LIST>
107 <SET RES8 () (TYPE LIST)>
111 <EMPL? LS4 - PHRASE12 (TYPE LIST) (DEAD-FALL LS4)>
115 <RESTL LS4 1 = TEM9 (TYPE LIST)>
126 <GFCN
\1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
127 <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
129 <SET RES9 () (TYPE LIST)>
133 <EMPL? FLIST4 - PHRASE12 (TYPE LIST) (DEAD-FALL FLIST4)>
137 <CALL '
\1aREVERSE 1 = TEMP5>
144 <NTHL TEMP5 1 = TEMP19>
145 <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18 (DEAD-JUMP TEMP19)>
146 <VEQUAL? TEMP19 () + TAG16>
149 <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
150 <EMPL? TEMP5 - TAG17 (DEAD-FALL TEMP5)>
153 <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
154 <NTHL TEMP19 1 = TEMP19>
155 <CONS TEMP19 RES9 = RES9>
157 <VEQUAL? TEMP5 FLIST4 - PHRASE21 (DEAD-FALL TEMP5)>
158 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
159 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
165 <CALL '
\1aPREV 2 = TEMP19>
166 <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
168 <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
170 <PUTREST TEMP19 TEMP24>
175 <NTHL RES9 1 = STACK (TYPE ATOM)>
176 <CALL '
\1aSPLOUTEM 2>
179 <SET TEMP24 () (TYPE LIST)>
183 <SET TEMP5 %<> (TYPE FALSE)>
189 <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
190 <NTHL TEMP25 1 = STACK (TYPE ATOM)>
193 <CALL '
\1aCALLME 2 = TEMP25>
194 <VEQUAL? TEMP25 0 - PHRASE40 (DEAD-FALL TEMP5)>
196 <SET TEMP5 'T (TYPE ATOM)>
197 <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
198 <NTHL TEMP25 1 = TEMP25>
199 <CONS TEMP25 TEMP24 = TEMP24>
201 <VEQUAL? FLIST4 TEMP19 - PHRASE39>
202 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
203 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
209 <CALL '
\1aPREV 2 = TEMP25>
210 <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
211 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
212 <PUTREST TEMP25 TEMP43>
215 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
216 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
217 <EMPL? TEMP19 - AGAIN34 (TYPE LIST) (DEAD-FALL TEMP19)>
218 <VEQUAL? TEMP5 0 - AGAIN31>
220 <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
224 <CALL '
\1aCORDER 1 = FLIST4>
228 <CALL '
\1aREVERSE 1 = TEMP5>
229 <EMPL? FLIST4 + RESTL58 (TYPE LIST) (DEAD-JUMP FLIST4)>
230 <EMPL? RES9 - PHRASE53 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
236 <RESTL RES9 1 = TEMP25 (TYPE LIST)>
237 <EMPL? TEMP25 + RESTL58 (DEAD-JUMP TEMP25) (DEAD-FALL RES9)>
242 <PUTREST RES9 FLIST4>
243 <LENL FLIST4 = TEMP25 (TYPE FIX)>
245 <GRTR? TEMP25 0 - RESTL58 (TYPE FIX) (DEAD-JUMP TEMP25)>
246 <LOOP (RES9 VALUE) (TEMP25 VALUE)>
249 <RESTL RES9 1 = RES9 (TYPE LIST)>
250 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
251 <GRTR? TEMP25 0 + RESTL57 (TYPE FIX) (DEAD-FALL TEMP25)>
253 <EMPL? RES9 - PHRASE60 (TYPE LIST) (DEAD-FALL TEMP5 RES9)>
257 <PUTREST RES9 TEMP24>
264 <GFCN
\1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
265 <TEMP TEMP6 TEMP15:LIST>
270 <EMPL? LST5 - BOOL10 (TYPE LIST) (DEAD-FALL LST5 ATM4)>
273 <NTHL LST5 1 = TEMP15 (TYPE LIST)>
274 <EMPL? TEMP15 + BOOL11 (DEAD-JUMP TEMP15)>
275 <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
277 <NTHL TEMP15 1 = TEMP6>
278 <VEQUAL? TEMP6 ATM4 + TAG12 (DEAD-JUMP LST5 ATM4 TEMP15)>
280 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
281 <EMPL? TEMP15 - TAG13 (DEAD-FALL TEMP15)>
286 <RESTL LST5 1 = LST5 (TYPE LIST)>
287 <RESTL LST5 1 = LST5 (TYPE LIST)>
292 <GFCN
\1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
293 <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
299 <EMPL? LS8 + EXIT6 (TYPE LIST) (DEAD-JUMP LS8)>
301 <RESTL LS8 1 = TEMP12 (TYPE LIST)>
302 <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
303 <CONS TEMP12 () = STACK>
305 <NTHL LS8 1 = STACK (TYPE LIST)>
307 <CALL '
\1aALLREACH 3 = TEMP12>
308 <PUTL LS8 1 TEMP12 (TYPE LIST)>
310 <RESTL LS8 1 = LS8 (TYPE LIST)>
311 <RESTL LS8 1 = LS8 (TYPE LIST)>
314 <SET LS8 () (TYPE LIST)>
318 <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
323 <EMPL? LST20 + EXIT16 (TYPE LIST) (DEAD-JUMP LST20 SHORT18)>
324 <NTHL LST20 1 = TEMP12 (TYPE LIST)>
325 <LENL TEMP12 = TEMP12 (TYPE FIX)>
326 <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX) (DEAD-JUMP TEMP12) (DEAD-FALL SHORT18 LS8)>
331 <RESTL LST20 1 = LST20 (TYPE LIST)>
332 <RESTL LST20 1 = LST20 (TYPE LIST)>
335 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
336 <EMPL? TEMP12 + PHRASE27 (DEAD-JUMP TEMP12)>
337 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
338 <EMPL? TEMP12 - PHRASE27>
340 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
341 <NTHL TEMP12 1 = TEMP12>
344 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
346 <CONS TEMP12 RES5 = RES5>
348 <NTHL LS8 1 = LST20 (TYPE LIST)>
352 <EMPL? LST20 + MAPAP33 (DEAD-JUMP LST20)>
353 <NTHL LST20 1 = TEMP12>
358 <CALL '
\1aSPLOUTEM 2>
359 <RESTL LST20 1 = LST20 (TYPE LIST)>
366 <EMPL? TEMP12 + EXIT42 (DEAD-JUMP TEMP12)>
367 <LOOP (TEMP12 VALUE)>
369 <NTHL TEMP12 1 = SHORT18>
370 <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50 (DEAD-JUMP SHORT18)>
371 <VEQUAL? SHORT18 () + TAG48>
374 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
375 <EMPL? TEMP12 - TAG49 (DEAD-FALL TEMP12)>
378 <VEQUAL? TEMP12 LST4 - PHRASE52 (DEAD-FALL LST4)>
379 <RESTL TEMP12 1 = LST20 (TYPE LIST)>
381 <RESTL LST20 1 = LST4 (TYPE LIST)>
388 <CALL '
\1aPREV 2 = LST20>
389 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
390 <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
392 <PUTREST LST20 SHORT18>
396 <EMPL? LST4 - AGAIN15 (TYPE LIST) (DEAD-FALL LST4 LS8)>
400 <CALL '
\1aREVERSE 1 = LST20>
406 <GFCN
\1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
407 <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
409 <SET TEMP13 LST5 (TYPE LIST)>
414 <EMPL? TEMP13 + MAPAP11 (DEAD-JUMP MLST6 TEMP13)>
415 <NTHL TEMP13 1 = ATM18>
417 <EMPL? TEMP23 + TAG20 (DEAD-JUMP TEMP23)>
418 <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
420 <NTHL TEMP23 1 = TEMP24>
421 <VEQUAL? TEMP24 ATM18 + PHRASE25 (DEAD-JUMP TEMP23 ATM18)>
423 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
424 <EMPL? TEMP23 - TAG21 (DEAD-FALL TEMP23)>
427 <CONS ATM18 LATM4 = STACK>
433 <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
434 <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
435 <VEQUAL? TEMP24 ATM18 - BOOL30 (DEAD-FALL ATM18)>
437 <NTHL TEMP23 1 = STACK (TYPE LIST)>
441 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
442 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
446 <CALL '
\1aALLREACH 3 = LATM4>
448 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
456 <GFCN
\1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
459 <GEN-LVAL 'FUNC = TEMP8>
460 <VEQUAL? TEMP8 ATM4 - TAG7 (DEAD-FALL ATM4)>
464 <GEN-LVAL 'FUNCL = TEMP6>
465 <EMPL? TEMP6 + TAG12 (DEAD-JUMP TEMP6)>
466 <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
468 <NTHL TEMP6 1 = TEMP8>
469 <VEQUAL? TEMP8 ATM4 + BOOL5 (DEAD-JUMP ATM4)>
471 <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
472 <EMPL? TEMP6 - TAG13 (DEAD-FALL TEMP6)>
474 <GEN-LVAL 'FUNCL = TEMP8>
475 <CONS ATM4 TEMP8 = TEMP6>
477 <GEN-SET 'FUNCL TEMP6>
484 <GFCN
\1aFINDREC ("VALUE" ANY ANY) OBJ4>
485 <TEMP (FM5 <>) TEMP7 TEMP19>
488 <SET TEMP7 'T (TYPE ATOM)>
491 <SET TEMP7 %<> (TYPE FALSE)>
493 <VEQUAL? TEMP7 0 - MAP56 (DEAD-JUMP OBJ4) (DEAD-FALL TEMP7)>
494 <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
495 <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
497 <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
498 <EMPL? FM5 + PHRASE10 (TYPE FORM) (DEAD-JUMP FM5)>
500 <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14 (DEAD-JUMP FM5)>
502 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
503 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14) (DEAD-JUMP TEMP7 FM5)>
504 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14 (DEAD-JUMP TEMP7 FM5)>
505 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
506 <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14 (DEAD-JUMP FM5)>
508 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
509 <GVAL TEMP7 = TEMP19>
511 <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
514 <NTHL FM5 1 = STACK (TYPE ATOM)>
517 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
518 <GVAL TEMP19 = TEMP7>
520 <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
522 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
523 <GVAL TEMP7 = TEMP19>
525 <EMPTY? TEMP19 + BOOL21>
530 <CALL '
\1aEMACRO 1 = STACK>
533 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
534 <GVAL TEMP19 = TEMP7>
536 <GVAL 'MAPF = TEMP19>
537 <EQUAL? TEMP7 TEMP19 + BOOL25>
539 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
540 <GVAL TEMP19 = TEMP7>
542 <GVAL 'MAPR = TEMP19>
543 <EQUAL? TEMP7 TEMP19 - MAP40 (DEAD-JUMP FM5)>
547 <SET TEMP7 3 (TYPE FIX)>
548 <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
550 <EMPL? TEMP19 + MAP40 (DEAD-JUMP TEMP19 TEMP7 FM5)>
551 <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
552 <LESS? TEMP7 0 + TAG28 (DEAD-JUMP TEMP19 TEMP7)>
553 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
556 <RESTL FM5 1 = TEMP19 (TYPE LIST)>
557 <NTHL TEMP19 1 = TEMP19>
558 <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
561 <RESTL FM5 1 = TEMP19 (TYPE LIST)>
562 <NTHL TEMP19 1 = STACK (TYPE FORM)>
564 <CALL '
\1aCHK-GVAL 1>
566 <RESTL FM5 1 = TEMP7 (TYPE LIST)>
567 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
568 <NTHL TEMP7 1 = TEMP7>
569 <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40 (DEAD-JUMP FM5)>
572 <RESTL FM5 1 = TEMP7 (TYPE LIST)>
574 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
575 <NTHL TEMP7 1 = STACK (TYPE FORM)>
577 <CALL '
\1aCHK-GVAL 1>
580 <FRAME '
\1aSTRUCTURED?>
581 <NTHL OBJ4 1 = STACK>
582 <CALL '
\1aSTRUCTURED? 1 = TEMP7>
583 <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
585 <NTHL OBJ4 1 = TEMP19>
589 <EMPTY? TEMP19 + MAP40 (DEAD-JUMP TEMP19)>
591 <NTH1 TEMP19 = STACK>
593 <REST1 TEMP19 = TEMP19>
596 <RESTL OBJ4 1 = FM5 (TYPE LIST)>
597 <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
598 <EMPL? FM5 - TAG48 (TYPE LIST) (DEAD-FALL OBJ4)>
602 <SET TEMP7 %<> (TYPE FALSE)>
603 <RESTL OBJ4 1 = FM5 (TYPE LIST)>
605 <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
609 <EMPL? FM5 + MAP50 (DEAD-JUMP FM5) (DEAD-FALL TEMP7)>
612 <CALL '
\1aFINDREC 1 = TEMP7>
613 <RESTL FM5 1 = FM5 (TYPE LIST)>
619 <SET TEMP7 %<> (TYPE FALSE)>
625 <EMPTY? TEMP19 + MAP56 (DEAD-JUMP TEMP19) (DEAD-FALL TEMP7)>
627 <NTH1 TEMP19 = STACK>
628 <CALL '
\1aFINDREC 1 = TEMP7>
629 <REST1 TEMP19 = TEMP19>
637 <GFCN
\1aANONFEMACRO1 ("VALUE" ANY ANY "TUPLE" ANY) FR4>
638 <MAKTUP T5:TUPLE TEMP9 TEMP13:FIX = T5>
640 <NTHR 'MACACT 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7) (DEAD-JUMP TEMP9)>
641 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7 (DEAD-JUMP TEMP9)>
642 <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
643 <TYPE? TEMP9 <TYPE-CODE UNBOUND> + PHRASE7>
646 <GVAL 'MACACT = STACK>
647 <CALL '
\1aLEGAL? 1 = TEMP9>
648 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
651 <SET TEMP13 0 (TYPE FIX)>
654 <LOOP (TEMP9 VALUE LENGTH) (TEMP13 VALUE)>
657 <EMPUV? TEMP9 + TAG12 (DEAD-JUMP TEMP9)>
658 <NTHUV TEMP9 1 = STACK>
659 <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
660 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
663 <UBLOCK <TYPE-CODE VECTOR> TEMP13 = STACK>
665 <GVAL 'MACACT = STACK (TYPE FRAME)>
666 <CALL '
\1aDISMISS 2 = TEMP9>
673 <CALL '
\1aLISTEN 1 = TEMP9>
676 <END
\1aANONFEMACRO1>
677 <GFCN
\1aEMACRO ("VALUE" ANY ANY) OBJ5>
682 <CALL '
\1aCLASS 1 = ERR6>
683 <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE10>
691 <GVAL 'ANONFEMACRO1 = STACK>
693 <CALL '
\1aHANDLER 3 = STACK>
695 <ICALL EXIT16 = TEM7>
699 <NTHR TEMP17 5 = TEMP17 (RECORD-TYPE FRAME)>
700 <CFRAME = TEMP20 (TYPE FRAME)>
701 <BBIND 'MACACT 'ANY 'FIX TEMP20>
704 <NTHR 'MACACT 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
705 <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
706 <SETG 'MACACT TEMP20>
709 <SETLR TEMP20 TEMP17 OBJ5>
712 <CALL '
\1aEXPAND 1 = TEMP20>
713 <CONS TEMP20 () = TEMP20 (DEAD-FALL OBJ5 TEMP17)>
717 <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE15>
721 <TYPE? ERR6 <TYPE-CODE FALSE> + PHRASE27 (DEAD-JUMP ERR6)>
728 <PUSH " MACRO EXPANSION LOSSAGE ">
729 <SET ERR6 1 (TYPE FIX)>
730 <LOOP (TEM7 VALUE LENGTH) (ERR6 VALUE)>
733 <EMPUV? TEM7 + TAG29 (DEAD-JUMP TEM7)>
734 <NTHUV TEM7 1 = STACK>
735 <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
736 <ADD ERR6 1 = ERR6 (TYPE FIX)>
739 <CALL '
\1aERROR ERR6 = ERR6>
746 <TYPE? ERR6 <TYPE-CODE FALSE> + BOOL36 (DEAD-JUMP ERR6)>
759 <GFCN
\1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
762 <EMPL? FM4 + TAG8 (DEAD-JUMP FM4)>
763 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
764 <EMPL? TEMP9 + TAG8 (DEAD-JUMP FM4 TEMP9)>
765 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
766 <EMPL? TEMP9 + TAG7 (DEAD-FALL FM4)>
772 <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10 (DEAD-FALL FM4)>
776 <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
777 <GVAL TEMP9 = TEMP13>
780 <EQUAL? TEMP13 TEMP9 + TAG12 (DEAD-FALL FM4)>
784 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
785 <NTHL TEMP9 1 = TEMP9>
786 <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14 (DEAD-FALL FM4)>
790 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
791 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
792 <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17) (DEAD-JUMP FM4 TEMP13)>
794 <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17 (DEAD-JUMP FM4 TEMP13)>
795 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
796 <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16 (DEAD-FALL FM4)>
801 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
802 <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
803 <GVAL TEMP13 = TEMP9>
805 <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
807 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
808 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
809 <GVAL TEMP9 = TEMP13>
811 <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21 (DEAD-FALL FM4)>
815 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
816 <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
817 <GVAL TEMP13 = TEMP9>
819 <EMPTY? TEMP9 - TAG23 (DEAD-FALL FM4)>
823 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
824 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
825 <GVAL TEMP9 = TEMP13>
827 <NTH1 TEMP13 = TEMP13>
828 <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24 (DEAD-FALL FM4)>
833 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
835 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
837 <CALL '
\1aREMEMIT 1 = TEMP9>
843 <GFCN
\1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
844 <TEMP TEMP3:LBIND TEMP7>
846 <GETS 'BIND = TEMP3 (TYPE LBIND)>
847 <BBIND 'FUNC 'ATOM %<> FUNC4>
850 <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
852 <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
853 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
857 <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
858 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
867 <GFCN
\1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
868 <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
870 <SET TD8 () (TYPE LIST)>
874 <EMPUV? ATM4 + EXIT6 (DEAD-JUMP ATM4)>
876 <NTHUV ATM4 1 = STACK (TYPE ATOM)>
877 <CALL '
\1aFINDEM 1 = TEMP12>
878 <CONS TEMP12 () = TEMP12>
879 <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
880 <CONS TEMP13 () = TEMP13>
881 <PUTREST TEMP12 TEMP13>
886 <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
887 <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
891 <NTHL TD8 1 = CURDO16 (TYPE LIST)>
895 <EMPL? CURDO16 - PHRASE22 (TYPE LIST) (DEAD-FALL CURDO16)>
896 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
897 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
898 <EMPL? TEMP12 - PHRASE21 (TYPE LIST) (DEAD-FALL TEMP12)>
902 <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
905 <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
907 <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
909 <NTHL TEMP27 1 = TEMP28>
910 <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25 (DEAD-JUMP TEMP28)>
911 <VEQUAL? TEMP28 TEMP13 + PHRASE29 (DEAD-JUMP TEMP27 TEMP13)>
914 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
915 <EMPL? TEMP27 - TAG24 (DEAD-FALL TEMP27 TEMP13)>
917 <LOOP (TEMP27 VALUE)>
919 <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
920 <EMPL? TEMP13 + TAG31 (DEAD-JUMP TEMP13) (DEAD-FALL TEMP27)>
926 <NTHL CURDO16 1 = STACK (TYPE ATOM)>
927 <CALL '
\1aFINDEM 1 = TEMP13>
928 <CONS TEMP13 () = TEMP13>
929 <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
930 <CONS TEMP28 () = TEMP28>
931 <PUTREST TEMP13 TEMP28>
933 <PUTREST TEMP27 TEMP13>
936 <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
941 <GFCN
\1aGETORDER ("VALUE" ANY "TUPLE" <TUPLE [REST ATOM]>)>
942 <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
944 <SET TEMP13 () (TYPE LIST)>
945 <SET TEMP14 () (TYPE LIST)>
946 <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
950 <EMPUV? TEMP12 + MAP10 (DEAD-JUMP TEMP12 TEMP14)>
952 <NTHUV TEMP12 1 = STACK>
953 <CALL '
\1aCHECK 1 = TEMP17>
954 <CONS TEMP17 () = TEMP17 (TYPE LIST)>
955 <EMPL? TEMP13 - TAG18 (DEAD-FALL TEMP14 TEMP13)>
956 <SET TEMP13 TEMP17 (TYPE LIST)>
959 <PUTREST TEMP14 TEMP17>
962 <SET TEMP14 TEMP17 (TYPE LIST)>
964 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
969 <EMPL? TEMP12 + TAG7 (DEAD-JUMP TEMP12)>
970 <LOOP (TEMP12 VALUE)>
972 <NTHL TEMP12 1 = TEMP17>
973 <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9 (DEAD-JUMP TEMP17)>
974 <VEQUAL? TEMP17 %<> + PHRASE6 (DEAD-JUMP TEMP12 ATMS4)>
977 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
978 <EMPL? TEMP12 - TAG8 (DEAD-FALL TEMP12)>
981 <FRAME '
\1aFINDEMALL>
984 <CALL '
\1aFINDEMALL 1 = STACK>
985 <CALL '
\1aORDEREM 1 = TEMP12>
992 <CALL '
\1aERROR 2 = TEMP12>
997 <SET LIST_OF_FUNCTIONS '(CHECK PREV SPLOUTEM REVERSE ORDEREM REMEMIT FINDREC FINDEM FINDEMALL GETORDER)>