nendo 0.5.3 → 0.5.4

Sign up to get free protection for your applications and to get access to all the features.
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
  )