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/srfi-2.nndc CHANGED
@@ -5,7 +5,7 @@
5
5
 
6
6
  trampCall(
7
7
  begin
8
- def self._and_MIMARKlet_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
8
+ def self._and_MIMARKlet_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_and_MIMARKlet_ASMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
9
9
  @global_lisp_binding['_and_MIMARKlet_ASMARK'] = self.method( :_and_MIMARKlet_ASMARK_METHOD )
10
10
  @_and_MIMARKlet_ASMARK =
11
11
  trampCall(
@@ -99,110 +99,38 @@ trampCall(
99
99
  begin
100
100
  ___lambda = lambda { |__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052|
101
101
  if (
102
- trampCall( self._not_METHOD( 'not',
103
- begin
104
- if @global_lisp_binding.has_key?('_not') then
105
- trampCall(@_not)
106
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
107
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
108
- end ,
109
- [
110
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
111
- begin
112
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
113
- trampCall(@_eq_QUMARK)
114
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
115
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
116
- end ,
117
- [
118
- false ,
119
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
120
- begin
121
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
122
- trampCall(@_pair_QUMARK)
123
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
124
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
125
- end ,
126
- [
127
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
128
- ]
129
- ))
130
- ]
131
- ))
132
- ]
133
- ))
102
+ _not(
103
+ _eq_QUMARK(
104
+ false ,
105
+ _pair_QUMARK(
106
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
107
+ )
108
+ )
109
+ )
134
110
  ) then
135
111
  begin
136
112
  ___lambda = lambda { |__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053|
137
113
  if (
138
- trampCall( self._not_METHOD( 'not',
139
- begin
140
- if @global_lisp_binding.has_key?('_not') then
141
- trampCall(@_not)
142
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
143
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
144
- end ,
145
- [
146
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
147
- begin
148
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
149
- trampCall(@_eq_QUMARK)
150
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
151
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
152
- end ,
153
- [
154
- false ,
155
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
156
- begin
157
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
158
- trampCall(@_pair_QUMARK)
159
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
160
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
161
- end ,
162
- [
163
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
164
- ]
165
- ))
166
- ]
167
- ))
168
- ]
169
- ))
114
+ _not(
115
+ _eq_QUMARK(
116
+ false ,
117
+ _pair_QUMARK(
118
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
119
+ )
120
+ )
121
+ )
170
122
  ) then
171
123
  begin
172
124
  ___lambda = lambda { |__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054|
173
125
  if (
174
- trampCall( self._not_METHOD( 'not',
175
- begin
176
- if @global_lisp_binding.has_key?('_not') then
177
- trampCall(@_not)
178
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
179
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
180
- end ,
181
- [
182
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
183
- begin
184
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
185
- trampCall(@_eq_QUMARK)
186
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
187
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
188
- end ,
189
- [
190
- false ,
191
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
192
- begin
193
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
194
- trampCall(@_pair_QUMARK)
195
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
196
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
197
- end ,
198
- [
199
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
200
- ]
201
- ))
202
- ]
203
- ))
204
- ]
205
- ))
126
+ _not(
127
+ _eq_QUMARK(
128
+ false ,
129
+ _pair_QUMARK(
130
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
131
+ )
132
+ )
133
+ )
206
134
  ) then
207
135
  begin
208
136
  ___lambda = lambda { |__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055|
@@ -211,38 +139,14 @@ trampCall(
211
139
  begin
212
140
  ___lambda = lambda { |__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056|
213
141
  if (
214
- trampCall( self._not_METHOD( 'not',
215
- begin
216
- if @global_lisp_binding.has_key?('_not') then
217
- trampCall(@_not)
218
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
219
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
220
- end ,
221
- [
222
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
223
- begin
224
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
225
- trampCall(@_eq_QUMARK)
226
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
227
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
228
- end ,
229
- [
230
- false ,
231
- trampCall( self._null_QUMARK_METHOD( 'null?',
232
- begin
233
- if @global_lisp_binding.has_key?('_null_QUMARK') then
234
- trampCall(@_null_QUMARK)
235
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
236
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
237
- end ,
238
- [
239
- __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056
240
- ]
241
- ))
242
- ]
243
- ))
244
- ]
245
- ))
142
+ _not(
143
+ _eq_QUMARK(
144
+ false ,
145
+ _null_QUMARK(
146
+ __v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056
147
+ )
148
+ )
149
+ )
246
150
  ) then
247
151
  begin
248
152
  ___lambda = lambda { |__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057|
@@ -252,193 +156,97 @@ trampCall(
252
156
  ___lambda = lambda { |__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058|
253
157
  begin
254
158
  ___lambda = lambda { |_body|
255
- trampCall( self._cons_METHOD( 'cons',
256
- begin
257
- if @global_lisp_binding.has_key?('_cons') then
258
- trampCall(@_cons)
259
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
260
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
261
- end ,
262
- [
263
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
264
- begin
265
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
266
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
267
- end ,
268
- [
269
- :"let"
270
- ]
271
- )) ,
272
- trampCall( self._cons_METHOD( 'cons',
273
- begin
274
- if @global_lisp_binding.has_key?('_cons') then
275
- trampCall(@_cons)
276
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
277
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
278
- end ,
279
- [
280
- trampCall( self._cons_METHOD( 'cons',
281
- begin
282
- if @global_lisp_binding.has_key?('_cons') then
283
- trampCall(@_cons)
284
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
285
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
286
- end ,
287
- [
288
- trampCall( self._cons_METHOD( 'cons',
289
- begin
290
- if @global_lisp_binding.has_key?('_cons') then
291
- trampCall(@_cons)
292
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
293
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
294
- end ,
295
- [
296
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
297
- begin
298
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
299
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
300
- end ,
301
- [
302
- :"tmp"
303
- ]
304
- )) ,
305
- trampCall( self._cons_METHOD( 'cons',
306
- begin
307
- if @global_lisp_binding.has_key?('_cons') then
308
- trampCall(@_cons)
309
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
310
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
311
- end ,
312
- [
313
- begin
314
- trampCall(_expr)
315
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
316
- end ,
317
- Cell.new()
318
- ]
319
- ))
320
- ]
321
- )) ,
322
- Cell.new()
323
- ]
324
- )) ,
325
- trampCall( self._cons_METHOD( 'cons',
326
- begin
327
- if @global_lisp_binding.has_key?('_cons') then
328
- trampCall(@_cons)
329
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
330
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
331
- end ,
332
- [
333
- trampCall( self._cons_METHOD( 'cons',
334
- begin
335
- if @global_lisp_binding.has_key?('_cons') then
336
- trampCall(@_cons)
337
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
338
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
339
- end ,
340
- [
341
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
342
- begin
343
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
344
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
345
- end ,
346
- [
347
- :"and"
348
- ]
349
- )) ,
350
- trampCall( self._cons_METHOD( 'cons',
351
- begin
352
- if @global_lisp_binding.has_key?('_cons') then
353
- trampCall(@_cons)
354
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
355
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
356
- end ,
357
- [
358
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
359
- begin
360
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
361
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
362
- end ,
363
- [
364
- :"tmp"
365
- ]
366
- )) ,
367
- trampCall( self._cons_METHOD( 'cons',
368
- begin
369
- if @global_lisp_binding.has_key?('_cons') then
370
- trampCall(@_cons)
371
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
372
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
373
- end ,
374
- [
375
- trampCall( self._cons_METHOD( 'cons',
376
- begin
377
- if @global_lisp_binding.has_key?('_cons') then
378
- trampCall(@_cons)
379
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
380
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
381
- end ,
382
- [
383
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
384
- begin
385
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
386
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
387
- end ,
388
- [
389
- :"and-let*"
390
- ]
391
- )) ,
392
- trampCall( self._cons_METHOD( 'cons',
393
- begin
394
- if @global_lisp_binding.has_key?('_cons') then
395
- trampCall(@_cons)
396
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
397
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
398
- end ,
399
- [
400
- begin
401
- trampCall(_rest)
402
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
403
- end ,
404
- begin
405
- trampCall(_body)
406
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
407
- end
408
- ]
409
- ))
410
- ]
411
- )) ,
412
- Cell.new()
413
- ]
414
- ))
415
- ]
416
- ))
417
- ]
418
- )) ,
419
- Cell.new()
420
- ]
421
- ))
422
- ]
423
- ))
424
- ]
425
- ))
159
+ _cons(
160
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
161
+ begin
162
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
163
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
164
+ end ,
165
+ [
166
+ :"let"
167
+ ]
168
+ )) ,
169
+ _cons(
170
+ _cons(
171
+ _cons(
172
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
173
+ begin
174
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
175
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
176
+ end ,
177
+ [
178
+ :"tmp"
179
+ ]
180
+ )) ,
181
+ _cons(
182
+ begin
183
+ trampCall(_expr)
184
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
185
+ end ,
186
+ Cell.new()
187
+ )
188
+ ) ,
189
+ Cell.new()
190
+ ) ,
191
+ _cons(
192
+ _cons(
193
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
194
+ begin
195
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
196
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
197
+ end ,
198
+ [
199
+ :"and"
200
+ ]
201
+ )) ,
202
+ _cons(
203
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
204
+ begin
205
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
206
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
207
+ end ,
208
+ [
209
+ :"tmp"
210
+ ]
211
+ )) ,
212
+ _cons(
213
+ _cons(
214
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
215
+ begin
216
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
217
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
218
+ end ,
219
+ [
220
+ :"and-let*"
221
+ ]
222
+ )) ,
223
+ _cons(
224
+ begin
225
+ trampCall(_rest)
226
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
227
+ end ,
228
+ begin
229
+ trampCall(_body)
230
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
231
+ end
232
+ )
233
+ ) ,
234
+ Cell.new()
235
+ )
236
+ )
237
+ ) ,
238
+ Cell.new()
239
+ )
240
+ )
241
+ )
426
242
  } ; ___lambda.call(
427
243
  __v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058
428
244
  )
429
245
  end
430
246
  } ; ___lambda.call(
431
- trampCall( self._cdr_METHOD( 'cdr',
432
- begin
433
- if @global_lisp_binding.has_key?('_cdr') then
434
- trampCall(@_cdr)
435
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
436
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
437
- end ,
438
- [
439
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
440
- ]
441
- ))
247
+ _cdr(
248
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
249
+ )
442
250
  )
443
251
  end
444
252
  } ; ___lambda.call(
@@ -446,34 +254,18 @@ trampCall(
446
254
  )
447
255
  end
448
256
  } ; ___lambda.call(
449
- trampCall( self._cdr_METHOD( 'cdr',
450
- begin
451
- if @global_lisp_binding.has_key?('_cdr') then
452
- trampCall(@_cdr)
453
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
454
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
455
- end ,
456
- [
457
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
458
- ]
459
- ))
257
+ _cdr(
258
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
259
+ )
460
260
  )
461
261
  end
462
262
  else
463
263
  false
464
264
  end
465
265
  } ; ___lambda.call(
466
- trampCall( self._cdr_METHOD( 'cdr',
467
- begin
468
- if @global_lisp_binding.has_key?('_cdr') then
469
- trampCall(@_cdr)
470
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
471
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
472
- end ,
473
- [
474
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
475
- ]
476
- ))
266
+ _cdr(
267
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
268
+ )
477
269
  )
478
270
  end
479
271
  } ; ___lambda.call(
@@ -481,68 +273,36 @@ trampCall(
481
273
  )
482
274
  end
483
275
  } ; ___lambda.call(
484
- trampCall( self._car_METHOD( 'car',
485
- begin
486
- if @global_lisp_binding.has_key?('_car') then
487
- trampCall(@_car)
488
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
489
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
490
- end ,
491
- [
492
- __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
493
- ]
494
- ))
276
+ _car(
277
+ __v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054
278
+ )
495
279
  )
496
280
  end
497
281
  else
498
282
  false
499
283
  end
500
284
  } ; ___lambda.call(
501
- trampCall( self._car_METHOD( 'car',
502
- begin
503
- if @global_lisp_binding.has_key?('_car') then
504
- trampCall(@_car)
505
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
506
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
507
- end ,
508
- [
509
- __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
510
- ]
511
- ))
285
+ _car(
286
+ __v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053
287
+ )
512
288
  )
513
289
  end
514
290
  else
515
291
  false
516
292
  end
517
293
  } ; ___lambda.call(
518
- trampCall( self._car_METHOD( 'car',
519
- begin
520
- if @global_lisp_binding.has_key?('_car') then
521
- trampCall(@_car)
522
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
523
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
524
- end ,
525
- [
526
- __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
527
- ]
528
- ))
294
+ _car(
295
+ __v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052
296
+ )
529
297
  )
530
298
  end
531
299
  else
532
300
  false
533
301
  end
534
302
  } ; ___lambda.call(
535
- trampCall( self._cdr_METHOD( 'cdr',
536
- begin
537
- if @global_lisp_binding.has_key?('_cdr') then
538
- trampCall(@_cdr)
539
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
540
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
541
- end ,
542
- [
543
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
544
- ]
545
- ))
303
+ _cdr(
304
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
305
+ )
546
306
  )
547
307
  end
548
308
  )
@@ -552,110 +312,38 @@ trampCall(
552
312
  begin
553
313
  ___lambda = lambda { |__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043|
554
314
  if (
555
- trampCall( self._not_METHOD( 'not',
556
- begin
557
- if @global_lisp_binding.has_key?('_not') then
558
- trampCall(@_not)
559
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
560
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
561
- end ,
562
- [
563
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
564
- begin
565
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
566
- trampCall(@_eq_QUMARK)
567
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
568
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
569
- end ,
570
- [
571
- false ,
572
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
573
- begin
574
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
575
- trampCall(@_pair_QUMARK)
576
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
577
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
578
- end ,
579
- [
580
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
581
- ]
582
- ))
583
- ]
584
- ))
585
- ]
586
- ))
315
+ _not(
316
+ _eq_QUMARK(
317
+ false ,
318
+ _pair_QUMARK(
319
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
320
+ )
321
+ )
322
+ )
587
323
  ) then
588
324
  begin
589
325
  ___lambda = lambda { |__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044|
590
326
  if (
591
- trampCall( self._not_METHOD( 'not',
592
- begin
593
- if @global_lisp_binding.has_key?('_not') then
594
- trampCall(@_not)
595
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
596
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
597
- end ,
598
- [
599
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
600
- begin
601
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
602
- trampCall(@_eq_QUMARK)
603
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
604
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
605
- end ,
606
- [
607
- false ,
608
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
609
- begin
610
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
611
- trampCall(@_pair_QUMARK)
612
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
613
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
614
- end ,
615
- [
616
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
617
- ]
618
- ))
619
- ]
620
- ))
621
- ]
622
- ))
327
+ _not(
328
+ _eq_QUMARK(
329
+ false ,
330
+ _pair_QUMARK(
331
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
332
+ )
333
+ )
334
+ )
623
335
  ) then
624
336
  begin
625
337
  ___lambda = lambda { |__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045|
626
338
  if (
627
- trampCall( self._not_METHOD( 'not',
628
- begin
629
- if @global_lisp_binding.has_key?('_not') then
630
- trampCall(@_not)
631
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
632
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
633
- end ,
634
- [
635
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
636
- begin
637
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
638
- trampCall(@_eq_QUMARK)
639
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
640
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
641
- end ,
642
- [
643
- false ,
644
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
645
- begin
646
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
647
- trampCall(@_pair_QUMARK)
648
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
649
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
650
- end ,
651
- [
652
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
653
- ]
654
- ))
655
- ]
656
- ))
657
- ]
658
- ))
339
+ _not(
340
+ _eq_QUMARK(
341
+ false ,
342
+ _pair_QUMARK(
343
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
344
+ )
345
+ )
346
+ )
659
347
  ) then
660
348
  begin
661
349
  ___lambda = lambda { |__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046|
@@ -664,38 +352,14 @@ trampCall(
664
352
  begin
665
353
  ___lambda = lambda { |__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047|
666
354
  if (
667
- trampCall( self._not_METHOD( 'not',
668
- begin
669
- if @global_lisp_binding.has_key?('_not') then
670
- trampCall(@_not)
671
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
672
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
673
- end ,
674
- [
675
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
676
- begin
677
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
678
- trampCall(@_eq_QUMARK)
679
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
680
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
681
- end ,
682
- [
683
- false ,
684
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
685
- begin
686
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
687
- trampCall(@_pair_QUMARK)
688
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
689
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
690
- end ,
691
- [
692
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
693
- ]
694
- ))
695
- ]
696
- ))
697
- ]
698
- ))
355
+ _not(
356
+ _eq_QUMARK(
357
+ false ,
358
+ _pair_QUMARK(
359
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
360
+ )
361
+ )
362
+ )
699
363
  ) then
700
364
  begin
701
365
  ___lambda = lambda { |__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048|
@@ -704,38 +368,14 @@ trampCall(
704
368
  begin
705
369
  ___lambda = lambda { |__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049|
706
370
  if (
707
- trampCall( self._not_METHOD( 'not',
708
- begin
709
- if @global_lisp_binding.has_key?('_not') then
710
- trampCall(@_not)
711
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
712
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
713
- end ,
714
- [
715
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
716
- begin
717
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
718
- trampCall(@_eq_QUMARK)
719
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
720
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
721
- end ,
722
- [
723
- false ,
724
- trampCall( self._null_QUMARK_METHOD( 'null?',
725
- begin
726
- if @global_lisp_binding.has_key?('_null_QUMARK') then
727
- trampCall(@_null_QUMARK)
728
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
729
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
730
- end ,
731
- [
732
- __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049
733
- ]
734
- ))
735
- ]
736
- ))
737
- ]
738
- ))
371
+ _not(
372
+ _eq_QUMARK(
373
+ false ,
374
+ _null_QUMARK(
375
+ __v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049
376
+ )
377
+ )
378
+ )
739
379
  ) then
740
380
  begin
741
381
  ___lambda = lambda { |__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050|
@@ -745,183 +385,87 @@ trampCall(
745
385
  ___lambda = lambda { |__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051|
746
386
  begin
747
387
  ___lambda = lambda { |_body|
748
- trampCall( self._cons_METHOD( 'cons',
749
- begin
750
- if @global_lisp_binding.has_key?('_cons') then
751
- trampCall(@_cons)
752
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
753
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
754
- end ,
755
- [
756
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
757
- begin
758
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
759
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
760
- end ,
761
- [
762
- :"let"
763
- ]
764
- )) ,
765
- trampCall( self._cons_METHOD( 'cons',
766
- begin
767
- if @global_lisp_binding.has_key?('_cons') then
768
- trampCall(@_cons)
769
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
770
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
771
- end ,
772
- [
773
- trampCall( self._cons_METHOD( 'cons',
774
- begin
775
- if @global_lisp_binding.has_key?('_cons') then
776
- trampCall(@_cons)
777
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
778
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
779
- end ,
780
- [
781
- trampCall( self._cons_METHOD( 'cons',
782
- begin
783
- if @global_lisp_binding.has_key?('_cons') then
784
- trampCall(@_cons)
785
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
786
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
787
- end ,
788
- [
789
- begin
790
- trampCall(_var)
791
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
792
- end ,
793
- trampCall( self._cons_METHOD( 'cons',
794
- begin
795
- if @global_lisp_binding.has_key?('_cons') then
796
- trampCall(@_cons)
797
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
798
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
799
- end ,
800
- [
801
- begin
802
- trampCall(_expr)
803
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
804
- end ,
805
- Cell.new()
806
- ]
807
- ))
808
- ]
809
- )) ,
810
- Cell.new()
811
- ]
812
- )) ,
813
- trampCall( self._cons_METHOD( 'cons',
388
+ _cons(
389
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
390
+ begin
391
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
392
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
393
+ end ,
394
+ [
395
+ :"let"
396
+ ]
397
+ )) ,
398
+ _cons(
399
+ _cons(
400
+ _cons(
814
401
  begin
815
- if @global_lisp_binding.has_key?('_cons') then
816
- trampCall(@_cons)
817
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
818
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
402
+ trampCall(_var)
403
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
819
404
  end ,
820
- [
821
- trampCall( self._cons_METHOD( 'cons',
822
- begin
823
- if @global_lisp_binding.has_key?('_cons') then
824
- trampCall(@_cons)
825
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
826
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
827
- end ,
828
- [
829
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
830
- begin
831
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
832
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
833
- end ,
834
- [
835
- :"and"
836
- ]
837
- )) ,
838
- trampCall( self._cons_METHOD( 'cons',
839
- begin
840
- if @global_lisp_binding.has_key?('_cons') then
841
- trampCall(@_cons)
842
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
843
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
844
- end ,
845
- [
846
- begin
847
- trampCall(_var)
848
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
849
- end ,
850
- trampCall( self._cons_METHOD( 'cons',
851
- begin
852
- if @global_lisp_binding.has_key?('_cons') then
853
- trampCall(@_cons)
854
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
855
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
856
- end ,
857
- [
858
- trampCall( self._cons_METHOD( 'cons',
859
- begin
860
- if @global_lisp_binding.has_key?('_cons') then
861
- trampCall(@_cons)
862
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
863
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
864
- end ,
865
- [
866
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
867
- begin
868
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
869
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
870
- end ,
871
- [
872
- :"and-let*"
873
- ]
874
- )) ,
875
- trampCall( self._cons_METHOD( 'cons',
876
- begin
877
- if @global_lisp_binding.has_key?('_cons') then
878
- trampCall(@_cons)
879
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
880
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
881
- end ,
882
- [
883
- begin
884
- trampCall(_rest)
885
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
886
- end ,
887
- begin
888
- trampCall(_body)
889
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
890
- end
891
- ]
892
- ))
893
- ]
894
- )) ,
895
- Cell.new()
896
- ]
897
- ))
898
- ]
899
- ))
900
- ]
901
- )) ,
902
- Cell.new()
903
- ]
904
- ))
905
- ]
906
- ))
907
- ]
908
- ))
405
+ _cons(
406
+ begin
407
+ trampCall(_expr)
408
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
409
+ end ,
410
+ Cell.new()
411
+ )
412
+ ) ,
413
+ Cell.new()
414
+ ) ,
415
+ _cons(
416
+ _cons(
417
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
418
+ begin
419
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
420
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
421
+ end ,
422
+ [
423
+ :"and"
424
+ ]
425
+ )) ,
426
+ _cons(
427
+ begin
428
+ trampCall(_var)
429
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
430
+ end ,
431
+ _cons(
432
+ _cons(
433
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
434
+ begin
435
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
436
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
437
+ end ,
438
+ [
439
+ :"and-let*"
440
+ ]
441
+ )) ,
442
+ _cons(
443
+ begin
444
+ trampCall(_rest)
445
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
446
+ end ,
447
+ begin
448
+ trampCall(_body)
449
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
450
+ end
451
+ )
452
+ ) ,
453
+ Cell.new()
454
+ )
455
+ )
456
+ ) ,
457
+ Cell.new()
458
+ )
459
+ )
460
+ )
909
461
  } ; ___lambda.call(
910
462
  __v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051
911
463
  )
912
464
  end
913
465
  } ; ___lambda.call(
914
- trampCall( self._cdr_METHOD( 'cdr',
915
- begin
916
- if @global_lisp_binding.has_key?('_cdr') then
917
- trampCall(@_cdr)
918
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
919
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
920
- end ,
921
- [
922
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
923
- ]
924
- ))
466
+ _cdr(
467
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
468
+ )
925
469
  )
926
470
  end
927
471
  } ; ___lambda.call(
@@ -929,34 +473,18 @@ trampCall(
929
473
  )
930
474
  end
931
475
  } ; ___lambda.call(
932
- trampCall( self._cdr_METHOD( 'cdr',
933
- begin
934
- if @global_lisp_binding.has_key?('_cdr') then
935
- trampCall(@_cdr)
936
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
937
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
938
- end ,
939
- [
940
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
941
- ]
942
- ))
476
+ _cdr(
477
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
478
+ )
943
479
  )
944
480
  end
945
481
  else
946
482
  false
947
483
  end
948
484
  } ; ___lambda.call(
949
- trampCall( self._cdr_METHOD( 'cdr',
950
- begin
951
- if @global_lisp_binding.has_key?('_cdr') then
952
- trampCall(@_cdr)
953
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
954
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
955
- end ,
956
- [
957
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
958
- ]
959
- ))
485
+ _cdr(
486
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
487
+ )
960
488
  )
961
489
  end
962
490
  } ; ___lambda.call(
@@ -964,34 +492,18 @@ trampCall(
964
492
  )
965
493
  end
966
494
  } ; ___lambda.call(
967
- trampCall( self._car_METHOD( 'car',
968
- begin
969
- if @global_lisp_binding.has_key?('_car') then
970
- trampCall(@_car)
971
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
972
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
973
- end ,
974
- [
975
- __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
976
- ]
977
- ))
495
+ _car(
496
+ __v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047
497
+ )
978
498
  )
979
499
  end
980
500
  else
981
501
  false
982
502
  end
983
503
  } ; ___lambda.call(
984
- trampCall( self._cdr_METHOD( 'cdr',
985
- begin
986
- if @global_lisp_binding.has_key?('_cdr') then
987
- trampCall(@_cdr)
988
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
989
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
990
- end ,
991
- [
992
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
993
- ]
994
- ))
504
+ _cdr(
505
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
506
+ )
995
507
  )
996
508
  end
997
509
  } ; ___lambda.call(
@@ -999,68 +511,36 @@ trampCall(
999
511
  )
1000
512
  end
1001
513
  } ; ___lambda.call(
1002
- trampCall( self._car_METHOD( 'car',
1003
- begin
1004
- if @global_lisp_binding.has_key?('_car') then
1005
- trampCall(@_car)
1006
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1007
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1008
- end ,
1009
- [
1010
- __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
1011
- ]
1012
- ))
514
+ _car(
515
+ __v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045
516
+ )
1013
517
  )
1014
518
  end
1015
519
  else
1016
520
  false
1017
521
  end
1018
522
  } ; ___lambda.call(
1019
- trampCall( self._car_METHOD( 'car',
1020
- begin
1021
- if @global_lisp_binding.has_key?('_car') then
1022
- trampCall(@_car)
1023
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1024
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1025
- end ,
1026
- [
1027
- __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
1028
- ]
1029
- ))
523
+ _car(
524
+ __v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044
525
+ )
1030
526
  )
1031
527
  end
1032
528
  else
1033
529
  false
1034
530
  end
1035
531
  } ; ___lambda.call(
1036
- trampCall( self._car_METHOD( 'car',
1037
- begin
1038
- if @global_lisp_binding.has_key?('_car') then
1039
- trampCall(@_car)
1040
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1041
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1042
- end ,
1043
- [
1044
- __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
1045
- ]
1046
- ))
532
+ _car(
533
+ __v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043
534
+ )
1047
535
  )
1048
536
  end
1049
537
  else
1050
538
  false
1051
539
  end
1052
540
  } ; ___lambda.call(
1053
- trampCall( self._cdr_METHOD( 'cdr',
1054
- begin
1055
- if @global_lisp_binding.has_key?('_cdr') then
1056
- trampCall(@_cdr)
1057
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1058
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1059
- end ,
1060
- [
1061
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
1062
- ]
1063
- ))
541
+ _cdr(
542
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
543
+ )
1064
544
  )
1065
545
  end
1066
546
  )
@@ -1070,152 +550,72 @@ trampCall(
1070
550
  begin
1071
551
  ___lambda = lambda { |__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040|
1072
552
  if (
1073
- trampCall( self._not_METHOD( 'not',
1074
- begin
1075
- if @global_lisp_binding.has_key?('_not') then
1076
- trampCall(@_not)
1077
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
1078
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1079
- end ,
1080
- [
1081
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
1082
- begin
1083
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
1084
- trampCall(@_eq_QUMARK)
1085
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
1086
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1087
- end ,
1088
- [
1089
- false ,
1090
- trampCall( self._pair_QUMARK_METHOD( 'pair?',
1091
- begin
1092
- if @global_lisp_binding.has_key?('_pair_QUMARK') then
1093
- trampCall(@_pair_QUMARK)
1094
- else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
1095
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1096
- end ,
1097
- [
1098
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1099
- ]
1100
- ))
1101
- ]
1102
- ))
1103
- ]
1104
- ))
553
+ _not(
554
+ _eq_QUMARK(
555
+ false ,
556
+ _pair_QUMARK(
557
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
558
+ )
559
+ )
560
+ )
1105
561
  ) then
1106
562
  begin
1107
563
  ___lambda = lambda { |__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041|
1108
564
  if (
1109
- trampCall( self._not_METHOD( 'not',
1110
- begin
1111
- if @global_lisp_binding.has_key?('_not') then
1112
- trampCall(@_not)
1113
- else raise NameError.new( "Error: undefined variable _not", "_not" ) end
1114
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1115
- end ,
1116
- [
1117
- trampCall( self._eq_QUMARK_METHOD( 'eq?',
1118
- begin
1119
- if @global_lisp_binding.has_key?('_eq_QUMARK') then
1120
- trampCall(@_eq_QUMARK)
1121
- else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
1122
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1123
- end ,
1124
- [
1125
- false ,
1126
- trampCall( self._null_QUMARK_METHOD( 'null?',
1127
- begin
1128
- if @global_lisp_binding.has_key?('_null_QUMARK') then
1129
- trampCall(@_null_QUMARK)
1130
- else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
1131
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1132
- end ,
1133
- [
1134
- __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041
1135
- ]
1136
- ))
1137
- ]
1138
- ))
1139
- ]
1140
- ))
565
+ _not(
566
+ _eq_QUMARK(
567
+ false ,
568
+ _null_QUMARK(
569
+ __v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041
570
+ )
571
+ )
572
+ )
1141
573
  ) then
1142
574
  begin
1143
575
  ___lambda = lambda { |__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042|
1144
576
  begin
1145
577
  ___lambda = lambda { |_body|
1146
- trampCall( self._cons_METHOD( 'cons',
578
+ _cons(
579
+ trampCall( callProcedure( '__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033', '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
580
+ begin
581
+ trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
582
+ rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
583
+ end ,
584
+ [
585
+ :"begin"
586
+ ]
587
+ )) ,
1147
588
  begin
1148
- if @global_lisp_binding.has_key?('_cons') then
1149
- trampCall(@_cons)
1150
- else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
1151
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1152
- end ,
1153
- [
1154
- trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
1155
- begin
1156
- trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
1157
- rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
1158
- end ,
1159
- [
1160
- :"begin"
1161
- ]
1162
- )) ,
1163
- begin
1164
- trampCall(_body)
1165
- rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
1166
- end
1167
- ]
1168
- ))
589
+ trampCall(_body)
590
+ rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
591
+ end
592
+ )
1169
593
  } ; ___lambda.call(
1170
594
  __v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042
1171
595
  )
1172
596
  end
1173
597
  } ; ___lambda.call(
1174
- trampCall( self._cdr_METHOD( 'cdr',
1175
- begin
1176
- if @global_lisp_binding.has_key?('_cdr') then
1177
- trampCall(@_cdr)
1178
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1179
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1180
- end ,
1181
- [
1182
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1183
- ]
1184
- ))
598
+ _cdr(
599
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
600
+ )
1185
601
  )
1186
602
  end
1187
603
  else
1188
604
  false
1189
605
  end
1190
606
  } ; ___lambda.call(
1191
- trampCall( self._car_METHOD( 'car',
1192
- begin
1193
- if @global_lisp_binding.has_key?('_car') then
1194
- trampCall(@_car)
1195
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1196
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1197
- end ,
1198
- [
1199
- __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
1200
- ]
1201
- ))
607
+ _car(
608
+ __v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040
609
+ )
1202
610
  )
1203
611
  end
1204
612
  else
1205
613
  false
1206
614
  end
1207
615
  } ; ___lambda.call(
1208
- trampCall( self._cdr_METHOD( 'cdr',
1209
- begin
1210
- if @global_lisp_binding.has_key?('_cdr') then
1211
- trampCall(@_cdr)
1212
- else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
1213
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1214
- end ,
1215
- [
1216
- __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
1217
- ]
1218
- ))
616
+ _cdr(
617
+ __expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032
618
+ )
1219
619
  )
1220
620
  end
1221
621
  )