nendo 0.4.1 → 0.5.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/example/scratch.nnd +107 -49
- data/lib/init.nnd +429 -78
- data/lib/init.nndc +16939 -9197
- data/lib/nendo.rb +163 -53
- data/lib/rfc/json.nnd +1 -1
- data/lib/rfc/json.nndc +21 -6
- data/lib/srfi-1.nnd +9 -5
- data/lib/srfi-1.nndc +684 -626
- data/lib/srfi-2.nnd +42 -0
- data/lib/srfi-2.nndc +1350 -0
- data/lib/srfi-26.nnd +50 -0
- data/lib/srfi-26.nndc +4124 -0
- data/lib/text/html-lite.nndc +7 -1
- data/lib/util/list.nnd +184 -0
- data/lib/util/list.nndc +5453 -0
- data/test/{util-test.nnd → nendo-util-test.nnd} +4 -4
- data/test/nendo_spec.rb +136 -81
- data/test/srfi-1-test.nnd +8 -4
- data/test/srfi-2-test.nnd +63 -0
- data/test/srfi-26-test.nnd +89 -0
- data/test/syntax_spec.rb +200 -0
- data/test/util-list-test.nnd +178 -0
- metadata +16 -5
data/lib/srfi-2.nndc
ADDED
|
@@ -0,0 +1,1350 @@
|
|
|
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._and_MIMARKlet_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
|
9
|
+
@global_lisp_binding['_and_MIMARKlet_ASMARK'] = self.method( :_and_MIMARKlet_ASMARK_METHOD )
|
|
10
|
+
@_and_MIMARKlet_ASMARK =
|
|
11
|
+
trampCall(
|
|
12
|
+
trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
|
|
13
|
+
begin
|
|
14
|
+
if @global_lisp_binding.has_key?('_er_MIMARKmacro_MIMARKtransformer') then
|
|
15
|
+
trampCall(@_er_MIMARKmacro_MIMARKtransformer)
|
|
16
|
+
else raise NameError.new( "Error: undefined variable _er_MIMARKmacro_MIMARKtransformer", "_er_MIMARKmacro_MIMARKtransformer" ) end
|
|
17
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
18
|
+
end ,
|
|
19
|
+
[
|
|
20
|
+
Proc.new { |__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032,__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033,__compare__gensym__de5653c32c493c653ee6557b7cf108e127448746_20034|
|
|
21
|
+
begin
|
|
22
|
+
___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059|
|
|
23
|
+
if (
|
|
24
|
+
begin
|
|
25
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059)
|
|
26
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
27
|
+
end
|
|
28
|
+
) then
|
|
29
|
+
begin
|
|
30
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20059)
|
|
31
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
32
|
+
end
|
|
33
|
+
else
|
|
34
|
+
begin
|
|
35
|
+
___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060|
|
|
36
|
+
if (
|
|
37
|
+
begin
|
|
38
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060)
|
|
39
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
40
|
+
end
|
|
41
|
+
) then
|
|
42
|
+
begin
|
|
43
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20060)
|
|
44
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
45
|
+
end
|
|
46
|
+
else
|
|
47
|
+
begin
|
|
48
|
+
___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061|
|
|
49
|
+
if (
|
|
50
|
+
begin
|
|
51
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061)
|
|
52
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
53
|
+
end
|
|
54
|
+
) then
|
|
55
|
+
begin
|
|
56
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20061)
|
|
57
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
58
|
+
end
|
|
59
|
+
else
|
|
60
|
+
begin
|
|
61
|
+
___lambda = lambda { |___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062|
|
|
62
|
+
if (
|
|
63
|
+
begin
|
|
64
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062)
|
|
65
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
66
|
+
end
|
|
67
|
+
) then
|
|
68
|
+
begin
|
|
69
|
+
trampCall(___gensym__de5653c32c493c653ee6557b7cf108e127448746_20062)
|
|
70
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
71
|
+
end
|
|
72
|
+
else
|
|
73
|
+
false
|
|
74
|
+
end
|
|
75
|
+
} ; ___lambda.call(
|
|
76
|
+
begin raise RuntimeError,
|
|
77
|
+
"no expansion for" ' ' +
|
|
78
|
+
_write_MIMARKto_MIMARKstring(
|
|
79
|
+
trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
|
|
80
|
+
begin
|
|
81
|
+
if @global_lisp_binding.has_key?('_strip_MIMARKsyntactic_MIMARKclosures') then
|
|
82
|
+
trampCall(@_strip_MIMARKsyntactic_MIMARKclosures)
|
|
83
|
+
else raise NameError.new( "Error: undefined variable _strip_MIMARKsyntactic_MIMARKclosures", "_strip_MIMARKsyntactic_MIMARKclosures" ) end
|
|
84
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
85
|
+
end ,
|
|
86
|
+
[
|
|
87
|
+
begin
|
|
88
|
+
trampCall(__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032)
|
|
89
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
90
|
+
end
|
|
91
|
+
]
|
|
92
|
+
))
|
|
93
|
+
)
|
|
94
|
+
rescue => __e
|
|
95
|
+
__e.set_backtrace( [":1"] + __e.backtrace )
|
|
96
|
+
raise __e
|
|
97
|
+
end
|
|
98
|
+
)
|
|
99
|
+
end
|
|
100
|
+
end
|
|
101
|
+
} ; ___lambda.call(
|
|
102
|
+
begin
|
|
103
|
+
___lambda = lambda { |__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052|
|
|
104
|
+
if (
|
|
105
|
+
trampCall( self._not_METHOD( 'not',
|
|
106
|
+
begin
|
|
107
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
108
|
+
trampCall(@_not)
|
|
109
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
110
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
111
|
+
end ,
|
|
112
|
+
[
|
|
113
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
114
|
+
begin
|
|
115
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
116
|
+
trampCall(@_eq_QUMARK)
|
|
117
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
118
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
119
|
+
end ,
|
|
120
|
+
[
|
|
121
|
+
false ,
|
|
122
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
123
|
+
begin
|
|
124
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
125
|
+
trampCall(@_pair_QUMARK)
|
|
126
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
127
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
128
|
+
end ,
|
|
129
|
+
[
|
|
130
|
+
begin
|
|
131
|
+
trampCall(__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052)
|
|
132
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
133
|
+
end
|
|
134
|
+
]
|
|
135
|
+
))
|
|
136
|
+
]
|
|
137
|
+
))
|
|
138
|
+
]
|
|
139
|
+
))
|
|
140
|
+
) then
|
|
141
|
+
begin
|
|
142
|
+
___lambda = lambda { |__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053|
|
|
143
|
+
if (
|
|
144
|
+
trampCall( self._not_METHOD( 'not',
|
|
145
|
+
begin
|
|
146
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
147
|
+
trampCall(@_not)
|
|
148
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
149
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
150
|
+
end ,
|
|
151
|
+
[
|
|
152
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
153
|
+
begin
|
|
154
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
155
|
+
trampCall(@_eq_QUMARK)
|
|
156
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
157
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
158
|
+
end ,
|
|
159
|
+
[
|
|
160
|
+
false ,
|
|
161
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
162
|
+
begin
|
|
163
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
164
|
+
trampCall(@_pair_QUMARK)
|
|
165
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
166
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
167
|
+
end ,
|
|
168
|
+
[
|
|
169
|
+
begin
|
|
170
|
+
trampCall(__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053)
|
|
171
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
172
|
+
end
|
|
173
|
+
]
|
|
174
|
+
))
|
|
175
|
+
]
|
|
176
|
+
))
|
|
177
|
+
]
|
|
178
|
+
))
|
|
179
|
+
) then
|
|
180
|
+
begin
|
|
181
|
+
___lambda = lambda { |__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054|
|
|
182
|
+
if (
|
|
183
|
+
trampCall( self._not_METHOD( 'not',
|
|
184
|
+
begin
|
|
185
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
186
|
+
trampCall(@_not)
|
|
187
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
188
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
189
|
+
end ,
|
|
190
|
+
[
|
|
191
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
192
|
+
begin
|
|
193
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
194
|
+
trampCall(@_eq_QUMARK)
|
|
195
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
196
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
197
|
+
end ,
|
|
198
|
+
[
|
|
199
|
+
false ,
|
|
200
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
201
|
+
begin
|
|
202
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
203
|
+
trampCall(@_pair_QUMARK)
|
|
204
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
205
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
206
|
+
end ,
|
|
207
|
+
[
|
|
208
|
+
begin
|
|
209
|
+
trampCall(__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054)
|
|
210
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
211
|
+
end
|
|
212
|
+
]
|
|
213
|
+
))
|
|
214
|
+
]
|
|
215
|
+
))
|
|
216
|
+
]
|
|
217
|
+
))
|
|
218
|
+
) then
|
|
219
|
+
begin
|
|
220
|
+
___lambda = lambda { |__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055|
|
|
221
|
+
begin
|
|
222
|
+
___lambda = lambda { |_expr|
|
|
223
|
+
begin
|
|
224
|
+
___lambda = lambda { |__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056|
|
|
225
|
+
if (
|
|
226
|
+
trampCall( self._not_METHOD( 'not',
|
|
227
|
+
begin
|
|
228
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
229
|
+
trampCall(@_not)
|
|
230
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
231
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
232
|
+
end ,
|
|
233
|
+
[
|
|
234
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
235
|
+
begin
|
|
236
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
237
|
+
trampCall(@_eq_QUMARK)
|
|
238
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
239
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
240
|
+
end ,
|
|
241
|
+
[
|
|
242
|
+
false ,
|
|
243
|
+
trampCall( self._null_QUMARK_METHOD( 'null?',
|
|
244
|
+
begin
|
|
245
|
+
if @global_lisp_binding.has_key?('_null_QUMARK') then
|
|
246
|
+
trampCall(@_null_QUMARK)
|
|
247
|
+
else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
|
|
248
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
249
|
+
end ,
|
|
250
|
+
[
|
|
251
|
+
begin
|
|
252
|
+
trampCall(__v__17__gensym__de5653c32c493c653ee6557b7cf108e127448746_20056)
|
|
253
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
254
|
+
end
|
|
255
|
+
]
|
|
256
|
+
))
|
|
257
|
+
]
|
|
258
|
+
))
|
|
259
|
+
]
|
|
260
|
+
))
|
|
261
|
+
) then
|
|
262
|
+
begin
|
|
263
|
+
___lambda = lambda { |__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057|
|
|
264
|
+
begin
|
|
265
|
+
___lambda = lambda { |_rest|
|
|
266
|
+
begin
|
|
267
|
+
___lambda = lambda { |__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058|
|
|
268
|
+
begin
|
|
269
|
+
___lambda = lambda { |_body|
|
|
270
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
271
|
+
begin
|
|
272
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
273
|
+
trampCall(@_cons)
|
|
274
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
275
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
276
|
+
end ,
|
|
277
|
+
[
|
|
278
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
279
|
+
begin
|
|
280
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
281
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
282
|
+
end ,
|
|
283
|
+
[
|
|
284
|
+
:"let"
|
|
285
|
+
]
|
|
286
|
+
)) ,
|
|
287
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
288
|
+
begin
|
|
289
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
290
|
+
trampCall(@_cons)
|
|
291
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
292
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
293
|
+
end ,
|
|
294
|
+
[
|
|
295
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
296
|
+
begin
|
|
297
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
298
|
+
trampCall(@_cons)
|
|
299
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
300
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
301
|
+
end ,
|
|
302
|
+
[
|
|
303
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
304
|
+
begin
|
|
305
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
306
|
+
trampCall(@_cons)
|
|
307
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
308
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
309
|
+
end ,
|
|
310
|
+
[
|
|
311
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
312
|
+
begin
|
|
313
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
314
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
315
|
+
end ,
|
|
316
|
+
[
|
|
317
|
+
:"tmp"
|
|
318
|
+
]
|
|
319
|
+
)) ,
|
|
320
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
321
|
+
begin
|
|
322
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
323
|
+
trampCall(@_cons)
|
|
324
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
325
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
326
|
+
end ,
|
|
327
|
+
[
|
|
328
|
+
begin
|
|
329
|
+
trampCall(_expr)
|
|
330
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
|
|
331
|
+
end ,
|
|
332
|
+
Cell.new()
|
|
333
|
+
]
|
|
334
|
+
))
|
|
335
|
+
]
|
|
336
|
+
)) ,
|
|
337
|
+
Cell.new()
|
|
338
|
+
]
|
|
339
|
+
)) ,
|
|
340
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
341
|
+
begin
|
|
342
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
343
|
+
trampCall(@_cons)
|
|
344
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
345
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
346
|
+
end ,
|
|
347
|
+
[
|
|
348
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
349
|
+
begin
|
|
350
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
351
|
+
trampCall(@_cons)
|
|
352
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
353
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
354
|
+
end ,
|
|
355
|
+
[
|
|
356
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
357
|
+
begin
|
|
358
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
359
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
360
|
+
end ,
|
|
361
|
+
[
|
|
362
|
+
:"and"
|
|
363
|
+
]
|
|
364
|
+
)) ,
|
|
365
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
366
|
+
begin
|
|
367
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
368
|
+
trampCall(@_cons)
|
|
369
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
370
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
371
|
+
end ,
|
|
372
|
+
[
|
|
373
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
374
|
+
begin
|
|
375
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
376
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
377
|
+
end ,
|
|
378
|
+
[
|
|
379
|
+
:"tmp"
|
|
380
|
+
]
|
|
381
|
+
)) ,
|
|
382
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
383
|
+
begin
|
|
384
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
385
|
+
trampCall(@_cons)
|
|
386
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
387
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
388
|
+
end ,
|
|
389
|
+
[
|
|
390
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
391
|
+
begin
|
|
392
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
393
|
+
trampCall(@_cons)
|
|
394
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
395
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
396
|
+
end ,
|
|
397
|
+
[
|
|
398
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
399
|
+
begin
|
|
400
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
401
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
402
|
+
end ,
|
|
403
|
+
[
|
|
404
|
+
:"and-let*"
|
|
405
|
+
]
|
|
406
|
+
)) ,
|
|
407
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
408
|
+
begin
|
|
409
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
410
|
+
trampCall(@_cons)
|
|
411
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
412
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
413
|
+
end ,
|
|
414
|
+
[
|
|
415
|
+
begin
|
|
416
|
+
trampCall(_rest)
|
|
417
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
|
|
418
|
+
end ,
|
|
419
|
+
begin
|
|
420
|
+
trampCall(_body)
|
|
421
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
|
|
422
|
+
end
|
|
423
|
+
]
|
|
424
|
+
))
|
|
425
|
+
]
|
|
426
|
+
)) ,
|
|
427
|
+
Cell.new()
|
|
428
|
+
]
|
|
429
|
+
))
|
|
430
|
+
]
|
|
431
|
+
))
|
|
432
|
+
]
|
|
433
|
+
)) ,
|
|
434
|
+
Cell.new()
|
|
435
|
+
]
|
|
436
|
+
))
|
|
437
|
+
]
|
|
438
|
+
))
|
|
439
|
+
]
|
|
440
|
+
))
|
|
441
|
+
} ; ___lambda.call(
|
|
442
|
+
begin
|
|
443
|
+
trampCall(__v__19__gensym__de5653c32c493c653ee6557b7cf108e127448746_20058)
|
|
444
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
445
|
+
end
|
|
446
|
+
)
|
|
447
|
+
end
|
|
448
|
+
} ; ___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
|
+
begin
|
|
458
|
+
trampCall(__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052)
|
|
459
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
460
|
+
end
|
|
461
|
+
]
|
|
462
|
+
))
|
|
463
|
+
)
|
|
464
|
+
end
|
|
465
|
+
} ; ___lambda.call(
|
|
466
|
+
begin
|
|
467
|
+
trampCall(__v__18__gensym__de5653c32c493c653ee6557b7cf108e127448746_20057)
|
|
468
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
469
|
+
end
|
|
470
|
+
)
|
|
471
|
+
end
|
|
472
|
+
} ; ___lambda.call(
|
|
473
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
474
|
+
begin
|
|
475
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
476
|
+
trampCall(@_cdr)
|
|
477
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
478
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
479
|
+
end ,
|
|
480
|
+
[
|
|
481
|
+
begin
|
|
482
|
+
trampCall(__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053)
|
|
483
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
484
|
+
end
|
|
485
|
+
]
|
|
486
|
+
))
|
|
487
|
+
)
|
|
488
|
+
end
|
|
489
|
+
else
|
|
490
|
+
false
|
|
491
|
+
end
|
|
492
|
+
} ; ___lambda.call(
|
|
493
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
494
|
+
begin
|
|
495
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
496
|
+
trampCall(@_cdr)
|
|
497
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
498
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
499
|
+
end ,
|
|
500
|
+
[
|
|
501
|
+
begin
|
|
502
|
+
trampCall(__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054)
|
|
503
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
504
|
+
end
|
|
505
|
+
]
|
|
506
|
+
))
|
|
507
|
+
)
|
|
508
|
+
end
|
|
509
|
+
} ; ___lambda.call(
|
|
510
|
+
begin
|
|
511
|
+
trampCall(__v__16__gensym__de5653c32c493c653ee6557b7cf108e127448746_20055)
|
|
512
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
513
|
+
end
|
|
514
|
+
)
|
|
515
|
+
end
|
|
516
|
+
} ; ___lambda.call(
|
|
517
|
+
trampCall( self._car_METHOD( 'car',
|
|
518
|
+
begin
|
|
519
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
520
|
+
trampCall(@_car)
|
|
521
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
522
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
523
|
+
end ,
|
|
524
|
+
[
|
|
525
|
+
begin
|
|
526
|
+
trampCall(__v__15__gensym__de5653c32c493c653ee6557b7cf108e127448746_20054)
|
|
527
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
528
|
+
end
|
|
529
|
+
]
|
|
530
|
+
))
|
|
531
|
+
)
|
|
532
|
+
end
|
|
533
|
+
else
|
|
534
|
+
false
|
|
535
|
+
end
|
|
536
|
+
} ; ___lambda.call(
|
|
537
|
+
trampCall( self._car_METHOD( 'car',
|
|
538
|
+
begin
|
|
539
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
540
|
+
trampCall(@_car)
|
|
541
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
542
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
543
|
+
end ,
|
|
544
|
+
[
|
|
545
|
+
begin
|
|
546
|
+
trampCall(__v__14__gensym__de5653c32c493c653ee6557b7cf108e127448746_20053)
|
|
547
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
548
|
+
end
|
|
549
|
+
]
|
|
550
|
+
))
|
|
551
|
+
)
|
|
552
|
+
end
|
|
553
|
+
else
|
|
554
|
+
false
|
|
555
|
+
end
|
|
556
|
+
} ; ___lambda.call(
|
|
557
|
+
trampCall( self._car_METHOD( 'car',
|
|
558
|
+
begin
|
|
559
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
560
|
+
trampCall(@_car)
|
|
561
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
562
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
563
|
+
end ,
|
|
564
|
+
[
|
|
565
|
+
begin
|
|
566
|
+
trampCall(__v__13__gensym__de5653c32c493c653ee6557b7cf108e127448746_20052)
|
|
567
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
568
|
+
end
|
|
569
|
+
]
|
|
570
|
+
))
|
|
571
|
+
)
|
|
572
|
+
end
|
|
573
|
+
else
|
|
574
|
+
false
|
|
575
|
+
end
|
|
576
|
+
} ; ___lambda.call(
|
|
577
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
578
|
+
begin
|
|
579
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
580
|
+
trampCall(@_cdr)
|
|
581
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
582
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
583
|
+
end ,
|
|
584
|
+
[
|
|
585
|
+
begin
|
|
586
|
+
trampCall(__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032)
|
|
587
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
588
|
+
end
|
|
589
|
+
]
|
|
590
|
+
))
|
|
591
|
+
)
|
|
592
|
+
end
|
|
593
|
+
)
|
|
594
|
+
end
|
|
595
|
+
end
|
|
596
|
+
} ; ___lambda.call(
|
|
597
|
+
begin
|
|
598
|
+
___lambda = lambda { |__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043|
|
|
599
|
+
if (
|
|
600
|
+
trampCall( self._not_METHOD( 'not',
|
|
601
|
+
begin
|
|
602
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
603
|
+
trampCall(@_not)
|
|
604
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
605
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
606
|
+
end ,
|
|
607
|
+
[
|
|
608
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
609
|
+
begin
|
|
610
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
611
|
+
trampCall(@_eq_QUMARK)
|
|
612
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
613
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
614
|
+
end ,
|
|
615
|
+
[
|
|
616
|
+
false ,
|
|
617
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
618
|
+
begin
|
|
619
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
620
|
+
trampCall(@_pair_QUMARK)
|
|
621
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
622
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
623
|
+
end ,
|
|
624
|
+
[
|
|
625
|
+
begin
|
|
626
|
+
trampCall(__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043)
|
|
627
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
628
|
+
end
|
|
629
|
+
]
|
|
630
|
+
))
|
|
631
|
+
]
|
|
632
|
+
))
|
|
633
|
+
]
|
|
634
|
+
))
|
|
635
|
+
) then
|
|
636
|
+
begin
|
|
637
|
+
___lambda = lambda { |__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044|
|
|
638
|
+
if (
|
|
639
|
+
trampCall( self._not_METHOD( 'not',
|
|
640
|
+
begin
|
|
641
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
642
|
+
trampCall(@_not)
|
|
643
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
644
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
645
|
+
end ,
|
|
646
|
+
[
|
|
647
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
648
|
+
begin
|
|
649
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
650
|
+
trampCall(@_eq_QUMARK)
|
|
651
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
652
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
653
|
+
end ,
|
|
654
|
+
[
|
|
655
|
+
false ,
|
|
656
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
657
|
+
begin
|
|
658
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
659
|
+
trampCall(@_pair_QUMARK)
|
|
660
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
661
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
662
|
+
end ,
|
|
663
|
+
[
|
|
664
|
+
begin
|
|
665
|
+
trampCall(__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044)
|
|
666
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
667
|
+
end
|
|
668
|
+
]
|
|
669
|
+
))
|
|
670
|
+
]
|
|
671
|
+
))
|
|
672
|
+
]
|
|
673
|
+
))
|
|
674
|
+
) then
|
|
675
|
+
begin
|
|
676
|
+
___lambda = lambda { |__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045|
|
|
677
|
+
if (
|
|
678
|
+
trampCall( self._not_METHOD( 'not',
|
|
679
|
+
begin
|
|
680
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
681
|
+
trampCall(@_not)
|
|
682
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
683
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
684
|
+
end ,
|
|
685
|
+
[
|
|
686
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
687
|
+
begin
|
|
688
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
689
|
+
trampCall(@_eq_QUMARK)
|
|
690
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
691
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
692
|
+
end ,
|
|
693
|
+
[
|
|
694
|
+
false ,
|
|
695
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
696
|
+
begin
|
|
697
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
698
|
+
trampCall(@_pair_QUMARK)
|
|
699
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
700
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
701
|
+
end ,
|
|
702
|
+
[
|
|
703
|
+
begin
|
|
704
|
+
trampCall(__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045)
|
|
705
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
706
|
+
end
|
|
707
|
+
]
|
|
708
|
+
))
|
|
709
|
+
]
|
|
710
|
+
))
|
|
711
|
+
]
|
|
712
|
+
))
|
|
713
|
+
) then
|
|
714
|
+
begin
|
|
715
|
+
___lambda = lambda { |__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046|
|
|
716
|
+
begin
|
|
717
|
+
___lambda = lambda { |_var|
|
|
718
|
+
begin
|
|
719
|
+
___lambda = lambda { |__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047|
|
|
720
|
+
if (
|
|
721
|
+
trampCall( self._not_METHOD( 'not',
|
|
722
|
+
begin
|
|
723
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
724
|
+
trampCall(@_not)
|
|
725
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
726
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
727
|
+
end ,
|
|
728
|
+
[
|
|
729
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
730
|
+
begin
|
|
731
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
732
|
+
trampCall(@_eq_QUMARK)
|
|
733
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
734
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
735
|
+
end ,
|
|
736
|
+
[
|
|
737
|
+
false ,
|
|
738
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
739
|
+
begin
|
|
740
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
741
|
+
trampCall(@_pair_QUMARK)
|
|
742
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
743
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
744
|
+
end ,
|
|
745
|
+
[
|
|
746
|
+
begin
|
|
747
|
+
trampCall(__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047)
|
|
748
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
749
|
+
end
|
|
750
|
+
]
|
|
751
|
+
))
|
|
752
|
+
]
|
|
753
|
+
))
|
|
754
|
+
]
|
|
755
|
+
))
|
|
756
|
+
) then
|
|
757
|
+
begin
|
|
758
|
+
___lambda = lambda { |__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048|
|
|
759
|
+
begin
|
|
760
|
+
___lambda = lambda { |_expr|
|
|
761
|
+
begin
|
|
762
|
+
___lambda = lambda { |__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049|
|
|
763
|
+
if (
|
|
764
|
+
trampCall( self._not_METHOD( 'not',
|
|
765
|
+
begin
|
|
766
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
767
|
+
trampCall(@_not)
|
|
768
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
769
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
770
|
+
end ,
|
|
771
|
+
[
|
|
772
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
773
|
+
begin
|
|
774
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
775
|
+
trampCall(@_eq_QUMARK)
|
|
776
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
777
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
778
|
+
end ,
|
|
779
|
+
[
|
|
780
|
+
false ,
|
|
781
|
+
trampCall( self._null_QUMARK_METHOD( 'null?',
|
|
782
|
+
begin
|
|
783
|
+
if @global_lisp_binding.has_key?('_null_QUMARK') then
|
|
784
|
+
trampCall(@_null_QUMARK)
|
|
785
|
+
else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
|
|
786
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
787
|
+
end ,
|
|
788
|
+
[
|
|
789
|
+
begin
|
|
790
|
+
trampCall(__v__10__gensym__de5653c32c493c653ee6557b7cf108e127448746_20049)
|
|
791
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
792
|
+
end
|
|
793
|
+
]
|
|
794
|
+
))
|
|
795
|
+
]
|
|
796
|
+
))
|
|
797
|
+
]
|
|
798
|
+
))
|
|
799
|
+
) then
|
|
800
|
+
begin
|
|
801
|
+
___lambda = lambda { |__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050|
|
|
802
|
+
begin
|
|
803
|
+
___lambda = lambda { |_rest|
|
|
804
|
+
begin
|
|
805
|
+
___lambda = lambda { |__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051|
|
|
806
|
+
begin
|
|
807
|
+
___lambda = lambda { |_body|
|
|
808
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
809
|
+
begin
|
|
810
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
811
|
+
trampCall(@_cons)
|
|
812
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
813
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
814
|
+
end ,
|
|
815
|
+
[
|
|
816
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
817
|
+
begin
|
|
818
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
819
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
820
|
+
end ,
|
|
821
|
+
[
|
|
822
|
+
:"let"
|
|
823
|
+
]
|
|
824
|
+
)) ,
|
|
825
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
826
|
+
begin
|
|
827
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
828
|
+
trampCall(@_cons)
|
|
829
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
830
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
831
|
+
end ,
|
|
832
|
+
[
|
|
833
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
834
|
+
begin
|
|
835
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
836
|
+
trampCall(@_cons)
|
|
837
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
838
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
839
|
+
end ,
|
|
840
|
+
[
|
|
841
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
842
|
+
begin
|
|
843
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
844
|
+
trampCall(@_cons)
|
|
845
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
846
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
847
|
+
end ,
|
|
848
|
+
[
|
|
849
|
+
begin
|
|
850
|
+
trampCall(_var)
|
|
851
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
|
|
852
|
+
end ,
|
|
853
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
854
|
+
begin
|
|
855
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
856
|
+
trampCall(@_cons)
|
|
857
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
858
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
859
|
+
end ,
|
|
860
|
+
[
|
|
861
|
+
begin
|
|
862
|
+
trampCall(_expr)
|
|
863
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:41"] + __e.backtrace ) ; raise __e
|
|
864
|
+
end ,
|
|
865
|
+
Cell.new()
|
|
866
|
+
]
|
|
867
|
+
))
|
|
868
|
+
]
|
|
869
|
+
)) ,
|
|
870
|
+
Cell.new()
|
|
871
|
+
]
|
|
872
|
+
)) ,
|
|
873
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
874
|
+
begin
|
|
875
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
876
|
+
trampCall(@_cons)
|
|
877
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
878
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
879
|
+
end ,
|
|
880
|
+
[
|
|
881
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
882
|
+
begin
|
|
883
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
884
|
+
trampCall(@_cons)
|
|
885
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
886
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
887
|
+
end ,
|
|
888
|
+
[
|
|
889
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
890
|
+
begin
|
|
891
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
892
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
893
|
+
end ,
|
|
894
|
+
[
|
|
895
|
+
:"and"
|
|
896
|
+
]
|
|
897
|
+
)) ,
|
|
898
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
899
|
+
begin
|
|
900
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
901
|
+
trampCall(@_cons)
|
|
902
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
903
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
904
|
+
end ,
|
|
905
|
+
[
|
|
906
|
+
begin
|
|
907
|
+
trampCall(_var)
|
|
908
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:39"] + __e.backtrace ) ; raise __e
|
|
909
|
+
end ,
|
|
910
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
911
|
+
begin
|
|
912
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
913
|
+
trampCall(@_cons)
|
|
914
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
915
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
916
|
+
end ,
|
|
917
|
+
[
|
|
918
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
919
|
+
begin
|
|
920
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
921
|
+
trampCall(@_cons)
|
|
922
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
923
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
924
|
+
end ,
|
|
925
|
+
[
|
|
926
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
927
|
+
begin
|
|
928
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
929
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
930
|
+
end ,
|
|
931
|
+
[
|
|
932
|
+
:"and-let*"
|
|
933
|
+
]
|
|
934
|
+
)) ,
|
|
935
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
936
|
+
begin
|
|
937
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
938
|
+
trampCall(@_cons)
|
|
939
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
940
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
941
|
+
end ,
|
|
942
|
+
[
|
|
943
|
+
begin
|
|
944
|
+
trampCall(_rest)
|
|
945
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
|
|
946
|
+
end ,
|
|
947
|
+
begin
|
|
948
|
+
trampCall(_body)
|
|
949
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
|
|
950
|
+
end
|
|
951
|
+
]
|
|
952
|
+
))
|
|
953
|
+
]
|
|
954
|
+
)) ,
|
|
955
|
+
Cell.new()
|
|
956
|
+
]
|
|
957
|
+
))
|
|
958
|
+
]
|
|
959
|
+
))
|
|
960
|
+
]
|
|
961
|
+
)) ,
|
|
962
|
+
Cell.new()
|
|
963
|
+
]
|
|
964
|
+
))
|
|
965
|
+
]
|
|
966
|
+
))
|
|
967
|
+
]
|
|
968
|
+
))
|
|
969
|
+
} ; ___lambda.call(
|
|
970
|
+
begin
|
|
971
|
+
trampCall(__v__12__gensym__de5653c32c493c653ee6557b7cf108e127448746_20051)
|
|
972
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
973
|
+
end
|
|
974
|
+
)
|
|
975
|
+
end
|
|
976
|
+
} ; ___lambda.call(
|
|
977
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
978
|
+
begin
|
|
979
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
980
|
+
trampCall(@_cdr)
|
|
981
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
982
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
983
|
+
end ,
|
|
984
|
+
[
|
|
985
|
+
begin
|
|
986
|
+
trampCall(__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043)
|
|
987
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
988
|
+
end
|
|
989
|
+
]
|
|
990
|
+
))
|
|
991
|
+
)
|
|
992
|
+
end
|
|
993
|
+
} ; ___lambda.call(
|
|
994
|
+
begin
|
|
995
|
+
trampCall(__v__11__gensym__de5653c32c493c653ee6557b7cf108e127448746_20050)
|
|
996
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
997
|
+
end
|
|
998
|
+
)
|
|
999
|
+
end
|
|
1000
|
+
} ; ___lambda.call(
|
|
1001
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1002
|
+
begin
|
|
1003
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1004
|
+
trampCall(@_cdr)
|
|
1005
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1006
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1007
|
+
end ,
|
|
1008
|
+
[
|
|
1009
|
+
begin
|
|
1010
|
+
trampCall(__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044)
|
|
1011
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1012
|
+
end
|
|
1013
|
+
]
|
|
1014
|
+
))
|
|
1015
|
+
)
|
|
1016
|
+
end
|
|
1017
|
+
else
|
|
1018
|
+
false
|
|
1019
|
+
end
|
|
1020
|
+
} ; ___lambda.call(
|
|
1021
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1022
|
+
begin
|
|
1023
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1024
|
+
trampCall(@_cdr)
|
|
1025
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1026
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1027
|
+
end ,
|
|
1028
|
+
[
|
|
1029
|
+
begin
|
|
1030
|
+
trampCall(__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047)
|
|
1031
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1032
|
+
end
|
|
1033
|
+
]
|
|
1034
|
+
))
|
|
1035
|
+
)
|
|
1036
|
+
end
|
|
1037
|
+
} ; ___lambda.call(
|
|
1038
|
+
begin
|
|
1039
|
+
trampCall(__v__9__gensym__de5653c32c493c653ee6557b7cf108e127448746_20048)
|
|
1040
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1041
|
+
end
|
|
1042
|
+
)
|
|
1043
|
+
end
|
|
1044
|
+
} ; ___lambda.call(
|
|
1045
|
+
trampCall( self._car_METHOD( 'car',
|
|
1046
|
+
begin
|
|
1047
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1048
|
+
trampCall(@_car)
|
|
1049
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1050
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1051
|
+
end ,
|
|
1052
|
+
[
|
|
1053
|
+
begin
|
|
1054
|
+
trampCall(__v__8__gensym__de5653c32c493c653ee6557b7cf108e127448746_20047)
|
|
1055
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1056
|
+
end
|
|
1057
|
+
]
|
|
1058
|
+
))
|
|
1059
|
+
)
|
|
1060
|
+
end
|
|
1061
|
+
else
|
|
1062
|
+
false
|
|
1063
|
+
end
|
|
1064
|
+
} ; ___lambda.call(
|
|
1065
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1066
|
+
begin
|
|
1067
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1068
|
+
trampCall(@_cdr)
|
|
1069
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1070
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1071
|
+
end ,
|
|
1072
|
+
[
|
|
1073
|
+
begin
|
|
1074
|
+
trampCall(__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045)
|
|
1075
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1076
|
+
end
|
|
1077
|
+
]
|
|
1078
|
+
))
|
|
1079
|
+
)
|
|
1080
|
+
end
|
|
1081
|
+
} ; ___lambda.call(
|
|
1082
|
+
begin
|
|
1083
|
+
trampCall(__v__7__gensym__de5653c32c493c653ee6557b7cf108e127448746_20046)
|
|
1084
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1085
|
+
end
|
|
1086
|
+
)
|
|
1087
|
+
end
|
|
1088
|
+
} ; ___lambda.call(
|
|
1089
|
+
trampCall( self._car_METHOD( 'car',
|
|
1090
|
+
begin
|
|
1091
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1092
|
+
trampCall(@_car)
|
|
1093
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1094
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1095
|
+
end ,
|
|
1096
|
+
[
|
|
1097
|
+
begin
|
|
1098
|
+
trampCall(__v__6__gensym__de5653c32c493c653ee6557b7cf108e127448746_20045)
|
|
1099
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1100
|
+
end
|
|
1101
|
+
]
|
|
1102
|
+
))
|
|
1103
|
+
)
|
|
1104
|
+
end
|
|
1105
|
+
else
|
|
1106
|
+
false
|
|
1107
|
+
end
|
|
1108
|
+
} ; ___lambda.call(
|
|
1109
|
+
trampCall( self._car_METHOD( 'car',
|
|
1110
|
+
begin
|
|
1111
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1112
|
+
trampCall(@_car)
|
|
1113
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1114
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1115
|
+
end ,
|
|
1116
|
+
[
|
|
1117
|
+
begin
|
|
1118
|
+
trampCall(__v__5__gensym__de5653c32c493c653ee6557b7cf108e127448746_20044)
|
|
1119
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1120
|
+
end
|
|
1121
|
+
]
|
|
1122
|
+
))
|
|
1123
|
+
)
|
|
1124
|
+
end
|
|
1125
|
+
else
|
|
1126
|
+
false
|
|
1127
|
+
end
|
|
1128
|
+
} ; ___lambda.call(
|
|
1129
|
+
trampCall( self._car_METHOD( 'car',
|
|
1130
|
+
begin
|
|
1131
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1132
|
+
trampCall(@_car)
|
|
1133
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1134
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1135
|
+
end ,
|
|
1136
|
+
[
|
|
1137
|
+
begin
|
|
1138
|
+
trampCall(__v__4__gensym__de5653c32c493c653ee6557b7cf108e127448746_20043)
|
|
1139
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1140
|
+
end
|
|
1141
|
+
]
|
|
1142
|
+
))
|
|
1143
|
+
)
|
|
1144
|
+
end
|
|
1145
|
+
else
|
|
1146
|
+
false
|
|
1147
|
+
end
|
|
1148
|
+
} ; ___lambda.call(
|
|
1149
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1150
|
+
begin
|
|
1151
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1152
|
+
trampCall(@_cdr)
|
|
1153
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1154
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1155
|
+
end ,
|
|
1156
|
+
[
|
|
1157
|
+
begin
|
|
1158
|
+
trampCall(__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032)
|
|
1159
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1160
|
+
end
|
|
1161
|
+
]
|
|
1162
|
+
))
|
|
1163
|
+
)
|
|
1164
|
+
end
|
|
1165
|
+
)
|
|
1166
|
+
end
|
|
1167
|
+
end
|
|
1168
|
+
} ; ___lambda.call(
|
|
1169
|
+
begin
|
|
1170
|
+
___lambda = lambda { |__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040|
|
|
1171
|
+
if (
|
|
1172
|
+
trampCall( self._not_METHOD( 'not',
|
|
1173
|
+
begin
|
|
1174
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
1175
|
+
trampCall(@_not)
|
|
1176
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
1177
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1178
|
+
end ,
|
|
1179
|
+
[
|
|
1180
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
1181
|
+
begin
|
|
1182
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
1183
|
+
trampCall(@_eq_QUMARK)
|
|
1184
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
1185
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1186
|
+
end ,
|
|
1187
|
+
[
|
|
1188
|
+
false ,
|
|
1189
|
+
trampCall( self._pair_QUMARK_METHOD( 'pair?',
|
|
1190
|
+
begin
|
|
1191
|
+
if @global_lisp_binding.has_key?('_pair_QUMARK') then
|
|
1192
|
+
trampCall(@_pair_QUMARK)
|
|
1193
|
+
else raise NameError.new( "Error: undefined variable _pair_QUMARK", "_pair_QUMARK" ) end
|
|
1194
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1195
|
+
end ,
|
|
1196
|
+
[
|
|
1197
|
+
begin
|
|
1198
|
+
trampCall(__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040)
|
|
1199
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1200
|
+
end
|
|
1201
|
+
]
|
|
1202
|
+
))
|
|
1203
|
+
]
|
|
1204
|
+
))
|
|
1205
|
+
]
|
|
1206
|
+
))
|
|
1207
|
+
) then
|
|
1208
|
+
begin
|
|
1209
|
+
___lambda = lambda { |__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041|
|
|
1210
|
+
if (
|
|
1211
|
+
trampCall( self._not_METHOD( 'not',
|
|
1212
|
+
begin
|
|
1213
|
+
if @global_lisp_binding.has_key?('_not') then
|
|
1214
|
+
trampCall(@_not)
|
|
1215
|
+
else raise NameError.new( "Error: undefined variable _not", "_not" ) end
|
|
1216
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1217
|
+
end ,
|
|
1218
|
+
[
|
|
1219
|
+
trampCall( self._eq_QUMARK_METHOD( 'eq?',
|
|
1220
|
+
begin
|
|
1221
|
+
if @global_lisp_binding.has_key?('_eq_QUMARK') then
|
|
1222
|
+
trampCall(@_eq_QUMARK)
|
|
1223
|
+
else raise NameError.new( "Error: undefined variable _eq_QUMARK", "_eq_QUMARK" ) end
|
|
1224
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1225
|
+
end ,
|
|
1226
|
+
[
|
|
1227
|
+
false ,
|
|
1228
|
+
trampCall( self._null_QUMARK_METHOD( 'null?',
|
|
1229
|
+
begin
|
|
1230
|
+
if @global_lisp_binding.has_key?('_null_QUMARK') then
|
|
1231
|
+
trampCall(@_null_QUMARK)
|
|
1232
|
+
else raise NameError.new( "Error: undefined variable _null_QUMARK", "_null_QUMARK" ) end
|
|
1233
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1234
|
+
end ,
|
|
1235
|
+
[
|
|
1236
|
+
begin
|
|
1237
|
+
trampCall(__v__2__gensym__de5653c32c493c653ee6557b7cf108e127448746_20041)
|
|
1238
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1239
|
+
end
|
|
1240
|
+
]
|
|
1241
|
+
))
|
|
1242
|
+
]
|
|
1243
|
+
))
|
|
1244
|
+
]
|
|
1245
|
+
))
|
|
1246
|
+
) then
|
|
1247
|
+
begin
|
|
1248
|
+
___lambda = lambda { |__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042|
|
|
1249
|
+
begin
|
|
1250
|
+
___lambda = lambda { |_body|
|
|
1251
|
+
trampCall( self._cons_METHOD( 'cons',
|
|
1252
|
+
begin
|
|
1253
|
+
if @global_lisp_binding.has_key?('_cons') then
|
|
1254
|
+
trampCall(@_cons)
|
|
1255
|
+
else raise NameError.new( "Error: undefined variable _cons", "_cons" ) end
|
|
1256
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1257
|
+
end ,
|
|
1258
|
+
[
|
|
1259
|
+
trampCall( callProcedure( '_rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033',
|
|
1260
|
+
begin
|
|
1261
|
+
trampCall(__rename__gensym__de5653c32c493c653ee6557b7cf108e127448746_20033)
|
|
1262
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1263
|
+
end ,
|
|
1264
|
+
[
|
|
1265
|
+
:"begin"
|
|
1266
|
+
]
|
|
1267
|
+
)) ,
|
|
1268
|
+
begin
|
|
1269
|
+
trampCall(_body)
|
|
1270
|
+
rescue => __e ; __e.set_backtrace( ["./lib/srfi-2.nnd:42"] + __e.backtrace ) ; raise __e
|
|
1271
|
+
end
|
|
1272
|
+
]
|
|
1273
|
+
))
|
|
1274
|
+
} ; ___lambda.call(
|
|
1275
|
+
begin
|
|
1276
|
+
trampCall(__v__3__gensym__de5653c32c493c653ee6557b7cf108e127448746_20042)
|
|
1277
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1278
|
+
end
|
|
1279
|
+
)
|
|
1280
|
+
end
|
|
1281
|
+
} ; ___lambda.call(
|
|
1282
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1283
|
+
begin
|
|
1284
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1285
|
+
trampCall(@_cdr)
|
|
1286
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1287
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1288
|
+
end ,
|
|
1289
|
+
[
|
|
1290
|
+
begin
|
|
1291
|
+
trampCall(__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040)
|
|
1292
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1293
|
+
end
|
|
1294
|
+
]
|
|
1295
|
+
))
|
|
1296
|
+
)
|
|
1297
|
+
end
|
|
1298
|
+
else
|
|
1299
|
+
false
|
|
1300
|
+
end
|
|
1301
|
+
} ; ___lambda.call(
|
|
1302
|
+
trampCall( self._car_METHOD( 'car',
|
|
1303
|
+
begin
|
|
1304
|
+
if @global_lisp_binding.has_key?('_car') then
|
|
1305
|
+
trampCall(@_car)
|
|
1306
|
+
else raise NameError.new( "Error: undefined variable _car", "_car" ) end
|
|
1307
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1308
|
+
end ,
|
|
1309
|
+
[
|
|
1310
|
+
begin
|
|
1311
|
+
trampCall(__v__1__gensym__de5653c32c493c653ee6557b7cf108e127448746_20040)
|
|
1312
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1313
|
+
end
|
|
1314
|
+
]
|
|
1315
|
+
))
|
|
1316
|
+
)
|
|
1317
|
+
end
|
|
1318
|
+
else
|
|
1319
|
+
false
|
|
1320
|
+
end
|
|
1321
|
+
} ; ___lambda.call(
|
|
1322
|
+
trampCall( self._cdr_METHOD( 'cdr',
|
|
1323
|
+
begin
|
|
1324
|
+
if @global_lisp_binding.has_key?('_cdr') then
|
|
1325
|
+
trampCall(@_cdr)
|
|
1326
|
+
else raise NameError.new( "Error: undefined variable _cdr", "_cdr" ) end
|
|
1327
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1328
|
+
end ,
|
|
1329
|
+
[
|
|
1330
|
+
begin
|
|
1331
|
+
trampCall(__expr__gensym__de5653c32c493c653ee6557b7cf108e127448746_20032)
|
|
1332
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
|
1333
|
+
end
|
|
1334
|
+
]
|
|
1335
|
+
))
|
|
1336
|
+
)
|
|
1337
|
+
end
|
|
1338
|
+
)
|
|
1339
|
+
end
|
|
1340
|
+
}
|
|
1341
|
+
]
|
|
1342
|
+
))
|
|
1343
|
+
)
|
|
1344
|
+
end
|
|
1345
|
+
)
|
|
1346
|
+
|
|
1347
|
+
|
|
1348
|
+
# -------------------------------------------------------
|
|
1349
|
+
# [EOF]
|
|
1350
|
+
# -------------------------------------------------------
|