nendo 0.5.2 → 0.5.3

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.
@@ -0,0 +1,1069 @@
1
+ #
2
+ # This file is nendo's compiled library file.
3
+ # generated "nendo -c src" command.
4
+ #
5
+
6
+ trampCall(
7
+ begin
8
+ def self.__PAMARK_PAMARKenumerable_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKenumerable_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
9
+ @global_lisp_binding['__PAMARK_PAMARKenumerable_QUMARK'] = self.method( :__PAMARK_PAMARKenumerable_QUMARK_METHOD )
10
+ @__PAMARK_PAMARKenumerable_QUMARK =
11
+ trampCall(
12
+ Proc.new { |_x|
13
+ if (
14
+ begin
15
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
16
+ _not(
17
+ begin
18
+ embedBacktraceInfo( "", 1 );
19
+ _eq_QUMARK(
20
+ false ,
21
+ begin
22
+ trampCall(_x).is_a?(
23
+ begin
24
+ trampCall(Enumerable)
25
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:38"] + __e.backtrace ) ; raise __e
26
+ end
27
+ )
28
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:39"] + __e.backtrace ) ; raise __e
29
+ end
30
+ )
31
+ end
32
+ )
33
+ end
34
+ ) then
35
+ begin
36
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
37
+ delayCall( '_not', 'not',
38
+ begin
39
+ if @global_lisp_binding.has_key?('_not') then
40
+ trampCall(@_not)
41
+ else raise NameError.new( "Error: undefined variable _not", "_not" ) end
42
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:39"] + __e.backtrace ) ; raise __e
43
+ end ,
44
+ [
45
+ begin
46
+ trampCall(_x).is_a?(
47
+ begin
48
+ trampCall(Cell)
49
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:39"] + __e.backtrace ) ; raise __e
50
+ end
51
+ )
52
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:39"] + __e.backtrace ) ; raise __e
53
+ end
54
+ ]
55
+ )
56
+ end
57
+ else
58
+ false
59
+ end
60
+ }
61
+ )
62
+ end
63
+ )
64
+ #--------------------
65
+
66
+ trampCall(
67
+ begin
68
+ def self.__PAMARK_PAMARKmap_MIMARKable_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKmap_MIMARKable_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
69
+ @global_lisp_binding['__PAMARK_PAMARKmap_MIMARKable_QUMARK'] = self.method( :__PAMARK_PAMARKmap_MIMARKable_QUMARK_METHOD )
70
+ @__PAMARK_PAMARKmap_MIMARKable_QUMARK =
71
+ trampCall(
72
+ Proc.new { |_proc,*__rest__| _lists = __rest__[0] ;
73
+ if (
74
+ begin
75
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 44 );
76
+ __EQMARK(
77
+ 1 ,
78
+ begin
79
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 44 );
80
+ _length(
81
+ begin
82
+ trampCall(_lists)
83
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:45"] + __e.backtrace ) ; raise __e
84
+ end
85
+ )
86
+ end
87
+ )
88
+ end
89
+ ) then
90
+ begin
91
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 45 );
92
+ delayCall( '__PAMARK_PAMARKenumerable_QUMARK', '%%enumerable?',
93
+ begin
94
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKenumerable_QUMARK') then
95
+ trampCall(@__PAMARK_PAMARKenumerable_QUMARK)
96
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKenumerable_QUMARK", "__PAMARK_PAMARKenumerable_QUMARK" ) end
97
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:45"] + __e.backtrace ) ; raise __e
98
+ end ,
99
+ [
100
+ begin
101
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 45 );
102
+ _car(
103
+ begin
104
+ trampCall(_lists)
105
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:45"] + __e.backtrace ) ; raise __e
106
+ end
107
+ )
108
+ end
109
+ ]
110
+ )
111
+ end
112
+ else
113
+ false
114
+ end
115
+ }
116
+ )
117
+ end
118
+ )
119
+ #--------------------
120
+
121
+ trampCall(
122
+ begin
123
+ def self.__PAMARK_PAMARKmap_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKmap', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
124
+ @global_lisp_binding['__PAMARK_PAMARKmap'] = self.method( :__PAMARK_PAMARKmap_METHOD )
125
+ @__PAMARK_PAMARKmap =
126
+ trampCall(
127
+ Proc.new { |_proc,_vec|
128
+ begin
129
+ trampCall(_vec).map(
130
+ &Proc.new { |_x|
131
+ begin
132
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 51 );
133
+ trampCall( callProcedure( '_proc', 'proc',
134
+ begin
135
+ trampCall(_proc)
136
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:51"] + __e.backtrace ) ; raise __e
137
+ end ,
138
+ [
139
+ begin
140
+ trampCall(_x)
141
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:51"] + __e.backtrace ) ; raise __e
142
+ end
143
+ ]
144
+ ))
145
+ end
146
+ }
147
+ )
148
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:49"] + __e.backtrace ) ; raise __e
149
+ end
150
+ }
151
+ )
152
+ end
153
+ )
154
+ #--------------------
155
+
156
+ trampCall(
157
+ begin
158
+ def self.__PAMARKmap_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARKmap', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
159
+ @global_lisp_binding['__PAMARKmap'] = self.method( :__PAMARKmap_METHOD )
160
+ @__PAMARKmap =
161
+ trampCall(
162
+ Proc.new { |_proc,*__rest__| _lists = __rest__[0] ;
163
+ begin
164
+ ___lambda = lambda { |_args|
165
+ if (
166
+ begin
167
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 57 );
168
+ trampCall( self._apply_METHOD( 'apply',
169
+ begin
170
+ if @global_lisp_binding.has_key?('_apply') then
171
+ trampCall(@_apply)
172
+ else raise NameError.new( "Error: undefined variable _apply", "_apply" ) end
173
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:57"] + __e.backtrace ) ; raise __e
174
+ end ,
175
+ [
176
+ begin
177
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKmap_MIMARKable_QUMARK') then
178
+ trampCall(@__PAMARK_PAMARKmap_MIMARKable_QUMARK)
179
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKmap_MIMARKable_QUMARK", "__PAMARK_PAMARKmap_MIMARKable_QUMARK" ) end
180
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:55"] + __e.backtrace ) ; raise __e
181
+ end ,
182
+ begin
183
+ trampCall(_args)
184
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:57"] + __e.backtrace ) ; raise __e
185
+ end
186
+ ]
187
+ ))
188
+ end
189
+ ) then
190
+ begin
191
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 56 );
192
+ delayCall( '__PAMARK_PAMARKmap', '%%map',
193
+ begin
194
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKmap') then
195
+ trampCall(@__PAMARK_PAMARKmap)
196
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKmap", "__PAMARK_PAMARKmap" ) end
197
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:56"] + __e.backtrace ) ; raise __e
198
+ end ,
199
+ [
200
+ begin
201
+ trampCall(_proc)
202
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:56"] + __e.backtrace ) ; raise __e
203
+ end ,
204
+ begin
205
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 56 );
206
+ _car(
207
+ begin
208
+ trampCall(_lists)
209
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:56"] + __e.backtrace ) ; raise __e
210
+ end
211
+ )
212
+ end
213
+ ]
214
+ )
215
+ end
216
+ else
217
+ begin
218
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 57 );
219
+ delayCall( '_apply', 'apply',
220
+ begin
221
+ if @global_lisp_binding.has_key?('_apply') then
222
+ trampCall(@_apply)
223
+ else raise NameError.new( "Error: undefined variable _apply", "_apply" ) end
224
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:57"] + __e.backtrace ) ; raise __e
225
+ end ,
226
+ [
227
+ begin
228
+ if @global_lisp_binding.has_key?('__PAMARKmap_MIMARKoriginal') then
229
+ trampCall(@__PAMARKmap_MIMARKoriginal)
230
+ else raise NameError.new( "Error: undefined variable __PAMARKmap_MIMARKoriginal", "__PAMARKmap_MIMARKoriginal" ) end
231
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:57"] + __e.backtrace ) ; raise __e
232
+ end ,
233
+ begin
234
+ trampCall(_args)
235
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:57"] + __e.backtrace ) ; raise __e
236
+ end
237
+ ]
238
+ )
239
+ end
240
+ end
241
+ } ; ___lambda.call(
242
+ begin
243
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 54 );
244
+ _cons(
245
+ begin
246
+ trampCall(_proc)
247
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:56"] + __e.backtrace ) ; raise __e
248
+ end ,
249
+ begin
250
+ trampCall(_lists)
251
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:56"] + __e.backtrace ) ; raise __e
252
+ end
253
+ )
254
+ end
255
+ )
256
+ end
257
+ }
258
+ )
259
+ end
260
+ )
261
+ #--------------------
262
+
263
+ trampCall(
264
+ begin
265
+ def self.__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
266
+ @global_lisp_binding['__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK'] = self.method( :__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK_METHOD )
267
+ @__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK =
268
+ trampCall(
269
+ Proc.new { |_proc,*__rest__| _lists = __rest__[0] ;
270
+ if (
271
+ begin
272
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 61 );
273
+ __EQMARK(
274
+ 1 ,
275
+ begin
276
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 61 );
277
+ _length(
278
+ begin
279
+ trampCall(_lists)
280
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:62"] + __e.backtrace ) ; raise __e
281
+ end
282
+ )
283
+ end
284
+ )
285
+ end
286
+ ) then
287
+ begin
288
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 62 );
289
+ delayCall( '__PAMARK_PAMARKenumerable_QUMARK', '%%enumerable?',
290
+ begin
291
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKenumerable_QUMARK') then
292
+ trampCall(@__PAMARK_PAMARKenumerable_QUMARK)
293
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKenumerable_QUMARK", "__PAMARK_PAMARKenumerable_QUMARK" ) end
294
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:62"] + __e.backtrace ) ; raise __e
295
+ end ,
296
+ [
297
+ begin
298
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 62 );
299
+ _car(
300
+ begin
301
+ trampCall(_lists)
302
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:62"] + __e.backtrace ) ; raise __e
303
+ end
304
+ )
305
+ end
306
+ ]
307
+ )
308
+ end
309
+ else
310
+ false
311
+ end
312
+ }
313
+ )
314
+ end
315
+ )
316
+ #--------------------
317
+
318
+ trampCall(
319
+ begin
320
+ def self.__PAMARK_PAMARKfor_MIMARKeach_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKfor_MIMARKeach', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
321
+ @global_lisp_binding['__PAMARK_PAMARKfor_MIMARKeach'] = self.method( :__PAMARK_PAMARKfor_MIMARKeach_METHOD )
322
+ @__PAMARK_PAMARKfor_MIMARKeach =
323
+ trampCall(
324
+ Proc.new { |_proc,_vec|
325
+ begin
326
+ trampCall(_vec).each(
327
+ &Proc.new { |_x|
328
+ begin
329
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 68 );
330
+ trampCall( callProcedure( '_proc', 'proc',
331
+ begin
332
+ trampCall(_proc)
333
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:68"] + __e.backtrace ) ; raise __e
334
+ end ,
335
+ [
336
+ begin
337
+ trampCall(_x)
338
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:68"] + __e.backtrace ) ; raise __e
339
+ end
340
+ ]
341
+ ))
342
+ end
343
+ }
344
+ )
345
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:66"] + __e.backtrace ) ; raise __e
346
+ end
347
+ }
348
+ )
349
+ end
350
+ )
351
+ #--------------------
352
+
353
+ trampCall(
354
+ begin
355
+ def self.__PAMARKfor_MIMARKeach_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARKfor_MIMARKeach', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
356
+ @global_lisp_binding['__PAMARKfor_MIMARKeach'] = self.method( :__PAMARKfor_MIMARKeach_METHOD )
357
+ @__PAMARKfor_MIMARKeach =
358
+ trampCall(
359
+ Proc.new { |_proc,*__rest__| _lists = __rest__[0] ;
360
+ begin
361
+ ___lambda = lambda { |_args|
362
+ if (
363
+ begin
364
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 74 );
365
+ trampCall( self._apply_METHOD( 'apply',
366
+ begin
367
+ if @global_lisp_binding.has_key?('_apply') then
368
+ trampCall(@_apply)
369
+ else raise NameError.new( "Error: undefined variable _apply", "_apply" ) end
370
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:74"] + __e.backtrace ) ; raise __e
371
+ end ,
372
+ [
373
+ begin
374
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK') then
375
+ trampCall(@__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK)
376
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK", "__PAMARK_PAMARKfor_MIMARKeach_MIMARKable_QUMARK" ) end
377
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:72"] + __e.backtrace ) ; raise __e
378
+ end ,
379
+ begin
380
+ trampCall(_args)
381
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:74"] + __e.backtrace ) ; raise __e
382
+ end
383
+ ]
384
+ ))
385
+ end
386
+ ) then
387
+ begin
388
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
389
+ delayCall( '__PAMARK_PAMARKfor_MIMARKeach', '%%for-each',
390
+ begin
391
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKfor_MIMARKeach') then
392
+ trampCall(@__PAMARK_PAMARKfor_MIMARKeach)
393
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKfor_MIMARKeach", "__PAMARK_PAMARKfor_MIMARKeach" ) end
394
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
395
+ end ,
396
+ [
397
+ begin
398
+ trampCall(_proc)
399
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
400
+ end ,
401
+ begin
402
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
403
+ _car(
404
+ begin
405
+ trampCall(_lists)
406
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
407
+ end
408
+ )
409
+ end
410
+ ]
411
+ )
412
+ end
413
+ else
414
+ begin
415
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 74 );
416
+ delayCall( '_apply', 'apply',
417
+ begin
418
+ if @global_lisp_binding.has_key?('_apply') then
419
+ trampCall(@_apply)
420
+ else raise NameError.new( "Error: undefined variable _apply", "_apply" ) end
421
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:74"] + __e.backtrace ) ; raise __e
422
+ end ,
423
+ [
424
+ begin
425
+ if @global_lisp_binding.has_key?('__PAMARKfor_MIMARKeach_MIMARKoriginal') then
426
+ trampCall(@__PAMARKfor_MIMARKeach_MIMARKoriginal)
427
+ else raise NameError.new( "Error: undefined variable __PAMARKfor_MIMARKeach_MIMARKoriginal", "__PAMARKfor_MIMARKeach_MIMARKoriginal" ) end
428
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:74"] + __e.backtrace ) ; raise __e
429
+ end ,
430
+ begin
431
+ trampCall(_args)
432
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:74"] + __e.backtrace ) ; raise __e
433
+ end
434
+ ]
435
+ )
436
+ end
437
+ end
438
+ } ; ___lambda.call(
439
+ begin
440
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
441
+ _cons(
442
+ begin
443
+ trampCall(_proc)
444
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
445
+ end ,
446
+ begin
447
+ trampCall(_lists)
448
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
449
+ end
450
+ )
451
+ end
452
+ )
453
+ end
454
+ }
455
+ )
456
+ end
457
+ )
458
+ #--------------------
459
+
460
+ trampCall(
461
+ begin
462
+ def self.__PAMARK_PAMARKfilter_MIMARKable_QUMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKfilter_MIMARKable_QUMARK', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
463
+ @global_lisp_binding['__PAMARK_PAMARKfilter_MIMARKable_QUMARK'] = self.method( :__PAMARK_PAMARKfilter_MIMARKable_QUMARK_METHOD )
464
+ @__PAMARK_PAMARKfilter_MIMARKable_QUMARK =
465
+ trampCall(
466
+ Proc.new { |_proc,_lst|
467
+ begin
468
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 78 );
469
+ delayCall( '__PAMARK_PAMARKenumerable_QUMARK', '%%enumerable?',
470
+ begin
471
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKenumerable_QUMARK') then
472
+ trampCall(@__PAMARK_PAMARKenumerable_QUMARK)
473
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKenumerable_QUMARK", "__PAMARK_PAMARKenumerable_QUMARK" ) end
474
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:78"] + __e.backtrace ) ; raise __e
475
+ end ,
476
+ [
477
+ begin
478
+ trampCall(_lst)
479
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:78"] + __e.backtrace ) ; raise __e
480
+ end
481
+ ]
482
+ )
483
+ end
484
+ }
485
+ )
486
+ end
487
+ )
488
+ #--------------------
489
+
490
+ trampCall(
491
+ begin
492
+ def self.__PAMARK_PAMARKfilter_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARK_PAMARKfilter', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
493
+ @global_lisp_binding['__PAMARK_PAMARKfilter'] = self.method( :__PAMARK_PAMARKfilter_METHOD )
494
+ @__PAMARK_PAMARKfilter =
495
+ trampCall(
496
+ Proc.new { |_proc,_vec|
497
+ begin
498
+ trampCall(_vec).select(
499
+ &Proc.new { |_x|
500
+ begin
501
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 83 );
502
+ trampCall( callProcedure( '_proc', 'proc',
503
+ begin
504
+ trampCall(_proc)
505
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:83"] + __e.backtrace ) ; raise __e
506
+ end ,
507
+ [
508
+ begin
509
+ trampCall(_x)
510
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:83"] + __e.backtrace ) ; raise __e
511
+ end
512
+ ]
513
+ ))
514
+ end
515
+ }
516
+ )
517
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:81"] + __e.backtrace ) ; raise __e
518
+ end
519
+ }
520
+ )
521
+ end
522
+ )
523
+ #--------------------
524
+
525
+ trampCall(
526
+ begin
527
+ def self.__PAMARKfilter_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '__PAMARKfilter', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
528
+ @global_lisp_binding['__PAMARKfilter'] = self.method( :__PAMARKfilter_METHOD )
529
+ @__PAMARKfilter =
530
+ trampCall(
531
+ Proc.new { |_proc,_lst|
532
+ if (
533
+ begin
534
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 86 );
535
+ trampCall( self.__PAMARK_PAMARKfilter_MIMARKable_QUMARK_METHOD( '%%filter-able?',
536
+ begin
537
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKfilter_MIMARKable_QUMARK') then
538
+ trampCall(@__PAMARK_PAMARKfilter_MIMARKable_QUMARK)
539
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKfilter_MIMARKable_QUMARK", "__PAMARK_PAMARKfilter_MIMARKable_QUMARK" ) end
540
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:86"] + __e.backtrace ) ; raise __e
541
+ end ,
542
+ [
543
+ begin
544
+ trampCall(_proc)
545
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
546
+ end ,
547
+ begin
548
+ trampCall(_lst)
549
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
550
+ end
551
+ ]
552
+ ))
553
+ end
554
+ ) then
555
+ begin
556
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 87 );
557
+ delayCall( '__PAMARK_PAMARKfilter', '%%filter',
558
+ begin
559
+ if @global_lisp_binding.has_key?('__PAMARK_PAMARKfilter') then
560
+ trampCall(@__PAMARK_PAMARKfilter)
561
+ else raise NameError.new( "Error: undefined variable __PAMARK_PAMARKfilter", "__PAMARK_PAMARKfilter" ) end
562
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:87"] + __e.backtrace ) ; raise __e
563
+ end ,
564
+ [
565
+ begin
566
+ trampCall(_proc)
567
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
568
+ end ,
569
+ begin
570
+ trampCall(_lst)
571
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
572
+ end
573
+ ]
574
+ )
575
+ end
576
+ else
577
+ begin
578
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 88 );
579
+ delayCall( '__PAMARKfilter_MIMARKoriginal', '%filter-original',
580
+ begin
581
+ if @global_lisp_binding.has_key?('__PAMARKfilter_MIMARKoriginal') then
582
+ trampCall(@__PAMARKfilter_MIMARKoriginal)
583
+ else raise NameError.new( "Error: undefined variable __PAMARKfilter_MIMARKoriginal", "__PAMARKfilter_MIMARKoriginal" ) end
584
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
585
+ end ,
586
+ [
587
+ begin
588
+ trampCall(_proc)
589
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
590
+ end ,
591
+ begin
592
+ trampCall(_lst)
593
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:88"] + __e.backtrace ) ; raise __e
594
+ end
595
+ ]
596
+ )
597
+ end
598
+ end
599
+ }
600
+ )
601
+ end
602
+ )
603
+ #--------------------
604
+
605
+ trampCall(
606
+ begin
607
+ def self._map_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_map', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
608
+ @global_lisp_binding['_map'] = self.method( :_map_METHOD )
609
+ @_map =
610
+ trampCall(
611
+ begin
612
+ if @global_lisp_binding.has_key?('__PAMARKmap') then
613
+ trampCall(@__PAMARKmap)
614
+ else raise NameError.new( "Error: undefined variable __PAMARKmap", "__PAMARKmap" ) end
615
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:91"] + __e.backtrace ) ; raise __e
616
+ end
617
+ )
618
+ end
619
+ )
620
+ #--------------------
621
+
622
+ trampCall(
623
+ begin
624
+ def self._for_MIMARKeach_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_for_MIMARKeach', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
625
+ @global_lisp_binding['_for_MIMARKeach'] = self.method( :_for_MIMARKeach_METHOD )
626
+ @_for_MIMARKeach =
627
+ trampCall(
628
+ begin
629
+ if @global_lisp_binding.has_key?('__PAMARKfor_MIMARKeach') then
630
+ trampCall(@__PAMARKfor_MIMARKeach)
631
+ else raise NameError.new( "Error: undefined variable __PAMARKfor_MIMARKeach", "__PAMARKfor_MIMARKeach" ) end
632
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:92"] + __e.backtrace ) ; raise __e
633
+ end
634
+ )
635
+ end
636
+ )
637
+ #--------------------
638
+
639
+ trampCall(
640
+ begin
641
+ def self._filter_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_filter', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
642
+ @global_lisp_binding['_filter'] = self.method( :_filter_METHOD )
643
+ @_filter =
644
+ trampCall(
645
+ begin
646
+ if @global_lisp_binding.has_key?('__PAMARKfilter') then
647
+ trampCall(@__PAMARKfilter)
648
+ else raise NameError.new( "Error: undefined variable __PAMARKfilter", "__PAMARKfilter" ) end
649
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:93"] + __e.backtrace ) ; raise __e
650
+ end
651
+ )
652
+ end
653
+ )
654
+ #--------------------
655
+
656
+ trampCall(
657
+ begin
658
+ def self._disasm_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_disasm', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
659
+ @global_lisp_binding['_disasm'] = self.method( :_disasm_METHOD )
660
+ @_disasm =
661
+ trampCall(
662
+ Proc.new { |_varname,*__rest__| _opt = __rest__[0] ;
663
+ begin
664
+ ___lambda = lambda { |_kind,_alist|
665
+ if (
666
+ begin
667
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 108 );
668
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
669
+ begin
670
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
671
+ trampCall(@_eqv_QUMARK)
672
+ else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
673
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
674
+ end ,
675
+ [
676
+ begin
677
+ trampCall(_kind)
678
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
679
+ end ,
680
+ :"compiled"
681
+ ]
682
+ ))
683
+ end
684
+ ) then
685
+ begin
686
+ begin
687
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
688
+ delayCall( '_assv_MIMARKref', 'assv-ref',
689
+ begin
690
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
691
+ trampCall(@_assv_MIMARKref)
692
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
693
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
694
+ end ,
695
+ [
696
+ "compiled_str" ,
697
+ begin
698
+ trampCall(_alist)
699
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
700
+ end
701
+ ]
702
+ )
703
+ end
704
+ end
705
+ else
706
+ if (
707
+ begin
708
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 108 );
709
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
710
+ begin
711
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
712
+ trampCall(@_eqv_QUMARK)
713
+ else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
714
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
715
+ end ,
716
+ [
717
+ begin
718
+ trampCall(_kind)
719
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
720
+ end ,
721
+ :"source"
722
+ ]
723
+ ))
724
+ end
725
+ ) then
726
+ begin
727
+ begin
728
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
729
+ delayCall( '_assv_MIMARKref', 'assv-ref',
730
+ begin
731
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
732
+ trampCall(@_assv_MIMARKref)
733
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
734
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
735
+ end ,
736
+ [
737
+ "source" ,
738
+ begin
739
+ trampCall(_alist)
740
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
741
+ end
742
+ ]
743
+ )
744
+ end
745
+ end
746
+ else
747
+ if (
748
+ begin
749
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 108 );
750
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
751
+ begin
752
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
753
+ trampCall(@_eqv_QUMARK)
754
+ else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
755
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
756
+ end ,
757
+ [
758
+ begin
759
+ trampCall(_kind)
760
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
761
+ end ,
762
+ :"expanded"
763
+ ]
764
+ ))
765
+ end
766
+ ) then
767
+ begin
768
+ begin
769
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
770
+ delayCall( '_assv_MIMARKref', 'assv-ref',
771
+ begin
772
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
773
+ trampCall(@_assv_MIMARKref)
774
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
775
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
776
+ end ,
777
+ [
778
+ "expanded" ,
779
+ begin
780
+ trampCall(_alist)
781
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
782
+ end
783
+ ]
784
+ )
785
+ end
786
+ end
787
+ else
788
+ if (
789
+ begin
790
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 108 );
791
+ trampCall( self._eqv_QUMARK_METHOD( 'eqv?',
792
+ begin
793
+ if @global_lisp_binding.has_key?('_eqv_QUMARK') then
794
+ trampCall(@_eqv_QUMARK)
795
+ else raise NameError.new( "Error: undefined variable _eqv_QUMARK", "_eqv_QUMARK" ) end
796
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
797
+ end ,
798
+ [
799
+ begin
800
+ trampCall(_kind)
801
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:108"] + __e.backtrace ) ; raise __e
802
+ end ,
803
+ :"info"
804
+ ]
805
+ ))
806
+ end
807
+ ) then
808
+ begin
809
+ begin
810
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 109 );
811
+ delayCall( '_string_MIMARKjoin', 'string-join',
812
+ begin
813
+ if @global_lisp_binding.has_key?('_string_MIMARKjoin') then
814
+ trampCall(@_string_MIMARKjoin)
815
+ else raise NameError.new( "Error: undefined variable _string_MIMARKjoin", "_string_MIMARKjoin" ) end
816
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:109"] + __e.backtrace ) ; raise __e
817
+ end ,
818
+ [
819
+ begin
820
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 110 );
821
+ trampCall( self._list_METHOD( 'list',
822
+ begin
823
+ if @global_lisp_binding.has_key?('_list') then
824
+ trampCall(@_list)
825
+ else raise NameError.new( "Error: undefined variable _list", "_list" ) end
826
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:110"] + __e.backtrace ) ; raise __e
827
+ end ,
828
+ [
829
+ begin
830
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 116 );
831
+ trampCall( self._sprintf_METHOD( 'sprintf',
832
+ begin
833
+ if @global_lisp_binding.has_key?('_sprintf') then
834
+ trampCall(@_sprintf)
835
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
836
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:116"] + __e.backtrace ) ; raise __e
837
+ end ,
838
+ [
839
+ " file: %s
840
+ " ,
841
+ begin
842
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
843
+ trampCall( self._assv_MIMARKref_METHOD( 'assv-ref',
844
+ begin
845
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
846
+ trampCall(@_assv_MIMARKref)
847
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
848
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
849
+ end ,
850
+ [
851
+ "sourcefile" ,
852
+ begin
853
+ trampCall(_alist)
854
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
855
+ end
856
+ ]
857
+ ))
858
+ end
859
+ ]
860
+ ))
861
+ end ,
862
+ begin
863
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 116 );
864
+ trampCall( self._sprintf_METHOD( 'sprintf',
865
+ begin
866
+ if @global_lisp_binding.has_key?('_sprintf') then
867
+ trampCall(@_sprintf)
868
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
869
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:116"] + __e.backtrace ) ; raise __e
870
+ end ,
871
+ [
872
+ " lineno: %s
873
+ " ,
874
+ begin
875
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
876
+ trampCall( self._assv_MIMARKref_METHOD( 'assv-ref',
877
+ begin
878
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
879
+ trampCall(@_assv_MIMARKref)
880
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
881
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
882
+ end ,
883
+ [
884
+ "lineno" ,
885
+ begin
886
+ trampCall(_alist)
887
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
888
+ end
889
+ ]
890
+ ))
891
+ end
892
+ ]
893
+ ))
894
+ end ,
895
+ begin
896
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 116 );
897
+ trampCall( self._sprintf_METHOD( 'sprintf',
898
+ begin
899
+ if @global_lisp_binding.has_key?('_sprintf') then
900
+ trampCall(@_sprintf)
901
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
902
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:116"] + __e.backtrace ) ; raise __e
903
+ end ,
904
+ [
905
+ " source:
906
+ "
907
+ ]
908
+ ))
909
+ end ,
910
+ begin
911
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 117 );
912
+ trampCall( self._pretty_MIMARKprint_MIMARKto_MIMARKstring_METHOD( 'pretty-print-to-string',
913
+ begin
914
+ if @global_lisp_binding.has_key?('_pretty_MIMARKprint_MIMARKto_MIMARKstring') then
915
+ trampCall(@_pretty_MIMARKprint_MIMARKto_MIMARKstring)
916
+ else raise NameError.new( "Error: undefined variable _pretty_MIMARKprint_MIMARKto_MIMARKstring", "_pretty_MIMARKprint_MIMARKto_MIMARKstring" ) end
917
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:117"] + __e.backtrace ) ; raise __e
918
+ end ,
919
+ [
920
+ begin
921
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
922
+ trampCall( self._assv_MIMARKref_METHOD( 'assv-ref',
923
+ begin
924
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
925
+ trampCall(@_assv_MIMARKref)
926
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
927
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
928
+ end ,
929
+ [
930
+ "source" ,
931
+ begin
932
+ trampCall(_alist)
933
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
934
+ end
935
+ ]
936
+ ))
937
+ end
938
+ ]
939
+ ))
940
+ end ,
941
+ begin
942
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 116 );
943
+ trampCall( self._sprintf_METHOD( 'sprintf',
944
+ begin
945
+ if @global_lisp_binding.has_key?('_sprintf') then
946
+ trampCall(@_sprintf)
947
+ else raise NameError.new( "Error: undefined variable _sprintf", "_sprintf" ) end
948
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:116"] + __e.backtrace ) ; raise __e
949
+ end ,
950
+ [
951
+ " expanded:
952
+ "
953
+ ]
954
+ ))
955
+ end ,
956
+ begin
957
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 117 );
958
+ trampCall( self._pretty_MIMARKprint_MIMARKto_MIMARKstring_METHOD( 'pretty-print-to-string',
959
+ begin
960
+ if @global_lisp_binding.has_key?('_pretty_MIMARKprint_MIMARKto_MIMARKstring') then
961
+ trampCall(@_pretty_MIMARKprint_MIMARKto_MIMARKstring)
962
+ else raise NameError.new( "Error: undefined variable _pretty_MIMARKprint_MIMARKto_MIMARKstring", "_pretty_MIMARKprint_MIMARKto_MIMARKstring" ) end
963
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:117"] + __e.backtrace ) ; raise __e
964
+ end ,
965
+ [
966
+ begin
967
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 118 );
968
+ trampCall( self._assv_MIMARKref_METHOD( 'assv-ref',
969
+ begin
970
+ if @global_lisp_binding.has_key?('_assv_MIMARKref') then
971
+ trampCall(@_assv_MIMARKref)
972
+ else raise NameError.new( "Error: undefined variable _assv_MIMARKref", "_assv_MIMARKref" ) end
973
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
974
+ end ,
975
+ [
976
+ "expanded" ,
977
+ begin
978
+ trampCall(_alist)
979
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:118"] + __e.backtrace ) ; raise __e
980
+ end
981
+ ]
982
+ ))
983
+ end
984
+ ]
985
+ ))
986
+ end
987
+ ]
988
+ ))
989
+ end
990
+ ]
991
+ )
992
+ end
993
+ end
994
+ else
995
+ Cell.new()
996
+ end
997
+ end
998
+ end
999
+ end
1000
+ } ; ___lambda.call(
1001
+ begin
1002
+ ___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30006|
1003
+ if (
1004
+ begin
1005
+ embedBacktraceInfo( "", 1 );
1006
+ _null_QUMARK(
1007
+ begin
1008
+ trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30006)
1009
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1010
+ end
1011
+ )
1012
+ end
1013
+ ) then
1014
+ :"compiled"
1015
+ else
1016
+ begin
1017
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
1018
+ delayCall( '_car', 'car',
1019
+ begin
1020
+ if @global_lisp_binding.has_key?('_car') then
1021
+ trampCall(@_car)
1022
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
1023
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:73"] + __e.backtrace ) ; raise __e
1024
+ end ,
1025
+ [
1026
+ begin
1027
+ trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30006)
1028
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
1029
+ end
1030
+ ]
1031
+ )
1032
+ end
1033
+ end
1034
+ } ; ___lambda.call(
1035
+ begin
1036
+ trampCall(_opt)
1037
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:99"] + __e.backtrace ) ; raise __e
1038
+ end
1039
+ )
1040
+ end ,
1041
+ begin
1042
+ embedBacktraceInfo( "./lib/nendo/experimental.nnd", 100 );
1043
+ trampCall( self._get_MIMARKsource_MIMARKinfo_METHOD( 'get-source-info',
1044
+ begin
1045
+ if @global_lisp_binding.has_key?('_get_MIMARKsource_MIMARKinfo') then
1046
+ trampCall(@_get_MIMARKsource_MIMARKinfo)
1047
+ else raise NameError.new( "Error: undefined variable _get_MIMARKsource_MIMARKinfo", "_get_MIMARKsource_MIMARKinfo" ) end
1048
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:100"] + __e.backtrace ) ; raise __e
1049
+ end ,
1050
+ [
1051
+ begin
1052
+ trampCall(_varname).to_s(
1053
+ )
1054
+ rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:100"] + __e.backtrace ) ; raise __e
1055
+ end
1056
+ ]
1057
+ ))
1058
+ end
1059
+ )
1060
+ end
1061
+ }
1062
+ )
1063
+ end
1064
+ )
1065
+
1066
+
1067
+ # -------------------------------------------------------
1068
+ # [EOF]
1069
+ # -------------------------------------------------------