nendo 0.5.1 → 0.5.2
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/benchmark/benchmark.nnd +62 -3
- data/benchmark/nendo_benchmark_code.nnd +22 -0
- data/benchmark/ruby_benchmark_code.rb +9 -2
- data/lib/debug/syslog.nndc +6 -14
- data/lib/init.nnd +7 -5
- data/lib/init.nndc +6666 -13966
- data/lib/nendo.rb +144 -97
- data/lib/nendo/test.nndc +279 -511
- data/lib/rfc/json.nndc +79 -167
- data/lib/srfi-1.nndc +3004 -6516
- data/lib/srfi-2.nndc +314 -914
- data/lib/srfi-26.nndc +1094 -2742
- data/lib/text/html-lite.nndc +465 -897
- data/lib/text/tree.nndc +27 -67
- data/lib/util/combinations.nndc +1253 -3317
- data/lib/util/list.nnd +0 -4
- data/lib/util/list.nndc +1411 -3419
- data/lib/util/match.nndc +21344 -61648
- data/test/nendo-util-test.nnd +5 -13
- data/test/nendo_spec.rb +134 -13
- metadata +3 -3
data/lib/nendo/test.nndc
CHANGED
@@ -5,7 +5,7 @@
|
|
5
5
|
|
6
6
|
trampCall(
|
7
7
|
begin
|
8
|
-
def self.__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
8
|
+
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
|
9
9
|
@global_lisp_binding['__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD )
|
10
10
|
@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK =
|
11
11
|
trampCall(
|
@@ -17,7 +17,7 @@ trampCall(
|
|
17
17
|
|
18
18
|
trampCall(
|
19
19
|
begin
|
20
|
-
def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
20
|
+
def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
21
21
|
@global_lisp_binding['__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD )
|
22
22
|
@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK =
|
23
23
|
trampCall(
|
@@ -32,7 +32,7 @@ trampCall(
|
|
32
32
|
|
33
33
|
trampCall(
|
34
34
|
begin
|
35
|
-
def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
35
|
+
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
|
36
36
|
@global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
|
37
37
|
@__ASMARKdiscrepancy_MIMARKlist_ASMARK =
|
38
38
|
trampCall(
|
@@ -44,13 +44,13 @@ trampCall(
|
|
44
44
|
|
45
45
|
trampCall(
|
46
46
|
begin
|
47
|
-
def self._test_MIMARKrecord_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
47
|
+
def self._test_MIMARKrecord_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKrecord_MIMARKfile', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
48
48
|
@global_lisp_binding['_test_MIMARKrecord_MIMARKfile'] = self.method( :_test_MIMARKrecord_MIMARKfile_METHOD )
|
49
49
|
@_test_MIMARKrecord_MIMARKfile =
|
50
50
|
trampCall(
|
51
51
|
Proc.new { |_file|
|
52
52
|
begin
|
53
|
-
def self.__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
53
|
+
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
|
54
54
|
@global_lisp_binding['__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK_METHOD )
|
55
55
|
@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK =
|
56
56
|
trampCall(
|
@@ -68,13 +68,13 @@ trampCall(
|
|
68
68
|
|
69
69
|
trampCall(
|
70
70
|
begin
|
71
|
-
def self._test_MIMARKoutput_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
71
|
+
def self._test_MIMARKoutput_MIMARKfile_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKoutput_MIMARKfile', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
72
72
|
@global_lisp_binding['_test_MIMARKoutput_MIMARKfile'] = self.method( :_test_MIMARKoutput_MIMARKfile_METHOD )
|
73
73
|
@_test_MIMARKoutput_MIMARKfile =
|
74
74
|
trampCall(
|
75
75
|
Proc.new { |_file|
|
76
76
|
begin
|
77
|
-
def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
77
|
+
def self.__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
78
78
|
@global_lisp_binding['__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK'] = self.method( :__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK_METHOD )
|
79
79
|
@__ASMARKtest_MIMARKoutput_MIMARKfile_ASMARK =
|
80
80
|
trampCall(
|
@@ -92,7 +92,7 @@ trampCall(
|
|
92
92
|
|
93
93
|
trampCall(
|
94
94
|
begin
|
95
|
-
def self.__ASMARKtest_MIMARKcounts_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
95
|
+
def self.__ASMARKtest_MIMARKcounts_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__ASMARKtest_MIMARKcounts_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
96
96
|
@global_lisp_binding['__ASMARKtest_MIMARKcounts_ASMARK'] = self.method( :__ASMARKtest_MIMARKcounts_ASMARK_METHOD )
|
97
97
|
@__ASMARKtest_MIMARKcounts_ASMARK =
|
98
98
|
trampCall(
|
@@ -117,7 +117,7 @@ trampCall(
|
|
117
117
|
|
118
118
|
trampCall(
|
119
119
|
begin
|
120
|
-
def self._test_MIMARKcount_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
120
|
+
def self._test_MIMARKcount_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKcount_PLMARK_PLMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
121
121
|
@global_lisp_binding['_test_MIMARKcount_PLMARK_PLMARK'] = self.method( :_test_MIMARKcount_PLMARK_PLMARK_METHOD )
|
122
122
|
@_test_MIMARKcount_PLMARK_PLMARK =
|
123
123
|
trampCall(
|
@@ -137,34 +137,26 @@ trampCall(
|
|
137
137
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
138
138
|
end ,
|
139
139
|
0 ,
|
140
|
-
|
141
|
-
|
142
|
-
|
143
|
-
|
144
|
-
|
145
|
-
|
146
|
-
|
147
|
-
|
148
|
-
|
140
|
+
__PLMARK_ARGS2(
|
141
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
142
|
+
begin
|
143
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
144
|
+
trampCall(@_vector_MIMARKref)
|
145
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
146
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
147
|
+
end ,
|
148
|
+
[
|
149
149
|
begin
|
150
|
-
if @global_lisp_binding.has_key?('
|
151
|
-
trampCall(@
|
152
|
-
else raise NameError.new( "Error: undefined variable
|
150
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
151
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
152
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
153
153
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
154
154
|
end ,
|
155
|
-
|
156
|
-
|
157
|
-
|
158
|
-
|
159
|
-
|
160
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
|
161
|
-
end ,
|
162
|
-
0
|
163
|
-
]
|
164
|
-
)) ,
|
165
|
-
1
|
166
|
-
]
|
167
|
-
))
|
155
|
+
0
|
156
|
+
]
|
157
|
+
)) ,
|
158
|
+
1
|
159
|
+
)
|
168
160
|
]
|
169
161
|
)
|
170
162
|
}
|
@@ -175,7 +167,7 @@ trampCall(
|
|
175
167
|
|
176
168
|
trampCall(
|
177
169
|
begin
|
178
|
-
def self._test_MIMARKpass_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
170
|
+
def self._test_MIMARKpass_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKpass_PLMARK_PLMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
179
171
|
@global_lisp_binding['_test_MIMARKpass_PLMARK_PLMARK'] = self.method( :_test_MIMARKpass_PLMARK_PLMARK_METHOD )
|
180
172
|
@_test_MIMARKpass_PLMARK_PLMARK =
|
181
173
|
trampCall(
|
@@ -195,34 +187,26 @@ trampCall(
|
|
195
187
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
196
188
|
end ,
|
197
189
|
1 ,
|
198
|
-
|
199
|
-
|
200
|
-
|
201
|
-
|
202
|
-
|
203
|
-
|
204
|
-
|
205
|
-
|
206
|
-
|
190
|
+
__PLMARK_ARGS2(
|
191
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
192
|
+
begin
|
193
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
194
|
+
trampCall(@_vector_MIMARKref)
|
195
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
196
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
197
|
+
end ,
|
198
|
+
[
|
207
199
|
begin
|
208
|
-
if @global_lisp_binding.has_key?('
|
209
|
-
trampCall(@
|
210
|
-
else raise NameError.new( "Error: undefined variable
|
200
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
201
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
202
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
211
203
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
212
204
|
end ,
|
213
|
-
|
214
|
-
|
215
|
-
|
216
|
-
|
217
|
-
|
218
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
|
219
|
-
end ,
|
220
|
-
1
|
221
|
-
]
|
222
|
-
)) ,
|
223
|
-
1
|
224
|
-
]
|
225
|
-
))
|
205
|
+
1
|
206
|
+
]
|
207
|
+
)) ,
|
208
|
+
1
|
209
|
+
)
|
226
210
|
]
|
227
211
|
)
|
228
212
|
}
|
@@ -233,7 +217,7 @@ trampCall(
|
|
233
217
|
|
234
218
|
trampCall(
|
235
219
|
begin
|
236
|
-
def self._test_MIMARKfail_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
220
|
+
def self._test_MIMARKfail_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKfail_PLMARK_PLMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
237
221
|
@global_lisp_binding['_test_MIMARKfail_PLMARK_PLMARK'] = self.method( :_test_MIMARKfail_PLMARK_PLMARK_METHOD )
|
238
222
|
@_test_MIMARKfail_PLMARK_PLMARK =
|
239
223
|
trampCall(
|
@@ -253,34 +237,26 @@ trampCall(
|
|
253
237
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
254
238
|
end ,
|
255
239
|
2 ,
|
256
|
-
|
257
|
-
|
258
|
-
|
259
|
-
|
260
|
-
|
261
|
-
|
262
|
-
|
263
|
-
|
264
|
-
|
240
|
+
__PLMARK_ARGS2(
|
241
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
242
|
+
begin
|
243
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
244
|
+
trampCall(@_vector_MIMARKref)
|
245
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
246
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
247
|
+
end ,
|
248
|
+
[
|
265
249
|
begin
|
266
|
-
if @global_lisp_binding.has_key?('
|
267
|
-
trampCall(@
|
268
|
-
else raise NameError.new( "Error: undefined variable
|
250
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
251
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
252
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
269
253
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
270
254
|
end ,
|
271
|
-
|
272
|
-
|
273
|
-
|
274
|
-
|
275
|
-
|
276
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
|
277
|
-
end ,
|
278
|
-
2
|
279
|
-
]
|
280
|
-
)) ,
|
281
|
-
1
|
282
|
-
]
|
283
|
-
))
|
255
|
+
2
|
256
|
+
]
|
257
|
+
)) ,
|
258
|
+
1
|
259
|
+
)
|
284
260
|
]
|
285
261
|
)
|
286
262
|
}
|
@@ -291,7 +267,7 @@ trampCall(
|
|
291
267
|
|
292
268
|
trampCall(
|
293
269
|
begin
|
294
|
-
def self._test_MIMARKabort_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
270
|
+
def self._test_MIMARKabort_PLMARK_PLMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKabort_PLMARK_PLMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
295
271
|
@global_lisp_binding['_test_MIMARKabort_PLMARK_PLMARK'] = self.method( :_test_MIMARKabort_PLMARK_PLMARK_METHOD )
|
296
272
|
@_test_MIMARKabort_PLMARK_PLMARK =
|
297
273
|
trampCall(
|
@@ -311,34 +287,26 @@ trampCall(
|
|
311
287
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
312
288
|
end ,
|
313
289
|
3 ,
|
314
|
-
|
315
|
-
|
316
|
-
|
317
|
-
|
318
|
-
|
319
|
-
|
320
|
-
|
321
|
-
|
322
|
-
|
290
|
+
__PLMARK_ARGS2(
|
291
|
+
trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
|
292
|
+
begin
|
293
|
+
if @global_lisp_binding.has_key?('_vector_MIMARKref') then
|
294
|
+
trampCall(@_vector_MIMARKref)
|
295
|
+
else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
|
296
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
297
|
+
end ,
|
298
|
+
[
|
323
299
|
begin
|
324
|
-
if @global_lisp_binding.has_key?('
|
325
|
-
trampCall(@
|
326
|
-
else raise NameError.new( "Error: undefined variable
|
300
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
|
301
|
+
trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
|
302
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
|
327
303
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
328
304
|
end ,
|
329
|
-
|
330
|
-
|
331
|
-
|
332
|
-
|
333
|
-
|
334
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
|
335
|
-
end ,
|
336
|
-
3
|
337
|
-
]
|
338
|
-
)) ,
|
339
|
-
1
|
340
|
-
]
|
341
|
-
))
|
305
|
+
3
|
306
|
+
]
|
307
|
+
)) ,
|
308
|
+
1
|
309
|
+
)
|
342
310
|
]
|
343
311
|
)
|
344
312
|
}
|
@@ -349,7 +317,7 @@ trampCall(
|
|
349
317
|
|
350
318
|
trampCall(
|
351
319
|
begin
|
352
|
-
def self._format_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
320
|
+
def self._format_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_format_MIMARKsummary', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
353
321
|
@global_lisp_binding['_format_MIMARKsummary'] = self.method( :_format_MIMARKsummary_METHOD )
|
354
322
|
@_format_MIMARKsummary =
|
355
323
|
trampCall(
|
@@ -442,50 +410,26 @@ trampCall(
|
|
442
410
|
|
443
411
|
trampCall(
|
444
412
|
begin
|
445
|
-
def self._read_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
413
|
+
def self._read_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_read_MIMARKsummary', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
446
414
|
@global_lisp_binding['_read_MIMARKsummary'] = self.method( :_read_MIMARKsummary_METHOD )
|
447
415
|
@_read_MIMARKsummary =
|
448
416
|
trampCall(
|
449
417
|
Proc.new { ||
|
450
418
|
if (
|
451
419
|
if (
|
452
|
-
|
453
|
-
|
454
|
-
|
455
|
-
|
456
|
-
|
457
|
-
|
458
|
-
|
459
|
-
|
460
|
-
|
461
|
-
|
462
|
-
|
463
|
-
|
464
|
-
|
465
|
-
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
466
|
-
end ,
|
467
|
-
[
|
468
|
-
false ,
|
469
|
-
trampCall( self._string_QUMARK_METHOD( 'string?',
|
470
|
-
begin
|
471
|
-
if @global_lisp_binding.has_key?('_string_QUMARK') then
|
472
|
-
trampCall(@_string_QUMARK)
|
473
|
-
else raise NameError.new( "Error: undefined variable _string_QUMARK", "_string_QUMARK" ) end
|
474
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:64"] + __e.backtrace ) ; raise __e
|
475
|
-
end ,
|
476
|
-
[
|
477
|
-
begin
|
478
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
479
|
-
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
480
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
481
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
482
|
-
end
|
483
|
-
]
|
484
|
-
))
|
485
|
-
]
|
486
|
-
))
|
487
|
-
]
|
488
|
-
))
|
420
|
+
_not(
|
421
|
+
_eq_QUMARK(
|
422
|
+
false ,
|
423
|
+
_string_QUMARK(
|
424
|
+
begin
|
425
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
426
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
427
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
428
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:66"] + __e.backtrace ) ; raise __e
|
429
|
+
end
|
430
|
+
)
|
431
|
+
)
|
432
|
+
)
|
489
433
|
) then
|
490
434
|
begin
|
491
435
|
trampCall(File).exist?(
|
@@ -554,45 +498,29 @@ trampCall(
|
|
554
498
|
trampCall(_i)
|
555
499
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
556
500
|
end ,
|
557
|
-
|
558
|
-
|
559
|
-
|
560
|
-
|
561
|
-
|
562
|
-
|
563
|
-
|
564
|
-
|
565
|
-
|
501
|
+
_to_MIMARKi(
|
502
|
+
trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
|
503
|
+
begin
|
504
|
+
if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
|
505
|
+
trampCall(@_rxmatch_MIMARKsubstring)
|
506
|
+
else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
|
507
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
508
|
+
end ,
|
509
|
+
[
|
566
510
|
begin
|
567
|
-
|
568
|
-
trampCall(@_rxmatch_MIMARKsubstring)
|
569
|
-
else raise NameError.new( "Error: undefined variable _rxmatch_MIMARKsubstring", "_rxmatch_MIMARKsubstring" ) end
|
511
|
+
trampCall(_m)
|
570
512
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
571
513
|
end ,
|
572
|
-
|
573
|
-
|
574
|
-
|
575
|
-
|
576
|
-
|
577
|
-
|
578
|
-
|
579
|
-
|
580
|
-
|
581
|
-
|
582
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:77"] + __e.backtrace ) ; raise __e
|
583
|
-
end ,
|
584
|
-
[
|
585
|
-
begin
|
586
|
-
trampCall(_i)
|
587
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
588
|
-
end ,
|
589
|
-
1
|
590
|
-
]
|
591
|
-
))
|
592
|
-
]
|
593
|
-
))
|
594
|
-
]
|
595
|
-
))
|
514
|
+
__PLMARK_ARGS2(
|
515
|
+
begin
|
516
|
+
trampCall(_i)
|
517
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
|
518
|
+
end ,
|
519
|
+
1
|
520
|
+
)
|
521
|
+
]
|
522
|
+
))
|
523
|
+
)
|
596
524
|
]
|
597
525
|
))
|
598
526
|
} ,
|
@@ -642,21 +570,13 @@ trampCall(
|
|
642
570
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
643
571
|
end ,
|
644
572
|
3 ,
|
645
|
-
|
573
|
+
__PLMARK_ARGS2(
|
646
574
|
begin
|
647
|
-
|
648
|
-
|
649
|
-
else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
|
650
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:77"] + __e.backtrace ) ; raise __e
|
575
|
+
trampCall(_orig_MIMARKabort)
|
576
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
651
577
|
end ,
|
652
|
-
|
653
|
-
|
654
|
-
trampCall(_orig_MIMARKabort)
|
655
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:79"] + __e.backtrace ) ; raise __e
|
656
|
-
end ,
|
657
|
-
1
|
658
|
-
]
|
659
|
-
))
|
578
|
+
1
|
579
|
+
)
|
660
580
|
]
|
661
581
|
))
|
662
582
|
trampCall( self._write_MIMARKsummary_METHOD( 'write-summary',
|
@@ -718,28 +638,20 @@ trampCall(
|
|
718
638
|
|
719
639
|
trampCall(
|
720
640
|
begin
|
721
|
-
def self._write_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
641
|
+
def self._write_MIMARKsummary_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_write_MIMARKsummary', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
722
642
|
@global_lisp_binding['_write_MIMARKsummary'] = self.method( :_write_MIMARKsummary_METHOD )
|
723
643
|
@_write_MIMARKsummary =
|
724
644
|
trampCall(
|
725
645
|
Proc.new { ||
|
726
646
|
if (
|
727
|
-
|
647
|
+
_string_QUMARK(
|
728
648
|
begin
|
729
|
-
if @global_lisp_binding.has_key?('
|
730
|
-
trampCall(@
|
731
|
-
else raise NameError.new( "Error: undefined variable
|
732
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:
|
733
|
-
end
|
734
|
-
|
735
|
-
begin
|
736
|
-
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
737
|
-
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
738
|
-
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
739
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
740
|
-
end
|
741
|
-
]
|
742
|
-
))
|
649
|
+
if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK') then
|
650
|
+
trampCall(@__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK)
|
651
|
+
else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK", "__ASMARKtest_MIMARKrecord_MIMARKfile_ASMARK" ) end
|
652
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:83"] + __e.backtrace ) ; raise __e
|
653
|
+
end
|
654
|
+
)
|
743
655
|
) then
|
744
656
|
begin
|
745
657
|
delayCall( '_with_MIMARKopen', 'with-open',
|
@@ -787,7 +699,7 @@ trampCall(
|
|
787
699
|
|
788
700
|
trampCall(
|
789
701
|
begin
|
790
|
-
def self._test_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
702
|
+
def self._test_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
791
703
|
@global_lisp_binding['_test'] = self.method( :_test_METHOD )
|
792
704
|
@_test =
|
793
705
|
trampCall(
|
@@ -801,20 +713,12 @@ trampCall(
|
|
801
713
|
trampCall(_msg)
|
802
714
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
803
715
|
end ,
|
804
|
-
|
716
|
+
_write_MIMARKto_MIMARKstring(
|
805
717
|
begin
|
806
|
-
|
807
|
-
|
808
|
-
|
809
|
-
|
810
|
-
end ,
|
811
|
-
[
|
812
|
-
begin
|
813
|
-
trampCall(_expect)
|
814
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
815
|
-
end
|
816
|
-
]
|
817
|
-
))
|
718
|
+
trampCall(_expect)
|
719
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
720
|
+
end
|
721
|
+
)
|
818
722
|
)
|
819
723
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
|
820
724
|
end
|
@@ -836,7 +740,7 @@ trampCall(
|
|
836
740
|
begin
|
837
741
|
___lambda = lambda { |_r|
|
838
742
|
if (
|
839
|
-
trampCall( callProcedure(
|
743
|
+
trampCall( callProcedure( '_cmp', 'cmp',
|
840
744
|
begin
|
841
745
|
trampCall(_cmp)
|
842
746
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:95"] + __e.backtrace ) ; raise __e
|
@@ -881,66 +785,50 @@ trampCall(
|
|
881
785
|
trampCall(_f).printf(
|
882
786
|
"ERROR: GOT %s
|
883
787
|
" ,
|
884
|
-
|
788
|
+
_write_MIMARKto_MIMARKstring(
|
885
789
|
begin
|
886
|
-
|
887
|
-
|
888
|
-
|
889
|
-
|
890
|
-
end ,
|
891
|
-
[
|
892
|
-
begin
|
893
|
-
trampCall(_r)
|
894
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
895
|
-
end
|
896
|
-
]
|
897
|
-
))
|
790
|
+
trampCall(_r)
|
791
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
792
|
+
end
|
793
|
+
)
|
898
794
|
)
|
899
795
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
|
900
796
|
end
|
901
797
|
begin
|
902
|
-
def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
798
|
+
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
|
903
799
|
@global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
|
904
800
|
@__ASMARKdiscrepancy_MIMARKlist_ASMARK =
|
905
801
|
trampCall(
|
906
|
-
|
907
|
-
|
908
|
-
|
909
|
-
|
910
|
-
|
911
|
-
|
912
|
-
|
913
|
-
|
914
|
-
|
802
|
+
_cons(
|
803
|
+
trampCall( self._list_METHOD( 'list',
|
804
|
+
begin
|
805
|
+
if @global_lisp_binding.has_key?('_list') then
|
806
|
+
trampCall(@_list)
|
807
|
+
else raise NameError.new( "Error: undefined variable _list", "_list" ) end
|
808
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
809
|
+
end ,
|
810
|
+
[
|
915
811
|
begin
|
916
|
-
|
917
|
-
trampCall(@_list)
|
918
|
-
else raise NameError.new( "Error: undefined variable _list", "_list" ) end
|
812
|
+
trampCall(_msg)
|
919
813
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
920
814
|
end ,
|
921
|
-
|
922
|
-
|
923
|
-
|
924
|
-
|
925
|
-
|
926
|
-
|
927
|
-
|
928
|
-
|
929
|
-
|
930
|
-
|
931
|
-
|
932
|
-
|
933
|
-
|
934
|
-
|
935
|
-
|
936
|
-
|
937
|
-
|
938
|
-
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
939
|
-
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
940
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
941
|
-
end
|
942
|
-
]
|
943
|
-
))
|
815
|
+
begin
|
816
|
+
trampCall(_expect)
|
817
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
818
|
+
end ,
|
819
|
+
begin
|
820
|
+
trampCall(_r)
|
821
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
822
|
+
end
|
823
|
+
]
|
824
|
+
)) ,
|
825
|
+
begin
|
826
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
827
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
828
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
829
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
830
|
+
end
|
831
|
+
)
|
944
832
|
)
|
945
833
|
end
|
946
834
|
trampCall( self._test_MIMARKfail_PLMARK_PLMARK_METHOD( 'test-fail++',
|
@@ -965,7 +853,7 @@ trampCall(
|
|
965
853
|
end
|
966
854
|
true
|
967
855
|
} ; ___lambda.call(
|
968
|
-
trampCall( callProcedure(
|
856
|
+
trampCall( callProcedure( '_thunk', 'thunk',
|
969
857
|
begin
|
970
858
|
trampCall(_thunk)
|
971
859
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:94"] + __e.backtrace ) ; raise __e
|
@@ -979,20 +867,12 @@ trampCall(
|
|
979
867
|
begin
|
980
868
|
___lambda = lambda { |___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004|
|
981
869
|
if (
|
982
|
-
|
870
|
+
_null_QUMARK(
|
983
871
|
begin
|
984
|
-
|
985
|
-
|
986
|
-
|
987
|
-
|
988
|
-
end ,
|
989
|
-
[
|
990
|
-
begin
|
991
|
-
trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004)
|
992
|
-
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
993
|
-
end
|
994
|
-
]
|
995
|
-
))
|
872
|
+
trampCall(___gensym__da296d116d489ba951dcd8991bd44f36a977a621_20004)
|
873
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
874
|
+
end
|
875
|
+
)
|
996
876
|
) then
|
997
877
|
begin
|
998
878
|
if @global_lisp_binding.has_key?('_equal_QUMARK') then
|
@@ -1039,101 +919,45 @@ trampCall(
|
|
1039
919
|
|
1040
920
|
trampCall(
|
1041
921
|
begin
|
1042
|
-
def self._test_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
922
|
+
def self._test_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1043
923
|
@global_lisp_binding['_test_ASMARK'] = self.method( :_test_ASMARK_METHOD )
|
1044
924
|
@_test_ASMARK =
|
1045
925
|
trampCall(
|
1046
926
|
LispMacro.new { |_msg,_expect,_form,*__rest__| _compare = __rest__[0] ;
|
1047
|
-
|
1048
|
-
|
1049
|
-
|
1050
|
-
|
1051
|
-
|
1052
|
-
|
1053
|
-
|
1054
|
-
|
1055
|
-
:"test" ,
|
1056
|
-
trampCall( self._cons_METHOD( 'cons',
|
1057
|
-
begin
|
1058
|
-
if @global_lisp_binding.has_key?('_cons') then
|
1059
|
-
trampCall(@_cons)
|
1060
|
-
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
1061
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
1062
|
-
end ,
|
1063
|
-
[
|
927
|
+
_cons(
|
928
|
+
:"test" ,
|
929
|
+
_cons(
|
930
|
+
begin
|
931
|
+
trampCall(_msg)
|
932
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
933
|
+
end ,
|
934
|
+
_cons(
|
1064
935
|
begin
|
1065
|
-
trampCall(
|
936
|
+
trampCall(_expect)
|
1066
937
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
1067
938
|
end ,
|
1068
|
-
|
1069
|
-
|
1070
|
-
|
1071
|
-
|
1072
|
-
|
1073
|
-
|
1074
|
-
end ,
|
1075
|
-
[
|
1076
|
-
begin
|
1077
|
-
trampCall(_expect)
|
1078
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
1079
|
-
end ,
|
1080
|
-
trampCall( self._cons_METHOD( 'cons',
|
1081
|
-
begin
|
1082
|
-
if @global_lisp_binding.has_key?('_cons') then
|
1083
|
-
trampCall(@_cons)
|
1084
|
-
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
1085
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
1086
|
-
end ,
|
1087
|
-
[
|
1088
|
-
trampCall( self._cons_METHOD( 'cons',
|
939
|
+
_cons(
|
940
|
+
_cons(
|
941
|
+
:"lambda" ,
|
942
|
+
_cons(
|
943
|
+
Cell.new() ,
|
944
|
+
_cons(
|
1089
945
|
begin
|
1090
|
-
|
1091
|
-
|
1092
|
-
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
1093
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
946
|
+
trampCall(_form)
|
947
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
1094
948
|
end ,
|
1095
|
-
|
1096
|
-
|
1097
|
-
|
1098
|
-
|
1099
|
-
|
1100
|
-
|
1101
|
-
|
1102
|
-
|
1103
|
-
|
1104
|
-
|
1105
|
-
|
1106
|
-
|
1107
|
-
begin
|
1108
|
-
if @global_lisp_binding.has_key?('_cons') then
|
1109
|
-
trampCall(@_cons)
|
1110
|
-
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
1111
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
|
1112
|
-
end ,
|
1113
|
-
[
|
1114
|
-
begin
|
1115
|
-
trampCall(_form)
|
1116
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
1117
|
-
end ,
|
1118
|
-
Cell.new()
|
1119
|
-
]
|
1120
|
-
))
|
1121
|
-
]
|
1122
|
-
))
|
1123
|
-
]
|
1124
|
-
)) ,
|
1125
|
-
begin
|
1126
|
-
trampCall(_compare)
|
1127
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
1128
|
-
end
|
1129
|
-
]
|
1130
|
-
))
|
1131
|
-
]
|
1132
|
-
))
|
1133
|
-
]
|
1134
|
-
))
|
1135
|
-
]
|
1136
|
-
))
|
949
|
+
Cell.new()
|
950
|
+
)
|
951
|
+
)
|
952
|
+
) ,
|
953
|
+
begin
|
954
|
+
trampCall(_compare)
|
955
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
|
956
|
+
end
|
957
|
+
)
|
958
|
+
)
|
959
|
+
)
|
960
|
+
)
|
1137
961
|
}
|
1138
962
|
)
|
1139
963
|
end
|
@@ -1142,7 +966,7 @@ trampCall(
|
|
1142
966
|
|
1143
967
|
trampCall(
|
1144
968
|
begin
|
1145
|
-
def self._make_MIMARKpadding_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
969
|
+
def self._make_MIMARKpadding_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_make_MIMARKpadding_MIMARKstring', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1146
970
|
@global_lisp_binding['_make_MIMARKpadding_MIMARKstring'] = self.method( :_make_MIMARKpadding_MIMARKstring_METHOD )
|
1147
971
|
@_make_MIMARKpadding_MIMARKstring =
|
1148
972
|
trampCall(
|
@@ -1195,7 +1019,7 @@ trampCall(
|
|
1195
1019
|
|
1196
1020
|
trampCall(
|
1197
1021
|
begin
|
1198
|
-
def self._test_MIMARKsection_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1022
|
+
def self._test_MIMARKsection_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKsection', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1199
1023
|
@global_lisp_binding['_test_MIMARKsection'] = self.method( :_test_MIMARKsection_METHOD )
|
1200
1024
|
@_test_MIMARKsection =
|
1201
1025
|
trampCall(
|
@@ -1227,21 +1051,13 @@ trampCall(
|
|
1227
1051
|
end ,
|
1228
1052
|
[
|
1229
1053
|
5 ,
|
1230
|
-
|
1054
|
+
__MIMARK_ARGS2(
|
1055
|
+
77 ,
|
1231
1056
|
begin
|
1232
|
-
|
1233
|
-
trampCall(@__MIMARK)
|
1234
|
-
else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
|
1057
|
+
trampCall(_msglen)
|
1235
1058
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
1236
|
-
end
|
1237
|
-
|
1238
|
-
77 ,
|
1239
|
-
begin
|
1240
|
-
trampCall(_msglen)
|
1241
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:122"] + __e.backtrace ) ; raise __e
|
1242
|
-
end
|
1243
|
-
]
|
1244
|
-
))
|
1059
|
+
end
|
1060
|
+
)
|
1245
1061
|
]
|
1246
1062
|
)) ,
|
1247
1063
|
"-"
|
@@ -1285,7 +1101,7 @@ trampCall(
|
|
1285
1101
|
|
1286
1102
|
trampCall(
|
1287
1103
|
begin
|
1288
|
-
def self._test_MIMARKstart_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1104
|
+
def self._test_MIMARKstart_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKstart', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1289
1105
|
@global_lisp_binding['_test_MIMARKstart'] = self.method( :_test_MIMARKstart_METHOD )
|
1290
1106
|
@_test_MIMARKstart =
|
1291
1107
|
trampCall(
|
@@ -1333,7 +1149,7 @@ trampCall(
|
|
1333
1149
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
1334
1150
|
end
|
1335
1151
|
begin
|
1336
|
-
def self.__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1152
|
+
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
|
1337
1153
|
@global_lisp_binding['__ASMARKdiscrepancy_MIMARKlist_ASMARK'] = self.method( :__ASMARKdiscrepancy_MIMARKlist_ASMARK_METHOD )
|
1338
1154
|
@__ASMARKdiscrepancy_MIMARKlist_ASMARK =
|
1339
1155
|
trampCall(
|
@@ -1367,21 +1183,13 @@ trampCall(
|
|
1367
1183
|
end ,
|
1368
1184
|
[
|
1369
1185
|
5 ,
|
1370
|
-
|
1186
|
+
__MIMARK_ARGS2(
|
1187
|
+
70 ,
|
1371
1188
|
begin
|
1372
|
-
|
1373
|
-
trampCall(@__MIMARK)
|
1374
|
-
else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
|
1189
|
+
trampCall(_msglen)
|
1375
1190
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
1376
|
-
end
|
1377
|
-
|
1378
|
-
70 ,
|
1379
|
-
begin
|
1380
|
-
trampCall(_msglen)
|
1381
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
|
1382
|
-
end
|
1383
|
-
]
|
1384
|
-
))
|
1191
|
+
end
|
1192
|
+
)
|
1385
1193
|
]
|
1386
1194
|
)) ,
|
1387
1195
|
"-"
|
@@ -1443,31 +1251,23 @@ trampCall(
|
|
1443
1251
|
end ,
|
1444
1252
|
[
|
1445
1253
|
3 ,
|
1446
|
-
|
1447
|
-
|
1448
|
-
|
1449
|
-
|
1450
|
-
|
1451
|
-
|
1452
|
-
|
1453
|
-
|
1454
|
-
|
1455
|
-
|
1254
|
+
__MIMARK_ARGS2(
|
1255
|
+
65 ,
|
1256
|
+
trampCall( self._string_MIMARKlength_METHOD( 'string-length',
|
1257
|
+
begin
|
1258
|
+
if @global_lisp_binding.has_key?('_string_MIMARKlength') then
|
1259
|
+
trampCall(@_string_MIMARKlength)
|
1260
|
+
else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
|
1261
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
|
1262
|
+
end ,
|
1263
|
+
[
|
1456
1264
|
begin
|
1457
|
-
|
1458
|
-
|
1459
|
-
|
1460
|
-
|
1461
|
-
|
1462
|
-
|
1463
|
-
begin
|
1464
|
-
trampCall(_s)
|
1465
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
|
1466
|
-
end
|
1467
|
-
]
|
1468
|
-
))
|
1469
|
-
]
|
1470
|
-
))
|
1265
|
+
trampCall(_s)
|
1266
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:129"] + __e.backtrace ) ; raise __e
|
1267
|
+
end
|
1268
|
+
]
|
1269
|
+
))
|
1270
|
+
)
|
1471
1271
|
]
|
1472
1272
|
)) ,
|
1473
1273
|
" "
|
@@ -1501,7 +1301,7 @@ trampCall(
|
|
1501
1301
|
|
1502
1302
|
trampCall(
|
1503
1303
|
begin
|
1504
|
-
def self._test_MIMARKend_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1304
|
+
def self._test_MIMARKend_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKend', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1505
1305
|
@global_lisp_binding['_test_MIMARKend'] = self.method( :_test_MIMARKend_METHOD )
|
1506
1306
|
@_test_MIMARKend =
|
1507
1307
|
trampCall(
|
@@ -1509,22 +1309,14 @@ trampCall(
|
|
1509
1309
|
begin
|
1510
1310
|
___lambda = lambda { |_f|
|
1511
1311
|
if (
|
1512
|
-
|
1312
|
+
_null_QUMARK(
|
1513
1313
|
begin
|
1514
|
-
if @global_lisp_binding.has_key?('
|
1515
|
-
trampCall(@
|
1516
|
-
else raise NameError.new( "Error: undefined variable
|
1517
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:
|
1518
|
-
end
|
1519
|
-
|
1520
|
-
begin
|
1521
|
-
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
1522
|
-
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
1523
|
-
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
1524
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
1525
|
-
end
|
1526
|
-
]
|
1527
|
-
))
|
1314
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
1315
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
1316
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
1317
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
1318
|
+
end
|
1319
|
+
)
|
1528
1320
|
) then
|
1529
1321
|
begin
|
1530
1322
|
trampCall(_f).printf(
|
@@ -1570,74 +1362,50 @@ discrepancies found. Errors are:
|
|
1570
1362
|
end
|
1571
1363
|
]
|
1572
1364
|
)) ,
|
1573
|
-
|
1574
|
-
|
1575
|
-
|
1576
|
-
|
1577
|
-
|
1578
|
-
|
1579
|
-
|
1580
|
-
|
1581
|
-
|
1365
|
+
_write_MIMARKto_MIMARKstring(
|
1366
|
+
trampCall( self._second_METHOD( 'second',
|
1367
|
+
begin
|
1368
|
+
if @global_lisp_binding.has_key?('_second') then
|
1369
|
+
trampCall(@_second)
|
1370
|
+
else raise NameError.new( "Error: undefined variable _second", "_second" ) end
|
1371
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:150"] + __e.backtrace ) ; raise __e
|
1372
|
+
end ,
|
1373
|
+
[
|
1582
1374
|
begin
|
1583
|
-
|
1584
|
-
|
1585
|
-
|
1586
|
-
|
1587
|
-
|
1588
|
-
|
1589
|
-
|
1590
|
-
|
1591
|
-
|
1592
|
-
|
1593
|
-
|
1594
|
-
|
1595
|
-
|
1596
|
-
|
1597
|
-
|
1598
|
-
begin
|
1599
|
-
if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
|
1600
|
-
trampCall(@_write_MIMARKto_MIMARKstring)
|
1601
|
-
else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
|
1602
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
1603
|
-
end ,
|
1604
|
-
[
|
1605
|
-
trampCall( self._third_METHOD( 'third',
|
1375
|
+
trampCall(_r)
|
1376
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
1377
|
+
end
|
1378
|
+
]
|
1379
|
+
))
|
1380
|
+
) ,
|
1381
|
+
_write_MIMARKto_MIMARKstring(
|
1382
|
+
trampCall( self._third_METHOD( 'third',
|
1383
|
+
begin
|
1384
|
+
if @global_lisp_binding.has_key?('_third') then
|
1385
|
+
trampCall(@_third)
|
1386
|
+
else raise NameError.new( "Error: undefined variable _third", "_third" ) end
|
1387
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
1388
|
+
end ,
|
1389
|
+
[
|
1606
1390
|
begin
|
1607
|
-
|
1608
|
-
trampCall(@_third)
|
1609
|
-
else raise NameError.new( "Error: undefined variable _third", "_third" ) end
|
1391
|
+
trampCall(_r)
|
1610
1392
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
1611
|
-
end
|
1612
|
-
|
1613
|
-
|
1614
|
-
|
1615
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
|
1616
|
-
end
|
1617
|
-
]
|
1618
|
-
))
|
1619
|
-
]
|
1620
|
-
))
|
1393
|
+
end
|
1394
|
+
]
|
1395
|
+
))
|
1396
|
+
)
|
1621
1397
|
)
|
1622
1398
|
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:148"] + __e.backtrace ) ; raise __e
|
1623
1399
|
end
|
1624
1400
|
} ,
|
1625
|
-
|
1401
|
+
_reverse(
|
1626
1402
|
begin
|
1627
|
-
if @global_lisp_binding.has_key?('
|
1628
|
-
trampCall(@
|
1629
|
-
else raise NameError.new( "Error: undefined variable
|
1630
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:
|
1631
|
-
end
|
1632
|
-
|
1633
|
-
begin
|
1634
|
-
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
1635
|
-
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
1636
|
-
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
1637
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
1638
|
-
end
|
1639
|
-
]
|
1640
|
-
))
|
1403
|
+
if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
|
1404
|
+
trampCall(@__ASMARKdiscrepancy_MIMARKlist_ASMARK)
|
1405
|
+
else raise NameError.new( "Error: undefined variable __ASMARKdiscrepancy_MIMARKlist_ASMARK", "__ASMARKdiscrepancy_MIMARKlist_ASMARK" ) end
|
1406
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:158"] + __e.backtrace ) ; raise __e
|
1407
|
+
end
|
1408
|
+
)
|
1641
1409
|
]
|
1642
1410
|
))
|
1643
1411
|
end
|
@@ -1696,7 +1464,7 @@ discrepancies found. Errors are:
|
|
1696
1464
|
|
1697
1465
|
trampCall(
|
1698
1466
|
begin
|
1699
|
-
def self._test_MIMARKmodule_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1467
|
+
def self._test_MIMARKmodule_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_test_MIMARKmodule', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
1700
1468
|
@global_lisp_binding['_test_MIMARKmodule'] = self.method( :_test_MIMARKmodule_METHOD )
|
1701
1469
|
@_test_MIMARKmodule =
|
1702
1470
|
trampCall(
|