nendo 0.5.3 → 0.5.4

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