1 Compilation record for: SRC:<MDL.COMP>PEEPH.MUD.92;P777752;ADM
2 Output file: SRC:<MDL.COMP>PEEPH.NBIN.92
5 COMPILING INSTYPE!-IPEEPH!-PEEPH!-PACKAGE
6 ===== Computed decl of variable: QX!-IPEEPH!-PEEPH!-PACKAGE is: FIX
7 ===== Computed decl of variable: QY!-IPEEPH!-PEEPH!-PACKAGE is: FIX
10 COMPILING NFIND-LAB!-IPEEPH!-PEEPH!-PACKAGE
11 ===== Non-specific structure for MAPF/R: **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
14 **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) FALSE) <COND (<SET X
18 COMPILING FIND-NOD!-IPEEPH!-PEEPH!-PACKAGE
21 COMPILING INSFIX!-IPEEPH!-PEEPH!-PACKAGE
22 ===== Computed decl of variable: XD!-IPEEPH!-PEEPH!-PACKAGE is: LIST
23 ===== Not open compiled because type is: <OR FALSE
24 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
25 <LIST <1 .XD!-IPEEPH!-PEEPH!-PACKAGE> **** <NTH <4 .X> 4> **** >
26 ===== Not open compiled because type is: <OR FALSE
27 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
28 (ELSE <LIST **** <NTH <4 .X> 4> **** >)
31 COMPILING PRT!-PEEPH!-PACKAGE
32 ===== Non-specific structure for MAPF/R: **** .X ****
34 **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) ATOM) <COND (<TYPE? .
36 ===== External variable being referenced: OUTCHAN
37 <COND (<TYPE? .X ATOM>) (ELSE <PRINC " " **** .OUTCHAN **** >)>
38 ===== External variable being referenced: OUTCHAN
39 <PRIN1 .X **** .OUTCHAN **** >
40 ===== External variable being referenced: OUTCHAN
41 <CRLF **** .OUTCHAN **** >
44 COMPILING FF!-IPEEPH!-PEEPH!-PACKAGE
45 ===== Non-specific structure for MAPF/R: <MAPF #FALSE () ,& **** .X **** >
47 **** <MAPF #FALSE () ,& .X> ****
48 ===== External variable being referenced: OUTCHAN
49 <CRLF **** .OUTCHAN **** >
52 COMPILING HACK-PRINT!-IPEEPH!-PEEPH!-PACKAGE
53 ===== External variable being referenced: OUTCHAN
54 <FUNCTION (X) <PRIN1 <INSFIX .X> **** .OUTCHAN **** >>
57 COMPILING SKIPPABLE!-IPEEPH!-PEEPH!-PACKAGE
60 COMPILING DEL-JUMP-LN!-IPEEPH!-PEEPH!-PACKAGE
61 ===== Computed decl of variable: QD!-IPEEPH!-PEEPH!-PACKAGE is: LIST
64 COMPILING CHANGE-COND!-IPEEPH!-PEEPH!-PACKAGE
67 COMPILING MAKE:LABEL!-IPEEPH!-PEEPH!-PACKAGE
68 ===== Computed decl of variable: XX!-IPEEPH!-PEEPH!-PACKAGE is: STRING
69 ===== External variable being referenced: LABNUM!-IPEEPH!-PEEPH!-PACKAGE
70 <+ **** .LABNUM!-IPEEPH!-PEEPH!-PACKAGE **** 1>
71 ===== External variable being SET: LABNUM!-IPEEPH!-PEEPH!-PACKAGE
72 **** <SET LABNUM!-IPEEPH!-PEEPH!-PACKAGE <+ .LABNUM!-IPEEPH!-PEEPH!-PACKAGE 1
76 COMPILING NEXTS!-IPEEPH!-PEEPH!-PACKAGE
79 COMPILING CROSS-OPT!-IPEEPH!-PEEPH!-PACKAGE
80 ===== Computed decl of variable: NEWLN!-IPEEPH!-PEEPH!-PACKAGE is:
81 LNODE!-IPEEPH!-PEEPH!-PACKAGE
82 ===== Computed decl of variable: LABL!-IPEEPH!-PEEPH!-PACKAGE is: ATOM
83 ===== Computed decl of variable: NEEDLABEL!-IPEEPH!-PEEPH!-PACKAGE is: <OR
85 ===== External variable being SET: REDO
86 **** <SET REDO "CROSS-OPTIMIZATION"> ****
87 ===== External variable being referenced: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
88 **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE ****
89 ===== External variable being SET: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
90 **** <SET NLABLS!-IPEEPH!-PEEPH!-PACKAGE (<LIST .LABL!-IPEEPH!-PEEPH!-PACKAGE
92 ===== External variable being referenced: MODLN!-IPEEPH!-PEEPH!-PACKAGE
93 **** .MODLN!-IPEEPH!-PEEPH!-PACKAGE ****
94 ===== External variable being SET: MODLN!-IPEEPH!-PEEPH!-PACKAGE
95 **** <SET MODLN!-IPEEPH!-PEEPH!-PACKAGE <LIST .NEWLN!-IPEEPH!-PEEPH!-PACKAGE
97 ===== Frame being generated.
98 **** <FUNCTION (TOPCOD!-IPEEPH!-PEEPH!-PACKAGE NCOD!-IPEEPH!-PEEPH!-PACKAGE
102 COMPILING BACKS!-IPEEPH!-PEEPH!-PACKAGE
105 COMPILING ADDON!-IPEEPH!-PEEPH!-PACKAGE
108 COMPILING FIND-LAB!-IPEEPH!-PEEPH!-PACKAGE
109 ===== Non-specific structure for MAPF/R: **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
112 **** <MAPF #FALSE () <FUNCTION ("AUX" X) #DECL ((VALUE) FALSE) <COND (<TYPE?
116 COMPILING PSEUDO?!-IPEEPH!-PEEPH!-PACKAGE
119 COMPILING MUNG-LAB!-IPEEPH!-PEEPH!-PACKAGE
120 ===== Non-specific structure for MAPF/R: **** .INST!-IPEEPH!-PEEPH!-PACKAGE **
123 **** <MAPR #FALSE () <FUNCTION ("AUX" IN (OB!-IPEEPH!-PEEPH!-PACKAGE <NTH .IN
125 ===== Not open compiled because type is: <STRUCTURED ANY>
126 **** <NTH .IN 1> ****
127 ===== Not open compiled because type is: <STRUCTURED ANY>
128 **** <PUT .IN 1 .OB!-IPEEPH!-PEEPH!-PACKAGE> ****
131 COMPILING PEEP-PRINT!-IPEEPH!-PEEPH!-PACKAGE
132 ===== External reference to LVAL: OUTL!-IPEEPH!-PEEPH!-PACKAGE
133 <NOT **** <ASSIGNED? OUTL!-IPEEPH!-PEEPH!-PACKAGE> **** >
134 ===== External variable being referenced: OUTCHAN
135 <PRINC "Peephole " **** .OUTCHAN **** >
136 ===== Arithmetic can't open compile because: <- **** .LN!-IPEEPH!-PEEPH!-PACKA
137 GE **** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE>
138 is of type: <OR FIX FLOAT>
139 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
140 ===== Arithmetic can't open compile because: <- .LN!-IPEEPH!-PEEPH!-PACKAGE **
141 ** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE **** >
142 is of type: <OR FIX FLOAT>
143 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
144 ===== Arithmetic can't open compile because: **** .NLN!-IPEEPH!-PEEPH!-PACKAGE
146 is of type: <OR FIX FLOAT>
147 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
149 ===== Arithmetic can't open compile because: **** .NUMLABS!-IPEEPH!-PEEPH!-PAC
151 is of type: <OR FIX FLOAT>
152 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
154 ===== Arithmetic can't open compile because: **** <- .NNUMLABS!-IPEEPH!-PEEPH!
156 is of type: <OR FIX FLOAT>
157 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
159 ===== Arithmetic can't open compile because: <- **** .LN!-IPEEPH!-PEEPH!-PACKA
160 GE **** .NLN!-IPEEPH!-PEEPH!-PACKAGE>
161 is of type: <OR FIX FLOAT>
162 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
163 ===== Arithmetic can't open compile because: <- .LN!-IPEEPH!-PEEPH!-PACKAGE **
164 ** .NLN!-IPEEPH!-PEEPH!-PACKAGE **** >
165 is of type: <OR FIX FLOAT>
166 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
167 ===== Arithmetic can't open compile because: **** .LN!-IPEEPH!-PEEPH!-PACKAGE
169 is of type: <OR FIX FLOAT>
170 **** </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
172 ===== Arithmetic can't open compile because: **** </ <FLOAT <- .LN!-IPEEPH!-PE
173 EPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
175 is of type: <OR FIX FLOAT>
176 **** <* 100 </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .
177 NLN!-IPEEPH!-PEEPH!-PAC ...
178 ===== External variable being referenced: OUTCHAN
180 ===== External variable being referenced: OUTCHAN
181 <PRINC "% " **** .OUTCHAN **** >
182 ===== External variable being referenced: OUTCHAN
183 <PRIN1 .LN!-IPEEPH!-PEEPH!-PACKAGE **** .OUTCHAN **** >
184 ===== External variable being referenced: OUTCHAN
185 <PRINC "/" **** .OUTCHAN **** >
186 ===== External variable being referenced: OUTCHAN
187 <PRIN1 .NLN!-IPEEPH!-PEEPH!-PACKAGE **** .OUTCHAN **** >
188 ===== Arithmetic can't open compile because: <- **** .LN!-IPEEPH!-PEEPH!-PACKA
189 GE **** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE>
190 is of type: <OR FIX FLOAT>
191 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
192 ===== Arithmetic can't open compile because: <- .LN!-IPEEPH!-PEEPH!-PACKAGE **
193 ** .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE **** >
194 is of type: <OR FIX FLOAT>
195 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE> ****
196 ===== Arithmetic can't open compile because: **** .NLN!-IPEEPH!-PEEPH!-PACKAGE
198 is of type: <OR FIX FLOAT>
199 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
201 ===== Arithmetic can't open compile because: **** .NUMLABS!-IPEEPH!-PEEPH!-PAC
203 is of type: <OR FIX FLOAT>
204 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
206 ===== Arithmetic can't open compile because: **** <- .NNUMLABS!-IPEEPH!-PEEPH!
208 is of type: <OR FIX FLOAT>
209 **** <- .NLN!-IPEEPH!-PEEPH!-PACKAGE .NUMLABS!-IPEEPH!-PEEPH!-PACKAGE <- .
211 ===== Arithmetic can't open compile because: <- **** .LN!-IPEEPH!-PEEPH!-PACKA
212 GE **** .NLN!-IPEEPH!-PEEPH!-PACKAGE>
213 is of type: <OR FIX FLOAT>
214 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
215 ===== Arithmetic can't open compile because: <- .LN!-IPEEPH!-PEEPH!-PACKAGE **
216 ** .NLN!-IPEEPH!-PEEPH!-PACKAGE **** >
217 is of type: <OR FIX FLOAT>
218 **** <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE> ****
219 ===== Arithmetic can't open compile because: **** .LN!-IPEEPH!-PEEPH!-PACKAGE
221 is of type: <OR FIX FLOAT>
222 **** </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
224 ===== Arithmetic can't open compile because: **** </ <FLOAT <- .LN!-IPEEPH!-PE
225 EPH!-PACKAGE .NLN!-IPEEPH!-PEEPH!-PACKAGE>>
227 is of type: <OR FIX FLOAT>
228 **** <* 100 </ <FLOAT <- .LN!-IPEEPH!-PEEPH!-PACKAGE .
229 NLN!-IPEEPH!-PEEPH!-PAC ...
232 COMPILING FIND-END-OF-CHAIN!-IPEEPH!-PEEPH!-PACKAGE
233 ===== Computed decl of variable: DEFAULT is: <OR FALSE
234 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
235 ===== Not open compiled because type is: <OR FALSE
236 LNODE!-IPEEPH!-PEEPH!-PACKAGE>
237 <NTH **** <NTH <4 .JMP!-IPEEPH!-PEEPH!-PACKAGE> 3> **** 1>
238 ===== Not open compiled because type is: STRUCTURED
239 **** <NTH <NTH <4 .JMP!-IPEEPH!-PEEPH!-PACKAGE> 3> 1> ****
242 COMPILING FLUSH-LABELS!-IPEEPH!-PEEPH!-PACKAGE
243 ===== Computed decl of variable: TEM!-IPEEPH!-PEEPH!-PACKAGE is: LIST
244 ===== External variable being referenced: SLABS!-IPEEPH!-PEEPH!-PACKAGE
245 <NOT <MEMQ .X **** .SLABS!-IPEEPH!-PEEPH!-PACKAGE **** >>
246 ===== External variable being referenced: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
247 **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE ****
248 ===== External variable being referenced: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
249 <==? .N!-IPEEPH!-PEEPH!-PACKAGE **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE **** >
250 ===== External variable being referenced: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
251 <REST **** .NLABLS!-IPEEPH!-PEEPH!-PACKAGE **** 1>
252 ===== External variable being SET: NLABLS!-IPEEPH!-PEEPH!-PACKAGE
253 **** <SET NLABLS!-IPEEPH!-PEEPH!-PACKAGE <REST .
254 NLABLS!-IPEEPH!-PEEPH!-PACKAG ...
255 ===== External variable being referenced: NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE
256 <+ **** .NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE **** 1>
257 ===== External variable being SET: NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE
258 **** <SET NNUMLABS!-IPEEPH!-PEEPH!-PACKAGE <+ .
259 NNUMLABS!-IPEEPH!-PEEPH!-PACKA ...
260 ===== External variable being SET: REDO
261 **** <SET REDO "FLUSH REDUNDANT LABELS"> ****
264 COMPILING CLEAN-IT-UP!-IPEEPH!-PEEPH!-PACKAGE
265 ===== Not open compiled because type is: <OR FALSE TUPLE>
266 **** <NTH <3 .LND!-IPEEPH!-PEEPH!-PACKAGE> 1> ****
267 ===== Not open compiled because type is: STRUCTURED
268 **** <NTH <BACK <3 .LND!-IPEEPH!-PEEPH!-PACKAGE> 1> 1> ****
269 ===== Not open compiled because type is: STRUCTURED
270 **** <NTH .FIN-LNODE!-IPEEPH!-PEEPH!-PACKAGE 2> ****
271 ===== Not open compiled because type is: #FALSE ()
272 **** <PUT .FIN-LNODE!-IPEEPH!-PEEPH!-PACKAGE 2 <ADDON <LIST .