4 <ENTRY VMESS ANA-MESS ADDVMESS COMPILE-ERROR COMPILE-LOSSAGE COMPILE-WARNING COMPILE-NOTE COMPILE-ACTIVATION>
6 <USE "NPRINT" "COMPDEC">
9 <GFCN
\1aVMESS ("VALUE" ATOM "TUPLE" TUPLE)>
10 <MAKTUP MSG4 O20 = MSG4>
14 <GEN-LVAL 'OUTCHAN = STACK>
16 <CHTYPE MSG4 <TYPE-CODE VECTOR> = MSG4>
20 <EMPUV? MSG4 + MAPAP13>
22 <TYPE? O20 <TYPE-CODE STRING> - PHRASE22>
26 <GEN-LVAL 'OUTCHAN = STACK>
33 <GEN-LVAL 'OUTCHAN = STACK>
36 <RESTUV MSG4 1 = MSG4 (TYPE VECTOR)>
40 <GEN-LVAL 'OUTCHAN = STACK>
41 <CALL '
\1aCRLF 1 = MSG4>
47 <GFCN
\1aANA-MESS ("VALUE" ATOM <LIST ANY [REST NODE LIST]>) L4>
50 <RESTL L4 1 = LL8 (TYPE LIST)>
55 <EMPL? LL8 - PHRASE11 (TYPE LIST)>
60 <GEN-LVAL 'OUTCHAN = STACK>
62 <RESTL LL8 1 = TEMP13 (TYPE LIST)>
63 <NTHL TEMP13 1 = TEMP13 (TYPE LIST)>
67 <EMPL? TEMP13 + MAPAP20>
69 <TYPE? O28 <TYPE-CODE NODE> - PHRASE30>
70 <FRAME '
\1aNODE-COMPLAIN>
73 <CALL '
\1aNODE-COMPLAIN 1>
76 <TYPE? O28 <TYPE-CODE STRING> - PHRASE32>
80 <GEN-LVAL 'OUTCHAN = STACK>
87 <GEN-LVAL 'OUTCHAN = STACK>
90 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
94 <GEN-LVAL 'OUTCHAN = STACK>
96 <FRAME '
\1aNODE-COMPLAIN>
97 <NTHL LL8 1 = STACK (TYPE NODE)>
98 <CALL '
\1aNODE-COMPLAIN 1>
99 <RESTL LL8 1 = LL8 (TYPE LIST)>
100 <RESTL LL8 1 = LL8 (TYPE LIST)>
105 <GFCN
\1aADDVMESS ("VALUE" LIST NODE LIST) N4 L5>
106 <TEMP TEMP8 V7:LIST TEMP17>
108 <GEN-LVAL 'VERBOSE = V7>
110 <EMPL? TEMP8 + PHRASE12>
111 <LOOP (N4 VALUE) (TEMP8 VALUE)>
113 <NTHL TEMP8 1 = TEMP17>
114 <TYPE? TEMP17 <TYPE-CODE NODE> - TAG16>
115 <VEQUAL? TEMP17 N4 + TAG14>
118 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
119 <EMPL? TEMP8 - TAG15>
122 <RESTL TEMP8 1 = TEMP17 (TYPE LIST)>
124 <NTHL TEMP17 1 = TEMP8 (TYPE LIST)>
126 <LENL TEMP8 = TEMP17 (TYPE FIX)>
127 <SUB TEMP17 -1 = TEMP17 (TYPE FIX)>
128 <GRTR? TEMP17 0 - RESTL20 (TYPE FIX)>
129 <LOOP (TEMP8 VALUE) (TEMP17 VALUE)>
132 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
133 <SUB TEMP17 1 = TEMP17 (TYPE FIX)>
134 <GRTR? TEMP17 0 + RESTL18 (TYPE FIX)>
141 <CONS L5 () = TEMP17>
143 <CONS N4 TEMP17 = TEMP17>
147 <RESTL V7 1 = TEMP17 (TYPE LIST)>
149 <RESTL TEMP17 1 = TEMP8 (TYPE LIST)>
151 <GEN-SET 'VERBOSE TEMP8>
157 <GFCN
\1aCOMPILE-ERROR ("VALUE" ANY "TUPLE" ANY)>
158 <MAKTUP X4 IT20 = X4>
162 <GEN-LVAL 'OUTCHAN = STACK>
164 <CHTYPE X4 <TYPE-CODE VECTOR> = X4>
168 <EMPUV? X4 + MAPAP13>
170 <TYPE? IT20 <TYPE-CODE STRING> - PHRASE22>
174 <GEN-LVAL 'OUTCHAN = STACK>
178 <TYPE? IT20 <TYPE-CODE NODE> - PHRASE27>
179 <FRAME '
\1aNODE-COMPLAIN>
182 <CALL '
\1aNODE-COMPLAIN 1>
188 <GEN-LVAL 'OUTCHAN = STACK>
193 <GEN-LVAL 'OUTCHAN = STACK>
195 <RESTUV X4 1 = X4 (TYPE VECTOR)>
198 <NTHR 'DEBUGSW 1 = X4 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE39)>
199 <TYPE? X4 <TYPE-CODE FALSE> + PHRASE39>
200 <NTHR X4 1 = X4 (RECORD-TYPE GBIND)>
201 <TYPE? X4 <TYPE-CODE UNBOUND> + PHRASE39>
204 <TYPE? X4 <TYPE-CODE FALSE> + PHRASE39>
211 <GEN-LVAL 'COMPILE-ACTIVATION = STACK>
212 <CALL '
\1aRETURN 2 = X4>
215 <END
\1aCOMPILE-ERROR>
218 <GFCN
\1aCOMPILE-LOSSAGE ("VALUE" ANY "TUPLE" ANY)>
219 <MAKTUP X4 IT20 = X4>
222 <PUSH "*** LOSSAGE ">
223 <GEN-LVAL 'OUTCHAN = STACK>
225 <CHTYPE X4 <TYPE-CODE VECTOR> = X4>
229 <EMPUV? X4 + MAPAP13>
231 <TYPE? IT20 <TYPE-CODE STRING> - PHRASE22>
235 <GEN-LVAL 'OUTCHAN = STACK>
239 <TYPE? IT20 <TYPE-CODE NODE> - PHRASE27>
240 <FRAME '
\1aNODE-COMPLAIN>
243 <CALL '
\1aNODE-COMPLAIN 1>
249 <GEN-LVAL 'OUTCHAN = STACK>
254 <GEN-LVAL 'OUTCHAN = STACK>
256 <RESTUV X4 1 = X4 (TYPE VECTOR)>
260 <PUSH 'LOSSAGE!-ERRORS>
261 <CALL '
\1aERROR 1 = X4>
264 <END
\1aCOMPILE-LOSSAGE>
267 <GFCN
\1aCOMPILE-WARNING ("VALUE" ATOM "TUPLE" ANY)>
268 <MAKTUP X4 IT20 = X4>
271 <PUSH "*** WARNING ">
272 <GEN-LVAL 'OUTCHAN = STACK>
274 <CHTYPE X4 <TYPE-CODE VECTOR> = X4>
278 <EMPUV? X4 + MAPAP13>
280 <TYPE? IT20 <TYPE-CODE STRING> - PHRASE22>
284 <GEN-LVAL 'OUTCHAN = STACK>
288 <TYPE? IT20 <TYPE-CODE NODE> - PHRASE27>
289 <FRAME '
\1aNODE-COMPLAIN>
292 <CALL '
\1aNODE-COMPLAIN 1>
298 <GEN-LVAL 'OUTCHAN = STACK>
303 <GEN-LVAL 'OUTCHAN = STACK>
305 <RESTUV X4 1 = X4 (TYPE VECTOR)>
309 <GEN-LVAL 'OUTCHAN = STACK>
310 <CALL '
\1aCRLF 1 = X4>
313 <END
\1aCOMPILE-WARNING>
316 <GFCN
\1aCOMPILE-NOTE ("VALUE" ATOM "TUPLE" ANY)>
317 <MAKTUP X4 IT20 = X4>
321 <GEN-LVAL 'OUTCHAN = STACK>
323 <CHTYPE X4 <TYPE-CODE VECTOR> = X4>
327 <EMPUV? X4 + MAPAP13>
329 <TYPE? IT20 <TYPE-CODE STRING> - PHRASE22>
333 <GEN-LVAL 'OUTCHAN = STACK>
337 <TYPE? IT20 <TYPE-CODE NODE> - PHRASE27>
338 <FRAME '
\1aNODE-COMPLAIN>
341 <CALL '
\1aNODE-COMPLAIN 1>
347 <GEN-LVAL 'OUTCHAN = STACK>
352 <GEN-LVAL 'OUTCHAN = STACK>
354 <RESTUV X4 1 = X4 (TYPE VECTOR)>
358 <GEN-LVAL 'OUTCHAN = STACK>
359 <CALL '
\1aCRLF 1 = X4>
362 <END
\1aCOMPILE-NOTE>