nendo 0.3.4 → 0.3.5

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