4 <ENTRY DO CASE INC DEC CHOP IF IF-NOT PRIMTYPE?>
5 <GFCN
\1aDO ("VALUE" FORM "QUOTE" LIST "ARGS" LIST) ARGL8
7 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
11 <TEMP #ADECL [TEMP5 LBIND] TEMP16 TEMP17 (#ADECL [STATE14
12 FIX] 1) TEMP25 NAM27 TEMP32 TEMP33 TEMP34 TEMP35 TEMP36 TEMP39 TEMP42 TEMP45
13 TEMP48 TEMP53 TEMP55 OB71 TEMP116 #ADECL [TEMP118 LIST] TEMP119 #ADECL [L122
14 LIST] TEMP137 #ADECL [TEMP139 LIST] TEMP140 #ADECL [L143 LIST] TEMP160 #ADECL [
15 TEMP162 LIST] TEMP163 #ADECL [L166 LIST]>
17 <GETS 'BIND = TEMP5 (TYPE LBIND)>
18 <BIND = TEMP16 (TYPE LBIND)>
19 <PUTR TEMP16 2 'PRE-CODE (RECORD-TYPE LBIND)>
20 <PUTR TEMP16 3 'LIST (RECORD-TYPE LBIND)>
21 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
22 <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
24 <NTHR 'PRE-CODE 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
26 <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
28 <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
29 <PUTR 'PRE-CODE 2 TEMP16 (RECORD-TYPE ATOM)>
31 <BIND = TEMP16 (TYPE LBIND)>
32 <PUTR TEMP16 2 'POST-CODE (RECORD-TYPE LBIND)>
33 <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
35 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
36 <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
38 <NTHR 'POST-CODE 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
40 <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
42 <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
43 <PUTR 'POST-CODE 2 TEMP16 (RECORD-TYPE ATOM)>
45 <BIND = TEMP16 (TYPE LBIND)>
46 <PUTR TEMP16 2 'PRE-TEST (RECORD-TYPE LBIND)>
47 <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
49 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
50 <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
52 <NTHR 'PRE-TEST 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
54 <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
56 <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
57 <PUTR 'PRE-TEST 2 TEMP16 (RECORD-TYPE ATOM)>
59 <BIND = TEMP16 (TYPE LBIND)>
60 <PUTR TEMP16 2 'POST-TEST (RECORD-TYPE LBIND)>
61 <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
63 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
64 <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
66 <NTHR 'POST-TEST 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
68 <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
70 <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
71 <PUTR 'POST-TEST 2 TEMP16 (RECORD-TYPE ATOM)>
73 <BIND = TEMP16 (TYPE LBIND)>
74 <PUTR TEMP16 2 'RETURNS (RECORD-TYPE LBIND)>
75 <PUTR TEMP16 3 'LIST (RECORD-TYPE LBIND)>
76 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
77 <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
79 <NTHR 'RETURNS 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)>
80 <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
82 <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
83 <PUTR 'RETURNS 2 TEMP16 (RECORD-TYPE ATOM)>
85 <SET TEMP25 () (TYPE LIST)>
86 <SET TEMP17 () (TYPE LIST)>
87 <SET TEMP16 ARGL8 (TYPE LIST)>
92 <EMPL? TEMP16 + MAPAP22>
93 <NTHL TEMP16 1 = NAM27>
94 <TYPE? NAM27 <TYPE-CODE STRING> - PHRASE29>
96 <SET TEMP33 "FOR" (TYPE STRING)>
97 <LENUS TEMP32 = TEMP34 (TYPE FIX)>
98 <VEQUAL? TEMP34 3 - PHRASE31>
99 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34
102 <NTHUS TEMP32 1 = TEMP35>
103 <NTHUS TEMP33 1 = TEMP36>
104 <VEQUAL? TEMP35 TEMP36 - PHRASE31>
106 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
107 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
108 <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
109 <GRTR? TEMP34 0 + TAG37 (TYPE FIX)>
110 <DEAD NAM27 TEMP32 TEMP33 TEMP34>
111 <SET STATE14 1 (TYPE FIX)>
115 <SET TEMP32 "GEN" (TYPE STRING)>
116 <LENUS TEMP33 = TEMP36 (TYPE FIX)>
117 <VEQUAL? TEMP36 3 - PHRASE38>
118 <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP36
121 <NTHUS TEMP33 1 = TEMP35>
122 <NTHUS TEMP32 1 = TEMP39>
123 <VEQUAL? TEMP35 TEMP39 - PHRASE38>
125 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
126 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
127 <SUB TEMP36 1 = TEMP36 (TYPE FIX)>
128 <GRTR? TEMP36 0 + TAG40 (TYPE FIX)>
129 <DEAD NAM27 TEMP32 TEMP33 TEMP36>
130 <SET STATE14 2 (TYPE FIX)>
134 <SET TEMP33 "WHILE" (TYPE STRING)>
135 <LENUS TEMP32 = TEMP39 (TYPE FIX)>
136 <VEQUAL? TEMP39 5 - PHRASE41>
137 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP39
140 <NTHUS TEMP32 1 = TEMP35>
141 <NTHUS TEMP33 1 = TEMP42>
142 <VEQUAL? TEMP35 TEMP42 - PHRASE41>
144 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
145 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
146 <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
147 <GRTR? TEMP39 0 + TAG43 (TYPE FIX)>
148 <DEAD NAM27 TEMP32 TEMP33 TEMP39>
149 <SET STATE14 4 (TYPE FIX)>
153 <SET TEMP32 "UNTIL" (TYPE STRING)>
154 <LENUS TEMP33 = TEMP42 (TYPE FIX)>
155 <VEQUAL? TEMP42 5 - PHRASE44>
156 <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP42
159 <NTHUS TEMP33 1 = TEMP35>
160 <NTHUS TEMP32 1 = TEMP45>
161 <VEQUAL? TEMP35 TEMP45 - PHRASE44>
163 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
164 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
165 <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
166 <GRTR? TEMP42 0 + TAG46 (TYPE FIX)>
167 <DEAD NAM27 TEMP32 TEMP33 TEMP42>
168 <SET STATE14 3 (TYPE FIX)>
172 <SET TEMP33 "VALUE" (TYPE STRING)>
173 <LENUS TEMP32 = TEMP45 (TYPE FIX)>
174 <VEQUAL? TEMP45 5 - PHRASE47>
175 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP45
178 <NTHUS TEMP32 1 = TEMP35>
179 <NTHUS TEMP33 1 = TEMP48>
180 <VEQUAL? TEMP35 TEMP48 - PHRASE47>
182 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
183 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
184 <SUB TEMP45 1 = TEMP45 (TYPE FIX)>
185 <GRTR? TEMP45 0 + TAG49 (TYPE FIX)>
186 <DEAD NAM27 TEMP32 TEMP33 TEMP45>
187 <SET STATE14 5 (TYPE FIX)>
191 <SET TEMP32 "AUX" (TYPE STRING)>
192 <LENUS TEMP33 = TEMP48 (TYPE FIX)>
193 <VEQUAL? TEMP48 3 - TAG52>
194 <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP48
197 <NTHUS TEMP33 1 = TEMP35>
198 <NTHUS TEMP32 1 = TEMP53>
199 <VEQUAL? TEMP35 TEMP53 - TAG52>
201 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
202 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
203 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
204 <GRTR? TEMP48 0 + TAG54 (TYPE FIX)>
205 <DEAD NAM27 TEMP32 TEMP33 TEMP48>
209 <SET TEMP33 "AUX" (TYPE STRING)>
210 <LENUS TEMP32 = TEMP53 (TYPE FIX)>
211 <VEQUAL? TEMP53 3 - PHRASE50>
212 <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP53
215 <NTHUS TEMP32 1 = TEMP35>
216 <NTHUS TEMP33 1 = TEMP55>
217 <VEQUAL? TEMP35 TEMP55 - PHRASE50>
219 <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
220 <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
221 <SUB TEMP53 1 = TEMP53 (TYPE FIX)>
222 <GRTR? TEMP53 0 + TAG56 (TYPE FIX)>
224 <DEAD NAM27 TEMP32 TEMP33 TEMP53>
225 <SET STATE14 0 (TYPE FIX)>
228 <SET STATE14 0 (TYPE FIX)>
229 <CONS NAM27 () = NAM27 (TYPE LIST)>
230 <EMPL? TEMP25 - TAG59>
231 <SET TEMP25 NAM27 (TYPE LIST)>
234 <PUTREST TEMP17 NAM27>
237 <SET TEMP17 NAM27 (TYPE LIST)>
241 <VEQUAL? STATE14 0 - PHRASE61 (TYPE FIX)>
242 <CONS NAM27 () = NAM27 (TYPE LIST)>
243 <EMPL? TEMP25 - TAG65>
244 <SET TEMP25 NAM27 (TYPE LIST)>
247 <PUTREST TEMP17 NAM27>
250 <SET TEMP17 NAM27 (TYPE LIST)>
254 <TYPE? NAM27 <TYPE-CODE LIST> + PHRASE69>
255 <CONS NAM27 () = NAM27>
258 <VEQUAL? OB71 1 - PHRASE74 (TYPE FIX)>
260 <SET TEMP55 0 (TYPE FIX)>
263 <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
266 <EMPL? TEMP32 + TAG78>
267 <NTHL TEMP32 1 = STACK>
268 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
269 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
273 <CALL '
\1aDO-FOR TEMP55 = TEMP55>
274 <CONS TEMP55 () = TEMP55 (TYPE LIST)>
275 <EMPL? TEMP25 - TAG81>
276 <SET TEMP25 TEMP55 (TYPE LIST)>
279 <PUTREST TEMP17 TEMP55>
282 <SET TEMP17 TEMP55 (TYPE LIST)>
286 <VEQUAL? OB71 2 - PHRASE83 (TYPE FIX)>
288 <SET TEMP32 0 (TYPE FIX)>
291 <LOOP (TEMP55 VALUE) (TEMP32 VALUE)>
294 <EMPL? TEMP55 + TAG85>
295 <NTHL TEMP55 1 = STACK>
296 <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
297 <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
301 <CALL '
\1aDO-GEN TEMP32 = TEMP32>
302 <CONS TEMP32 () = TEMP32 (TYPE LIST)>
303 <EMPL? TEMP25 - TAG88>
304 <SET TEMP25 TEMP32 (TYPE LIST)>
307 <PUTREST TEMP17 TEMP32>
310 <SET TEMP17 TEMP32 (TYPE LIST)>
314 <VEQUAL? OB71 4 - PHRASE90 (TYPE FIX)>
316 <SET TEMP55 0 (TYPE FIX)>
319 <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
322 <EMPL? TEMP32 + TAG91>
323 <NTHL TEMP32 1 = STACK>
324 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
325 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
329 <CALL '
\1aDO-WHILE TEMP55>
333 <VEQUAL? OB71 3 - PHRASE94 (TYPE FIX)>
335 <SET TEMP32 0 (TYPE FIX)>
338 <LOOP (TEMP55 VALUE) (TEMP32 VALUE)>
341 <EMPL? TEMP55 + TAG95>
342 <NTHL TEMP55 1 = STACK>
343 <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
344 <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
348 <CALL '
\1aDO-UNTIL TEMP32>
352 <VEQUAL? OB71 5 - PHRASE98 (TYPE FIX)>
355 <SET TEMP55 0 (TYPE FIX)>
358 <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
361 <EMPL? TEMP32 + TAG99>
362 <NTHL TEMP32 1 = STACK>
363 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
364 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
368 <CALL '
\1aDO-VALUE TEMP55>
371 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
374 <DEAD STATE14 TEMP16 TEMP17>
375 <FRAME '
\1aCOND-BODY>
377 <NTHR 'RETURNS 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
378 <NTHR TEMP16 1 = STACK (RECORD-TYPE LBIND)>
380 <CALL '
\1aCOND-BODY 2 = TEMP16>
381 <NTHR 'RETURNS 2 = TEMP55 (RECORD-TYPE ATOM) (TYPE LBIND)>
382 <PUTR TEMP55 1 TEMP16 (RECORD-TYPE LBIND)>
388 <SET TEMP55 2 (TYPE FIX)>
389 <SET TEMP116 () (TYPE LIST)>
390 <SET TEMP35 () (TYPE LIST)>
391 <NTHR 'PRE-CODE 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)
393 <NTHR TEMP119 1 = TEMP118 (RECORD-TYPE LBIND)>
398 <EMPL? TEMP118 + MAPAP113>
399 <NTHL TEMP118 1 = L122>
400 <FRAME '
\1aMAKE-COND>
401 <NTHL L122 1 = STACK>
402 <NTHR 'RETURNS 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)
404 <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
406 <RESTL L122 1 = STACK (TYPE LIST)>
408 <CALL '
\1aMAKE-COND 3 = TEMP119>
409 <CONS TEMP119 () = TEMP119 (TYPE LIST)>
410 <EMPL? TEMP116 - TAG126>
411 <SET TEMP116 TEMP119 (TYPE LIST)>
414 <PUTREST TEMP35 TEMP119>
417 <SET TEMP35 TEMP119 (TYPE LIST)>
419 <RESTL TEMP118 1 = TEMP118 (TYPE LIST)>
422 <DEAD TEMP118 TEMP35>
423 <LOOP (TEMP116 VALUE) (TEMP55 VALUE)>
426 <EMPL? TEMP116 + TAG108>
427 <NTHL TEMP116 1 = STACK>
428 <RESTL TEMP116 1 = TEMP116 (TYPE LIST)>
429 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
433 <SET TEMP137 () (TYPE LIST)>
434 <SET TEMP119 () (TYPE LIST)>
435 <NTHR 'PRE-TEST 2 = TEMP140 (RECORD-TYPE ATOM) (TYPE LBIND)
437 <NTHR TEMP140 1 = TEMP139 (RECORD-TYPE LBIND)>
442 <EMPL? TEMP139 + MAPAP134>
443 <NTHL TEMP139 1 = L143>
444 <FRAME '
\1aMAKE-COND>
445 <NTHL L143 1 = STACK>
446 <NTHR 'RETURNS 2 = TEMP140 (RECORD-TYPE ATOM) (TYPE LBIND)
448 <NTHR TEMP140 1 = STACK (RECORD-TYPE LBIND)>
450 <RESTL L143 1 = STACK (TYPE LIST)>
452 <CALL '
\1aMAKE-COND 3 = TEMP140>
453 <CONS TEMP140 () = TEMP140 (TYPE LIST)>
454 <EMPL? TEMP137 - TAG147>
455 <SET TEMP137 TEMP140 (TYPE LIST)>
458 <PUTREST TEMP119 TEMP140>
461 <SET TEMP119 TEMP140 (TYPE LIST)>
463 <RESTL TEMP139 1 = TEMP139 (TYPE LIST)>
466 <DEAD TEMP119 TEMP139>
467 <LOOP (TEMP137 VALUE) (TEMP55 VALUE)>
470 <EMPL? TEMP137 + TAG129>
471 <NTHL TEMP137 1 = STACK>
472 <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
473 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
479 <LOOP (TEMP137 VALUE) (TEMP55 VALUE)>
482 <EMPL? TEMP137 + TAG150>
483 <NTHL TEMP137 1 = STACK>
484 <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
485 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
489 <SET TEMP160 () (TYPE LIST)>
490 <SET TEMP140 () (TYPE LIST)>
491 <NTHR 'POST-TEST 2 = TEMP163 (RECORD-TYPE ATOM) (TYPE LBIND
493 <NTHR TEMP163 1 = TEMP162 (RECORD-TYPE LBIND)>
498 <EMPL? TEMP162 + MAPAP157>
499 <NTHL TEMP162 1 = L166>
500 <FRAME '
\1aMAKE-COND>
501 <NTHL L166 1 = STACK>
502 <NTHR 'RETURNS 2 = TEMP163 (RECORD-TYPE ATOM) (TYPE LBIND)
504 <NTHR TEMP163 1 = STACK (RECORD-TYPE LBIND)>
506 <RESTL L166 1 = STACK (TYPE LIST)>
508 <CALL '
\1aMAKE-COND 3 = TEMP163>
509 <CONS TEMP163 () = TEMP163 (TYPE LIST)>
510 <EMPL? TEMP160 - TAG170>
511 <SET TEMP160 TEMP163 (TYPE LIST)>
514 <PUTREST TEMP140 TEMP163>
517 <SET TEMP140 TEMP163 (TYPE LIST)>
519 <RESTL TEMP162 1 = TEMP162 (TYPE LIST)>
522 <DEAD TEMP140 TEMP162>
523 <LOOP (TEMP160 VALUE) (TEMP55 VALUE)>
526 <EMPL? TEMP160 + TAG152>
527 <NTHL TEMP160 1 = STACK>
528 <RESTL TEMP160 1 = TEMP160 (TYPE LIST)>
529 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
533 <NTHR 'POST-CODE 2 = TEMP160 (RECORD-TYPE ATOM) (TYPE LBIND
535 <NTHR TEMP160 1 = TEMP160 (RECORD-TYPE LBIND)>
536 <LOOP (TEMP160 VALUE) (TEMP55 VALUE)>
539 <EMPL? TEMP160 + TAG173>
540 <NTHL TEMP160 1 = STACK>
541 <RESTL TEMP160 1 = TEMP160 (TYPE LIST)>
542 <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
546 <CALL '
\1aFORM TEMP55 = TEMP55>
553 <COND (<GASSIGNED? DO> <SETG DO <CHTYPE (,DO) MACRO>>)>
554 <AND? <SETG COLON-NONE 0> <SETG COLON-FOR 1> <SETG COLON-GEN 2> <SETG
555 COLON-UNTIL 3> <SETG COLON-WHILE 4> <SETG COLON-VALUE 5> <MANIFEST COLON-NONE
556 COLON-FOR COLON-GEN COLON-UNTIL COLON-WHILE COLON-VALUE>>
559 <GFCN
\1aDO-FOR ("VALUE" <LIST ANY ANY> ANY "OPTIONAL" ANY
560 ANY ANY "TUPLE" TUPLE) VARIABLE12 INITIAL13 FINAL14 STEP15>
561 <OPT-DISPATCH 1 4 OPT8 OPT9 OPT10 OPT11>
565 <PUSH #T$UNBOUND *000000000000*>
569 <MAKTUP #ADECL [VAL16 TUPLE] TEMP26 TEMP29 TEMP30 TEMP31
570 TEMP36 TEMP37 TEMP51 TEMP56 TEMP57 TEMP67 TEMP77 TEMP78 TEMP87 #ADECL [TEMP95
573 <TYPE? FINAL14 <TYPE-CODE UNBOUND> + TAG82>
574 <EQUAL? STEP15 0 + TAG82>
575 <EQUAL? STEP15 0.0000000 + TAG82>
576 <TYPE? STEP15 <TYPE-CODE FIX> + TAG21>
577 <TYPE? STEP15 <TYPE-CODE FLOAT> - PHRASE19>
579 <GRTR? STEP15 0 - PHRASE19>
580 <NTHR 'PRE-CODE 2 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE
582 <TYPE? TEMP26 <TYPE-CODE FALSE> + TAG27>
583 <NTHR TEMP26 6 = TEMP29 (RECORD-TYPE LBIND) (TYPE FIX)>
584 <GVAL 'M$$BINDID = TEMP30 (TYPE FIX)>
585 <VEQUAL? TEMP29 TEMP30 - TAG27>
587 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
592 <CALL '
\1aLVAL 1 = TEMP26>
594 <SET TEMP30 () (TYPE LIST)>
595 <EMPL? TEMP26 + TAG25>
596 <NTHL TEMP26 1 = TEMP29>
597 <CONS TEMP29 () = TEMP29>
599 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
600 <EMPL? TEMP26 + TAG25>
601 <LOOP (TEMP26 VALUE) (TEMP29 VALUE)>
603 <NTHL TEMP26 1 = TEMP31>
604 <CONS TEMP31 () = TEMP31>
605 <PUTREST TEMP29 TEMP31>
609 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
610 <EMPL? TEMP26 - TAG24>
618 <CALL '
\1aFORM 2 = STACK>
621 <CALL '
\1aFORM 3 = TEMP26>
622 <CONS TEMP26 () = TEMP26>
626 <EMPUV? TEMP31 + TAG35>
627 <LOOP (TEMP31 VALUE LENGTH) (TEMP36 VALUE)>
629 <NTHUV TEMP31 1 = TEMP37>
630 <CONS TEMP37 () = TEMP37>
631 <PUTREST TEMP36 TEMP37>
635 <RESTUV TEMP31 1 = TEMP31 (TYPE TUPLE)>
636 <EMPUV? TEMP31 - TAG34>
639 <CONS TEMP26 () = TEMP26>
640 <EMPL? TEMP29 + TAG38>
641 <PUTREST TEMP29 TEMP26>
648 <NTHR 'PRE-CODE 2 = TEMP29 (RECORD-TYPE ATOM) (BRANCH-FALSE
650 <TYPE? TEMP29 <TYPE-CODE FALSE> + TAG40>
651 <NTHR TEMP29 6 = TEMP31 (RECORD-TYPE LBIND) (TYPE FIX)>
652 <GVAL 'M$$BINDID = TEMP37 (TYPE FIX)>
653 <VEQUAL? TEMP31 TEMP37 - TAG40>
655 <PUTR TEMP29 1 TEMP30 (RECORD-TYPE LBIND)>
663 <CALL '
\1aSET 2 = TEMP30>
666 <TYPE? STEP15 <TYPE-CODE FIX> + TAG44>
667 <TYPE? STEP15 <TYPE-CODE FLOAT> - PHRASE42>
669 <LESS? STEP15 0 - PHRASE42>
670 <NTHR 'PRE-CODE 2 = TEMP29 (RECORD-TYPE ATOM) (BRANCH-FALSE
672 <TYPE? TEMP29 <TYPE-CODE FALSE> + TAG49>
673 <NTHR TEMP29 6 = TEMP37 (RECORD-TYPE LBIND) (TYPE FIX)>
674 <GVAL 'M$$BINDID = TEMP31 (TYPE FIX)>
675 <VEQUAL? TEMP37 TEMP31 - TAG49>
677 <NTHR TEMP29 1 = TEMP29 (RECORD-TYPE LBIND)>
682 <CALL '
\1aLVAL 1 = TEMP29>
684 <SET TEMP31 () (TYPE LIST)>
685 <EMPL? TEMP29 + TAG48>
686 <NTHL TEMP29 1 = TEMP37>
687 <CONS TEMP37 () = TEMP37>
689 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
690 <EMPL? TEMP29 + TAG48>
691 <LOOP (TEMP29 VALUE) (TEMP37 VALUE)>
693 <NTHL TEMP29 1 = TEMP51>
694 <CONS TEMP51 () = TEMP51>
695 <PUTREST TEMP37 TEMP51>
699 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
700 <EMPL? TEMP29 - TAG47>
708 <CALL '
\1aFORM 2 = STACK>
711 <CALL '
\1aFORM 3 = TEMP29>
712 <CONS TEMP29 () = TEMP29>
716 <EMPUV? TEMP51 + TAG55>
717 <LOOP (TEMP51 VALUE LENGTH) (TEMP56 VALUE)>
719 <NTHUV TEMP51 1 = TEMP57>
720 <CONS TEMP57 () = TEMP57>
721 <PUTREST TEMP56 TEMP57>
725 <RESTUV TEMP51 1 = TEMP51 (TYPE TUPLE)>
726 <EMPUV? TEMP51 - TAG54>
729 <CONS TEMP29 () = TEMP29>
730 <EMPL? TEMP37 + TAG58>
731 <PUTREST TEMP37 TEMP29>
738 <NTHR 'PRE-CODE 2 = TEMP37 (RECORD-TYPE ATOM) (BRANCH-FALSE
740 <TYPE? TEMP37 <TYPE-CODE FALSE> + TAG60>
741 <NTHR TEMP37 6 = TEMP51 (RECORD-TYPE LBIND) (TYPE FIX)>
742 <GVAL 'M$$BINDID = TEMP57 (TYPE FIX)>
743 <VEQUAL? TEMP51 TEMP57 - TAG60>
745 <PUTR TEMP37 1 TEMP31 (RECORD-TYPE LBIND)>
753 <CALL '
\1aSET 2 = TEMP31>
756 <NTHR 'PRE-CODE 2 = TEMP37 (RECORD-TYPE ATOM) (BRANCH-FALSE
758 <TYPE? TEMP37 <TYPE-CODE FALSE> + TAG65>
759 <NTHR TEMP37 6 = TEMP57 (RECORD-TYPE LBIND) (TYPE FIX)>
760 <GVAL 'M$$BINDID = TEMP51 (TYPE FIX)>
761 <VEQUAL? TEMP57 TEMP51 - TAG65>
763 <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
768 <CALL '
\1aLVAL 1 = TEMP37>
770 <SET TEMP51 () (TYPE LIST)>
771 <EMPL? TEMP37 + TAG64>
772 <NTHL TEMP37 1 = TEMP57>
773 <CONS TEMP57 () = TEMP57>
775 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
776 <EMPL? TEMP37 + TAG64>
777 <LOOP (TEMP37 VALUE) (TEMP57 VALUE)>
779 <NTHL TEMP37 1 = TEMP67>
780 <CONS TEMP67 () = TEMP67>
781 <PUTREST TEMP57 TEMP67>
785 <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
786 <EMPL? TEMP37 - TAG63>
795 <CALL '
\1aFORM 3 = TEMP37>
796 <CONS TEMP37 () = TEMP37>
802 <CALL '
\1aFORM 2 = STACK>
804 <CALL '
\1aFORM 3 = TEMP67>
805 <CONS TEMP67 () = TEMP67>
806 <PUTREST TEMP37 TEMP67>
814 <CALL '
\1aFORM 3 = TEMP37>
815 <CONS TEMP37 () = TEMP37>
821 <CALL '
\1aFORM 2 = STACK>
824 <CALL '
\1aFORM 3 = TEMP67>
825 <CONS TEMP67 () = TEMP67>
826 <PUTREST TEMP37 TEMP67>
830 <CALL '
\1aFORM 3 = TEMP37>
831 <CONS TEMP37 () = TEMP37>
835 <EMPUV? TEMP67 + TAG76>
836 <LOOP (TEMP67 VALUE LENGTH) (TEMP77 VALUE)>
838 <NTHUV TEMP67 1 = TEMP78>
839 <CONS TEMP78 () = TEMP78>
840 <PUTREST TEMP77 TEMP78>
843 <RESTUV TEMP67 1 = TEMP67 (TYPE TUPLE)>
844 <EMPUV? TEMP67 - TAG75>
847 <CONS TEMP37 () = TEMP37>
848 <EMPL? TEMP57 + TAG79>
849 <PUTREST TEMP57 TEMP37>
856 <NTHR 'PRE-CODE 2 = TEMP57 (RECORD-TYPE ATOM) (BRANCH-FALSE
858 <TYPE? TEMP57 <TYPE-CODE FALSE> + TAG81>
859 <NTHR TEMP57 6 = TEMP67 (RECORD-TYPE LBIND) (TYPE FIX)>
860 <GVAL 'M$$BINDID = TEMP78 (TYPE FIX)>
861 <VEQUAL? TEMP67 TEMP78 - TAG81>
863 <PUTR TEMP57 1 TEMP51 (RECORD-TYPE LBIND)>
871 <CALL '
\1aSET 2 = TEMP51>
873 <NTHR 'POST-CODE 2 = TEMP57 (RECORD-TYPE ATOM) (
874 BRANCH-FALSE + TAG85)>
875 <TYPE? TEMP57 <TYPE-CODE FALSE> + TAG85>
876 <NTHR TEMP57 6 = TEMP78 (RECORD-TYPE LBIND) (TYPE FIX)>
877 <GVAL 'M$$BINDID = TEMP67 (TYPE FIX)>
878 <VEQUAL? TEMP78 TEMP67 - TAG85>
880 <NTHR TEMP57 1 = TEMP57 (RECORD-TYPE LBIND)>
885 <CALL '
\1aLVAL 1 = TEMP57>
887 <SET TEMP67 () (TYPE LIST)>
888 <EMPL? TEMP57 + TAG84>
889 <NTHL TEMP57 1 = TEMP78>
890 <CONS TEMP78 () = TEMP78>
892 <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
893 <EMPL? TEMP57 + TAG84>
894 <LOOP (TEMP57 VALUE) (TEMP78 VALUE)>
896 <NTHL TEMP57 1 = TEMP87>
897 <CONS TEMP87 () = TEMP87>
898 <PUTREST TEMP78 TEMP87>
902 <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
903 <EMPL? TEMP57 - TAG83>
914 <CALL '
\1aFORM 2 = STACK>
917 <CALL '
\1aFORM 3 = STACK>
918 <CALL '
\1aFORM 3 = TEMP57>
919 <CONS TEMP57 () = TEMP57>
920 <EMPL? TEMP78 + TAG91>
921 <PUTREST TEMP78 TEMP57>
928 <NTHR 'POST-CODE 2 = TEMP78 (RECORD-TYPE ATOM) (
929 BRANCH-FALSE + TAG93)>
930 <TYPE? TEMP78 <TYPE-CODE FALSE> + TAG93>
931 <NTHR TEMP78 6 = TEMP87 (RECORD-TYPE LBIND) (TYPE FIX)>
932 <GVAL 'M$$BINDID = TEMP95 (TYPE FIX)>
933 <VEQUAL? TEMP87 TEMP95 - TAG93>
935 <PUTR TEMP78 1 TEMP67 (RECORD-TYPE LBIND)>
943 <CALL '
\1aSET 2 = TEMP67>
945 <CONS INITIAL13 () = INITIAL13>
946 <CONS VARIABLE12 INITIAL13 = VARIABLE12>
950 <GFCN
\1aDO-GEN ("VALUE" <LIST ATOM ANY> ATOM "OPTIONAL" ANY
951 ANY ANY "TUPLE" TUPLE) VARIABLE12 INITIAL13 STEP14 PRED15>
952 <OPT-DISPATCH 1 4 OPT8 OPT9 OPT10 OPT11>
956 <PUSH #T$UNBOUND *000000000000*>
958 <PUSH #T$UNBOUND *000000000000*>
960 <MAKTUP #ADECL [VAL16 TUPLE] TEMP21 TEMP22 TEMP23 TEMP24
961 TEMP29 #ADECL [TEMP43 FIX] = VAL16>
963 <TYPE? PRED15 <TYPE-CODE UNBOUND> + TAG31>
966 <SET TEMP22 () (TYPE LIST)>
967 <EMPUV? TEMP21 + TAG20>
968 <NTHUV TEMP21 1 = TEMP23>
969 <CONS TEMP23 () = TEMP23>
971 <RESTUV TEMP21 1 = TEMP21 (TYPE TUPLE)>
972 <EMPUV? TEMP21 + TAG20>
973 <LOOP (TEMP21 VALUE LENGTH) (TEMP23 VALUE)>
975 <NTHUV TEMP21 1 = TEMP24>
976 <CONS TEMP24 () = TEMP24>
977 <PUTREST TEMP23 TEMP24>
981 <RESTUV TEMP21 1 = TEMP21 (TYPE TUPLE)>
982 <EMPUV? TEMP21 - TAG19>
985 <CONS PRED15 TEMP22 = TEMP22>
987 <CONS TEMP22 () = TEMP22>
988 <NTHR 'PRE-CODE 2 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE
990 <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG27>
991 <NTHR TEMP23 6 = TEMP21 (RECORD-TYPE LBIND) (TYPE FIX)>
992 <GVAL 'M$$BINDID = TEMP24 (TYPE FIX)>
993 <VEQUAL? TEMP21 TEMP24 - TAG27>
995 <NTHR TEMP23 1 = TEMP23 (RECORD-TYPE LBIND)>
1000 <CALL '
\1aLVAL 1 = TEMP23>
1003 <EMPL? TEMP23 + TAG26>
1004 <NTHL TEMP23 1 = TEMP21>
1005 <CONS TEMP21 TEMP22 = TEMP21>
1007 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1008 <EMPL? TEMP23 + TAG26>
1009 <LOOP (TEMP23 VALUE) (TEMP21 VALUE) (TEMP22 VALUE)>
1011 <NTHL TEMP23 1 = TEMP29>
1012 <CONS TEMP29 TEMP22 = TEMP29>
1013 <PUTREST TEMP21 TEMP29>
1017 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1018 <EMPL? TEMP23 - TAG25>
1020 <DEAD TEMP21 TEMP22 TEMP23>
1021 <NTHR 'PRE-CODE 2 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE
1023 <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG30>
1024 <NTHR TEMP21 6 = TEMP23 (RECORD-TYPE LBIND) (TYPE FIX)>
1025 <GVAL 'M$$BINDID = TEMP29 (TYPE FIX)>
1026 <VEQUAL? TEMP23 TEMP29 - TAG30>
1027 <DEAD TEMP29 TEMP23>
1028 <PUTR TEMP21 1 TEMP24 (RECORD-TYPE LBIND)>
1036 <CALL '
\1aSET 2 = TEMP24>
1038 <TYPE? STEP14 <TYPE-CODE UNBOUND> + TAG42>
1039 <NTHR 'POST-CODE 2 = TEMP24 (RECORD-TYPE ATOM) (
1040 BRANCH-FALSE + TAG36)>
1041 <TYPE? TEMP24 <TYPE-CODE FALSE> + TAG36>
1042 <NTHR TEMP24 6 = TEMP21 (RECORD-TYPE LBIND) (TYPE FIX)>
1043 <GVAL 'M$$BINDID = TEMP29 (TYPE FIX)>
1044 <VEQUAL? TEMP21 TEMP29 - TAG36>
1046 <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE LBIND)>
1051 <CALL '
\1aLVAL 1 = TEMP24>
1053 <SET TEMP29 () (TYPE LIST)>
1054 <EMPL? TEMP24 + TAG35>
1055 <NTHL TEMP24 1 = TEMP21>
1056 <CONS TEMP21 () = TEMP21>
1058 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1059 <EMPL? TEMP24 + TAG35>
1060 <LOOP (TEMP24 VALUE) (TEMP21 VALUE)>
1062 <NTHL TEMP24 1 = TEMP23>
1063 <CONS TEMP23 () = TEMP23>
1064 <PUTREST TEMP21 TEMP23>
1068 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1069 <EMPL? TEMP24 - TAG34>
1077 <CALL '
\1aFORM 3 = TEMP24>
1078 <CONS TEMP24 () = TEMP24>
1079 <EMPL? TEMP21 + TAG39>
1080 <PUTREST TEMP21 TEMP24>
1081 <DEAD TEMP24 TEMP21>
1087 <NTHR 'POST-CODE 2 = TEMP21 (RECORD-TYPE ATOM) (
1088 BRANCH-FALSE + TAG41)>
1089 <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG41>
1090 <NTHR TEMP21 6 = TEMP23 (RECORD-TYPE LBIND) (TYPE FIX)>
1091 <GVAL 'M$$BINDID = TEMP43 (TYPE FIX)>
1092 <VEQUAL? TEMP23 TEMP43 - TAG41>
1093 <DEAD TEMP43 TEMP23>
1094 <PUTR TEMP21 1 TEMP29 (RECORD-TYPE LBIND)>
1095 <DEAD TEMP29 TEMP21>
1102 <CALL '
\1aSET 2 = TEMP29>
1104 <CONS INITIAL13 () = INITIAL13>
1105 <CONS VARIABLE12 INITIAL13 = INITIAL13>
1110 <GFCN
\1aDO-WHILE ("VALUE" LIST ANY "TUPLE" TUPLE) EXPR5>
1111 <MAKTUP #ADECL [VAL6 TUPLE] TEMP9 TEMP12 TEMP13 TEMP14
1112 TEMP18 TEMP19 = VAL6>
1114 <NTHR 'PRE-TEST 2 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE
1116 <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG10>
1117 <NTHR TEMP9 6 = TEMP12 (RECORD-TYPE LBIND) (TYPE FIX)>
1118 <GVAL 'M$$BINDID = TEMP13 (TYPE FIX)>
1119 <VEQUAL? TEMP12 TEMP13 - TAG10>
1121 <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE LBIND)>
1126 <CALL '
\1aLVAL 1 = TEMP9>
1128 <SET TEMP13 () (TYPE LIST)>
1129 <EMPL? TEMP9 + TAG8>
1130 <NTHL TEMP9 1 = TEMP12>
1131 <CONS TEMP12 () = TEMP12>
1133 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1134 <EMPL? TEMP9 + TAG8>
1135 <LOOP (TEMP9 VALUE) (TEMP12 VALUE)>
1137 <NTHL TEMP9 1 = TEMP14>
1138 <CONS TEMP14 () = TEMP14>
1139 <PUTREST TEMP12 TEMP14>
1143 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1144 <EMPL? TEMP9 - TAG7>
1151 <CALL '
\1aFORM 2 = TEMP9>
1152 <CONS TEMP9 () = TEMP9>
1156 <EMPUV? TEMP14 + TAG17>
1157 <LOOP (TEMP14 VALUE LENGTH) (TEMP18 VALUE)>
1159 <NTHUV TEMP14 1 = TEMP19>
1160 <CONS TEMP19 () = TEMP19>
1161 <PUTREST TEMP18 TEMP19>
1165 <RESTUV TEMP14 1 = TEMP14 (TYPE TUPLE)>
1166 <EMPUV? TEMP14 - TAG16>
1168 <DEAD TEMP14 TEMP18>
1169 <CONS TEMP9 () = TEMP9>
1170 <EMPL? TEMP12 + TAG20>
1171 <PUTREST TEMP12 TEMP9>
1178 <NTHR 'PRE-TEST 2 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE
1180 <TYPE? TEMP12 <TYPE-CODE FALSE> + TAG22>
1181 <NTHR TEMP12 6 = TEMP14 (RECORD-TYPE LBIND) (TYPE FIX)>
1182 <GVAL 'M$$BINDID = TEMP19 (TYPE FIX)>
1183 <VEQUAL? TEMP14 TEMP19 - TAG22>
1184 <DEAD TEMP19 TEMP14>
1185 <PUTR TEMP12 1 TEMP13 (RECORD-TYPE LBIND)>
1193 <CALL '
\1aSET 2 = TEMP13>
1197 <GFCN
\1aDO-UNTIL ("VALUE" LIST ANY "TUPLE" TUPLE) EXPR5>
1198 <MAKTUP #ADECL [VAL6 TUPLE] TEMP9 TEMP10 TEMP11 TEMP12
1203 <SET TEMP10 () (TYPE LIST)>
1204 <EMPUV? TEMP9 + TAG8>
1205 <NTHUV TEMP9 1 = TEMP11>
1206 <CONS TEMP11 () = TEMP11>
1208 <RESTUV TEMP9 1 = TEMP9 (TYPE TUPLE)>
1209 <EMPUV? TEMP9 + TAG8>
1210 <LOOP (TEMP9 VALUE LENGTH) (TEMP11 VALUE)>
1212 <NTHUV TEMP9 1 = TEMP12>
1213 <CONS TEMP12 () = TEMP12>
1214 <PUTREST TEMP11 TEMP12>
1218 <RESTUV TEMP9 1 = TEMP9 (TYPE TUPLE)>
1219 <EMPUV? TEMP9 - TAG7>
1222 <CONS EXPR5 TEMP10 = EXPR5>
1223 <CONS EXPR5 () = EXPR5>
1224 <NTHR 'POST-TEST 2 = TEMP11 (RECORD-TYPE ATOM) (
1225 BRANCH-FALSE + TAG15)>
1226 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG15>
1227 <NTHR TEMP11 6 = TEMP9 (RECORD-TYPE LBIND) (TYPE FIX)>
1228 <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1229 <VEQUAL? TEMP9 TEMP12 - TAG15>
1231 <NTHR TEMP11 1 = TEMP11 (RECORD-TYPE LBIND)>
1236 <CALL '
\1aLVAL 1 = TEMP11>
1239 <EMPL? TEMP11 + TAG14>
1240 <NTHL TEMP11 1 = TEMP9>
1241 <CONS TEMP9 EXPR5 = TEMP9>
1243 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1244 <EMPL? TEMP11 + TAG14>
1245 <LOOP (TEMP11 VALUE) (TEMP9 VALUE) (EXPR5 VALUE)>
1247 <NTHL TEMP11 1 = TEMP17>
1248 <CONS TEMP17 EXPR5 = TEMP17>
1249 <PUTREST TEMP9 TEMP17>
1253 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1254 <EMPL? TEMP11 - TAG13>
1256 <DEAD EXPR5 TEMP11 TEMP9>
1257 <NTHR 'POST-TEST 2 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE
1259 <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG18>
1260 <NTHR TEMP9 6 = TEMP11 (RECORD-TYPE LBIND) (TYPE FIX)>
1261 <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
1262 <VEQUAL? TEMP11 TEMP17 - TAG18>
1263 <DEAD TEMP17 TEMP11>
1264 <PUTR TEMP9 1 TEMP12 (RECORD-TYPE LBIND)>
1272 <CALL '
\1aSET 2 = TEMP12>
1276 <GFCN
\1aDO-VALUE ("VALUE" ANY "TUPLE" TUPLE)>
1277 <MAKTUP #ADECL [BODY5 TUPLE] TEMP8 TEMP11 TEMP12 TEMP17
1280 <NTHR 'RETURNS 2 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE +
1282 <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG9>
1283 <NTHR TEMP8 6 = TEMP11 (RECORD-TYPE LBIND) (TYPE FIX)>
1284 <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1285 <VEQUAL? TEMP11 TEMP12 - TAG9>
1286 <DEAD TEMP12 TEMP11>
1287 <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE LBIND)>
1292 <CALL '
\1aLVAL 1 = TEMP8>
1294 <EMPL? TEMP8 + PHRASE7 (TYPE LIST)>
1297 <PUSH 'TOO-MANY!-ERRORS>
1300 <CALL '
\1aERROR 3 = TEMP8>
1306 <SET TEMP11 () (TYPE LIST)>
1307 <EMPUV? TEMP12 + TAG16>
1308 <NTHUV TEMP12 1 = TEMP17>
1309 <CONS TEMP17 () = TEMP17>
1311 <RESTUV TEMP12 1 = TEMP12 (TYPE TUPLE)>
1312 <EMPUV? TEMP12 + TAG16>
1313 <LOOP (TEMP12 VALUE LENGTH) (TEMP17 VALUE)>
1315 <NTHUV TEMP12 1 = TEMP18>
1316 <CONS TEMP18 () = TEMP18>
1317 <PUTREST TEMP17 TEMP18>
1321 <RESTUV TEMP12 1 = TEMP12 (TYPE TUPLE)>
1322 <EMPUV? TEMP12 - TAG15>
1324 <DEAD TEMP12 TEMP17>
1327 <NTHR 'RETURNS 2 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE
1329 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG19>
1330 <NTHR TEMP11 6 = TEMP17 (RECORD-TYPE LBIND) (TYPE FIX)>
1331 <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1332 <VEQUAL? TEMP17 TEMP12 - TAG19>
1333 <DEAD TEMP12 TEMP17>
1334 <PUTR TEMP11 1 TEMP8 (RECORD-TYPE LBIND)>
1342 <CALL '
\1aSET 2 = TEMP8>
1346 <GFCN
\1aMAKE-COND ("VALUE" <FORM ATOM LIST> ANY LIST LIST)
1352 <FRAME '
\1aCOND-BODY>
1357 <CALL '
\1aCOND-BODY 2 = TEMP10>
1358 <CONS PRED5 TEMP10 = STACK>
1360 <CALL '
\1aFORM 2 = TEMP10>
1364 <GFCN
\1aCOND-BODY ("VALUE" LIST LIST LIST) DEF5 BODY6>
1365 <TEMP #ADECL [TEMP9 LIST] TEMP12>
1367 <EMPL? BODY6 - PHRASE8 (TYPE LIST)>
1374 <RESTL DEF5 1 = TEMP12 (TYPE LIST)>
1375 <EMPL? TEMP12 + TAG13>
1382 <NTHL DEF5 1 = STACK>
1383 <CALL '
\1aFORM 2 = TEMP12>
1384 <PUTL DEF5 1 TEMP12>
1391 <GFCN
\1aCASE ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY "ARGS"
1392 LIST) PRED8 EXPR9 CASES10>
1393 <OPT-DISPATCH 2 #FALSE () OPT6 OPT7>
1397 <TEMP (DEFAULT-CASE11 #FALSE ()) TEMP15 TEMP19 TEMP29
1398 TEMP27 #ADECL [TEMP26 LIST] PHRASE31 TEMP43 TEMP46 EXPR32 #ADECL [TEMP61 FIX]
1401 <TYPE? PRED8 <TYPE-CODE FORM> - PHRASE13>
1402 <EMPL? PRED8 + PHRASE13>
1403 <RESTL PRED8 1 = TEMP15 (TYPE LIST)>
1404 <EMPL? TEMP15 + PHRASE13>
1405 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1406 <EMPL? TEMP15 - PHRASE13>
1408 <NTHL PRED8 1 = TEMP15>
1409 <EQUAL? TEMP15 'GVAL - PHRASE13>
1411 <RESTL PRED8 1 = TEMP15 (TYPE LIST)>
1412 <NTHL TEMP15 1 = TEMP15>
1413 <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE13>
1415 <RESTL PRED8 1 = PRED8 (TYPE LIST)>
1416 <NTHL PRED8 1 = PRED8 (TYPE ATOM)>
1419 <TYPE? PRED8 <TYPE-CODE GVAL> - PHRASE16>
1420 <CHTYPE PRED8 <TYPE-CODE ATOM> = PRED8>
1424 <CONS EXPR9 () = EXPR9>
1425 <CONS 'OB EXPR9 = EXPR9>
1426 <CONS EXPR9 () = STACK>
1430 <SET TEMP19 1 (TYPE FIX)>
1431 <SET TEMP29 () (TYPE LIST)>
1432 <SET TEMP27 () (TYPE LIST)>
1433 <SET TEMP26 CASES10 (TYPE LIST)>
1438 <EMPL? TEMP26 + MAPAP24>
1439 <NTHL TEMP26 1 = PHRASE31>
1440 <EQUAL? PHRASE31 'DEFAULT - PHRASE34>
1441 <TYPE? DEFAULT-CASE11 <TYPE-CODE FALSE> + PHRASE36>
1443 <PUSH 'TOO-MANY-DEFAULTS!-ERRORS>
1448 <SET DEFAULT-CASE11 () (TYPE LIST)>
1451 <TYPE? PHRASE31 <TYPE-CODE LIST> - BOOL41>
1452 <EMPL? PHRASE31 - PHRASE40 (TYPE LIST)>
1455 <PUSH 'BAD-CLAUSE!-ERRORS>
1457 <CALL '
\1aERROR 2 = TEMP43>
1460 <TYPE? DEFAULT-CASE11 <TYPE-CODE FALSE> + PHRASE44>
1461 <EMPL? DEFAULT-CASE11 - PHRASE44 (TYPE LIST)>
1462 <CONS 'DEFAULT PHRASE31 = PHRASE31>
1463 <CONS PHRASE31 () = DEFAULT-CASE11>
1467 <NTHL PHRASE31 1 = EXPR32>
1468 <TYPE? EXPR32 <TYPE-CODE SEGMENT> + PHRASE48>
1474 <CALL '
\1aFORM 3 = TEMP46>
1475 <CONS TEMP46 () = TEMP43>
1477 <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1478 <PUTREST TEMP43 PHRASE31>
1482 <EMPL? EXPR32 - PHRASE50 (TYPE SEGMENT)>
1486 <CALL '
\1aFORM 2 = TEMP46>
1487 <CONS TEMP46 () = TEMP43>
1489 <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1490 <PUTREST TEMP43 PHRASE31>
1494 <NTHL EXPR32 1 = TEMP46>
1495 <EQUAL? TEMP46 'QUOTE - PHRASE52>
1497 <RESTL EXPR32 1 = TEMP46 (TYPE LIST)>
1498 <CHTYPE TEMP46 <TYPE-CODE LIST> = TEMP46>
1499 <EMPL? TEMP46 + BOOL55 (TYPE LIST)>
1501 <FRAME '
\1aSTRUCTURED?>
1502 <RESTL EXPR32 1 = TEMP46 (TYPE LIST)>
1503 <NTHL TEMP46 1 = STACK>
1505 <CALL '
\1aSTRUCTURED? 1 = TEMP46>
1506 <VEQUAL? TEMP46 0 - PHRASE54>
1510 <PUSH 'ILLEGAL-SEGMENT!-ERRORS>
1512 <CALL '
\1aERROR 2 = TEMP43>
1517 <SET TEMP61 0 (TYPE FIX)>
1518 <RESTL EXPR32 1 = EXPR32 (TYPE LIST)>
1519 <NTHL EXPR32 1 = EXPR32>
1520 <TYPE EXPR32 = TEMP62>
1521 <AND TEMP62 7 = TEMP62>
1522 <VEQUAL? TEMP62 1 + TAG63>
1524 <LOOP (EXPR32 TYPE VALUE LENGTH) (TEMP61 VALUE)>
1527 <EMPTY? EXPR32 + TAG67>
1528 <NTH1 EXPR32 = STACK>
1529 <REST1 EXPR32 = EXPR32>
1530 <ADD TEMP61 1 = TEMP61 (TYPE FIX)>
1534 <LIST TEMP61 = STACK (TYPE LIST)>
1540 <VEQUAL? TEMP61 0 + TAG65>
1542 <CONS TEMP62 EXPR32 = EXPR32 (TYPE LIST)>
1544 <SUB TEMP61 1 = TEMP61 (TYPE FIX)>
1551 <CALL '
\1aDO-SEG 2 = EXPR32>
1552 <CONS EXPR32 () = TEMP43>
1554 <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1555 <PUTREST TEMP43 PHRASE31>
1564 <CALL '
\1aFORM 3 = TEMP46>
1565 <CONS TEMP46 () = TEMP43>
1567 <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1568 <PUTREST TEMP43 PHRASE31>
1571 <CONS TEMP43 () = TEMP43 (TYPE LIST)>
1572 <EMPL? TEMP29 - TAG71>
1573 <SET TEMP29 TEMP43 (TYPE LIST)>
1576 <PUTREST TEMP27 TEMP43>
1579 <SET TEMP27 TEMP43 (TYPE LIST)>
1582 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1585 <DEAD PRED8 TEMP26 TEMP27>
1586 <LOOP (TEMP29 VALUE) (TEMP19 VALUE)>
1589 <EMPL? TEMP29 + TAG18>
1590 <NTHL TEMP29 1 = STACK>
1591 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1592 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1596 <LOOP (DEFAULT-CASE11 VALUE) (TEMP19 VALUE)>
1599 <EMPL? DEFAULT-CASE11 + TAG74>
1600 <NTHL DEFAULT-CASE11 1 = STACK>
1601 <RESTL DEFAULT-CASE11 1 = DEFAULT-CASE11 (TYPE LIST)>
1602 <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1605 <DEAD DEFAULT-CASE11>
1606 <CALL '
\1aFORM TEMP19 = STACK>
1608 <CALL '
\1aFORM 3 = TEMP19>
1613 <COND (<GASSIGNED? CASE> <SETG CASE <CHTYPE (,CASE) MACRO>>)> <GFCN
\1aDO-SEG (
1614 "VALUE" FORM ANY LIST) PRED5 OPS6>
1615 <TEMP TEMP10 TEMP21 TEMP19 #ADECL [TEMP18 LIST] X23 TEMP25
1618 <EQUAL? PRED5 'TYPE? + BOOL9>
1619 <EQUAL? PRED5 'PRIMTYPE? + BOOL9>
1620 <EMPL? OPS6 - PHRASE8 (TYPE LIST)>
1622 <CONS .OB OPS6 = TEMP10>
1623 <CONS PRED5 TEMP10 = TEMP10>
1624 <CHTYPE TEMP10 <TYPE-CODE FORM> = TEMP10>
1628 <SET TEMP21 () (TYPE LIST)>
1629 <SET TEMP19 () (TYPE LIST)>
1633 <EMPL? OPS6 + MAPAP16>
1640 <CALL '
\1aFORM 3 = TEMP25>
1641 <CONS TEMP25 () = TEMP25 (TYPE LIST)>
1642 <EMPL? TEMP21 - TAG26>
1643 <SET TEMP21 TEMP25 (TYPE LIST)>
1646 <PUTREST TEMP19 TEMP25>
1649 <SET TEMP19 TEMP25 (TYPE LIST)>
1651 <RESTL OPS6 1 = OPS6 (TYPE LIST)>
1654 <DEAD OPS6 PRED5 TEMP19>
1655 <CONS 'OR TEMP21 = TEMP21>
1656 <CHTYPE TEMP21 <TYPE-CODE FORM> = TEMP21>
1662 <GFCN
\1aINC ("VALUE" FORM "QUOTE" ANY "OPTIONAL" "QUOTE"
1664 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1668 <TEMP #ADECL [TEMP13 FORM]>
1679 <CALL '
\1aFORM 2 = STACK>
1682 <CALL '
\1aFORM 3 = STACK>
1683 <CALL '
\1aFORM 3 = TEMP13>
1688 <COND (<GASSIGNED? INC> <SETG INC <CHTYPE (,INC) MACRO>>)> <GFCN
\1aDEC ("VALUE"
1689 FORM "QUOTE" ANY "OPTIONAL" "QUOTE" ANY) ATM8 AMT9>
1690 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1694 <TEMP #ADECL [TEMP13 FORM]>
1705 <CALL '
\1aFORM 2 = STACK>
1708 <CALL '
\1aFORM 3 = STACK>
1709 <CALL '
\1aFORM 3 = TEMP13>
1714 <COND (<GASSIGNED? DEC> <SETG DEC <CHTYPE (,DEC) MACRO>>)> <GFCN
\1aCHOP (
1715 "VALUE" FORM "QUOTE" ANY "OPTIONAL" "QUOTE" ANY) ATM8 AMT9>
1716 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1720 <TEMP #ADECL [TEMP13 FORM]>
1731 <CALL '
\1aFORM 2 = STACK>
1734 <CALL '
\1aFORM 3 = STACK>
1735 <CALL '
\1aFORM 3 = TEMP13>
1740 <COND (<GASSIGNED? CHOP> <SETG CHOP <CHTYPE (,CHOP) MACRO>>)> <GFCN
\1aIF (
1741 "VALUE" FORM "ARGS" ANY) BODY8>
1742 <OPT-DISPATCH 0 #FALSE () OPT6 OPT7>
1746 <TEMP #ADECL [TEMP10 FORM]>
1752 <CALL '
\1aFORM 2 = TEMP10>
1757 <COND (<GASSIGNED? IF> <SETG IF <CHTYPE (,IF) MACRO>>)> <GFCN
\1aIF-NOT ("VALUE"
1758 FORM "QUOTE" ANY "ARGS" ANY) PRED8 BODY9>
1759 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1771 <CALL '
\1aFORM 2 = TEMP12>
1772 <CONS TEMP12 () = TEMP12>
1773 <PUTREST TEMP12 BODY9>
1777 <CALL '
\1aFORM 2 = TEMP12>
1782 <COND (<GASSIGNED? IF-NOT> <SETG IF-NOT <CHTYPE (,IF-NOT) MACRO>>)> <GFCN
\1a
1783 PRIMTYPE? ("VALUE" ANY "QUOTE" ANY "ARGS" LIST) EXPR8 BODY9>
1784 <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1788 <TEMP TEMP13 TEMP15 TEMP21 TEMP30 X32 TEMP34>
1790 <EMPL? BODY9 - PHRASE11 (TYPE LIST)>
1792 <PUSH 'TOO-FEW-ARGUMENTS-SUPPLIED!-ERRORS>
1794 <CALL '
\1aERROR 2 = TEMP13>
1798 <RESTL BODY9 1 = TEMP15 (TYPE LIST)>
1799 <EMPL? TEMP15 - PHRASE14 (TYPE LIST)>
1806 <CALL '
\1aFORM 2 = STACK>
1807 <NTHL BODY9 1 = STACK>
1808 <CALL '
\1aFORM 3 = TEMP13>
1814 <CONS 'OB () = TEMP15>
1819 <CALL '
\1aFORM 2 = TEMP21>
1820 <CONS TEMP21 () = TEMP21>
1821 <PUTREST TEMP15 TEMP21>
1823 <CONS TEMP15 () = STACK>
1825 <PUSH #DECL ((OB) ATOM (VALUE) <OR FALSE ATOM>)>
1828 <SET TEMP30 () (TYPE LIST)>
1829 <SET TEMP21 () (TYPE LIST)>
1830 <SET TEMP15 BODY9 (TYPE LIST)>
1835 <EMPL? TEMP15 + MAPAP27>
1836 <NTHL TEMP15 1 = X32>
1842 <CALL '
\1aFORM 3 = TEMP34>
1843 <CONS TEMP34 () = TEMP34 (TYPE LIST)>
1844 <EMPL? TEMP30 - TAG35>
1845 <SET TEMP30 TEMP34 (TYPE LIST)>
1848 <PUTREST TEMP21 TEMP34>
1851 <SET TEMP21 TEMP34 (TYPE LIST)>
1853 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1856 <DEAD TEMP15 TEMP21>
1857 <CONS 'OR TEMP30 = TEMP30>
1858 <CHTYPE TEMP30 <TYPE-CODE FORM> = TEMP30>
1859 <CONS TEMP30 () = TEMP30>
1860 <CONS .OB () = TEMP34>
1861 <PUTREST TEMP30 TEMP34>
1865 <CALL '
\1aFORM 2 = STACK>
1866 <CALL '
\1aFORM 4 = TEMP13>
1871 <COND (<GASSIGNED? PRIMTYPE?> <SETG PRIMTYPE? <CHTYPE (,PRIMTYPE?) MACRO>>)>