nendo 0.5.1 → 0.5.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (21) hide show
  1. data/benchmark/benchmark.nnd +62 -3
  2. data/benchmark/nendo_benchmark_code.nnd +22 -0
  3. data/benchmark/ruby_benchmark_code.rb +9 -2
  4. data/lib/debug/syslog.nndc +6 -14
  5. data/lib/init.nnd +7 -5
  6. data/lib/init.nndc +6666 -13966
  7. data/lib/nendo.rb +144 -97
  8. data/lib/nendo/test.nndc +279 -511
  9. data/lib/rfc/json.nndc +79 -167
  10. data/lib/srfi-1.nndc +3004 -6516
  11. data/lib/srfi-2.nndc +314 -914
  12. data/lib/srfi-26.nndc +1094 -2742
  13. data/lib/text/html-lite.nndc +465 -897
  14. data/lib/text/tree.nndc +27 -67
  15. data/lib/util/combinations.nndc +1253 -3317
  16. data/lib/util/list.nnd +0 -4
  17. data/lib/util/list.nndc +1411 -3419
  18. data/lib/util/match.nndc +21344 -61648
  19. data/test/nendo-util-test.nnd +5 -13
  20. data/test/nendo_spec.rb +134 -13
  21. 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
- trampCall( self.__PLMARK_METHOD( '+',
141
- begin
142
- if @global_lisp_binding.has_key?('__PLMARK') then
143
- trampCall(@__PLMARK)
144
- else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
145
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:48"] + __e.backtrace ) ; raise __e
146
- end ,
147
- [
148
- trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
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?('_vector_MIMARKref') then
151
- trampCall(@_vector_MIMARKref)
152
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
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
- begin
157
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
158
- trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
159
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
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
- trampCall( self.__PLMARK_METHOD( '+',
199
- begin
200
- if @global_lisp_binding.has_key?('__PLMARK') then
201
- trampCall(@__PLMARK)
202
- else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
203
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:50"] + __e.backtrace ) ; raise __e
204
- end ,
205
- [
206
- trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
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?('_vector_MIMARKref') then
209
- trampCall(@_vector_MIMARKref)
210
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
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
- begin
215
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
216
- trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
217
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
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
- trampCall( self.__PLMARK_METHOD( '+',
257
- begin
258
- if @global_lisp_binding.has_key?('__PLMARK') then
259
- trampCall(@__PLMARK)
260
- else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
261
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:52"] + __e.backtrace ) ; raise __e
262
- end ,
263
- [
264
- trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
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?('_vector_MIMARKref') then
267
- trampCall(@_vector_MIMARKref)
268
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
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
- begin
273
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
274
- trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
275
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
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
- trampCall( self.__PLMARK_METHOD( '+',
315
- begin
316
- if @global_lisp_binding.has_key?('__PLMARK') then
317
- trampCall(@__PLMARK)
318
- else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
319
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:54"] + __e.backtrace ) ; raise __e
320
- end ,
321
- [
322
- trampCall( self._vector_MIMARKref_METHOD( 'vector-ref',
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?('_vector_MIMARKref') then
325
- trampCall(@_vector_MIMARKref)
326
- else raise NameError.new( "Error: undefined variable _vector_MIMARKref", "_vector_MIMARKref" ) end
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
- begin
331
- if @global_lisp_binding.has_key?('__ASMARKtest_MIMARKcounts_ASMARK') then
332
- trampCall(@__ASMARKtest_MIMARKcounts_ASMARK)
333
- else raise NameError.new( "Error: undefined variable __ASMARKtest_MIMARKcounts_ASMARK", "__ASMARKtest_MIMARKcounts_ASMARK" ) end
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
- trampCall( self._not_METHOD( 'not',
453
- begin
454
- if @global_lisp_binding.has_key?('_not') then
455
- trampCall(@_not)
456
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
457
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
458
- end ,
459
- [
460
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
461
- begin
462
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
463
- trampCall(@_eq_QUMARK)
464
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
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
- trampCall( self._to_MIMARKi_METHOD( 'to-i',
558
- begin
559
- if @global_lisp_binding.has_key?('_to_MIMARKi') then
560
- trampCall(@_to_MIMARKi)
561
- else raise NameError.new( "Error: undefined variable _to_MIMARKi", "_to_MIMARKi" ) end
562
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
563
- end ,
564
- [
565
- trampCall( self._rxmatch_MIMARKsubstring_METHOD( 'rxmatch-substring',
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
- if @global_lisp_binding.has_key?('_rxmatch_MIMARKsubstring') then
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
- begin
574
- trampCall(_m)
575
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:72"] + __e.backtrace ) ; raise __e
576
- end ,
577
- trampCall( self.__PLMARK_METHOD( '+',
578
- begin
579
- if @global_lisp_binding.has_key?('__PLMARK') then
580
- trampCall(@__PLMARK)
581
- else raise NameError.new( "Error: undefined variable __PLMARK", "__PLMARK" ) end
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
- trampCall( self.__PLMARK_METHOD( '+',
573
+ __PLMARK_ARGS2(
646
574
  begin
647
- if @global_lisp_binding.has_key?('__PLMARK') then
648
- trampCall(@__PLMARK)
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
- begin
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
- trampCall( self._string_QUMARK_METHOD( 'string?',
647
+ _string_QUMARK(
728
648
  begin
729
- if @global_lisp_binding.has_key?('_string_QUMARK') then
730
- trampCall(@_string_QUMARK)
731
- else raise NameError.new( "Error: undefined variable _string_QUMARK", "_string_QUMARK" ) end
732
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:82"] + __e.backtrace ) ; raise __e
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
- trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
716
+ _write_MIMARKto_MIMARKstring(
805
717
  begin
806
- if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
807
- trampCall(@_write_MIMARKto_MIMARKstring)
808
- else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
809
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
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( 'cmp',
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
- trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
788
+ _write_MIMARKto_MIMARKstring(
885
789
  begin
886
- if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
887
- trampCall(@_write_MIMARKto_MIMARKstring)
888
- else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
889
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:99"] + __e.backtrace ) ; raise __e
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
- trampCall( self._cons_METHOD( 'cons',
907
- begin
908
- if @global_lisp_binding.has_key?('_cons') then
909
- trampCall(@_cons)
910
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
911
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
912
- end ,
913
- [
914
- trampCall( self._list_METHOD( 'list',
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
- if @global_lisp_binding.has_key?('_list') then
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
- begin
923
- trampCall(_msg)
924
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
925
- end ,
926
- begin
927
- trampCall(_expect)
928
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
929
- end ,
930
- begin
931
- trampCall(_r)
932
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
933
- end
934
- ]
935
- )) ,
936
- begin
937
- if @global_lisp_binding.has_key?('__ASMARKdiscrepancy_MIMARKlist_ASMARK') then
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( 'thunk',
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
- trampCall( self._null_QUMARK_METHOD( 'null?',
870
+ _null_QUMARK(
983
871
  begin
984
- if @global_lisp_binding.has_key?('_null_QUMARK') then
985
- trampCall(@_null_QUMARK)
986
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
987
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:143"] + __e.backtrace ) ; raise __e
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
- trampCall( self._cons_METHOD( 'cons',
1048
- begin
1049
- if @global_lisp_binding.has_key?('_cons') then
1050
- trampCall(@_cons)
1051
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1052
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1053
- end ,
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(_msg)
936
+ trampCall(_expect)
1066
937
  rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:109"] + __e.backtrace ) ; raise __e
1067
938
  end ,
1068
- trampCall( self._cons_METHOD( 'cons',
1069
- begin
1070
- if @global_lisp_binding.has_key?('_cons') then
1071
- trampCall(@_cons)
1072
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1073
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
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
- if @global_lisp_binding.has_key?('_cons') then
1091
- trampCall(@_cons)
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
- :"lambda" ,
1097
- trampCall( self._cons_METHOD( 'cons',
1098
- begin
1099
- if @global_lisp_binding.has_key?('_cons') then
1100
- trampCall(@_cons)
1101
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1102
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:101"] + __e.backtrace ) ; raise __e
1103
- end ,
1104
- [
1105
- Cell.new() ,
1106
- trampCall( self._cons_METHOD( 'cons',
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
- trampCall( self.__MIMARK_METHOD( '-',
1054
+ __MIMARK_ARGS2(
1055
+ 77 ,
1231
1056
  begin
1232
- if @global_lisp_binding.has_key?('__MIMARK') then
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
- trampCall( self.__MIMARK_METHOD( '-',
1186
+ __MIMARK_ARGS2(
1187
+ 70 ,
1371
1188
  begin
1372
- if @global_lisp_binding.has_key?('__MIMARK') then
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
- trampCall( self.__MIMARK_METHOD( '-',
1447
- begin
1448
- if @global_lisp_binding.has_key?('__MIMARK') then
1449
- trampCall(@__MIMARK)
1450
- else raise NameError.new( "Error: undefined variable __MIMARK", "__MIMARK" ) end
1451
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:136"] + __e.backtrace ) ; raise __e
1452
- end ,
1453
- [
1454
- 65 ,
1455
- trampCall( self._string_MIMARKlength_METHOD( 'string-length',
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
- if @global_lisp_binding.has_key?('_string_MIMARKlength') then
1458
- trampCall(@_string_MIMARKlength)
1459
- else raise NameError.new( "Error: undefined variable _string_MIMARKlength", "_string_MIMARKlength" ) end
1460
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:135"] + __e.backtrace ) ; raise __e
1461
- end ,
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
- trampCall( self._null_QUMARK_METHOD( 'null?',
1312
+ _null_QUMARK(
1513
1313
  begin
1514
- if @global_lisp_binding.has_key?('_null_QUMARK') then
1515
- trampCall(@_null_QUMARK)
1516
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
1517
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:143"] + __e.backtrace ) ; raise __e
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
- trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
1574
- begin
1575
- if @global_lisp_binding.has_key?('_write_MIMARKto_MIMARKstring') then
1576
- trampCall(@_write_MIMARKto_MIMARKstring)
1577
- else raise NameError.new( "Error: undefined variable _write_MIMARKto_MIMARKstring", "_write_MIMARKto_MIMARKstring" ) end
1578
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1579
- end ,
1580
- [
1581
- trampCall( self._second_METHOD( 'second',
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
- if @global_lisp_binding.has_key?('_second') then
1584
- trampCall(@_second)
1585
- else raise NameError.new( "Error: undefined variable _second", "_second" ) end
1586
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:150"] + __e.backtrace ) ; raise __e
1587
- end ,
1588
- [
1589
- begin
1590
- trampCall(_r)
1591
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:151"] + __e.backtrace ) ; raise __e
1592
- end
1593
- ]
1594
- ))
1595
- ]
1596
- )) ,
1597
- trampCall( self._write_MIMARKto_MIMARKstring_METHOD( 'write-to-string',
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
- if @global_lisp_binding.has_key?('_third') then
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
- begin
1614
- trampCall(_r)
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
- trampCall( self._reverse_METHOD( 'reverse',
1401
+ _reverse(
1626
1402
  begin
1627
- if @global_lisp_binding.has_key?('_reverse') then
1628
- trampCall(@_reverse)
1629
- else raise NameError.new( "Error: undefined variable _reverse", "_reverse" ) end
1630
- rescue => __e ; __e.set_backtrace( ["./lib/nendo/test.nnd:152"] + __e.backtrace ) ; raise __e
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(