nendo 0.5.2 → 0.5.3
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/benchmark/benchmark.nnd +27 -5
- data/lib/debug/syslog.nndc +24 -18
- data/lib/init.nnd +12 -28
- data/lib/init.nndc +18733 -14143
- data/lib/nendo/experimental.nnd +120 -0
- data/lib/nendo/experimental.nndc +1069 -0
- data/lib/nendo/test.nndc +1122 -879
- data/lib/nendo.rb +67 -16
- data/lib/rfc/json.nndc +486 -375
- data/lib/srfi-1.nndc +12775 -9853
- data/lib/srfi-2.nndc +810 -552
- data/lib/srfi-26.nndc +2615 -1838
- data/lib/text/html-lite.nndc +2286 -1737
- data/lib/text/tree.nndc +136 -103
- data/lib/util/combinations.nndc +4747 -3436
- data/lib/util/list.nndc +3417 -2355
- data/lib/util/match.nndc +53574 -36147
- data/test/nendo-util-test.nnd +318 -32
- data/test/nendo_spec.rb +65 -12
- data/test/rspec_formatter_for_emacs.rb +25 -0
- data/test/syntax_spec.rb +2 -0
- metadata +86 -12
data/lib/nendo/test.nndc
CHANGED
|
@@ -96,20 +96,23 @@ trampCall(
|
|
|
96
96
|
@global_lisp_binding['__ASMARKtest_MIMARKcounts_ASMARK'] = self.method( :__ASMARKtest_MIMARKcounts_ASMARK_METHOD )
|
|
97
97
|
@__ASMARKtest_MIMARKcounts_ASMARK =
|
|
98
98
|
trampCall(
|
|
99
|
-
|
|
100
|
-
|
|
101
|
-
|
|
102
|
-
|
|
103
|
-
|
|
104
|
-
|
|
105
|
-
|
|
106
|
-
|
|
107
|
-
|
|
108
|
-
|
|
109
|
-
|
|
110
|
-
|
|
111
|
-
|
|
112
|
-
|
|
99
|
+
begin
|
|
100
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 46 );
|
|
101
|
+
trampCall( self._vector_METHOD( 'vector',
|
|
102
|
+
begin
|
|
103
|
+
if @global_lisp_binding.has_key?('_vector') then
|
|
104
|
+
trampCall(@_vector)
|
|
105
|
+
else raise NameError.new( "Error: undefined variable _vector", "_vector" ) end
|
|
106
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:46"] + __e.backtrace ) ; raise __e
|
|
107
|
+
end ,
|
|
108
|
+
[
|
|
109
|
+
0 ,
|
|
110
|
+
0 ,
|
|
111
|
+
0 ,
|
|
112
|
+
0
|
|
113
|
+
]
|
|
114
|
+
))
|
|
115
|
+
end
|
|
113
116
|
)
|
|
114
117
|
end
|
|
115
118
|
)
|
|
@@ -122,43 +125,52 @@ trampCall(
|
|
|
122
125
|
@_test_MIMARKcount_PLMARK_PLMARK =
|
|
123
126
|
trampCall(
|
|
124
127
|
Proc.new { ||
|
|
125
|
-
|
|
126
|
-
|
|
127
|
-
|
|
128
|
-
|
|
129
|
-
|
|
130
|
-
|
|
131
|
-
|
|
132
|
-
|
|
133
|
-
|
|
134
|
-
|
|
135
|
-
|
|
136
|
-
|
|
137
|
-
|
|
138
|
-
|
|
139
|
-
|
|
140
|
-
|
|
141
|
-
|
|
142
|
-
|
|
143
|
-
|
|
144
|
-
|
|
145
|
-
|
|
146
|
-
|
|
147
|
-
|
|
148
|
-
|
|
149
|
-
|
|
150
|
-
|
|
151
|
-
|
|
152
|
-
|
|
153
|
-
|
|
154
|
-
|
|
155
|
-
|
|
156
|
-
|
|
157
|
-
|
|
158
|
-
|
|
159
|
-
|
|
160
|
-
|
|
161
|
-
|
|
128
|
+
begin
|
|
129
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 48 );
|
|
130
|
+
delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
|
|
131
|
+
begin
|
|
132
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
133
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
134
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
135
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
|
136
|
+
end ,
|
|
137
|
+
[
|
|
138
|
+
begin
|
|
139
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
140
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
141
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
142
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
|
143
|
+
end ,
|
|
144
|
+
0 ,
|
|
145
|
+
begin
|
|
146
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 48 );
|
|
147
|
+
__PLMARK_ARGS2(
|
|
148
|
+
begin
|
|
149
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 48 );
|
|
150
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
151
|
+
begin
|
|
152
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
153
|
+
trampCall(@_vector_MIMARKref)
|
|
154
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
155
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
|
156
|
+
end ,
|
|
157
|
+
[
|
|
158
|
+
begin
|
|
159
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
160
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
161
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
162
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
|
163
|
+
end ,
|
|
164
|
+
0
|
|
165
|
+
]
|
|
166
|
+
))
|
|
167
|
+
end ,
|
|
168
|
+
1
|
|
169
|
+
)
|
|
170
|
+
end
|
|
171
|
+
]
|
|
172
|
+
)
|
|
173
|
+
end
|
|
162
174
|
}
|
|
163
175
|
)
|
|
164
176
|
end
|
|
@@ -172,43 +184,52 @@ trampCall(
|
|
|
172
184
|
@_test_MIMARKpass_PLMARK_PLMARK =
|
|
173
185
|
trampCall(
|
|
174
186
|
Proc.new { ||
|
|
175
|
-
|
|
176
|
-
|
|
177
|
-
|
|
178
|
-
|
|
179
|
-
|
|
180
|
-
|
|
181
|
-
|
|
182
|
-
|
|
183
|
-
|
|
184
|
-
|
|
185
|
-
|
|
186
|
-
|
|
187
|
-
|
|
188
|
-
|
|
189
|
-
|
|
190
|
-
|
|
191
|
-
|
|
192
|
-
|
|
193
|
-
|
|
194
|
-
|
|
195
|
-
|
|
196
|
-
|
|
197
|
-
|
|
198
|
-
|
|
199
|
-
|
|
200
|
-
|
|
201
|
-
|
|
202
|
-
|
|
203
|
-
|
|
204
|
-
|
|
205
|
-
|
|
206
|
-
|
|
207
|
-
|
|
208
|
-
|
|
209
|
-
|
|
210
|
-
|
|
211
|
-
|
|
187
|
+
begin
|
|
188
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 50 );
|
|
189
|
+
delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
|
|
190
|
+
begin
|
|
191
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
192
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
193
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
194
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
|
195
|
+
end ,
|
|
196
|
+
[
|
|
197
|
+
begin
|
|
198
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
199
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
200
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
201
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
|
202
|
+
end ,
|
|
203
|
+
1 ,
|
|
204
|
+
begin
|
|
205
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 50 );
|
|
206
|
+
__PLMARK_ARGS2(
|
|
207
|
+
begin
|
|
208
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 50 );
|
|
209
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
210
|
+
begin
|
|
211
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
212
|
+
trampCall(@_vector_MIMARKref)
|
|
213
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
214
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
|
215
|
+
end ,
|
|
216
|
+
[
|
|
217
|
+
begin
|
|
218
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
219
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
220
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
221
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
|
222
|
+
end ,
|
|
223
|
+
1
|
|
224
|
+
]
|
|
225
|
+
))
|
|
226
|
+
end ,
|
|
227
|
+
1
|
|
228
|
+
)
|
|
229
|
+
end
|
|
230
|
+
]
|
|
231
|
+
)
|
|
232
|
+
end
|
|
212
233
|
}
|
|
213
234
|
)
|
|
214
235
|
end
|
|
@@ -222,43 +243,52 @@ trampCall(
|
|
|
222
243
|
@_test_MIMARKfail_PLMARK_PLMARK =
|
|
223
244
|
trampCall(
|
|
224
245
|
Proc.new { ||
|
|
225
|
-
|
|
226
|
-
|
|
227
|
-
|
|
228
|
-
|
|
229
|
-
|
|
230
|
-
|
|
231
|
-
|
|
232
|
-
|
|
233
|
-
|
|
234
|
-
|
|
235
|
-
|
|
236
|
-
|
|
237
|
-
|
|
238
|
-
|
|
239
|
-
|
|
240
|
-
|
|
241
|
-
|
|
242
|
-
|
|
243
|
-
|
|
244
|
-
|
|
245
|
-
|
|
246
|
-
|
|
247
|
-
|
|
248
|
-
|
|
249
|
-
|
|
250
|
-
|
|
251
|
-
|
|
252
|
-
|
|
253
|
-
|
|
254
|
-
|
|
255
|
-
|
|
256
|
-
|
|
257
|
-
|
|
258
|
-
|
|
259
|
-
|
|
260
|
-
|
|
261
|
-
|
|
246
|
+
begin
|
|
247
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 52 );
|
|
248
|
+
delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
|
|
249
|
+
begin
|
|
250
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
251
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
252
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
253
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
|
254
|
+
end ,
|
|
255
|
+
[
|
|
256
|
+
begin
|
|
257
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
258
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
259
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
260
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
|
261
|
+
end ,
|
|
262
|
+
2 ,
|
|
263
|
+
begin
|
|
264
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 52 );
|
|
265
|
+
__PLMARK_ARGS2(
|
|
266
|
+
begin
|
|
267
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 52 );
|
|
268
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
269
|
+
begin
|
|
270
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
271
|
+
trampCall(@_vector_MIMARKref)
|
|
272
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
273
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
|
274
|
+
end ,
|
|
275
|
+
[
|
|
276
|
+
begin
|
|
277
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
278
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
279
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
280
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
|
281
|
+
end ,
|
|
282
|
+
2
|
|
283
|
+
]
|
|
284
|
+
))
|
|
285
|
+
end ,
|
|
286
|
+
1
|
|
287
|
+
)
|
|
288
|
+
end
|
|
289
|
+
]
|
|
290
|
+
)
|
|
291
|
+
end
|
|
262
292
|
}
|
|
263
293
|
)
|
|
264
294
|
end
|
|
@@ -272,43 +302,52 @@ trampCall(
|
|
|
272
302
|
@_test_MIMARKabort_PLMARK_PLMARK =
|
|
273
303
|
trampCall(
|
|
274
304
|
Proc.new { ||
|
|
275
|
-
|
|
276
|
-
|
|
277
|
-
|
|
278
|
-
|
|
279
|
-
|
|
280
|
-
|
|
281
|
-
|
|
282
|
-
|
|
283
|
-
|
|
284
|
-
|
|
285
|
-
|
|
286
|
-
|
|
287
|
-
|
|
288
|
-
|
|
289
|
-
|
|
290
|
-
|
|
291
|
-
|
|
292
|
-
|
|
293
|
-
|
|
294
|
-
|
|
295
|
-
|
|
296
|
-
|
|
297
|
-
|
|
298
|
-
|
|
299
|
-
|
|
300
|
-
|
|
301
|
-
|
|
302
|
-
|
|
303
|
-
|
|
304
|
-
|
|
305
|
-
|
|
306
|
-
|
|
307
|
-
|
|
308
|
-
|
|
309
|
-
|
|
310
|
-
|
|
311
|
-
|
|
305
|
+
begin
|
|
306
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 54 );
|
|
307
|
+
delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
|
|
308
|
+
begin
|
|
309
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
310
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
311
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
312
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
|
313
|
+
end ,
|
|
314
|
+
[
|
|
315
|
+
begin
|
|
316
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
317
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
318
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
319
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
|
320
|
+
end ,
|
|
321
|
+
3 ,
|
|
322
|
+
begin
|
|
323
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 54 );
|
|
324
|
+
__PLMARK_ARGS2(
|
|
325
|
+
begin
|
|
326
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 54 );
|
|
327
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
328
|
+
begin
|
|
329
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
330
|
+
trampCall(@_vector_MIMARKref)
|
|
331
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
332
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
|
333
|
+
end ,
|
|
334
|
+
[
|
|
335
|
+
begin
|
|
336
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
337
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
338
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
339
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
|
340
|
+
end ,
|
|
341
|
+
3
|
|
342
|
+
]
|
|
343
|
+
))
|
|
344
|
+
end ,
|
|
345
|
+
1
|
|
346
|
+
)
|
|
347
|
+
end
|
|
348
|
+
]
|
|
349
|
+
)
|
|
350
|
+
end
|
|
312
351
|
}
|
|
313
352
|
)
|
|
314
353
|
end
|
|
@@ -322,86 +361,101 @@ trampCall(
|
|
|
322
361
|
@_format_MIMARKsummary =
|
|
323
362
|
trampCall(
|
|
324
363
|
Proc.new { ||
|
|
325
|
-
|
|
326
|
-
|
|
327
|
-
|
|
328
|
-
|
|
329
|
-
|
|
330
|
-
|
|
331
|
-
|
|
332
|
-
|
|
333
|
-
|
|
334
|
-
|
|
335
|
-
|
|
364
|
+
begin
|
|
365
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 57 );
|
|
366
|
+
delayCall( '_sprintf', 'sprintf',
|
|
367
|
+
begin
|
|
368
|
+
if @global_lisp_binding.has_key?('_sprintf') then
|
|
369
|
+
trampCall(@_sprintf)
|
|
370
|
+
else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
|
|
371
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:57"] + __e.backtrace ) ; raise __e
|
|
372
|
+
end ,
|
|
373
|
+
[
|
|
374
|
+
"Total: %5d tests, %5d passed, %5d failed, %5d aborted.
|
|
375
|
+
" ,
|
|
336
376
|
begin
|
|
337
|
-
|
|
338
|
-
trampCall(
|
|
339
|
-
|
|
340
|
-
|
|
377
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 61 );
|
|
378
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
379
|
+
begin
|
|
380
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
381
|
+
trampCall(@_vector_MIMARKref)
|
|
382
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
383
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
384
|
+
end ,
|
|
385
|
+
[
|
|
386
|
+
begin
|
|
387
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
388
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
389
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
390
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
391
|
+
end ,
|
|
392
|
+
0
|
|
393
|
+
]
|
|
394
|
+
))
|
|
341
395
|
end ,
|
|
342
|
-
[
|
|
343
|
-
begin
|
|
344
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
345
|
-
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
346
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
347
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
348
|
-
end ,
|
|
349
|
-
0
|
|
350
|
-
]
|
|
351
|
-
)) ,
|
|
352
|
-
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
353
396
|
begin
|
|
354
|
-
|
|
355
|
-
trampCall(
|
|
356
|
-
|
|
357
|
-
|
|
397
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 61 );
|
|
398
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
399
|
+
begin
|
|
400
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
401
|
+
trampCall(@_vector_MIMARKref)
|
|
402
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
403
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
404
|
+
end ,
|
|
405
|
+
[
|
|
406
|
+
begin
|
|
407
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
408
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
409
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
410
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
411
|
+
end ,
|
|
412
|
+
1
|
|
413
|
+
]
|
|
414
|
+
))
|
|
358
415
|
end ,
|
|
359
|
-
[
|
|
360
|
-
begin
|
|
361
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
362
|
-
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
363
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
364
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
365
|
-
end ,
|
|
366
|
-
1
|
|
367
|
-
]
|
|
368
|
-
)) ,
|
|
369
|
-
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
370
416
|
begin
|
|
371
|
-
|
|
372
|
-
trampCall(
|
|
373
|
-
|
|
374
|
-
|
|
417
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 61 );
|
|
418
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
419
|
+
begin
|
|
420
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
421
|
+
trampCall(@_vector_MIMARKref)
|
|
422
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
423
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
424
|
+
end ,
|
|
425
|
+
[
|
|
426
|
+
begin
|
|
427
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
428
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
429
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
430
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
431
|
+
end ,
|
|
432
|
+
2
|
|
433
|
+
]
|
|
434
|
+
))
|
|
375
435
|
end ,
|
|
376
|
-
[
|
|
377
|
-
begin
|
|
378
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
379
|
-
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
380
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
381
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
382
|
-
end ,
|
|
383
|
-
2
|
|
384
|
-
]
|
|
385
|
-
)) ,
|
|
386
|
-
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
387
436
|
begin
|
|
388
|
-
|
|
389
|
-
trampCall(
|
|
390
|
-
|
|
391
|
-
|
|
392
|
-
|
|
393
|
-
|
|
394
|
-
|
|
395
|
-
|
|
396
|
-
|
|
397
|
-
|
|
398
|
-
|
|
399
|
-
|
|
400
|
-
|
|
401
|
-
|
|
402
|
-
|
|
403
|
-
|
|
404
|
-
|
|
437
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 61 );
|
|
438
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
439
|
+
begin
|
|
440
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
441
|
+
trampCall(@_vector_MIMARKref)
|
|
442
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
443
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
444
|
+
end ,
|
|
445
|
+
[
|
|
446
|
+
begin
|
|
447
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
448
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
449
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
450
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
|
|
451
|
+
end ,
|
|
452
|
+
3
|
|
453
|
+
]
|
|
454
|
+
))
|
|
455
|
+
end
|
|
456
|
+
]
|
|
457
|
+
)
|
|
458
|
+
end
|
|
405
459
|
}
|
|
406
460
|
)
|
|
407
461
|
end
|
|
@@ -417,19 +471,28 @@ trampCall(
|
|
|
417
471
|
Proc.new { ||
|
|
418
472
|
if (
|
|
419
473
|
if (
|
|
420
|
-
|
|
421
|
-
|
|
422
|
-
|
|
423
|
-
|
|
424
|
-
|
|
425
|
-
|
|
426
|
-
|
|
427
|
-
|
|
428
|
-
|
|
429
|
-
|
|
430
|
-
|
|
474
|
+
begin
|
|
475
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
|
476
|
+
_not(
|
|
477
|
+
begin
|
|
478
|
+
embedBacktraceInfo( "", 1 );
|
|
479
|
+
_eq_QUMARK(
|
|
480
|
+
false ,
|
|
481
|
+
begin
|
|
482
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 64 );
|
|
483
|
+
_string_QUMARK(
|
|
484
|
+
begin
|
|
485
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
|
486
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
487
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
488
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
|
489
|
+
end
|
|
490
|
+
)
|
|
491
|
+
end
|
|
492
|
+
)
|
|
493
|
+
end
|
|
431
494
|
)
|
|
432
|
-
|
|
495
|
+
end
|
|
433
496
|
) then
|
|
434
497
|
begin
|
|
435
498
|
trampCall(File).exist?(
|
|
@@ -447,187 +510,223 @@ trampCall(
|
|
|
447
510
|
end
|
|
448
511
|
) then
|
|
449
512
|
begin
|
|
450
|
-
|
|
451
|
-
|
|
452
|
-
|
|
453
|
-
|
|
454
|
-
|
|
455
|
-
|
|
456
|
-
|
|
457
|
-
|
|
458
|
-
|
|
459
|
-
|
|
460
|
-
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
461
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
462
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
|
463
|
-
end ,
|
|
464
|
-
Proc.new { |_f|
|
|
513
|
+
begin
|
|
514
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 66 );
|
|
515
|
+
trampCall( self._with_MIMARKopen_METHOD( 'with-open',
|
|
516
|
+
begin
|
|
517
|
+
if @global_lisp_binding.has_key?('_with_MIMARKopen') then
|
|
518
|
+
trampCall(@_with_MIMARKopen)
|
|
519
|
+
else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
|
|
520
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
|
521
|
+
end ,
|
|
522
|
+
[
|
|
465
523
|
begin
|
|
466
|
-
|
|
467
|
-
|
|
468
|
-
|
|
469
|
-
|
|
470
|
-
|
|
471
|
-
|
|
472
|
-
|
|
473
|
-
|
|
474
|
-
|
|
524
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
|
525
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
526
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
527
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
|
528
|
+
end ,
|
|
529
|
+
Proc.new { |_f|
|
|
530
|
+
begin
|
|
531
|
+
___lambda = lambda { |_m|
|
|
532
|
+
if (
|
|
533
|
+
begin
|
|
534
|
+
trampCall(_m)
|
|
535
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
536
|
+
end
|
|
537
|
+
) then
|
|
538
|
+
begin
|
|
475
539
|
begin
|
|
476
|
-
|
|
477
|
-
trampCall(
|
|
478
|
-
|
|
479
|
-
|
|
480
|
-
|
|
481
|
-
|
|
482
|
-
|
|
483
|
-
|
|
484
|
-
|
|
485
|
-
|
|
486
|
-
|
|
487
|
-
|
|
488
|
-
|
|
489
|
-
end ,
|
|
490
|
-
[
|
|
491
|
-
begin
|
|
492
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
493
|
-
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
494
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
495
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
496
|
-
end ,
|
|
497
|
-
begin
|
|
498
|
-
trampCall(_i)
|
|
499
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
500
|
-
end ,
|
|
501
|
-
_to_MIMARKi(
|
|
502
|
-
trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
|
|
503
|
-
begin
|
|
504
|
-
if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
|
|
505
|
-
trampCall(@_rxmatch_MIMARKsubstring)
|
|
506
|
-
else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
|
|
507
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
508
|
-
end ,
|
|
509
|
-
[
|
|
540
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 70 );
|
|
541
|
+
trampCall( self._for_MIMARKeach_METHOD( 'for-each',
|
|
542
|
+
begin
|
|
543
|
+
if @global_lisp_binding.has_key?('_for_MIMARKeach') then
|
|
544
|
+
trampCall(@_for_MIMARKeach)
|
|
545
|
+
else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
|
|
546
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:70"] + __e.backtrace ) ; raise __e
|
|
547
|
+
end ,
|
|
548
|
+
[
|
|
549
|
+
Proc.new { |_i|
|
|
550
|
+
begin
|
|
551
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 79 );
|
|
552
|
+
trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
|
|
510
553
|
begin
|
|
511
|
-
|
|
512
|
-
|
|
554
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
555
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
556
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
557
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
513
558
|
end ,
|
|
514
|
-
|
|
515
|
-
|
|
516
|
-
|
|
517
|
-
|
|
518
|
-
end
|
|
519
|
-
|
|
520
|
-
|
|
521
|
-
|
|
522
|
-
|
|
523
|
-
|
|
524
|
-
|
|
525
|
-
|
|
526
|
-
|
|
527
|
-
|
|
528
|
-
|
|
529
|
-
|
|
559
|
+
[
|
|
560
|
+
begin
|
|
561
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
562
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
563
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
564
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
565
|
+
end ,
|
|
566
|
+
begin
|
|
567
|
+
trampCall(_i)
|
|
568
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
569
|
+
end ,
|
|
570
|
+
begin
|
|
571
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 72 );
|
|
572
|
+
_to_MIMARKi(
|
|
573
|
+
begin
|
|
574
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 72 );
|
|
575
|
+
trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
|
|
576
|
+
begin
|
|
577
|
+
if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
|
|
578
|
+
trampCall(@_rxmatch_MIMARKsubstring)
|
|
579
|
+
else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
|
|
580
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
581
|
+
end ,
|
|
582
|
+
[
|
|
583
|
+
begin
|
|
584
|
+
trampCall(_m)
|
|
585
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
586
|
+
end ,
|
|
587
|
+
begin
|
|
588
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 77 );
|
|
589
|
+
__PLMARK_ARGS2(
|
|
590
|
+
begin
|
|
591
|
+
trampCall(_i)
|
|
592
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
|
593
|
+
end ,
|
|
594
|
+
1
|
|
595
|
+
)
|
|
596
|
+
end
|
|
597
|
+
]
|
|
598
|
+
))
|
|
599
|
+
end
|
|
600
|
+
)
|
|
601
|
+
end
|
|
602
|
+
]
|
|
603
|
+
))
|
|
604
|
+
end
|
|
605
|
+
} ,
|
|
606
|
+
Cell.new(0,Cell.new(1,Cell.new(2,Cell.new(3))))
|
|
607
|
+
]
|
|
608
|
+
))
|
|
609
|
+
end
|
|
610
|
+
end
|
|
530
611
|
end
|
|
531
|
-
|
|
532
|
-
} ; ___lambda.call(
|
|
533
|
-
trampCall( self._rxmatch_METHOD( 'rxmatch',
|
|
612
|
+
} ; ___lambda.call(
|
|
534
613
|
begin
|
|
535
|
-
|
|
536
|
-
trampCall(
|
|
537
|
-
|
|
538
|
-
|
|
539
|
-
|
|
540
|
-
|
|
541
|
-
|
|
542
|
-
|
|
543
|
-
|
|
544
|
-
)
|
|
545
|
-
|
|
546
|
-
|
|
547
|
-
|
|
548
|
-
|
|
549
|
-
|
|
550
|
-
|
|
551
|
-
|
|
552
|
-
|
|
553
|
-
|
|
614
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 68 );
|
|
615
|
+
trampCall( self._rxmatch_METHOD( 'rxmatch',
|
|
616
|
+
begin
|
|
617
|
+
if @global_lisp_binding.has_key?('_rxmatch') then
|
|
618
|
+
trampCall(@_rxmatch)
|
|
619
|
+
else raise NameError.new( "Error: undefined variable _rxmatch", "_rxmatch" ) end
|
|
620
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:68"] + __e.backtrace ) ; raise __e
|
|
621
|
+
end ,
|
|
622
|
+
[
|
|
623
|
+
Regexp.new( "Total:\\s+(\\d+)\\s+tests,\\s+(\\d+)\\s+passed,\\s+(\\d+)\\s+failed,\\s+(\\d+)\\s+aborted") ,
|
|
624
|
+
begin
|
|
625
|
+
trampCall(_f).readline.chomp(
|
|
626
|
+
)
|
|
627
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:68"] + __e.backtrace ) ; raise __e
|
|
628
|
+
end
|
|
629
|
+
]
|
|
630
|
+
))
|
|
631
|
+
end
|
|
632
|
+
)
|
|
633
|
+
end
|
|
634
|
+
}
|
|
635
|
+
]
|
|
636
|
+
))
|
|
637
|
+
end
|
|
554
638
|
end
|
|
555
639
|
end
|
|
556
640
|
begin
|
|
557
641
|
___lambda = lambda { |_orig_MIMARKabort|
|
|
558
|
-
|
|
559
|
-
|
|
560
|
-
|
|
561
|
-
|
|
562
|
-
|
|
563
|
-
|
|
564
|
-
|
|
565
|
-
|
|
566
|
-
|
|
567
|
-
|
|
568
|
-
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
569
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
570
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
571
|
-
end ,
|
|
572
|
-
3 ,
|
|
573
|
-
__PLMARK_ARGS2(
|
|
642
|
+
begin
|
|
643
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 79 );
|
|
644
|
+
trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
|
|
645
|
+
begin
|
|
646
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
647
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
648
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
649
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
650
|
+
end ,
|
|
651
|
+
[
|
|
574
652
|
begin
|
|
575
|
-
|
|
653
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
654
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
655
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
576
656
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
577
657
|
end ,
|
|
578
|
-
|
|
579
|
-
|
|
580
|
-
|
|
581
|
-
|
|
582
|
-
|
|
583
|
-
|
|
584
|
-
|
|
585
|
-
|
|
586
|
-
|
|
587
|
-
|
|
588
|
-
|
|
589
|
-
|
|
590
|
-
|
|
591
|
-
|
|
592
|
-
|
|
593
|
-
|
|
594
|
-
|
|
595
|
-
|
|
596
|
-
|
|
597
|
-
|
|
598
|
-
|
|
599
|
-
|
|
600
|
-
|
|
601
|
-
|
|
602
|
-
|
|
603
|
-
|
|
604
|
-
|
|
605
|
-
|
|
606
|
-
|
|
607
|
-
|
|
608
|
-
trampCall(_orig_MIMARKabort)
|
|
609
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
610
|
-
end
|
|
611
|
-
]
|
|
612
|
-
)
|
|
613
|
-
} ; ___lambda.call(
|
|
614
|
-
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
615
|
-
begin
|
|
616
|
-
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
617
|
-
trampCall(@_vector_MIMARKref)
|
|
618
|
-
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
619
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
|
|
620
|
-
end ,
|
|
621
|
-
[
|
|
658
|
+
3 ,
|
|
659
|
+
begin
|
|
660
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 77 );
|
|
661
|
+
__PLMARK_ARGS2(
|
|
662
|
+
begin
|
|
663
|
+
trampCall(_orig_MIMARKabort)
|
|
664
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
665
|
+
end ,
|
|
666
|
+
1
|
|
667
|
+
)
|
|
668
|
+
end
|
|
669
|
+
]
|
|
670
|
+
))
|
|
671
|
+
end
|
|
672
|
+
begin
|
|
673
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 78 );
|
|
674
|
+
trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
|
|
675
|
+
begin
|
|
676
|
+
if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
|
|
677
|
+
trampCall(@_write_MIMARKsummary)
|
|
678
|
+
else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
|
|
679
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:78"] + __e.backtrace ) ; raise __e
|
|
680
|
+
end ,
|
|
681
|
+
[
|
|
682
|
+
]
|
|
683
|
+
))
|
|
684
|
+
end
|
|
685
|
+
begin
|
|
686
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 79 );
|
|
687
|
+
delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
|
|
622
688
|
begin
|
|
623
|
-
if @global_lisp_binding.has_key?('
|
|
624
|
-
trampCall(@
|
|
625
|
-
else raise NameError.new( "Error: undefined variable
|
|
689
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
|
|
690
|
+
trampCall(@_vector_MIMARKset_EXMARK)
|
|
691
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
|
|
626
692
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
627
693
|
end ,
|
|
628
|
-
|
|
629
|
-
|
|
630
|
-
|
|
694
|
+
[
|
|
695
|
+
begin
|
|
696
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
697
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
698
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
699
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
700
|
+
end ,
|
|
701
|
+
3 ,
|
|
702
|
+
begin
|
|
703
|
+
trampCall(_orig_MIMARKabort)
|
|
704
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
705
|
+
end
|
|
706
|
+
]
|
|
707
|
+
)
|
|
708
|
+
end
|
|
709
|
+
} ; ___lambda.call(
|
|
710
|
+
begin
|
|
711
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 76 );
|
|
712
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
|
713
|
+
begin
|
|
714
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
|
715
|
+
trampCall(@_vector_MIMARKref)
|
|
716
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
|
717
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
|
|
718
|
+
end ,
|
|
719
|
+
[
|
|
720
|
+
begin
|
|
721
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
|
722
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
|
723
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
|
724
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
|
725
|
+
end ,
|
|
726
|
+
3
|
|
727
|
+
]
|
|
728
|
+
))
|
|
729
|
+
end
|
|
631
730
|
)
|
|
632
731
|
end
|
|
633
732
|
}
|
|
@@ -644,51 +743,60 @@ trampCall(
|
|
|
644
743
|
trampCall(
|
|
645
744
|
Proc.new { ||
|
|
646
745
|
if (
|
|
647
|
-
|
|
648
|
-
|
|
649
|
-
|
|
650
|
-
|
|
651
|
-
|
|
652
|
-
|
|
653
|
-
|
|
654
|
-
|
|
746
|
+
begin
|
|
747
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 82 );
|
|
748
|
+
_string_QUMARK(
|
|
749
|
+
begin
|
|
750
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
|
751
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
752
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
753
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
|
754
|
+
end
|
|
755
|
+
)
|
|
756
|
+
end
|
|
655
757
|
) then
|
|
656
758
|
begin
|
|
657
|
-
|
|
658
|
-
|
|
659
|
-
|
|
660
|
-
|
|
661
|
-
|
|
662
|
-
|
|
663
|
-
|
|
664
|
-
|
|
665
|
-
|
|
666
|
-
|
|
667
|
-
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
668
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
669
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
|
670
|
-
end ,
|
|
671
|
-
Proc.new { |_f|
|
|
759
|
+
begin
|
|
760
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 83 );
|
|
761
|
+
delayCall( '_with_MIMARKopen', 'with-open',
|
|
762
|
+
begin
|
|
763
|
+
if @global_lisp_binding.has_key?('_with_MIMARKopen') then
|
|
764
|
+
trampCall(@_with_MIMARKopen)
|
|
765
|
+
else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
|
|
766
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
|
767
|
+
end ,
|
|
768
|
+
[
|
|
672
769
|
begin
|
|
673
|
-
|
|
674
|
-
|
|
675
|
-
|
|
770
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
|
771
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
|
772
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
|
773
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
|
774
|
+
end ,
|
|
775
|
+
Proc.new { |_f|
|
|
776
|
+
begin
|
|
777
|
+
trampCall(_f).printf(
|
|
778
|
+
"%s" ,
|
|
676
779
|
begin
|
|
677
|
-
|
|
678
|
-
trampCall(
|
|
679
|
-
|
|
680
|
-
|
|
681
|
-
|
|
682
|
-
|
|
683
|
-
|
|
684
|
-
|
|
685
|
-
|
|
686
|
-
|
|
687
|
-
|
|
688
|
-
|
|
689
|
-
|
|
690
|
-
|
|
691
|
-
|
|
780
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 85 );
|
|
781
|
+
trampCall( self._format_MIMARKsummary_METHOD( 'format-summary',
|
|
782
|
+
begin
|
|
783
|
+
if @global_lisp_binding.has_key?('_format_MIMARKsummary') then
|
|
784
|
+
trampCall(@_format_MIMARKsummary)
|
|
785
|
+
else raise NameError.new( "Error: undefined variable _format_MIMARKsummary", "_format_MIMARKsummary" ) end
|
|
786
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
|
|
787
|
+
end ,
|
|
788
|
+
[
|
|
789
|
+
]
|
|
790
|
+
))
|
|
791
|
+
end
|
|
792
|
+
)
|
|
793
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
|
|
794
|
+
end
|
|
795
|
+
} ,
|
|
796
|
+
"w"
|
|
797
|
+
]
|
|
798
|
+
)
|
|
799
|
+
end
|
|
692
800
|
end
|
|
693
801
|
end
|
|
694
802
|
}
|
|
@@ -713,12 +821,15 @@ trampCall(
|
|
|
713
821
|
trampCall(_msg)
|
|
714
822
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
715
823
|
end ,
|
|
716
|
-
|
|
717
|
-
|
|
718
|
-
|
|
719
|
-
|
|
720
|
-
|
|
721
|
-
|
|
824
|
+
begin
|
|
825
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 99 );
|
|
826
|
+
_write_MIMARKto_MIMARKstring(
|
|
827
|
+
begin
|
|
828
|
+
trampCall(_expect)
|
|
829
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
830
|
+
end
|
|
831
|
+
)
|
|
832
|
+
end
|
|
722
833
|
)
|
|
723
834
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
|
|
724
835
|
end
|
|
@@ -727,35 +838,41 @@ trampCall(
|
|
|
727
838
|
)
|
|
728
839
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:103"] + __e.backtrace ) ; raise __e
|
|
729
840
|
end
|
|
730
|
-
|
|
731
|
-
|
|
732
|
-
|
|
733
|
-
|
|
734
|
-
|
|
735
|
-
|
|
736
|
-
|
|
737
|
-
|
|
738
|
-
|
|
739
|
-
|
|
841
|
+
begin
|
|
842
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 93 );
|
|
843
|
+
trampCall( self._test_MIMARKcount_PLMARK_PLMARK_METHOD( 'test-count++',
|
|
844
|
+
begin
|
|
845
|
+
if @global_lisp_binding.has_key?('_test_MIMARKcount_PLMARK_PLMARK') then
|
|
846
|
+
trampCall(@_test_MIMARKcount_PLMARK_PLMARK)
|
|
847
|
+
else raise NameError.new( "Error: undefined variable _test_MIMARKcount_PLMARK_PLMARK", "_test_MIMARKcount_PLMARK_PLMARK" ) end
|
|
848
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:93"] + __e.backtrace ) ; raise __e
|
|
849
|
+
end ,
|
|
850
|
+
[
|
|
851
|
+
]
|
|
852
|
+
))
|
|
853
|
+
end
|
|
740
854
|
begin
|
|
741
855
|
___lambda = lambda { |_r|
|
|
742
856
|
if (
|
|
743
|
-
|
|
744
|
-
|
|
745
|
-
|
|
746
|
-
|
|
747
|
-
|
|
748
|
-
|
|
749
|
-
|
|
750
|
-
|
|
751
|
-
|
|
752
|
-
|
|
753
|
-
|
|
754
|
-
|
|
755
|
-
|
|
756
|
-
|
|
757
|
-
|
|
758
|
-
|
|
857
|
+
begin
|
|
858
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 95 );
|
|
859
|
+
trampCall( callProcedure( '_cmp', 'cmp',
|
|
860
|
+
begin
|
|
861
|
+
trampCall(_cmp)
|
|
862
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:95"] + __e.backtrace ) ; raise __e
|
|
863
|
+
end ,
|
|
864
|
+
[
|
|
865
|
+
begin
|
|
866
|
+
trampCall(_expect)
|
|
867
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
868
|
+
end ,
|
|
869
|
+
begin
|
|
870
|
+
trampCall(_r)
|
|
871
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
872
|
+
end
|
|
873
|
+
]
|
|
874
|
+
))
|
|
875
|
+
end
|
|
759
876
|
) then
|
|
760
877
|
begin
|
|
761
878
|
begin
|
|
@@ -765,16 +882,19 @@ trampCall(
|
|
|
765
882
|
)
|
|
766
883
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
|
|
767
884
|
end
|
|
768
|
-
|
|
769
|
-
|
|
770
|
-
|
|
771
|
-
|
|
772
|
-
|
|
773
|
-
|
|
774
|
-
|
|
775
|
-
|
|
776
|
-
|
|
777
|
-
|
|
885
|
+
begin
|
|
886
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 97 );
|
|
887
|
+
trampCall( self._test_MIMARKpass_PLMARK_PLMARK_METHOD( 'test-pass++',
|
|
888
|
+
begin
|
|
889
|
+
if @global_lisp_binding.has_key?('_test_MIMARKpass_PLMARK_PLMARK') then
|
|
890
|
+
trampCall(@_test_MIMARKpass_PLMARK_PLMARK)
|
|
891
|
+
else raise NameError.new( "Error: undefined variable _test_MIMARKpass_PLMARK_PLMARK", "_test_MIMARKpass_PLMARK_PLMARK" ) end
|
|
892
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:97"] + __e.backtrace ) ; raise __e
|
|
893
|
+
end ,
|
|
894
|
+
[
|
|
895
|
+
]
|
|
896
|
+
))
|
|
897
|
+
end
|
|
778
898
|
end
|
|
779
899
|
else
|
|
780
900
|
if (
|
|
@@ -785,12 +905,15 @@ trampCall(
|
|
|
785
905
|
trampCall(_f).printf(
|
|
786
906
|
"ERROR: GOT %s
|
|
787
907
|
" ,
|
|
788
|
-
|
|
789
|
-
|
|
790
|
-
|
|
791
|
-
|
|
792
|
-
|
|
793
|
-
|
|
908
|
+
begin
|
|
909
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 99 );
|
|
910
|
+
_write_MIMARKto_MIMARKstring(
|
|
911
|
+
begin
|
|
912
|
+
trampCall(_r)
|
|
913
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
914
|
+
end
|
|
915
|
+
)
|
|
916
|
+
end
|
|
794
917
|
)
|
|
795
918
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
|
|
796
919
|
end
|
|
@@ -799,48 +922,57 @@ trampCall(
|
|
|
799
922
|
@global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
|
|
800
923
|
@__ASMARKdiscrepancy_MIMARKlist_ASMARK =
|
|
801
924
|
trampCall(
|
|
802
|
-
|
|
803
|
-
|
|
925
|
+
begin
|
|
926
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
927
|
+
_cons(
|
|
804
928
|
begin
|
|
805
|
-
|
|
806
|
-
trampCall(
|
|
807
|
-
|
|
808
|
-
|
|
929
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
930
|
+
trampCall( self._list_METHOD( 'list',
|
|
931
|
+
begin
|
|
932
|
+
if @global_lisp_binding.has_key?('_list') then
|
|
933
|
+
trampCall(@_list)
|
|
934
|
+
else raise NameError.new( "Error: undefined variable _list", "_list" ) end
|
|
935
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
936
|
+
end ,
|
|
937
|
+
[
|
|
938
|
+
begin
|
|
939
|
+
trampCall(_msg)
|
|
940
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
941
|
+
end ,
|
|
942
|
+
begin
|
|
943
|
+
trampCall(_expect)
|
|
944
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
945
|
+
end ,
|
|
946
|
+
begin
|
|
947
|
+
trampCall(_r)
|
|
948
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
949
|
+
end
|
|
950
|
+
]
|
|
951
|
+
))
|
|
809
952
|
end ,
|
|
810
|
-
|
|
811
|
-
|
|
812
|
-
|
|
813
|
-
|
|
814
|
-
|
|
815
|
-
|
|
816
|
-
|
|
817
|
-
|
|
818
|
-
end ,
|
|
819
|
-
begin
|
|
820
|
-
trampCall(_r)
|
|
821
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
822
|
-
end
|
|
823
|
-
]
|
|
824
|
-
)) ,
|
|
825
|
-
begin
|
|
826
|
-
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
|
827
|
-
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
|
828
|
-
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
|
829
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
830
|
-
end
|
|
831
|
-
)
|
|
953
|
+
begin
|
|
954
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
|
955
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
|
956
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
|
957
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
|
958
|
+
end
|
|
959
|
+
)
|
|
960
|
+
end
|
|
832
961
|
)
|
|
833
962
|
end
|
|
834
|
-
|
|
835
|
-
|
|
836
|
-
|
|
837
|
-
|
|
838
|
-
|
|
839
|
-
|
|
840
|
-
|
|
841
|
-
|
|
842
|
-
|
|
843
|
-
|
|
963
|
+
begin
|
|
964
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 102 );
|
|
965
|
+
trampCall( self._test_MIMARKfail_PLMARK_PLMARK_METHOD( 'test-fail++',
|
|
966
|
+
begin
|
|
967
|
+
if @global_lisp_binding.has_key?('_test_MIMARKfail_PLMARK_PLMARK') then
|
|
968
|
+
trampCall(@_test_MIMARKfail_PLMARK_PLMARK)
|
|
969
|
+
else raise NameError.new( "Error: undefined variable _test_MIMARKfail_PLMARK_PLMARK", "_test_MIMARKfail_PLMARK_PLMARK" ) end
|
|
970
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:102"] + __e.backtrace ) ; raise __e
|
|
971
|
+
end ,
|
|
972
|
+
[
|
|
973
|
+
]
|
|
974
|
+
))
|
|
975
|
+
end
|
|
844
976
|
end
|
|
845
977
|
else
|
|
846
978
|
Cell.new()
|
|
@@ -853,26 +985,32 @@ trampCall(
|
|
|
853
985
|
end
|
|
854
986
|
true
|
|
855
987
|
} ; ___lambda.call(
|
|
856
|
-
|
|
857
|
-
|
|
858
|
-
|
|
859
|
-
|
|
860
|
-
|
|
861
|
-
|
|
862
|
-
|
|
863
|
-
|
|
988
|
+
begin
|
|
989
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 94 );
|
|
990
|
+
trampCall( callProcedure( '_thunk', 'thunk',
|
|
991
|
+
begin
|
|
992
|
+
trampCall(_thunk)
|
|
993
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:94"] + __e.backtrace ) ; raise __e
|
|
994
|
+
end ,
|
|
995
|
+
[
|
|
996
|
+
]
|
|
997
|
+
))
|
|
998
|
+
end
|
|
864
999
|
)
|
|
865
1000
|
end
|
|
866
1001
|
} ; ___lambda.call(
|
|
867
1002
|
begin
|
|
868
|
-
___lambda = lambda { |
|
|
1003
|
+
___lambda = lambda { |___gensym__da296d116d489ba951dcd8991bd44f36a977a621_30009|
|
|
869
1004
|
if (
|
|
870
|
-
|
|
871
|
-
|
|
872
|
-
|
|
873
|
-
|
|
874
|
-
|
|
875
|
-
|
|
1005
|
+
begin
|
|
1006
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 143 );
|
|
1007
|
+
_null_QUMARK(
|
|
1008
|
+
begin
|
|
1009
|
+
trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_30009)
|
|
1010
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1011
|
+
end
|
|
1012
|
+
)
|
|
1013
|
+
end
|
|
876
1014
|
) then
|
|
877
1015
|
begin
|
|
878
1016
|
if @global_lisp_binding.has_key?('_equal_QUMARK') then
|
|
@@ -881,20 +1019,23 @@ trampCall(
|
|
|
881
1019
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:89"] + __e.backtrace ) ; raise __e
|
|
882
1020
|
end
|
|
883
1021
|
else
|
|
884
|
-
|
|
885
|
-
|
|
886
|
-
|
|
887
|
-
|
|
888
|
-
|
|
889
|
-
|
|
890
|
-
|
|
891
|
-
|
|
892
|
-
|
|
893
|
-
|
|
894
|
-
|
|
895
|
-
|
|
896
|
-
|
|
897
|
-
|
|
1022
|
+
begin
|
|
1023
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
|
1024
|
+
delayCall( '_car', 'car',
|
|
1025
|
+
begin
|
|
1026
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1027
|
+
trampCall(@_car)
|
|
1028
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1029
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
|
|
1030
|
+
end ,
|
|
1031
|
+
[
|
|
1032
|
+
begin
|
|
1033
|
+
trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_30009)
|
|
1034
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1035
|
+
end
|
|
1036
|
+
]
|
|
1037
|
+
)
|
|
1038
|
+
end
|
|
898
1039
|
end
|
|
899
1040
|
} ; ___lambda.call(
|
|
900
1041
|
begin
|
|
@@ -924,40 +1065,61 @@ trampCall(
|
|
|
924
1065
|
@_test_ASMARK =
|
|
925
1066
|
trampCall(
|
|
926
1067
|
LispMacro.new { |_msg,_expect,_form,*__rest__| _compare = __rest__[0] ;
|
|
927
|
-
|
|
928
|
-
|
|
1068
|
+
begin
|
|
1069
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
929
1070
|
_cons(
|
|
1071
|
+
:"test" ,
|
|
930
1072
|
begin
|
|
931
|
-
|
|
932
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
933
|
-
end ,
|
|
934
|
-
_cons(
|
|
935
|
-
begin
|
|
936
|
-
trampCall(_expect)
|
|
937
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
938
|
-
end ,
|
|
1073
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
939
1074
|
_cons(
|
|
940
|
-
_cons(
|
|
941
|
-
:"lambda" ,
|
|
942
|
-
_cons(
|
|
943
|
-
Cell.new() ,
|
|
944
|
-
_cons(
|
|
945
|
-
begin
|
|
946
|
-
trampCall(_form)
|
|
947
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
948
|
-
end ,
|
|
949
|
-
Cell.new()
|
|
950
|
-
)
|
|
951
|
-
)
|
|
952
|
-
) ,
|
|
953
1075
|
begin
|
|
954
|
-
trampCall(
|
|
1076
|
+
trampCall(_msg)
|
|
955
1077
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
1078
|
+
end ,
|
|
1079
|
+
begin
|
|
1080
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
1081
|
+
_cons(
|
|
1082
|
+
begin
|
|
1083
|
+
trampCall(_expect)
|
|
1084
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
1085
|
+
end ,
|
|
1086
|
+
begin
|
|
1087
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
1088
|
+
_cons(
|
|
1089
|
+
begin
|
|
1090
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
1091
|
+
_cons(
|
|
1092
|
+
:"lambda" ,
|
|
1093
|
+
begin
|
|
1094
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
1095
|
+
_cons(
|
|
1096
|
+
Cell.new() ,
|
|
1097
|
+
begin
|
|
1098
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 101 );
|
|
1099
|
+
_cons(
|
|
1100
|
+
begin
|
|
1101
|
+
trampCall(_form)
|
|
1102
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
1103
|
+
end ,
|
|
1104
|
+
Cell.new()
|
|
1105
|
+
)
|
|
1106
|
+
end
|
|
1107
|
+
)
|
|
1108
|
+
end
|
|
1109
|
+
)
|
|
1110
|
+
end ,
|
|
1111
|
+
begin
|
|
1112
|
+
trampCall(_compare)
|
|
1113
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
|
1114
|
+
end
|
|
1115
|
+
)
|
|
1116
|
+
end
|
|
1117
|
+
)
|
|
956
1118
|
end
|
|
957
1119
|
)
|
|
958
|
-
|
|
1120
|
+
end
|
|
959
1121
|
)
|
|
960
|
-
|
|
1122
|
+
end
|
|
961
1123
|
}
|
|
962
1124
|
)
|
|
963
1125
|
end
|
|
@@ -970,47 +1132,56 @@ trampCall(
|
|
|
970
1132
|
@global_lisp_binding['_make_MIMARKpadding_MIMARKstring'] = self.method( :_make_MIMARKpadding_MIMARKstring_METHOD )
|
|
971
1133
|
@_make_MIMARKpadding_MIMARKstring =
|
|
972
1134
|
trampCall(
|
|
973
|
-
Proc.new { |_num,_char|
|
|
974
|
-
|
|
975
|
-
|
|
976
|
-
|
|
977
|
-
|
|
978
|
-
|
|
979
|
-
|
|
980
|
-
|
|
981
|
-
|
|
982
|
-
|
|
1135
|
+
Proc.new { |_num,_char|
|
|
1136
|
+
begin
|
|
1137
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 114 );
|
|
1138
|
+
delayCall( '_string_MIMARKjoin', 'string-join',
|
|
1139
|
+
begin
|
|
1140
|
+
if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
|
|
1141
|
+
trampCall(@_string_MIMARKjoin)
|
|
1142
|
+
else raise NameError.new( "Error: undefined variable _string_MIMARKjoin", "_string_MIMARKjoin" ) end
|
|
1143
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:114"] + __e.backtrace ) ; raise __e
|
|
1144
|
+
end ,
|
|
1145
|
+
[
|
|
983
1146
|
begin
|
|
984
|
-
|
|
985
|
-
trampCall(
|
|
986
|
-
else raise NameError.new( "Error: undefined variable _map", "_map" ) end
|
|
987
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:115"] + __e.backtrace ) ; raise __e
|
|
988
|
-
end ,
|
|
989
|
-
[
|
|
990
|
-
Proc.new { |_x|
|
|
991
|
-
begin
|
|
992
|
-
trampCall(_char)
|
|
993
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:116"] + __e.backtrace ) ; raise __e
|
|
994
|
-
end
|
|
995
|
-
} ,
|
|
996
|
-
trampCall( self._range_METHOD( 'range',
|
|
997
|
-
begin
|
|
998
|
-
if @global_lisp_binding.has_key?('_range') then
|
|
999
|
-
trampCall(@_range)
|
|
1000
|
-
else raise NameError.new( "Error: undefined variable _range", "_range" ) end
|
|
1001
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:117"] + __e.backtrace ) ; raise __e
|
|
1002
|
-
end ,
|
|
1003
|
-
[
|
|
1147
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 115 );
|
|
1148
|
+
trampCall( self._map_METHOD( 'map',
|
|
1004
1149
|
begin
|
|
1005
|
-
|
|
1006
|
-
|
|
1007
|
-
|
|
1008
|
-
|
|
1009
|
-
|
|
1010
|
-
|
|
1011
|
-
|
|
1012
|
-
|
|
1013
|
-
|
|
1150
|
+
if @global_lisp_binding.has_key?('_map') then
|
|
1151
|
+
trampCall(@_map)
|
|
1152
|
+
else raise NameError.new( "Error: undefined variable _map", "_map" ) end
|
|
1153
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:115"] + __e.backtrace ) ; raise __e
|
|
1154
|
+
end ,
|
|
1155
|
+
[
|
|
1156
|
+
Proc.new { |_x|
|
|
1157
|
+
begin
|
|
1158
|
+
trampCall(_char)
|
|
1159
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:116"] + __e.backtrace ) ; raise __e
|
|
1160
|
+
end
|
|
1161
|
+
} ,
|
|
1162
|
+
begin
|
|
1163
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 117 );
|
|
1164
|
+
trampCall( self._range_METHOD( 'range',
|
|
1165
|
+
begin
|
|
1166
|
+
if @global_lisp_binding.has_key?('_range') then
|
|
1167
|
+
trampCall(@_range)
|
|
1168
|
+
else raise NameError.new( "Error: undefined variable _range", "_range" ) end
|
|
1169
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:117"] + __e.backtrace ) ; raise __e
|
|
1170
|
+
end ,
|
|
1171
|
+
[
|
|
1172
|
+
begin
|
|
1173
|
+
trampCall(_num)
|
|
1174
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:117"] + __e.backtrace ) ; raise __e
|
|
1175
|
+
end
|
|
1176
|
+
]
|
|
1177
|
+
))
|
|
1178
|
+
end
|
|
1179
|
+
]
|
|
1180
|
+
))
|
|
1181
|
+
end
|
|
1182
|
+
]
|
|
1183
|
+
)
|
|
1184
|
+
end
|
|
1014
1185
|
}
|
|
1015
1186
|
)
|
|
1016
1187
|
end
|
|
@@ -1034,35 +1205,44 @@ trampCall(
|
|
|
1034
1205
|
trampCall(_msg)
|
|
1035
1206
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
|
|
1036
1207
|
end ,
|
|
1037
|
-
|
|
1038
|
-
|
|
1039
|
-
|
|
1040
|
-
|
|
1041
|
-
|
|
1042
|
-
|
|
1043
|
-
|
|
1044
|
-
|
|
1045
|
-
|
|
1208
|
+
begin
|
|
1209
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 122 );
|
|
1210
|
+
trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
|
|
1211
|
+
begin
|
|
1212
|
+
if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
|
|
1213
|
+
trampCall(@_make_MIMARKpadding_MIMARKstring)
|
|
1214
|
+
else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
|
|
1215
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
|
1216
|
+
end ,
|
|
1217
|
+
[
|
|
1046
1218
|
begin
|
|
1047
|
-
|
|
1048
|
-
trampCall(
|
|
1049
|
-
|
|
1050
|
-
|
|
1219
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 122 );
|
|
1220
|
+
trampCall( self._max_METHOD( 'max',
|
|
1221
|
+
begin
|
|
1222
|
+
if @global_lisp_binding.has_key?('_max') then
|
|
1223
|
+
trampCall(@_max)
|
|
1224
|
+
else raise NameError.new( "Error: undefined variable _max", "_max" ) end
|
|
1225
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
|
1226
|
+
end ,
|
|
1227
|
+
[
|
|
1228
|
+
5 ,
|
|
1229
|
+
begin
|
|
1230
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 122 );
|
|
1231
|
+
__MIMARK_ARGS2(
|
|
1232
|
+
77 ,
|
|
1233
|
+
begin
|
|
1234
|
+
trampCall(_msglen)
|
|
1235
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
|
1236
|
+
end
|
|
1237
|
+
)
|
|
1238
|
+
end
|
|
1239
|
+
]
|
|
1240
|
+
))
|
|
1051
1241
|
end ,
|
|
1052
|
-
|
|
1053
|
-
|
|
1054
|
-
|
|
1055
|
-
|
|
1056
|
-
begin
|
|
1057
|
-
trampCall(_msglen)
|
|
1058
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
|
1059
|
-
end
|
|
1060
|
-
)
|
|
1061
|
-
]
|
|
1062
|
-
)) ,
|
|
1063
|
-
"-"
|
|
1064
|
-
]
|
|
1065
|
-
))
|
|
1242
|
+
"-"
|
|
1243
|
+
]
|
|
1244
|
+
))
|
|
1245
|
+
end
|
|
1066
1246
|
)
|
|
1067
1247
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
|
1068
1248
|
end
|
|
@@ -1077,20 +1257,23 @@ trampCall(
|
|
|
1077
1257
|
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
|
|
1078
1258
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:120"] + __e.backtrace ) ; raise __e
|
|
1079
1259
|
end ,
|
|
1080
|
-
|
|
1081
|
-
|
|
1082
|
-
|
|
1083
|
-
|
|
1084
|
-
|
|
1085
|
-
|
|
1086
|
-
|
|
1087
|
-
|
|
1088
|
-
|
|
1089
|
-
|
|
1090
|
-
|
|
1091
|
-
|
|
1092
|
-
|
|
1093
|
-
|
|
1260
|
+
begin
|
|
1261
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 121 );
|
|
1262
|
+
trampCall( self._string_MIMARKlength_METHOD( 'string-length',
|
|
1263
|
+
begin
|
|
1264
|
+
if @global_lisp_binding.has_key?('_string_MIMARKlength') then
|
|
1265
|
+
trampCall(@_string_MIMARKlength)
|
|
1266
|
+
else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
|
|
1267
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:121"] + __e.backtrace ) ; raise __e
|
|
1268
|
+
end ,
|
|
1269
|
+
[
|
|
1270
|
+
begin
|
|
1271
|
+
trampCall(_msg)
|
|
1272
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
|
|
1273
|
+
end
|
|
1274
|
+
]
|
|
1275
|
+
))
|
|
1276
|
+
end
|
|
1094
1277
|
)
|
|
1095
1278
|
end
|
|
1096
1279
|
}
|
|
@@ -1131,16 +1314,19 @@ trampCall(
|
|
|
1131
1314
|
)
|
|
1132
1315
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:137"] + __e.backtrace ) ; raise __e
|
|
1133
1316
|
end
|
|
1134
|
-
|
|
1135
|
-
|
|
1136
|
-
|
|
1137
|
-
|
|
1138
|
-
|
|
1139
|
-
|
|
1140
|
-
|
|
1141
|
-
|
|
1142
|
-
|
|
1143
|
-
|
|
1317
|
+
begin
|
|
1318
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 131 );
|
|
1319
|
+
trampCall( self._read_MIMARKsummary_METHOD( 'read-summary',
|
|
1320
|
+
begin
|
|
1321
|
+
if @global_lisp_binding.has_key?('_read_MIMARKsummary') then
|
|
1322
|
+
trampCall(@_read_MIMARKsummary)
|
|
1323
|
+
else raise NameError.new( "Error: undefined variable _read_MIMARKsummary", "_read_MIMARKsummary" ) end
|
|
1324
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
|
|
1325
|
+
end ,
|
|
1326
|
+
[
|
|
1327
|
+
]
|
|
1328
|
+
))
|
|
1329
|
+
end
|
|
1144
1330
|
begin
|
|
1145
1331
|
trampCall(_f).printf(
|
|
1146
1332
|
"
|
|
@@ -1166,35 +1352,44 @@ trampCall(
|
|
|
1166
1352
|
trampCall(_msg)
|
|
1167
1353
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
|
|
1168
1354
|
end ,
|
|
1169
|
-
|
|
1170
|
-
|
|
1171
|
-
|
|
1172
|
-
|
|
1173
|
-
|
|
1174
|
-
|
|
1175
|
-
|
|
1176
|
-
|
|
1177
|
-
|
|
1355
|
+
begin
|
|
1356
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1357
|
+
trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
|
|
1358
|
+
begin
|
|
1359
|
+
if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
|
|
1360
|
+
trampCall(@_make_MIMARKpadding_MIMARKstring)
|
|
1361
|
+
else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
|
|
1362
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1363
|
+
end ,
|
|
1364
|
+
[
|
|
1178
1365
|
begin
|
|
1179
|
-
|
|
1180
|
-
trampCall(
|
|
1181
|
-
|
|
1182
|
-
|
|
1366
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1367
|
+
trampCall( self._max_METHOD( 'max',
|
|
1368
|
+
begin
|
|
1369
|
+
if @global_lisp_binding.has_key?('_max') then
|
|
1370
|
+
trampCall(@_max)
|
|
1371
|
+
else raise NameError.new( "Error: undefined variable _max", "_max" ) end
|
|
1372
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1373
|
+
end ,
|
|
1374
|
+
[
|
|
1375
|
+
5 ,
|
|
1376
|
+
begin
|
|
1377
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1378
|
+
__MIMARK_ARGS2(
|
|
1379
|
+
70 ,
|
|
1380
|
+
begin
|
|
1381
|
+
trampCall(_msglen)
|
|
1382
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1383
|
+
end
|
|
1384
|
+
)
|
|
1385
|
+
end
|
|
1386
|
+
]
|
|
1387
|
+
))
|
|
1183
1388
|
end ,
|
|
1184
|
-
|
|
1185
|
-
|
|
1186
|
-
|
|
1187
|
-
|
|
1188
|
-
begin
|
|
1189
|
-
trampCall(_msglen)
|
|
1190
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1191
|
-
end
|
|
1192
|
-
)
|
|
1193
|
-
]
|
|
1194
|
-
)) ,
|
|
1195
|
-
"-"
|
|
1196
|
-
]
|
|
1197
|
-
))
|
|
1389
|
+
"-"
|
|
1390
|
+
]
|
|
1391
|
+
))
|
|
1392
|
+
end
|
|
1198
1393
|
)
|
|
1199
1394
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1200
1395
|
end
|
|
@@ -1204,20 +1399,23 @@ trampCall(
|
|
|
1204
1399
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:137"] + __e.backtrace ) ; raise __e
|
|
1205
1400
|
end
|
|
1206
1401
|
} ; ___lambda.call(
|
|
1207
|
-
|
|
1208
|
-
|
|
1209
|
-
|
|
1210
|
-
|
|
1211
|
-
|
|
1212
|
-
|
|
1213
|
-
|
|
1214
|
-
|
|
1215
|
-
|
|
1216
|
-
|
|
1217
|
-
|
|
1218
|
-
|
|
1219
|
-
|
|
1220
|
-
|
|
1402
|
+
begin
|
|
1403
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 135 );
|
|
1404
|
+
trampCall( self._string_MIMARKlength_METHOD( 'string-length',
|
|
1405
|
+
begin
|
|
1406
|
+
if @global_lisp_binding.has_key?('_string_MIMARKlength') then
|
|
1407
|
+
trampCall(@_string_MIMARKlength)
|
|
1408
|
+
else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
|
|
1409
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
|
|
1410
|
+
end ,
|
|
1411
|
+
[
|
|
1412
|
+
begin
|
|
1413
|
+
trampCall(_msg)
|
|
1414
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
|
|
1415
|
+
end
|
|
1416
|
+
]
|
|
1417
|
+
))
|
|
1418
|
+
end
|
|
1221
1419
|
)
|
|
1222
1420
|
end
|
|
1223
1421
|
begin
|
|
@@ -1234,63 +1432,78 @@ trampCall(
|
|
|
1234
1432
|
)
|
|
1235
1433
|
end
|
|
1236
1434
|
} ; ___lambda.call(
|
|
1237
|
-
|
|
1238
|
-
|
|
1239
|
-
|
|
1240
|
-
|
|
1241
|
-
|
|
1242
|
-
|
|
1243
|
-
|
|
1244
|
-
|
|
1245
|
-
|
|
1435
|
+
begin
|
|
1436
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1437
|
+
trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
|
|
1438
|
+
begin
|
|
1439
|
+
if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
|
|
1440
|
+
trampCall(@_make_MIMARKpadding_MIMARKstring)
|
|
1441
|
+
else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
|
|
1442
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1443
|
+
end ,
|
|
1444
|
+
[
|
|
1246
1445
|
begin
|
|
1247
|
-
|
|
1248
|
-
trampCall(
|
|
1249
|
-
|
|
1250
|
-
|
|
1251
|
-
|
|
1252
|
-
|
|
1253
|
-
|
|
1254
|
-
|
|
1255
|
-
|
|
1256
|
-
|
|
1446
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1447
|
+
trampCall( self._max_METHOD( 'max',
|
|
1448
|
+
begin
|
|
1449
|
+
if @global_lisp_binding.has_key?('_max') then
|
|
1450
|
+
trampCall(@_max)
|
|
1451
|
+
else raise NameError.new( "Error: undefined variable _max", "_max" ) end
|
|
1452
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
|
1453
|
+
end ,
|
|
1454
|
+
[
|
|
1455
|
+
3 ,
|
|
1257
1456
|
begin
|
|
1258
|
-
|
|
1259
|
-
|
|
1260
|
-
|
|
1261
|
-
|
|
1262
|
-
|
|
1263
|
-
|
|
1264
|
-
|
|
1265
|
-
|
|
1266
|
-
|
|
1267
|
-
|
|
1268
|
-
|
|
1269
|
-
|
|
1270
|
-
|
|
1271
|
-
|
|
1272
|
-
|
|
1273
|
-
|
|
1274
|
-
|
|
1275
|
-
|
|
1457
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 136 );
|
|
1458
|
+
__MIMARK_ARGS2(
|
|
1459
|
+
65 ,
|
|
1460
|
+
begin
|
|
1461
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 135 );
|
|
1462
|
+
trampCall( self._string_MIMARKlength_METHOD( 'string-length',
|
|
1463
|
+
begin
|
|
1464
|
+
if @global_lisp_binding.has_key?('_string_MIMARKlength') then
|
|
1465
|
+
trampCall(@_string_MIMARKlength)
|
|
1466
|
+
else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
|
|
1467
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
|
|
1468
|
+
end ,
|
|
1469
|
+
[
|
|
1470
|
+
begin
|
|
1471
|
+
trampCall(_s)
|
|
1472
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
|
|
1473
|
+
end
|
|
1474
|
+
]
|
|
1475
|
+
))
|
|
1476
|
+
end
|
|
1477
|
+
)
|
|
1478
|
+
end
|
|
1479
|
+
]
|
|
1480
|
+
))
|
|
1481
|
+
end ,
|
|
1482
|
+
" "
|
|
1483
|
+
]
|
|
1484
|
+
))
|
|
1485
|
+
end
|
|
1276
1486
|
)
|
|
1277
1487
|
end
|
|
1278
1488
|
} ; ___lambda.call(
|
|
1279
|
-
|
|
1280
|
-
|
|
1281
|
-
|
|
1282
|
-
|
|
1283
|
-
|
|
1284
|
-
|
|
1285
|
-
|
|
1286
|
-
|
|
1287
|
-
|
|
1288
|
-
|
|
1289
|
-
|
|
1290
|
-
|
|
1291
|
-
|
|
1292
|
-
|
|
1293
|
-
|
|
1489
|
+
begin
|
|
1490
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 126 );
|
|
1491
|
+
trampCall( self._sprintf_METHOD( 'sprintf',
|
|
1492
|
+
begin
|
|
1493
|
+
if @global_lisp_binding.has_key?('_sprintf') then
|
|
1494
|
+
trampCall(@_sprintf)
|
|
1495
|
+
else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
|
|
1496
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:126"] + __e.backtrace ) ; raise __e
|
|
1497
|
+
end ,
|
|
1498
|
+
[
|
|
1499
|
+
"Testing %s ... " ,
|
|
1500
|
+
begin
|
|
1501
|
+
trampCall(_msg)
|
|
1502
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:138"] + __e.backtrace ) ; raise __e
|
|
1503
|
+
end
|
|
1504
|
+
]
|
|
1505
|
+
))
|
|
1506
|
+
end
|
|
1294
1507
|
)
|
|
1295
1508
|
end
|
|
1296
1509
|
}
|
|
@@ -1309,14 +1522,17 @@ trampCall(
|
|
|
1309
1522
|
begin
|
|
1310
1523
|
___lambda = lambda { |_f|
|
|
1311
1524
|
if (
|
|
1312
|
-
|
|
1313
|
-
|
|
1314
|
-
|
|
1315
|
-
|
|
1316
|
-
|
|
1317
|
-
|
|
1318
|
-
|
|
1319
|
-
|
|
1525
|
+
begin
|
|
1526
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 143 );
|
|
1527
|
+
_null_QUMARK(
|
|
1528
|
+
begin
|
|
1529
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
|
1530
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
|
1531
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
|
1532
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
|
1533
|
+
end
|
|
1534
|
+
)
|
|
1535
|
+
end
|
|
1320
1536
|
) then
|
|
1321
1537
|
begin
|
|
1322
1538
|
trampCall(_f).printf(
|
|
@@ -1335,79 +1551,100 @@ discrepancies found. Errors are:
|
|
|
1335
1551
|
)
|
|
1336
1552
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
|
|
1337
1553
|
end
|
|
1338
|
-
|
|
1339
|
-
|
|
1340
|
-
|
|
1341
|
-
|
|
1342
|
-
|
|
1343
|
-
|
|
1344
|
-
|
|
1345
|
-
|
|
1346
|
-
|
|
1347
|
-
|
|
1348
|
-
|
|
1349
|
-
|
|
1350
|
-
|
|
1351
|
-
|
|
1554
|
+
begin
|
|
1555
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 147 );
|
|
1556
|
+
trampCall( self._for_MIMARKeach_METHOD( 'for-each',
|
|
1557
|
+
begin
|
|
1558
|
+
if @global_lisp_binding.has_key?('_for_MIMARKeach') then
|
|
1559
|
+
trampCall(@_for_MIMARKeach)
|
|
1560
|
+
else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
|
|
1561
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:147"] + __e.backtrace ) ; raise __e
|
|
1562
|
+
end ,
|
|
1563
|
+
[
|
|
1564
|
+
Proc.new { |_r|
|
|
1565
|
+
begin
|
|
1566
|
+
trampCall(_f).printf(
|
|
1567
|
+
"test %s: expects %s => got %s
|
|
1568
|
+
" ,
|
|
1569
|
+
begin
|
|
1570
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 149 );
|
|
1571
|
+
trampCall( self._first_METHOD( 'first',
|
|
1572
|
+
begin
|
|
1573
|
+
if @global_lisp_binding.has_key?('_first') then
|
|
1574
|
+
trampCall(@_first)
|
|
1575
|
+
else raise NameError.new( "Error: undefined variable _first", "_first" ) end
|
|
1576
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:149"] + __e.backtrace ) ; raise __e
|
|
1577
|
+
end ,
|
|
1578
|
+
[
|
|
1579
|
+
begin
|
|
1580
|
+
trampCall(_r)
|
|
1581
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1582
|
+
end
|
|
1583
|
+
]
|
|
1584
|
+
))
|
|
1585
|
+
end ,
|
|
1352
1586
|
begin
|
|
1353
|
-
|
|
1354
|
-
|
|
1355
|
-
|
|
1356
|
-
|
|
1587
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 151 );
|
|
1588
|
+
_write_MIMARKto_MIMARKstring(
|
|
1589
|
+
begin
|
|
1590
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 150 );
|
|
1591
|
+
trampCall( self._second_METHOD( 'second',
|
|
1592
|
+
begin
|
|
1593
|
+
if @global_lisp_binding.has_key?('_second') then
|
|
1594
|
+
trampCall(@_second)
|
|
1595
|
+
else raise NameError.new( "Error: undefined variable _second", "_second" ) end
|
|
1596
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:150"] + __e.backtrace ) ; raise __e
|
|
1597
|
+
end ,
|
|
1598
|
+
[
|
|
1599
|
+
begin
|
|
1600
|
+
trampCall(_r)
|
|
1601
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1602
|
+
end
|
|
1603
|
+
]
|
|
1604
|
+
))
|
|
1605
|
+
end
|
|
1606
|
+
)
|
|
1357
1607
|
end ,
|
|
1358
|
-
|
|
1359
|
-
|
|
1360
|
-
|
|
1361
|
-
|
|
1362
|
-
|
|
1363
|
-
|
|
1364
|
-
|
|
1365
|
-
|
|
1366
|
-
|
|
1367
|
-
|
|
1368
|
-
|
|
1369
|
-
|
|
1370
|
-
|
|
1371
|
-
|
|
1372
|
-
|
|
1373
|
-
|
|
1374
|
-
|
|
1375
|
-
|
|
1376
|
-
|
|
1377
|
-
|
|
1378
|
-
|
|
1379
|
-
|
|
1380
|
-
) ,
|
|
1381
|
-
_write_MIMARKto_MIMARKstring(
|
|
1382
|
-
trampCall( self._third_METHOD( 'third',
|
|
1383
|
-
begin
|
|
1384
|
-
if @global_lisp_binding.has_key?('_third') then
|
|
1385
|
-
trampCall(@_third)
|
|
1386
|
-
else raise NameError.new( "Error: undefined variable _third", "_third" ) end
|
|
1387
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1388
|
-
end ,
|
|
1389
|
-
[
|
|
1390
|
-
begin
|
|
1391
|
-
trampCall(_r)
|
|
1392
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1393
|
-
end
|
|
1394
|
-
]
|
|
1395
|
-
))
|
|
1608
|
+
begin
|
|
1609
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 151 );
|
|
1610
|
+
_write_MIMARKto_MIMARKstring(
|
|
1611
|
+
begin
|
|
1612
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 151 );
|
|
1613
|
+
trampCall( self._third_METHOD( 'third',
|
|
1614
|
+
begin
|
|
1615
|
+
if @global_lisp_binding.has_key?('_third') then
|
|
1616
|
+
trampCall(@_third)
|
|
1617
|
+
else raise NameError.new( "Error: undefined variable _third", "_third" ) end
|
|
1618
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1619
|
+
end ,
|
|
1620
|
+
[
|
|
1621
|
+
begin
|
|
1622
|
+
trampCall(_r)
|
|
1623
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
|
1624
|
+
end
|
|
1625
|
+
]
|
|
1626
|
+
))
|
|
1627
|
+
end
|
|
1628
|
+
)
|
|
1629
|
+
end
|
|
1396
1630
|
)
|
|
1397
|
-
)
|
|
1398
|
-
|
|
1399
|
-
|
|
1400
|
-
} ,
|
|
1401
|
-
_reverse(
|
|
1631
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
|
|
1632
|
+
end
|
|
1633
|
+
} ,
|
|
1402
1634
|
begin
|
|
1403
|
-
|
|
1404
|
-
|
|
1405
|
-
|
|
1406
|
-
|
|
1635
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 152 );
|
|
1636
|
+
_reverse(
|
|
1637
|
+
begin
|
|
1638
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
|
1639
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
|
1640
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
|
1641
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
|
1642
|
+
end
|
|
1643
|
+
)
|
|
1407
1644
|
end
|
|
1408
|
-
|
|
1409
|
-
|
|
1410
|
-
|
|
1645
|
+
]
|
|
1646
|
+
))
|
|
1647
|
+
end
|
|
1411
1648
|
end
|
|
1412
1649
|
end
|
|
1413
1650
|
if (
|
|
@@ -1419,34 +1656,40 @@ discrepancies found. Errors are:
|
|
|
1419
1656
|
end
|
|
1420
1657
|
) then
|
|
1421
1658
|
begin
|
|
1422
|
-
|
|
1423
|
-
|
|
1424
|
-
|
|
1425
|
-
|
|
1426
|
-
|
|
1427
|
-
|
|
1428
|
-
|
|
1429
|
-
|
|
1430
|
-
|
|
1431
|
-
|
|
1659
|
+
begin
|
|
1660
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 155 );
|
|
1661
|
+
trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
|
|
1662
|
+
begin
|
|
1663
|
+
if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
|
|
1664
|
+
trampCall(@_write_MIMARKsummary)
|
|
1665
|
+
else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
|
|
1666
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:155"] + __e.backtrace ) ; raise __e
|
|
1667
|
+
end ,
|
|
1668
|
+
[
|
|
1669
|
+
]
|
|
1670
|
+
))
|
|
1671
|
+
end
|
|
1432
1672
|
end
|
|
1433
1673
|
end
|
|
1434
|
-
|
|
1435
|
-
|
|
1436
|
-
|
|
1437
|
-
|
|
1438
|
-
|
|
1439
|
-
|
|
1440
|
-
|
|
1441
|
-
|
|
1442
|
-
|
|
1443
|
-
|
|
1444
|
-
|
|
1445
|
-
|
|
1446
|
-
|
|
1447
|
-
|
|
1448
|
-
|
|
1449
|
-
|
|
1674
|
+
begin
|
|
1675
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 158 );
|
|
1676
|
+
delayCall( '_length', 'length',
|
|
1677
|
+
begin
|
|
1678
|
+
if @global_lisp_binding.has_key?('_length') then
|
|
1679
|
+
trampCall(@_length)
|
|
1680
|
+
else raise NameError.new( "Error: undefined variable _length", "_length" ) end
|
|
1681
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
|
1682
|
+
end ,
|
|
1683
|
+
[
|
|
1684
|
+
begin
|
|
1685
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
|
1686
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
|
1687
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
|
1688
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
|
1689
|
+
end
|
|
1690
|
+
]
|
|
1691
|
+
)
|
|
1692
|
+
end
|
|
1450
1693
|
} ; ___lambda.call(
|
|
1451
1694
|
begin
|
|
1452
1695
|
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
|