nendo 0.5.3 → 0.5.4
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/lib/init.nnd +7 -5
- data/lib/init.nndc +2078 -1997
- data/lib/nendo/experimental.nnd +58 -0
- data/lib/nendo/experimental.nndc +2614 -3
- data/lib/nendo/test.nnd +40 -8
- data/lib/nendo/test.nndc +704 -361
- data/lib/nendo.rb +29 -3
- data/lib/rfc/json.nndc +6 -6
- data/lib/srfi-1.nndc +147 -147
- data/lib/srfi-2.nndc +90 -90
- data/lib/srfi-26.nndc +251 -251
- data/lib/text/html-lite.nndc +23 -23
- data/lib/util/combinations.nndc +191 -191
- data/lib/util/list.nnd +2 -0
- data/lib/util/list.nndc +692 -609
- data/lib/util/match.nndc +5551 -5551
- data/test/nendo_spec.rb +19 -3
- data/test/syntax_spec.rb +339 -15
- data/test/testframework_spec.rb +153 -0
- data/test/util-list-test.nnd +6 -6
- 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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
408
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 67 );
|
147
409
|
__PLMARK_ARGS2(
|
148
410
|
begin
|
149
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
467
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 69 );
|
206
468
|
__PLMARK_ARGS2(
|
207
469
|
begin
|
208
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
526
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 71 );
|
265
527
|
__PLMARK_ARGS2(
|
266
528
|
begin
|
267
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
585
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 73 );
|
324
586
|
__PLMARK_ARGS2(
|
325
587
|
begin
|
326
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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( "",
|
740
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 52 );
|
479
741
|
_eq_QUMARK(
|
480
742
|
false ,
|
481
743
|
begin
|
482
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
833
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 91 );
|
572
834
|
_to_MIMARKi(
|
573
835
|
begin
|
574
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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.
|
811
|
-
@global_lisp_binding['
|
812
|
-
@
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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
|
-
|
857
|
-
|
858
|
-
|
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(
|
880
|
-
|
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",
|
887
|
-
trampCall(
|
1241
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 116 );
|
1242
|
+
trampCall( callProcedure( '_cmp', 'cmp',
|
888
1243
|
begin
|
889
|
-
|
890
|
-
|
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
|
-
|
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",
|
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:
|
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
|
-
|
1003
|
-
|
1004
|
-
|
1005
|
-
|
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
|
-
|
1024
|
-
|
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
|
-
|
1040
|
-
|
1041
|
-
|
1042
|
-
|
1043
|
-
|
1044
|
-
|
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:
|
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",
|
1412
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 123 );
|
1070
1413
|
_cons(
|
1071
1414
|
:"test" ,
|
1072
1415
|
begin
|
1073
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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",
|
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:
|
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",
|
1430
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 123 );
|
1088
1431
|
_cons(
|
1089
1432
|
begin
|
1090
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
1433
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 123 );
|
1091
1434
|
_cons(
|
1092
1435
|
:"lambda" ,
|
1093
1436
|
begin
|
1094
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
1437
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 123 );
|
1095
1438
|
_cons(
|
1096
1439
|
Cell.new() ,
|
1097
1440
|
begin
|
1098
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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",
|
1800
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 168 );
|
1458
1801
|
__MIMARK_ARGS2(
|
1459
1802
|
65 ,
|
1460
1803
|
begin
|
1461
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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",
|
1930
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 183 );
|
1588
1931
|
_write_MIMARKto_MIMARKstring(
|
1589
1932
|
begin
|
1590
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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",
|
1952
|
+
embedBacktraceInfo( "./lib/nendo/test.nnd", 183 );
|
1610
1953
|
_write_MIMARKto_MIMARKstring(
|
1611
1954
|
begin
|
1612
|
-
embedBacktraceInfo( "./lib/nendo/test.nnd",
|
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:
|
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:
|
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:
|
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",
|
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:
|
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:
|
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",
|
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:
|
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",
|
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:
|
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:
|
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:
|
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:
|
2060
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:195"] + __e.backtrace ) ; raise __e
|
1718
2061
|
end
|
1719
2062
|
}
|
1720
2063
|
)
|