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.
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(