nendo 0.3.4 → 0.3.5

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.
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