nendo 0.6.5 → 0.6.6

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 (23) hide show
  1. checksums.yaml +8 -8
  2. data/README.md +13 -0
  3. data/Rakefile +5 -3
  4. data/VERSION.yml +1 -1
  5. data/benchmark/benchmark.nnd +46 -31
  6. data/bin/nendo +8 -0
  7. data/lib/nendo/debug/syslog.nndc +0 -10
  8. data/lib/nendo/init.nndc +0 -5012
  9. data/lib/nendo/nendo/experimental.nndc +0 -994
  10. data/lib/nendo/nendo/test.nndc +0 -474
  11. data/lib/nendo/rfc/json.nndc +0 -150
  12. data/lib/nendo/ruby/core.rb +5 -1
  13. data/lib/nendo/ruby/evaluator.rb +35 -14
  14. data/lib/nendo/srfi-1.nndc +0 -3375
  15. data/lib/nendo/srfi-2.nndc +0 -118
  16. data/lib/nendo/srfi-26.nndc +0 -431
  17. data/lib/nendo/text/html-lite.nndc +0 -625
  18. data/lib/nendo/text/tree.nndc +0 -40
  19. data/lib/nendo/util/combinations.nndc +0 -1178
  20. data/lib/nendo/util/list.nndc +0 -706
  21. data/lib/nendo/util/match.nndc +0 -8094
  22. metadata +9 -6
  23. data/README +0 -10
data/lib/nendo/nendo/test.nndc CHANGED
@@ -14,10 +14,8 @@ trampCall(
14
14
  trampCall(_obj).is_a?(
15
15
  begin
16
16
  trampCall(Nendo::NendoTestError)
17
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:36"] + __e.backtrace ) ; raise __e
18
17
  end
19
18
  )
20
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:36"] + __e.backtrace ) ; raise __e
21
19
  end
22
20
  }
23
21
  )
@@ -37,7 +35,6 @@ trampCall(
37
35
  if (
38
36
  begin
39
37
  trampCall(_cl)
40
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:42"] + __e.backtrace ) ; raise __e
41
38
  end
42
39
  ) then
43
40
  begin
@@ -47,7 +44,6 @@ trampCall(
47
44
  trampCall(
48
45
  begin
49
46
  trampCall(_cl)
50
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:42"] + __e.backtrace ) ; raise __e
51
47
  end
52
48
  )
53
49
  end
@@ -55,18 +51,15 @@ trampCall(
55
51
  end
56
52
  begin
57
53
  trampCall(_err)
58
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:43"] + __e.backtrace ) ; raise __e
59
54
  end
60
55
  } ; ___lambda.call(
61
56
  begin
62
57
  ___lambda = lambda { |___gensym__5d616449e4cd5ff7562e60dbfcf1c628e32cc41d_30178|
63
58
  if (
64
59
  begin
65
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 175 );
66
60
  _null_QUMARK(
67
61
  begin
68
62
  trampCall(___gensym__5d616449e4cd5ff7562e60dbfcf1c628e32cc41d_30178)
69
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
70
63
  end
71
64
  )
72
65
  end
@@ -74,18 +67,13 @@ trampCall(
74
67
  false
75
68
  else
76
69
  begin
77
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 110 );
78
70
  delayCall( '_car', 'car',
79
71
  begin
80
- if @global_lisp_binding.has_key?('_car') then
81
72
  trampCall(@_car)
82
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
83
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:110"] + __e.backtrace ) ; raise __e
84
73
  end ,
85
74
  [
86
75
  begin
87
76
  trampCall(___gensym__5d616449e4cd5ff7562e60dbfcf1c628e32cc41d_30178)
88
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
89
77
  end
90
78
  ]
91
79
  )
@@ -94,14 +82,12 @@ trampCall(
94
82
  } ; ___lambda.call(
95
83
  begin
96
84
  trampCall(_maybe_MIMARKclass)
97
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:39"] + __e.backtrace ) ; raise __e
98
85
  end
99
86
  )
100
87
  end ,
101
88
  begin
102
89
  trampCall(Nendo::NendoTestError).new(
103
90
  )
104
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:134"] + __e.backtrace ) ; raise __e
105
91
  end
106
92
  )
107
93
  end
@@ -120,18 +106,13 @@ trampCall(
120
106
  Proc.new { |_expected,_result|
121
107
  if (
122
108
  begin
123
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 48 );
124
109
  trampCall( self._test_MIMARKerror_QUMARK_METHOD( 'test-error?',
125
110
  begin
126
- if @global_lisp_binding.has_key?('_test_MIMARKerror_QUMARK') then
127
111
  trampCall(@_test_MIMARKerror_QUMARK)
128
- else raise NameError.new( "Error: undefined variable _test_MIMARKerror_QUMARK", "_test_MIMARKerror_QUMARK" ) end
129
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
130
112
  end ,
131
113
  [
132
114
  begin
133
115
  trampCall(_expected)
134
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:53"] + __e.backtrace ) ; raise __e
135
116
  end
136
117
  ]
137
118
  ))
@@ -140,25 +121,18 @@ trampCall(
140
121
  begin
141
122
  if (
142
123
  begin
143
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 265 );
144
124
  _not(
145
125
  begin
146
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 52 );
147
126
  _eq_QUMARK(
148
127
  false ,
149
128
  begin
150
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 48 );
151
129
  trampCall( self._test_MIMARKerror_QUMARK_METHOD( 'test-error?',
152
130
  begin
153
- if @global_lisp_binding.has_key?('_test_MIMARKerror_QUMARK') then
154
131
  trampCall(@_test_MIMARKerror_QUMARK)
155
- else raise NameError.new( "Error: undefined variable _test_MIMARKerror_QUMARK", "_test_MIMARKerror_QUMARK" ) end
156
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
157
132
  end ,
158
133
  [
159
134
  begin
160
135
  trampCall(_result)
161
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:53"] + __e.backtrace ) ; raise __e
162
136
  end
163
137
  ]
164
138
  ))
@@ -172,15 +146,12 @@ trampCall(
172
146
  ___lambda = lambda { |_ex,_ey|
173
147
  if (
174
148
  begin
175
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 265 );
176
149
  _not(
177
150
  begin
178
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 52 );
179
151
  _eq_QUMARK(
180
152
  false ,
181
153
  begin
182
154
  trampCall(_ex)
183
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
184
155
  end
185
156
  )
186
157
  end
@@ -188,22 +159,16 @@ trampCall(
188
159
  end
189
160
  ) then
190
161
  begin
191
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 52 );
192
162
  delayCall( '_eq_QUMARK', 'eq?',
193
163
  begin
194
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
195
164
  trampCall(@_eq_QUMARK)
196
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
197
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
198
165
  end ,
199
166
  [
200
167
  begin
201
168
  trampCall(_ex)
202
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
203
169
  end ,
204
170
  begin
205
171
  trampCall(_ey)
206
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
207
172
  end
208
173
  ]
209
174
  )
@@ -215,12 +180,10 @@ trampCall(
215
180
  begin
216
181
  trampCall(_expected).type(
217
182
  )
218
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:49"] + __e.backtrace ) ; raise __e
219
183
  end ,
220
184
  begin
221
185
  trampCall(_result).type(
222
186
  )
223
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
224
187
  end
225
188
  )
226
189
  end
@@ -234,22 +197,16 @@ trampCall(
234
197
  ) then
235
198
  begin
236
199
  begin
237
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 53 );
238
200
  delayCall( '_equal_QUMARK', 'equal?',
239
201
  begin
240
- if @global_lisp_binding.has_key?('_equal_QUMARK') then
241
202
  trampCall(@_equal_QUMARK)
242
- else raise NameError.new( "Error: undefined variable _equal_QUMARK", "_equal_QUMARK" ) end
243
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:53"] + __e.backtrace ) ; raise __e
244
203
  end ,
245
204
  [
246
205
  begin
247
206
  trampCall(_expected)
248
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:53"] + __e.backtrace ) ; raise __e
249
207
  end ,
250
208
  begin
251
209
  trampCall(_result)
252
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:53"] + __e.backtrace ) ; raise __e
253
210
  end
254
211
  ]
255
212
  )
@@ -285,7 +242,6 @@ trampCall(
285
242
  trampCall(
286
243
  begin
287
244
  trampCall(STDOUT)
288
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:58"] + __e.backtrace ) ; raise __e
289
245
  end
290
246
  )
291
247
  end
@@ -318,7 +274,6 @@ trampCall(
318
274
  trampCall(
319
275
  begin
320
276
  trampCall(_file)
321
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:61"] + __e.backtrace ) ; raise __e
322
277
  end
323
278
  )
324
279
  end
@@ -342,7 +297,6 @@ trampCall(
342
297
  trampCall(
343
298
  begin
344
299
  trampCall(_file)
345
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:62"] + __e.backtrace ) ; raise __e
346
300
  end
347
301
  )
348
302
  end
@@ -359,13 +313,9 @@ trampCall(
359
313
  @__ASMARKtest_MIMARKcounts_ASMARK =
360
314
  trampCall(
361
315
  begin
362
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 64 );
363
316
  trampCall( self._vector_METHOD( 'vector',
364
317
  begin
365
- if @global_lisp_binding.has_key?('_vector') then
366
318
  trampCall(@_vector)
367
- else raise NameError.new( "Error: undefined variable _vector", "_vector" ) end
368
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:64"] + __e.backtrace ) ; raise __e
369
319
  end ,
370
320
  [
371
321
  0 ,
@@ -388,40 +338,25 @@ trampCall(
388
338
  trampCall(
389
339
  Proc.new { ||
390
340
  begin
391
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 67 );
392
341
  delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
393
342
  begin
394
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
395
343
  trampCall(@_vector_MIMARKset_EXMARK)
396
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
397
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:67"] + __e.backtrace ) ; raise __e
398
344
  end ,
399
345
  [
400
346
  begin
401
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
402
347
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
403
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
404
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:67"] + __e.backtrace ) ; raise __e
405
348
  end ,
406
349
  0 ,
407
350
  begin
408
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 67 );
409
351
  __PLMARK_ARGS2(
410
352
  begin
411
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 67 );
412
353
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
413
354
  begin
414
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
415
355
  trampCall(@_vector_MIMARKref)
416
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
417
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:67"] + __e.backtrace ) ; raise __e
418
356
  end ,
419
357
  [
420
358
  begin
421
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
422
359
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
423
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
424
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:67"] + __e.backtrace ) ; raise __e
425
360
  end ,
426
361
  0
427
362
  ]
@@ -447,40 +382,25 @@ trampCall(
447
382
  trampCall(
448
383
  Proc.new { ||
449
384
  begin
450
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 69 );
451
385
  delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
452
386
  begin
453
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
454
387
  trampCall(@_vector_MIMARKset_EXMARK)
455
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
456
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:69"] + __e.backtrace ) ; raise __e
457
388
  end ,
458
389
  [
459
390
  begin
460
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
461
391
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
462
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
463
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:69"] + __e.backtrace ) ; raise __e
464
392
  end ,
465
393
  1 ,
466
394
  begin
467
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 69 );
468
395
  __PLMARK_ARGS2(
469
396
  begin
470
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 69 );
471
397
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
472
398
  begin
473
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
474
399
  trampCall(@_vector_MIMARKref)
475
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
476
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:69"] + __e.backtrace ) ; raise __e
477
400
  end ,
478
401
  [
479
402
  begin
480
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
481
403
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
482
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
483
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:69"] + __e.backtrace ) ; raise __e
484
404
  end ,
485
405
  1
486
406
  ]
@@ -506,40 +426,25 @@ trampCall(
506
426
  trampCall(
507
427
  Proc.new { ||
508
428
  begin
509
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 71 );
510
429
  delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
511
430
  begin
512
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
513
431
  trampCall(@_vector_MIMARKset_EXMARK)
514
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
515
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:71"] + __e.backtrace ) ; raise __e
516
432
  end ,
517
433
  [
518
434
  begin
519
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
520
435
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
521
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
522
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:71"] + __e.backtrace ) ; raise __e
523
436
  end ,
524
437
  2 ,
525
438
  begin
526
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 71 );
527
439
  __PLMARK_ARGS2(
528
440
  begin
529
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 71 );
530
441
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
531
442
  begin
532
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
533
443
  trampCall(@_vector_MIMARKref)
534
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
535
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:71"] + __e.backtrace ) ; raise __e
536
444
  end ,
537
445
  [
538
446
  begin
539
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
540
447
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
541
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
542
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:71"] + __e.backtrace ) ; raise __e
543
448
  end ,
544
449
  2
545
450
  ]
@@ -565,40 +470,25 @@ trampCall(
565
470
  trampCall(
566
471
  Proc.new { ||
567
472
  begin
568
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 73 );
569
473
  delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
570
474
  begin
571
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
572
475
  trampCall(@_vector_MIMARKset_EXMARK)
573
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
574
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:73"] + __e.backtrace ) ; raise __e
575
476
  end ,
576
477
  [
577
478
  begin
578
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
579
479
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
580
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
581
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:73"] + __e.backtrace ) ; raise __e
582
480
  end ,
583
481
  3 ,
584
482
  begin
585
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 73 );
586
483
  __PLMARK_ARGS2(
587
484
  begin
588
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 73 );
589
485
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
590
486
  begin
591
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
592
487
  trampCall(@_vector_MIMARKref)
593
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
594
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:73"] + __e.backtrace ) ; raise __e
595
488
  end ,
596
489
  [
597
490
  begin
598
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
599
491
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
600
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
601
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:73"] + __e.backtrace ) ; raise __e
602
492
  end ,
603
493
  3
604
494
  ]
@@ -624,92 +514,60 @@ trampCall(
624
514
  trampCall(
625
515
  Proc.new { ||
626
516
  begin
627
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 76 );
628
517
  delayCall( '_sprintf', 'sprintf',
629
518
  begin
630
- if @global_lisp_binding.has_key?('_sprintf') then
631
519
  trampCall(@_sprintf)
632
- else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
633
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
634
520
  end ,
635
521
  [
636
522
  "Total: %5d tests, %5d passed, %5d failed, %5d aborted.
637
523
  " ,
638
524
  begin
639
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 80 );
640
525
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
641
526
  begin
642
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
643
527
  trampCall(@_vector_MIMARKref)
644
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
645
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
646
528
  end ,
647
529
  [
648
530
  begin
649
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
650
531
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
651
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
652
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
653
532
  end ,
654
533
  0
655
534
  ]
656
535
  ))
657
536
  end ,
658
537
  begin
659
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 80 );
660
538
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
661
539
  begin
662
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
663
540
  trampCall(@_vector_MIMARKref)
664
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
665
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
666
541
  end ,
667
542
  [
668
543
  begin
669
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
670
544
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
671
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
672
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
673
545
  end ,
674
546
  1
675
547
  ]
676
548
  ))
677
549
  end ,
678
550
  begin
679
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 80 );
680
551
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
681
552
  begin
682
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
683
553
  trampCall(@_vector_MIMARKref)
684
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
685
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
686
554
  end ,
687
555
  [
688
556
  begin
689
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
690
557
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
691
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
692
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
693
558
  end ,
694
559
  2
695
560
  ]
696
561
  ))
697
562
  end ,
698
563
  begin
699
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 80 );
700
564
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
701
565
  begin
702
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
703
566
  trampCall(@_vector_MIMARKref)
704
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
705
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
706
567
  end ,
707
568
  [
708
569
  begin
709
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
710
570
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
711
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
712
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:80"] + __e.backtrace ) ; raise __e
713
571
  end ,
714
572
  3
715
573
  ]
@@ -734,20 +592,14 @@ trampCall(
734
592
  if (
735
593
  if (
736
594
  begin
737
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 265 );
738
595
  _not(
739
596
  begin
740
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 52 );
741
597
  _eq_QUMARK(
742
598
  false ,
743
599
  begin
744
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 83 );
745
600
  _string_QUMARK(
746
601
  begin
747
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
748
602
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
749
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
750
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
751
603
  end
752
604
  )
753
605
  end
@@ -759,13 +611,9 @@ trampCall(
759
611
  begin
760
612
  trampCall(File).exist?(
761
613
  begin
762
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
763
614
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
764
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
765
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
766
615
  end
767
616
  )
768
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:84"] + __e.backtrace ) ; raise __e
769
617
  end
770
618
  else
771
619
  false
@@ -773,20 +621,13 @@ trampCall(
773
621
  ) then
774
622
  begin
775
623
  begin
776
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 85 );
777
624
  trampCall( self._with_MIMARKopen_METHOD( 'with-open',
778
625
  begin
779
- if @global_lisp_binding.has_key?('_with_MIMARKopen') then
780
626
  trampCall(@_with_MIMARKopen)
781
- else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
782
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
783
627
  end ,
784
628
  [
785
629
  begin
786
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
787
630
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
788
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
789
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:85"] + __e.backtrace ) ; raise __e
790
631
  end ,
791
632
  Proc.new { |_f|
792
633
  begin
@@ -794,64 +635,43 @@ trampCall(
794
635
  if (
795
636
  begin
796
637
  trampCall(_m)
797
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:91"] + __e.backtrace ) ; raise __e
798
638
  end
799
639
  ) then
800
640
  begin
801
641
  begin
802
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 89 );
803
642
  trampCall( self._for_MIMARKeach_METHOD( 'for-each',
804
643
  begin
805
- if @global_lisp_binding.has_key?('_for_MIMARKeach') then
806
644
  trampCall(@_for_MIMARKeach)
807
- else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
808
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:89"] + __e.backtrace ) ; raise __e
809
645
  end ,
810
646
  [
811
647
  Proc.new { |_i|
812
648
  begin
813
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 98 );
814
649
  trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
815
650
  begin
816
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
817
651
  trampCall(@_vector_MIMARKset_EXMARK)
818
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
819
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
820
652
  end ,
821
653
  [
822
654
  begin
823
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
824
655
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
825
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
826
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
827
656
  end ,
828
657
  begin
829
658
  trampCall(_i)
830
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:91"] + __e.backtrace ) ; raise __e
831
659
  end ,
832
660
  begin
833
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 91 );
834
661
  _to_MIMARKi(
835
662
  begin
836
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 91 );
837
663
  trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
838
664
  begin
839
- if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
840
665
  trampCall(@_rxmatch_MIMARKsubstring)
841
- else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
842
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:91"] + __e.backtrace ) ; raise __e
843
666
  end ,
844
667
  [
845
668
  begin
846
669
  trampCall(_m)
847
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:91"] + __e.backtrace ) ; raise __e
848
670
  end ,
849
671
  begin
850
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 96 );
851
672
  __PLMARK_ARGS2(
852
673
  begin
853
674
  trampCall(_i)
854
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:91"] + __e.backtrace ) ; raise __e
855
675
  end ,
856
676
  1
857
677
  )
@@ -873,20 +693,15 @@ trampCall(
873
693
  end
874
694
  } ; ___lambda.call(
875
695
  begin
876
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 87 );
877
696
  trampCall( self._rxmatch_METHOD( 'rxmatch',
878
697
  begin
879
- if @global_lisp_binding.has_key?('_rxmatch') then
880
698
  trampCall(@_rxmatch)
881
- else raise NameError.new( "Error: undefined variable _rxmatch", "_rxmatch" ) end
882
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:87"] + __e.backtrace ) ; raise __e
883
699
  end ,
884
700
  [
885
701
  Regexp.new( "Total:\\s+(\\d+)\\s+tests,\\s+(\\d+)\\s+passed,\\s+(\\d+)\\s+failed,\\s+(\\d+)\\s+aborted") ,
886
702
  begin
887
703
  trampCall(_f).readline.chomp(
888
704
  )
889
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:87"] + __e.backtrace ) ; raise __e
890
705
  end
891
706
  ]
892
707
  ))
@@ -902,28 +717,19 @@ trampCall(
902
717
  begin
903
718
  ___lambda = lambda { |_orig_MIMARKabort|
904
719
  begin
905
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 98 );
906
720
  trampCall( self._vector_MIMARKset_EXMARK_METHOD( 'vector-set!',
907
721
  begin
908
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
909
722
  trampCall(@_vector_MIMARKset_EXMARK)
910
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
911
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
912
723
  end ,
913
724
  [
914
725
  begin
915
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
916
726
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
917
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
918
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
919
727
  end ,
920
728
  3 ,
921
729
  begin
922
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 96 );
923
730
  __PLMARK_ARGS2(
924
731
  begin
925
732
  trampCall(_orig_MIMARKabort)
926
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
927
733
  end ,
928
734
  1
929
735
  )
@@ -932,58 +738,39 @@ trampCall(
932
738
  ))
933
739
  end
934
740
  begin
935
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 97 );
936
741
  trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
937
742
  begin
938
- if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
939
743
  trampCall(@_write_MIMARKsummary)
940
- else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
941
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:97"] + __e.backtrace ) ; raise __e
942
744
  end ,
943
745
  [
944
746
  ]
945
747
  ))
946
748
  end
947
749
  begin
948
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 98 );
949
750
  delayCall( '_vector_MIMARKset_EXMARK', 'vector-set!',
950
751
  begin
951
- if @global_lisp_binding.has_key?('_vector_MIMARKset_EXMARK') then
952
752
  trampCall(@_vector_MIMARKset_EXMARK)
953
- else raise NameError.new( "Error: undefined variable _vector_MIMARKset_EXMARK", "_vector_MIMARKset_EXMARK" ) end
954
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
955
753
  end ,
956
754
  [
957
755
  begin
958
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
959
756
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
960
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
961
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
962
757
  end ,
963
758
  3 ,
964
759
  begin
965
760
  trampCall(_orig_MIMARKabort)
966
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
967
761
  end
968
762
  ]
969
763
  )
970
764
  end
971
765
  } ; ___lambda.call(
972
766
  begin
973
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 95 );
974
767
  trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
975
768
  begin
976
- if @global_lisp_binding.has_key?('_vector_MIMARKref') then
977
769
  trampCall(@_vector_MIMARKref)
978
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
979
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:95"] + __e.backtrace ) ; raise __e
980
770
  end ,
981
771
  [
982
772
  begin
983
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
984
773
  trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
985
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
986
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:98"] + __e.backtrace ) ; raise __e
987
774
  end ,
988
775
  3
989
776
  ]
@@ -1006,53 +793,37 @@ trampCall(
1006
793
  Proc.new { ||
1007
794
  if (
1008
795
  begin
1009
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 101 );
1010
796
  _string_QUMARK(
1011
797
  begin
1012
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
1013
798
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
1014
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
1015
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:102"] + __e.backtrace ) ; raise __e
1016
799
  end
1017
800
  )
1018
801
  end
1019
802
  ) then
1020
803
  begin
1021
804
  begin
1022
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 102 );
1023
805
  delayCall( '_with_MIMARKopen', 'with-open',
1024
806
  begin
1025
- if @global_lisp_binding.has_key?('_with_MIMARKopen') then
1026
807
  trampCall(@_with_MIMARKopen)
1027
- else raise NameError.new( "Error: undefined variable _with_MIMARKopen", "_with_MIMARKopen" ) end
1028
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:102"] + __e.backtrace ) ; raise __e
1029
808
  end ,
1030
809
  [
1031
810
  begin
1032
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
1033
811
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
1034
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
1035
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:102"] + __e.backtrace ) ; raise __e
1036
812
  end ,
1037
813
  Proc.new { |_f|
1038
814
  begin
1039
815
  trampCall(_f).printf(
1040
816
  "%s" ,
1041
817
  begin
1042
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 104 );
1043
818
  trampCall( self._format_MIMARKsummary_METHOD( 'format-summary',
1044
819
  begin
1045
- if @global_lisp_binding.has_key?('_format_MIMARKsummary') then
1046
820
  trampCall(@_format_MIMARKsummary)
1047
- else raise NameError.new( "Error: undefined variable _format_MIMARKsummary", "_format_MIMARKsummary" ) end
1048
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:104"] + __e.backtrace ) ; raise __e
1049
821
  end ,
1050
822
  [
1051
823
  ]
1052
824
  ))
1053
825
  end
1054
826
  )
1055
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:104"] + __e.backtrace ) ; raise __e
1056
827
  end
1057
828
  } ,
1058
829
  "w"
@@ -1081,33 +852,24 @@ trampCall(
1081
852
  "test %s, expects %s ==> " ,
1082
853
  begin
1083
854
  trampCall(_msg)
1084
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1085
855
  end ,
1086
856
  begin
1087
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 121 );
1088
857
  _write_MIMARKto_MIMARKstring(
1089
858
  begin
1090
859
  trampCall(_expect)
1091
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1092
860
  end
1093
861
  )
1094
862
  end
1095
863
  )
1096
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:121"] + __e.backtrace ) ; raise __e
1097
864
  end
1098
865
  begin
1099
866
  trampCall(_f).flush(
1100
867
  )
1101
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:125"] + __e.backtrace ) ; raise __e
1102
868
  end
1103
869
  begin
1104
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 114 );
1105
870
  trampCall( self._test_MIMARKcount_PLMARK_PLMARK_METHOD( 'test-count++',
1106
871
  begin
1107
- if @global_lisp_binding.has_key?('_test_MIMARKcount_PLMARK_PLMARK') then
1108
872
  trampCall(@_test_MIMARKcount_PLMARK_PLMARK)
1109
- else raise NameError.new( "Error: undefined variable _test_MIMARKcount_PLMARK_PLMARK", "_test_MIMARKcount_PLMARK_PLMARK" ) end
1110
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:114"] + __e.backtrace ) ; raise __e
1111
873
  end ,
1112
874
  [
1113
875
  ]
@@ -1120,7 +882,6 @@ trampCall(
1120
882
  if (
1121
883
  begin
1122
884
  trampCall(_ret)
1123
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:126"] + __e.backtrace ) ; raise __e
1124
885
  end
1125
886
  ) then
1126
887
  begin
@@ -1129,16 +890,11 @@ trampCall(
1129
890
  "ok
1130
891
  "
1131
892
  )
1132
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:121"] + __e.backtrace ) ; raise __e
1133
893
  end
1134
894
  begin
1135
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 119 );
1136
895
  trampCall( self._test_MIMARKpass_PLMARK_PLMARK_METHOD( 'test-pass++',
1137
896
  begin
1138
- if @global_lisp_binding.has_key?('_test_MIMARKpass_PLMARK_PLMARK') then
1139
897
  trampCall(@_test_MIMARKpass_PLMARK_PLMARK)
1140
- else raise NameError.new( "Error: undefined variable _test_MIMARKpass_PLMARK_PLMARK", "_test_MIMARKpass_PLMARK_PLMARK" ) end
1141
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:119"] + __e.backtrace ) ; raise __e
1142
898
  end ,
1143
899
  [
1144
900
  ]
@@ -1155,16 +911,13 @@ trampCall(
1155
911
  "ERROR: GOT %s
1156
912
  " ,
1157
913
  begin
1158
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 121 );
1159
914
  _write_MIMARKto_MIMARKstring(
1160
915
  begin
1161
916
  trampCall(_r)
1162
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1163
917
  end
1164
918
  )
1165
919
  end
1166
920
  )
1167
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:121"] + __e.backtrace ) ; raise __e
1168
921
  end
1169
922
  begin
1170
923
  def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__ASMARKdiscrepancy_MIMARKlist_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
@@ -1172,51 +925,36 @@ trampCall(
1172
925
  @__ASMARKdiscrepancy_MIMARKlist_ASMARK =
1173
926
  trampCall(
1174
927
  begin
1175
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1176
928
  _cons(
1177
929
  begin
1178
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1179
930
  trampCall( self._list_METHOD( 'list',
1180
931
  begin
1181
- if @global_lisp_binding.has_key?('_list') then
1182
932
  trampCall(@_list)
1183
- else raise NameError.new( "Error: undefined variable _list", "_list" ) end
1184
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1185
933
  end ,
1186
934
  [
1187
935
  begin
1188
936
  trampCall(_msg)
1189
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1190
937
  end ,
1191
938
  begin
1192
939
  trampCall(_expect)
1193
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1194
940
  end ,
1195
941
  begin
1196
942
  trampCall(_r)
1197
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1198
943
  end
1199
944
  ]
1200
945
  ))
1201
946
  end ,
1202
947
  begin
1203
- if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
1204
948
  trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
1205
- else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
1206
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1207
949
  end
1208
950
  )
1209
951
  end
1210
952
  )
1211
953
  end
1212
954
  begin
1213
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 124 );
1214
955
  trampCall( self._test_MIMARKfail_PLMARK_PLMARK_METHOD( 'test-fail++',
1215
956
  begin
1216
- if @global_lisp_binding.has_key?('_test_MIMARKfail_PLMARK_PLMARK') then
1217
957
  trampCall(@_test_MIMARKfail_PLMARK_PLMARK)
1218
- else raise NameError.new( "Error: undefined variable _test_MIMARKfail_PLMARK_PLMARK", "_test_MIMARKfail_PLMARK_PLMARK" ) end
1219
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:124"] + __e.backtrace ) ; raise __e
1220
958
  end ,
1221
959
  [
1222
960
  ]
@@ -1230,28 +968,22 @@ trampCall(
1230
968
  begin
1231
969
  trampCall(_f).flush(
1232
970
  )
1233
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:125"] + __e.backtrace ) ; raise __e
1234
971
  end
1235
972
  begin
1236
973
  trampCall(_ret)
1237
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:126"] + __e.backtrace ) ; raise __e
1238
974
  end
1239
975
  } ; ___lambda.call(
1240
976
  begin
1241
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 116 );
1242
977
  trampCall( callProcedure( '_cmp', 'cmp',
1243
978
  begin
1244
979
  trampCall(_cmp)
1245
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:116"] + __e.backtrace ) ; raise __e
1246
980
  end ,
1247
981
  [
1248
982
  begin
1249
983
  trampCall(_expect)
1250
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1251
984
  end ,
1252
985
  begin
1253
986
  trampCall(_r)
1254
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:123"] + __e.backtrace ) ; raise __e
1255
987
  end
1256
988
  ]
1257
989
  ))
@@ -1260,11 +992,9 @@ trampCall(
1260
992
  end
1261
993
  } ; ___lambda.call(
1262
994
  begin
1263
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 115 );
1264
995
  trampCall( callProcedure( '_thunk', 'thunk',
1265
996
  begin
1266
997
  trampCall(_thunk)
1267
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:115"] + __e.backtrace ) ; raise __e
1268
998
  end ,
1269
999
  [
1270
1000
  ]
@@ -1275,45 +1005,32 @@ trampCall(
1275
1005
  } ; ___lambda.call(
1276
1006
  if (
1277
1007
  begin
1278
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 110 );
1279
1008
  _pair_QUMARK(
1280
1009
  begin
1281
1010
  trampCall(_compare)
1282
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:110"] + __e.backtrace ) ; raise __e
1283
1011
  end
1284
1012
  )
1285
1013
  end
1286
1014
  ) then
1287
1015
  begin
1288
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 110 );
1289
1016
  delayCall( '_car', 'car',
1290
1017
  begin
1291
- if @global_lisp_binding.has_key?('_car') then
1292
1018
  trampCall(@_car)
1293
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1294
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:110"] + __e.backtrace ) ; raise __e
1295
1019
  end ,
1296
1020
  [
1297
1021
  begin
1298
1022
  trampCall(_compare)
1299
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:110"] + __e.backtrace ) ; raise __e
1300
1023
  end
1301
1024
  ]
1302
1025
  )
1303
1026
  end
1304
1027
  else
1305
1028
  begin
1306
- if @global_lisp_binding.has_key?('_test_MIMARKcheck') then
1307
1029
  trampCall(@_test_MIMARKcheck)
1308
- else raise NameError.new( "Error: undefined variable _test_MIMARKcheck", "_test_MIMARKcheck" ) end
1309
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:110"] + __e.backtrace ) ; raise __e
1310
1030
  end
1311
1031
  end ,
1312
1032
  begin
1313
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1314
1033
  trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1315
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1316
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:111"] + __e.backtrace ) ; raise __e
1317
1034
  end
1318
1035
  )
1319
1036
  end
@@ -1331,37 +1048,26 @@ trampCall(
1331
1048
  trampCall(
1332
1049
  Proc.new { |_msg,_expect,_thunk,*__rest__| _compare = __rest__[0] ;
1333
1050
  begin
1334
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 131 );
1335
1051
  delayCall( '_apply', 'apply',
1336
1052
  begin
1337
- if @global_lisp_binding.has_key?('_apply') then
1338
1053
  trampCall(@_apply)
1339
- else raise NameError.new( "Error: undefined variable _apply", "_apply" ) end
1340
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
1341
1054
  end ,
1342
1055
  [
1343
1056
  begin
1344
- if @global_lisp_binding.has_key?('_prim_MIMARKtest') then
1345
1057
  trampCall(@_prim_MIMARKtest)
1346
- else raise NameError.new( "Error: undefined variable _prim_MIMARKtest", "_prim_MIMARKtest" ) end
1347
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
1348
1058
  end ,
1349
1059
  begin
1350
1060
  trampCall(_msg)
1351
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
1352
1061
  end ,
1353
1062
  begin
1354
1063
  trampCall(_expect)
1355
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:131"] + __e.backtrace ) ; raise __e
1356
1064
  end ,
1357
1065
  Proc.new { ||
1358
1066
  begin
1359
1067
  begin
1360
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 135 );
1361
1068
  trampCall( callProcedure( '_thunk', 'thunk',
1362
1069
  begin
1363
1070
  trampCall(_thunk)
1364
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
1365
1071
  end ,
1366
1072
  [
1367
1073
  ]
@@ -1377,10 +1083,8 @@ trampCall(
1377
1083
  begin
1378
1084
  trampCall(_exc).class(
1379
1085
  )
1380
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:134"] + __e.backtrace ) ; raise __e
1381
1086
  end
1382
1087
  )
1383
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:134"] + __e.backtrace ) ; raise __e
1384
1088
  end
1385
1089
  end
1386
1090
  else
@@ -1389,51 +1093,34 @@ trampCall(
1389
1093
  ) then
1390
1094
  begin
1391
1095
  begin
1392
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 186 );
1393
1096
  trampCall( self.__PAMARKraise_METHOD( '%raise',
1394
1097
  begin
1395
- if @global_lisp_binding.has_key?('__PAMARKraise') then
1396
1098
  trampCall(@__PAMARKraise)
1397
- else raise NameError.new( "Error: undefined variable __PAMARKraise", "__PAMARKraise" ) end
1398
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/experimental.nnd:186"] + __e.backtrace ) ; raise __e
1399
1099
  end ,
1400
1100
  [
1401
1101
  begin
1402
1102
  trampCall(_exc)
1403
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:133"] + __e.backtrace ) ; raise __e
1404
1103
  end ,
1405
1104
  begin
1406
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 76 );
1407
1105
  trampCall( self._sprintf_METHOD( 'sprintf',
1408
1106
  begin
1409
- if @global_lisp_binding.has_key?('_sprintf') then
1410
1107
  trampCall(@_sprintf)
1411
- else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
1412
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
1413
1108
  end ,
1414
1109
  [
1415
1110
  "%s:%s raised %s" ,
1416
1111
  begin
1417
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 184 );
1418
1112
  trampCall( self.__ASMARKFILE_ASMARK_METHOD( '*FILE*',
1419
1113
  begin
1420
- if @global_lisp_binding.has_key?('__ASMARKFILE_ASMARK') then
1421
1114
  trampCall(@__ASMARKFILE_ASMARK)
1422
- else raise NameError.new( "Error: undefined variable __ASMARKFILE_ASMARK", "__ASMARKFILE_ASMARK" ) end
1423
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/experimental.nnd:184"] + __e.backtrace ) ; raise __e
1424
1115
  end ,
1425
1116
  [
1426
1117
  ]
1427
1118
  ))
1428
1119
  end ,
1429
1120
  begin
1430
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 184 );
1431
1121
  trampCall( self.__ASMARKLINE_ASMARK_METHOD( '*LINE*',
1432
1122
  begin
1433
- if @global_lisp_binding.has_key?('__ASMARKLINE_ASMARK') then
1434
1123
  trampCall(@__ASMARKLINE_ASMARK)
1435
- else raise NameError.new( "Error: undefined variable __ASMARKLINE_ASMARK", "__ASMARKLINE_ASMARK" ) end
1436
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/experimental.nnd:184"] + __e.backtrace ) ; raise __e
1437
1124
  end ,
1438
1125
  [
1439
1126
  ]
@@ -1441,43 +1128,30 @@ trampCall(
1441
1128
  end ,
1442
1129
  begin
1443
1130
  trampCall(_exc)
1444
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:133"] + __e.backtrace ) ; raise __e
1445
1131
  end
1446
1132
  ]
1447
1133
  ))
1448
1134
  end ,
1449
1135
  begin
1450
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 76 );
1451
1136
  trampCall( self._sprintf_METHOD( 'sprintf',
1452
1137
  begin
1453
- if @global_lisp_binding.has_key?('_sprintf') then
1454
1138
  trampCall(@_sprintf)
1455
- else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
1456
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:76"] + __e.backtrace ) ; raise __e
1457
1139
  end ,
1458
1140
  [
1459
1141
  "%s:%s raised %s" ,
1460
1142
  begin
1461
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 184 );
1462
1143
  trampCall( self.__ASMARKFILE_ASMARK_METHOD( '*FILE*',
1463
1144
  begin
1464
- if @global_lisp_binding.has_key?('__ASMARKFILE_ASMARK') then
1465
1145
  trampCall(@__ASMARKFILE_ASMARK)
1466
- else raise NameError.new( "Error: undefined variable __ASMARKFILE_ASMARK", "__ASMARKFILE_ASMARK" ) end
1467
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/experimental.nnd:184"] + __e.backtrace ) ; raise __e
1468
1146
  end ,
1469
1147
  [
1470
1148
  ]
1471
1149
  ))
1472
1150
  end ,
1473
1151
  begin
1474
- embedBacktraceInfo( "./lib/nendo/nendo/experimental.nnd", 184 );
1475
1152
  trampCall( self.__ASMARKLINE_ASMARK_METHOD( '*LINE*',
1476
1153
  begin
1477
- if @global_lisp_binding.has_key?('__ASMARKLINE_ASMARK') then
1478
1154
  trampCall(@__ASMARKLINE_ASMARK)
1479
- else raise NameError.new( "Error: undefined variable __ASMARKLINE_ASMARK", "__ASMARKLINE_ASMARK" ) end
1480
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/experimental.nnd:184"] + __e.backtrace ) ; raise __e
1481
1155
  end ,
1482
1156
  [
1483
1157
  ]
@@ -1485,7 +1159,6 @@ trampCall(
1485
1159
  end ,
1486
1160
  begin
1487
1161
  trampCall(_exc)
1488
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:133"] + __e.backtrace ) ; raise __e
1489
1162
  end
1490
1163
  ]
1491
1164
  ))
@@ -1502,7 +1175,6 @@ trampCall(
1502
1175
  } ,
1503
1176
  begin
1504
1177
  trampCall(_compare)
1505
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1506
1178
  end
1507
1179
  ]
1508
1180
  )
@@ -1521,40 +1193,30 @@ trampCall(
1521
1193
  trampCall(
1522
1194
  LispMacro.new { |_msg,_expect,_form,*__rest__| _compare = __rest__[0] ;
1523
1195
  begin
1524
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1525
1196
  _cons(
1526
1197
  :"test" ,
1527
1198
  begin
1528
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1529
1199
  _cons(
1530
1200
  begin
1531
1201
  trampCall(_msg)
1532
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:141"] + __e.backtrace ) ; raise __e
1533
1202
  end ,
1534
1203
  begin
1535
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1536
1204
  _cons(
1537
1205
  begin
1538
1206
  trampCall(_expect)
1539
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:141"] + __e.backtrace ) ; raise __e
1540
1207
  end ,
1541
1208
  begin
1542
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1543
1209
  _cons(
1544
1210
  begin
1545
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1546
1211
  _cons(
1547
1212
  :"lambda" ,
1548
1213
  begin
1549
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1550
1214
  _cons(
1551
1215
  Cell.new() ,
1552
1216
  begin
1553
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 123 );
1554
1217
  _cons(
1555
1218
  begin
1556
1219
  trampCall(_form)
1557
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:141"] + __e.backtrace ) ; raise __e
1558
1220
  end ,
1559
1221
  Cell.new()
1560
1222
  )
@@ -1565,7 +1227,6 @@ trampCall(
1565
1227
  end ,
1566
1228
  begin
1567
1229
  trampCall(_compare)
1568
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:141"] + __e.backtrace ) ; raise __e
1569
1230
  end
1570
1231
  )
1571
1232
  end
@@ -1589,44 +1250,30 @@ trampCall(
1589
1250
  trampCall(
1590
1251
  Proc.new { |_num,_char|
1591
1252
  begin
1592
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 146 );
1593
1253
  delayCall( '_string_MIMARKjoin', 'string-join',
1594
1254
  begin
1595
- if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
1596
1255
  trampCall(@_string_MIMARKjoin)
1597
- else raise NameError.new( "Error: undefined variable _string_MIMARKjoin", "_string_MIMARKjoin" ) end
1598
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:146"] + __e.backtrace ) ; raise __e
1599
1256
  end ,
1600
1257
  [
1601
1258
  begin
1602
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 147 );
1603
1259
  trampCall( self._map_METHOD( 'map',
1604
1260
  begin
1605
- if @global_lisp_binding.has_key?('_map') then
1606
1261
  trampCall(@_map)
1607
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
1608
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:147"] + __e.backtrace ) ; raise __e
1609
1262
  end ,
1610
1263
  [
1611
1264
  Proc.new { |_x|
1612
1265
  begin
1613
1266
  trampCall(_char)
1614
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
1615
1267
  end
1616
1268
  } ,
1617
1269
  begin
1618
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 149 );
1619
1270
  trampCall( self._range_METHOD( 'range',
1620
1271
  begin
1621
- if @global_lisp_binding.has_key?('_range') then
1622
1272
  trampCall(@_range)
1623
- else raise NameError.new( "Error: undefined variable _range", "_range" ) end
1624
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:149"] + __e.backtrace ) ; raise __e
1625
1273
  end ,
1626
1274
  [
1627
1275
  begin
1628
1276
  trampCall(_num)
1629
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:149"] + __e.backtrace ) ; raise __e
1630
1277
  end
1631
1278
  ]
1632
1279
  ))
@@ -1658,36 +1305,25 @@ trampCall(
1658
1305
  " ,
1659
1306
  begin
1660
1307
  trampCall(_msg)
1661
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:155"] + __e.backtrace ) ; raise __e
1662
1308
  end ,
1663
1309
  begin
1664
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 154 );
1665
1310
  trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1666
1311
  begin
1667
- if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1668
1312
  trampCall(@_make_MIMARKpadding_MIMARKstring)
1669
- else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1670
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:154"] + __e.backtrace ) ; raise __e
1671
1313
  end ,
1672
1314
  [
1673
1315
  begin
1674
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 154 );
1675
1316
  trampCall( self._max_METHOD( 'max',
1676
1317
  begin
1677
- if @global_lisp_binding.has_key?('_max') then
1678
1318
  trampCall(@_max)
1679
- else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1680
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:154"] + __e.backtrace ) ; raise __e
1681
1319
  end ,
1682
1320
  [
1683
1321
  5 ,
1684
1322
  begin
1685
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 154 );
1686
1323
  __MIMARK_ARGS2(
1687
1324
  77 ,
1688
1325
  begin
1689
1326
  trampCall(_msglen)
1690
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:154"] + __e.backtrace ) ; raise __e
1691
1327
  end
1692
1328
  )
1693
1329
  end
@@ -1699,32 +1335,22 @@ trampCall(
1699
1335
  ))
1700
1336
  end
1701
1337
  )
1702
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:154"] + __e.backtrace ) ; raise __e
1703
1338
  end
1704
1339
  begin
1705
1340
  trampCall(_msg)
1706
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:155"] + __e.backtrace ) ; raise __e
1707
1341
  end
1708
1342
  } ; ___lambda.call(
1709
1343
  begin
1710
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1711
1344
  trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1712
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1713
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:152"] + __e.backtrace ) ; raise __e
1714
1345
  end ,
1715
1346
  begin
1716
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 153 );
1717
1347
  trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1718
1348
  begin
1719
- if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1720
1349
  trampCall(@_string_MIMARKlength)
1721
- else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1722
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:153"] + __e.backtrace ) ; raise __e
1723
1350
  end ,
1724
1351
  [
1725
1352
  begin
1726
1353
  trampCall(_msg)
1727
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:155"] + __e.backtrace ) ; raise __e
1728
1354
  end
1729
1355
  ]
1730
1356
  ))
@@ -1755,28 +1381,20 @@ trampCall(
1755
1381
  "%s%s" ,
1756
1382
  begin
1757
1383
  trampCall(_s)
1758
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:161"] + __e.backtrace ) ; raise __e
1759
1384
  end ,
1760
1385
  begin
1761
1386
  trampCall(_pad)
1762
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:161"] + __e.backtrace ) ; raise __e
1763
1387
  end
1764
1388
  )
1765
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1766
1389
  end
1767
1390
  begin
1768
1391
  trampCall(_f).flush(
1769
1392
  )
1770
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:169"] + __e.backtrace ) ; raise __e
1771
1393
  end
1772
1394
  begin
1773
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 163 );
1774
1395
  trampCall( self._read_MIMARKsummary_METHOD( 'read-summary',
1775
1396
  begin
1776
- if @global_lisp_binding.has_key?('_read_MIMARKsummary') then
1777
1397
  trampCall(@_read_MIMARKsummary)
1778
- else raise NameError.new( "Error: undefined variable _read_MIMARKsummary", "_read_MIMARKsummary" ) end
1779
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:163"] + __e.backtrace ) ; raise __e
1780
1398
  end ,
1781
1399
  [
1782
1400
  ]
@@ -1787,7 +1405,6 @@ trampCall(
1787
1405
  "
1788
1406
  "
1789
1407
  )
1790
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1791
1408
  end
1792
1409
  begin
1793
1410
  def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__ASMARKdiscrepancy_MIMARKlist_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
@@ -1805,36 +1422,25 @@ trampCall(
1805
1422
  " ,
1806
1423
  begin
1807
1424
  trampCall(_msg)
1808
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:170"] + __e.backtrace ) ; raise __e
1809
1425
  end ,
1810
1426
  begin
1811
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1812
1427
  trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1813
1428
  begin
1814
- if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1815
1429
  trampCall(@_make_MIMARKpadding_MIMARKstring)
1816
- else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1817
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1818
1430
  end ,
1819
1431
  [
1820
1432
  begin
1821
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1822
1433
  trampCall( self._max_METHOD( 'max',
1823
1434
  begin
1824
- if @global_lisp_binding.has_key?('_max') then
1825
1435
  trampCall(@_max)
1826
- else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1827
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1828
1436
  end ,
1829
1437
  [
1830
1438
  5 ,
1831
1439
  begin
1832
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1833
1440
  __MIMARK_ARGS2(
1834
1441
  70 ,
1835
1442
  begin
1836
1443
  trampCall(_msglen)
1837
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1838
1444
  end
1839
1445
  )
1840
1446
  end
@@ -1846,27 +1452,20 @@ trampCall(
1846
1452
  ))
1847
1453
  end
1848
1454
  )
1849
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1850
1455
  end
1851
1456
  begin
1852
1457
  trampCall(_f).flush(
1853
1458
  )
1854
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:169"] + __e.backtrace ) ; raise __e
1855
1459
  end
1856
1460
  } ; ___lambda.call(
1857
1461
  begin
1858
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 167 );
1859
1462
  trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1860
1463
  begin
1861
- if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1862
1464
  trampCall(@_string_MIMARKlength)
1863
- else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1864
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:167"] + __e.backtrace ) ; raise __e
1865
1465
  end ,
1866
1466
  [
1867
1467
  begin
1868
1468
  trampCall(_msg)
1869
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:170"] + __e.backtrace ) ; raise __e
1870
1469
  end
1871
1470
  ]
1872
1471
  ))
@@ -1875,56 +1474,38 @@ trampCall(
1875
1474
  end
1876
1475
  begin
1877
1476
  trampCall(_msg)
1878
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:170"] + __e.backtrace ) ; raise __e
1879
1477
  end
1880
1478
  } ; ___lambda.call(
1881
1479
  begin
1882
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
1883
1480
  trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
1884
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
1885
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:160"] + __e.backtrace ) ; raise __e
1886
1481
  end
1887
1482
  )
1888
1483
  end
1889
1484
  } ; ___lambda.call(
1890
1485
  begin
1891
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1892
1486
  trampCall( self._make_MIMARKpadding_MIMARKstring_METHOD( 'make-padding-string',
1893
1487
  begin
1894
- if @global_lisp_binding.has_key?('_make_MIMARKpadding_MIMARKstring') then
1895
1488
  trampCall(@_make_MIMARKpadding_MIMARKstring)
1896
- else raise NameError.new( "Error: undefined variable _make_MIMARKpadding_MIMARKstring", "_make_MIMARKpadding_MIMARKstring" ) end
1897
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1898
1489
  end ,
1899
1490
  [
1900
1491
  begin
1901
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1902
1492
  trampCall( self._max_METHOD( 'max',
1903
1493
  begin
1904
- if @global_lisp_binding.has_key?('_max') then
1905
1494
  trampCall(@_max)
1906
- else raise NameError.new( "Error: undefined variable _max", "_max" ) end
1907
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:168"] + __e.backtrace ) ; raise __e
1908
1495
  end ,
1909
1496
  [
1910
1497
  3 ,
1911
1498
  begin
1912
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 168 );
1913
1499
  __MIMARK_ARGS2(
1914
1500
  65 ,
1915
1501
  begin
1916
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 167 );
1917
1502
  trampCall( self._string_MIMARKlength_METHOD( 'string-length',
1918
1503
  begin
1919
- if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1920
1504
  trampCall(@_string_MIMARKlength)
1921
- else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1922
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:167"] + __e.backtrace ) ; raise __e
1923
1505
  end ,
1924
1506
  [
1925
1507
  begin
1926
1508
  trampCall(_s)
1927
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:161"] + __e.backtrace ) ; raise __e
1928
1509
  end
1929
1510
  ]
1930
1511
  ))
@@ -1942,19 +1523,14 @@ trampCall(
1942
1523
  end
1943
1524
  } ; ___lambda.call(
1944
1525
  begin
1945
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 158 );
1946
1526
  trampCall( self._sprintf_METHOD( 'sprintf',
1947
1527
  begin
1948
- if @global_lisp_binding.has_key?('_sprintf') then
1949
1528
  trampCall(@_sprintf)
1950
- else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
1951
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
1952
1529
  end ,
1953
1530
  [
1954
1531
  "Testing %s ... " ,
1955
1532
  begin
1956
1533
  trampCall(_msg)
1957
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:170"] + __e.backtrace ) ; raise __e
1958
1534
  end
1959
1535
  ]
1960
1536
  ))
@@ -1978,13 +1554,9 @@ trampCall(
1978
1554
  ___lambda = lambda { |_f|
1979
1555
  if (
1980
1556
  begin
1981
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 175 );
1982
1557
  _null_QUMARK(
1983
1558
  begin
1984
- if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
1985
1559
  trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
1986
- else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
1987
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:190"] + __e.backtrace ) ; raise __e
1988
1560
  end
1989
1561
  )
1990
1562
  end
@@ -1994,7 +1566,6 @@ trampCall(
1994
1566
  "passed.
1995
1567
  "
1996
1568
  )
1997
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:180"] + __e.backtrace ) ; raise __e
1998
1569
  end
1999
1570
  else
2000
1571
  begin
@@ -2004,16 +1575,11 @@ trampCall(
2004
1575
  discrepancies found. Errors are:
2005
1576
  "
2006
1577
  )
2007
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:180"] + __e.backtrace ) ; raise __e
2008
1578
  end
2009
1579
  begin
2010
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 179 );
2011
1580
  trampCall( self._for_MIMARKeach_METHOD( 'for-each',
2012
1581
  begin
2013
- if @global_lisp_binding.has_key?('_for_MIMARKeach') then
2014
1582
  trampCall(@_for_MIMARKeach)
2015
- else raise NameError.new( "Error: undefined variable _for_MIMARKeach", "_for_MIMARKeach" ) end
2016
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:179"] + __e.backtrace ) ; raise __e
2017
1583
  end ,
2018
1584
  [
2019
1585
  Proc.new { |_r|
@@ -2022,38 +1588,27 @@ discrepancies found. Errors are:
2022
1588
  "test %s: expects %s => got %s
2023
1589
  " ,
2024
1590
  begin
2025
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 181 );
2026
1591
  trampCall( self._first_METHOD( 'first',
2027
1592
  begin
2028
- if @global_lisp_binding.has_key?('_first') then
2029
1593
  trampCall(@_first)
2030
- else raise NameError.new( "Error: undefined variable _first", "_first" ) end
2031
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:181"] + __e.backtrace ) ; raise __e
2032
1594
  end ,
2033
1595
  [
2034
1596
  begin
2035
1597
  trampCall(_r)
2036
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:183"] + __e.backtrace ) ; raise __e
2037
1598
  end
2038
1599
  ]
2039
1600
  ))
2040
1601
  end ,
2041
1602
  begin
2042
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 183 );
2043
1603
  _write_MIMARKto_MIMARKstring(
2044
1604
  begin
2045
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 182 );
2046
1605
  trampCall( self._second_METHOD( 'second',
2047
1606
  begin
2048
- if @global_lisp_binding.has_key?('_second') then
2049
1607
  trampCall(@_second)
2050
- else raise NameError.new( "Error: undefined variable _second", "_second" ) end
2051
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:182"] + __e.backtrace ) ; raise __e
2052
1608
  end ,
2053
1609
  [
2054
1610
  begin
2055
1611
  trampCall(_r)
2056
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:183"] + __e.backtrace ) ; raise __e
2057
1612
  end
2058
1613
  ]
2059
1614
  ))
@@ -2061,21 +1616,15 @@ discrepancies found. Errors are:
2061
1616
  )
2062
1617
  end ,
2063
1618
  begin
2064
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 183 );
2065
1619
  _write_MIMARKto_MIMARKstring(
2066
1620
  begin
2067
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 183 );
2068
1621
  trampCall( self._third_METHOD( 'third',
2069
1622
  begin
2070
- if @global_lisp_binding.has_key?('_third') then
2071
1623
  trampCall(@_third)
2072
- else raise NameError.new( "Error: undefined variable _third", "_third" ) end
2073
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:183"] + __e.backtrace ) ; raise __e
2074
1624
  end ,
2075
1625
  [
2076
1626
  begin
2077
1627
  trampCall(_r)
2078
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:183"] + __e.backtrace ) ; raise __e
2079
1628
  end
2080
1629
  ]
2081
1630
  ))
@@ -2083,17 +1632,12 @@ discrepancies found. Errors are:
2083
1632
  )
2084
1633
  end
2085
1634
  )
2086
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:180"] + __e.backtrace ) ; raise __e
2087
1635
  end
2088
1636
  } ,
2089
1637
  begin
2090
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 184 );
2091
1638
  _reverse(
2092
1639
  begin
2093
- if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
2094
1640
  trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
2095
- else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
2096
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:190"] + __e.backtrace ) ; raise __e
2097
1641
  end
2098
1642
  )
2099
1643
  end
@@ -2104,21 +1648,14 @@ discrepancies found. Errors are:
2104
1648
  end
2105
1649
  if (
2106
1650
  begin
2107
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
2108
1651
  trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
2109
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
2110
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:186"] + __e.backtrace ) ; raise __e
2111
1652
  end
2112
1653
  ) then
2113
1654
  begin
2114
1655
  begin
2115
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 187 );
2116
1656
  trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
2117
1657
  begin
2118
- if @global_lisp_binding.has_key?('_write_MIMARKsummary') then
2119
1658
  trampCall(@_write_MIMARKsummary)
2120
- else raise NameError.new( "Error: undefined variable _write_MIMARKsummary", "_write_MIMARKsummary" ) end
2121
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:187"] + __e.backtrace ) ; raise __e
2122
1659
  end ,
2123
1660
  [
2124
1661
  ]
@@ -2127,30 +1664,20 @@ discrepancies found. Errors are:
2127
1664
  end
2128
1665
  end
2129
1666
  begin
2130
- embedBacktraceInfo( "./lib/nendo/nendo/test.nnd", 190 );
2131
1667
  delayCall( '_length', 'length',
2132
1668
  begin
2133
- if @global_lisp_binding.has_key?('_length') then
2134
1669
  trampCall(@_length)
2135
- else raise NameError.new( "Error: undefined variable _length", "_length" ) end
2136
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:190"] + __e.backtrace ) ; raise __e
2137
1670
  end ,
2138
1671
  [
2139
1672
  begin
2140
- if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
2141
1673
  trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
2142
- else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
2143
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:190"] + __e.backtrace ) ; raise __e
2144
1674
  end
2145
1675
  ]
2146
1676
  )
2147
1677
  end
2148
1678
  } ; ___lambda.call(
2149
1679
  begin
2150
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK') then
2151
1680
  trampCall(@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK)
2152
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK" ) end
2153
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:174"] + __e.backtrace ) ; raise __e
2154
1681
  end
2155
1682
  )
2156
1683
  end
@@ -2169,7 +1696,6 @@ trampCall(
2169
1696
  Proc.new { |_module_MIMARKname|
2170
1697
  begin
2171
1698
  trampCall(_module_MIMARKname)
2172
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/nendo/test.nnd:195"] + __e.backtrace ) ; raise __e
2173
1699
  end
2174
1700
  }
2175
1701
  )