nendo 0.5.2 → 0.5.3

Sign up to get free protection for your applications and to get access to all the features.
Files changed (22) hide show
  1. data/benchmark/benchmark.nnd +27 -5
  2. data/lib/debug/syslog.nndc +24 -18
  3. data/lib/init.nnd +12 -28
  4. data/lib/init.nndc +18733 -14143
  5. data/lib/nendo/experimental.nnd +120 -0
  6. data/lib/nendo/experimental.nndc +1069 -0
  7. data/lib/nendo/test.nndc +1122 -879
  8. data/lib/nendo.rb +67 -16
  9. data/lib/rfc/json.nndc +486 -375
  10. data/lib/srfi-1.nndc +12775 -9853
  11. data/lib/srfi-2.nndc +810 -552
  12. data/lib/srfi-26.nndc +2615 -1838
  13. data/lib/text/html-lite.nndc +2286 -1737
  14. data/lib/text/tree.nndc +136 -103
  15. data/lib/util/combinations.nndc +4747 -3436
  16. data/lib/util/list.nndc +3417 -2355
  17. data/lib/util/match.nndc +53574 -36147
  18. data/test/nendo-util-test.nnd +318 -32
  19. data/test/nendo_spec.rb +65 -12
  20. data/test/rspec_formatter_for_emacs.rb +25 -0
  21. data/test/syntax_spec.rb +2 -0
  22. metadata +86 -12
data/lib/rfc/json.nndc CHANGED
@@ -4,32 +4,38 @@
4
4
  #
5
5
 
6
6
  trampCall(
7
- delayCall( '_require', 'require',
8
- begin
9
- if @global_lisp_binding.has_key?('_require') then
10
- trampCall(@_require)
11
- else raise NameError.new( "Error: undefined variable _require", "_require" ) end
12
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:37"] + __e.backtrace ) ; raise __e
13
- end ,
14
- [
15
- "json"
16
- ]
17
- )
7
+ begin
8
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 37 );
9
+ delayCall( '_require', 'require',
10
+ begin
11
+ if @global_lisp_binding.has_key?('_require') then
12
+ trampCall(@_require)
13
+ else raise NameError.new( "Error: undefined variable _require", "_require" ) end
14
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:37"] + __e.backtrace ) ; raise __e
15
+ end ,
16
+ [
17
+ "json"
18
+ ]
19
+ )
20
+ end
18
21
  )
19
22
  #--------------------
20
23
 
21
24
  trampCall(
22
- delayCall( '_load', 'load',
23
- begin
24
- if @global_lisp_binding.has_key?('_load') then
25
- trampCall(@_load)
26
- else raise NameError.new( "Error: undefined variable _load", "_load" ) end
27
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
28
- end ,
29
- [
30
- "util/list"
31
- ]
32
- )
25
+ begin
26
+ embedBacktraceInfo( "", 1 );
27
+ delayCall( '_load', 'load',
28
+ begin
29
+ if @global_lisp_binding.has_key?('_load') then
30
+ trampCall(@_load)
31
+ else raise NameError.new( "Error: undefined variable _load", "_load" ) end
32
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
33
+ end ,
34
+ [
35
+ "util/list"
36
+ ]
37
+ )
38
+ end
33
39
  )
34
40
  #--------------------
35
41
 
@@ -41,12 +47,15 @@ trampCall(
41
47
  trampCall(
42
48
  Proc.new { |_obj|
43
49
  if (
44
- _null_QUMARK(
45
- begin
46
- trampCall(_obj)
47
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
48
- end
49
- )
50
+ begin
51
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 43 );
52
+ _null_QUMARK(
53
+ begin
54
+ trampCall(_obj)
55
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
56
+ end
57
+ )
58
+ end
50
59
  ) then
51
60
  begin
52
61
  begin
@@ -56,81 +65,14 @@ trampCall(
56
65
  end
57
66
  else
58
67
  if (
59
- trampCall( self._vector_QUMARK_METHOD( 'vector?',
60
- begin
61
- if @global_lisp_binding.has_key?('_vector_QUMARK') then
62
- trampCall(@_vector_QUMARK)
63
- else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
64
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:45"] + __e.backtrace ) ; raise __e
65
- end ,
66
- [
67
- begin
68
- trampCall(_obj)
69
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
70
- end
71
- ]
72
- ))
73
- ) then
74
- begin
75
- delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
76
- begin
77
- if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
78
- trampCall(@_list_MIMARK_GTMARKvector)
79
- else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
80
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:46"] + __e.backtrace ) ; raise __e
81
- end ,
82
- [
83
- trampCall( self._map_METHOD( 'map',
84
- begin
85
- if @global_lisp_binding.has_key?('_map') then
86
- trampCall(@_map)
87
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
88
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
89
- end ,
90
- [
91
- Proc.new { |_x|
92
- trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
93
- begin
94
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
95
- trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
96
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
97
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
98
- end ,
99
- [
100
- begin
101
- trampCall(_x)
102
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:49"] + __e.backtrace ) ; raise __e
103
- end
104
- ]
105
- ))
106
- } ,
107
- trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
108
- begin
109
- if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
110
- trampCall(@_vector_MIMARK_GTMARKlist)
111
- else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
112
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:50"] + __e.backtrace ) ; raise __e
113
- end ,
114
- [
115
- begin
116
- trampCall(_obj)
117
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
118
- end
119
- ]
120
- ))
121
- ]
122
- ))
123
- ]
124
- )
125
- end
126
- else
127
- if (
128
- trampCall( self._hash_MIMARKtable_QUMARK_METHOD( 'hash-table?',
68
+ begin
69
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 45 );
70
+ trampCall( self._vector_QUMARK_METHOD( 'vector?',
129
71
  begin
130
- if @global_lisp_binding.has_key?('_hash_MIMARKtable_QUMARK') then
131
- trampCall(@_hash_MIMARKtable_QUMARK)
132
- else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_QUMARK", "_hash_MIMARKtable_QUMARK" ) end
133
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:51"] + __e.backtrace ) ; raise __e
72
+ if @global_lisp_binding.has_key?('_vector_QUMARK') then
73
+ trampCall(@_vector_QUMARK)
74
+ else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
75
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:45"] + __e.backtrace ) ; raise __e
134
76
  end ,
135
77
  [
136
78
  begin
@@ -139,58 +81,161 @@ trampCall(
139
81
  end
140
82
  ]
141
83
  ))
142
- ) then
84
+ end
85
+ ) then
86
+ begin
143
87
  begin
144
- delayCall( '_map', 'map',
88
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 46 );
89
+ delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
145
90
  begin
146
- if @global_lisp_binding.has_key?('_map') then
147
- trampCall(@_map)
148
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
149
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
91
+ if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
92
+ trampCall(@_list_MIMARK_GTMARKvector)
93
+ else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
94
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:46"] + __e.backtrace ) ; raise __e
150
95
  end ,
151
96
  [
152
- Proc.new { |_entry|
153
- _cons(
154
- _car(
155
- begin
156
- trampCall(_entry)
157
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
158
- end
159
- ) ,
160
- trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
97
+ begin
98
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 52 );
99
+ trampCall( self._map_METHOD( 'map',
100
+ begin
101
+ if @global_lisp_binding.has_key?('_map') then
102
+ trampCall(@_map)
103
+ else raise NameError.new( "Error: undefined variable _map", "_map" ) end
104
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
105
+ end ,
106
+ [
107
+ Proc.new { |_x|
108
+ begin
109
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 55 );
110
+ trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
111
+ begin
112
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
113
+ trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
114
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
115
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
116
+ end ,
117
+ [
118
+ begin
119
+ trampCall(_x)
120
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:49"] + __e.backtrace ) ; raise __e
121
+ end
122
+ ]
123
+ ))
124
+ end
125
+ } ,
126
+ begin
127
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 50 );
128
+ trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
129
+ begin
130
+ if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
131
+ trampCall(@_vector_MIMARK_GTMARKlist)
132
+ else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
133
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:50"] + __e.backtrace ) ; raise __e
134
+ end ,
135
+ [
136
+ begin
137
+ trampCall(_obj)
138
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
139
+ end
140
+ ]
141
+ ))
142
+ end
143
+ ]
144
+ ))
145
+ end
146
+ ]
147
+ )
148
+ end
149
+ end
150
+ else
151
+ if (
152
+ begin
153
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 51 );
154
+ trampCall( self._hash_MIMARKtable_QUMARK_METHOD( 'hash-table?',
155
+ begin
156
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_QUMARK') then
157
+ trampCall(@_hash_MIMARKtable_QUMARK)
158
+ else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_QUMARK", "_hash_MIMARKtable_QUMARK" ) end
159
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:51"] + __e.backtrace ) ; raise __e
160
+ end ,
161
+ [
162
+ begin
163
+ trampCall(_obj)
164
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
165
+ end
166
+ ]
167
+ ))
168
+ end
169
+ ) then
170
+ begin
171
+ begin
172
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 52 );
173
+ delayCall( '_map', 'map',
174
+ begin
175
+ if @global_lisp_binding.has_key?('_map') then
176
+ trampCall(@_map)
177
+ else raise NameError.new( "Error: undefined variable _map", "_map" ) end
178
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:52"] + __e.backtrace ) ; raise __e
179
+ end ,
180
+ [
181
+ Proc.new { |_entry|
182
+ begin
183
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 54 );
184
+ _cons(
185
+ begin
186
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 54 );
187
+ _car(
188
+ begin
189
+ trampCall(_entry)
190
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
191
+ end
192
+ )
193
+ end ,
194
+ begin
195
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 55 );
196
+ trampCall( self.__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist_METHOD( '%json:hash-table->alist',
197
+ begin
198
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
199
+ trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
200
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
201
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
202
+ end ,
203
+ [
204
+ begin
205
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 55 );
206
+ _cdr(
207
+ begin
208
+ trampCall(_entry)
209
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
210
+ end
211
+ )
212
+ end
213
+ ]
214
+ ))
215
+ end
216
+ )
217
+ end
218
+ } ,
219
+ begin
220
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 56 );
221
+ trampCall( self._hash_MIMARKtable_MIMARK_GTMARKalist_METHOD( 'hash-table->alist',
161
222
  begin
162
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
163
- trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
164
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
165
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
223
+ if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARK_GTMARKalist') then
224
+ trampCall(@_hash_MIMARKtable_MIMARK_GTMARKalist)
225
+ else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_MIMARK_GTMARKalist", "_hash_MIMARKtable_MIMARK_GTMARKalist" ) end
226
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:56"] + __e.backtrace ) ; raise __e
166
227
  end ,
167
228
  [
168
- _cdr(
169
- begin
170
- trampCall(_entry)
171
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:55"] + __e.backtrace ) ; raise __e
172
- end
173
- )
229
+ begin
230
+ trampCall(_obj)
231
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
232
+ end
174
233
  ]
175
234
  ))
176
- )
177
- } ,
178
- trampCall( self._hash_MIMARKtable_MIMARK_GTMARKalist_METHOD( 'hash-table->alist',
179
- begin
180
- if @global_lisp_binding.has_key?('_hash_MIMARKtable_MIMARK_GTMARKalist') then
181
- trampCall(@_hash_MIMARKtable_MIMARK_GTMARKalist)
182
- else raise NameError.new( "Error: undefined variable _hash_MIMARKtable_MIMARK_GTMARKalist", "_hash_MIMARKtable_MIMARK_GTMARKalist" ) end
183
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:56"] + __e.backtrace ) ; raise __e
184
- end ,
185
- [
186
- begin
187
- trampCall(_obj)
188
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:58"] + __e.backtrace ) ; raise __e
189
- end
190
- ]
191
- ))
192
- ]
193
- )
235
+ end
236
+ ]
237
+ )
238
+ end
194
239
  end
195
240
  else
196
241
  if (
@@ -222,155 +267,197 @@ trampCall(
222
267
  trampCall(
223
268
  Proc.new { |_obj|
224
269
  if (
225
- _null_QUMARK(
226
- begin
227
- trampCall(_obj)
228
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
229
- end
230
- )
270
+ begin
271
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 62 );
272
+ _null_QUMARK(
273
+ begin
274
+ trampCall(_obj)
275
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
276
+ end
277
+ )
278
+ end
231
279
  ) then
232
280
  begin
233
- delayCall( '_make_MIMARKhash_MIMARKtable', 'make-hash-table',
234
- begin
235
- if @global_lisp_binding.has_key?('_make_MIMARKhash_MIMARKtable') then
236
- trampCall(@_make_MIMARKhash_MIMARKtable)
237
- else raise NameError.new( "Error: undefined variable _make_MIMARKhash_MIMARKtable", "_make_MIMARKhash_MIMARKtable" ) end
238
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:63"] + __e.backtrace ) ; raise __e
239
- end ,
240
- [
241
- ]
242
- )
243
- end
244
- else
245
- if (
246
- trampCall( self._vector_QUMARK_METHOD( 'vector?',
247
- begin
248
- if @global_lisp_binding.has_key?('_vector_QUMARK') then
249
- trampCall(@_vector_QUMARK)
250
- else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
251
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:64"] + __e.backtrace ) ; raise __e
252
- end ,
253
- [
254
- begin
255
- trampCall(_obj)
256
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
257
- end
258
- ]
259
- ))
260
- ) then
261
281
  begin
262
- delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
282
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 63 );
283
+ delayCall( '_make_MIMARKhash_MIMARKtable', 'make-hash-table',
263
284
  begin
264
- if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
265
- trampCall(@_list_MIMARK_GTMARKvector)
266
- else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
267
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:65"] + __e.backtrace ) ; raise __e
285
+ if @global_lisp_binding.has_key?('_make_MIMARKhash_MIMARKtable') then
286
+ trampCall(@_make_MIMARKhash_MIMARKtable)
287
+ else raise NameError.new( "Error: undefined variable _make_MIMARKhash_MIMARKtable", "_make_MIMARKhash_MIMARKtable" ) end
288
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:63"] + __e.backtrace ) ; raise __e
268
289
  end ,
269
290
  [
270
- trampCall( self._map_METHOD( 'map',
271
- begin
272
- if @global_lisp_binding.has_key?('_map') then
273
- trampCall(@_map)
274
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
275
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
276
- end ,
277
- [
278
- Proc.new { |_x|
279
- trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
280
- begin
281
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
282
- trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
283
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
284
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
285
- end ,
286
- [
287
- begin
288
- trampCall(_x)
289
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:68"] + __e.backtrace ) ; raise __e
290
- end
291
- ]
292
- ))
293
- } ,
294
- trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
295
- begin
296
- if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
297
- trampCall(@_vector_MIMARK_GTMARKlist)
298
- else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
299
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:69"] + __e.backtrace ) ; raise __e
300
- end ,
301
- [
302
- begin
303
- trampCall(_obj)
304
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
305
- end
306
- ]
307
- ))
308
- ]
309
- ))
310
291
  ]
311
292
  )
312
293
  end
313
- else
314
- if (
315
- _pair_QUMARK(
294
+ end
295
+ else
296
+ if (
297
+ begin
298
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 64 );
299
+ trampCall( self._vector_QUMARK_METHOD( 'vector?',
316
300
  begin
317
- trampCall(_obj)
318
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
319
- end
320
- )
321
- ) then
301
+ if @global_lisp_binding.has_key?('_vector_QUMARK') then
302
+ trampCall(@_vector_QUMARK)
303
+ else raise NameError.new( "Error: undefined variable _vector_QUMARK", "_vector_QUMARK" ) end
304
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:64"] + __e.backtrace ) ; raise __e
305
+ end ,
306
+ [
307
+ begin
308
+ trampCall(_obj)
309
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
310
+ end
311
+ ]
312
+ ))
313
+ end
314
+ ) then
315
+ begin
322
316
  begin
323
- delayCall( '_alist_MIMARK_GTMARKhash_MIMARKtable', 'alist->hash-table',
317
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 65 );
318
+ delayCall( '_list_MIMARK_GTMARKvector', 'list->vector',
324
319
  begin
325
- if @global_lisp_binding.has_key?('_alist_MIMARK_GTMARKhash_MIMARKtable') then
326
- trampCall(@_alist_MIMARK_GTMARKhash_MIMARKtable)
327
- else raise NameError.new( "Error: undefined variable _alist_MIMARK_GTMARKhash_MIMARKtable", "_alist_MIMARK_GTMARKhash_MIMARKtable" ) end
328
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:71"] + __e.backtrace ) ; raise __e
320
+ if @global_lisp_binding.has_key?('_list_MIMARK_GTMARKvector') then
321
+ trampCall(@_list_MIMARK_GTMARKvector)
322
+ else raise NameError.new( "Error: undefined variable _list_MIMARK_GTMARKvector", "_list_MIMARK_GTMARKvector" ) end
323
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:65"] + __e.backtrace ) ; raise __e
329
324
  end ,
330
325
  [
331
- trampCall( self._map_METHOD( 'map',
332
- begin
333
- if @global_lisp_binding.has_key?('_map') then
334
- trampCall(@_map)
335
- else raise NameError.new( "Error: undefined variable _map", "_map" ) end
336
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
337
- end ,
338
- [
339
- Proc.new { |_entry|
340
- _cons(
341
- _car(
342
- begin
343
- trampCall(_entry)
344
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
345
- end
346
- ) ,
347
- trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
326
+ begin
327
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 72 );
328
+ trampCall( self._map_METHOD( 'map',
329
+ begin
330
+ if @global_lisp_binding.has_key?('_map') then
331
+ trampCall(@_map)
332
+ else raise NameError.new( "Error: undefined variable _map", "_map" ) end
333
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
334
+ end ,
335
+ [
336
+ Proc.new { |_x|
337
+ begin
338
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 75 );
339
+ trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
340
+ begin
341
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
342
+ trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
343
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
344
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
345
+ end ,
346
+ [
347
+ begin
348
+ trampCall(_x)
349
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:68"] + __e.backtrace ) ; raise __e
350
+ end
351
+ ]
352
+ ))
353
+ end
354
+ } ,
355
+ begin
356
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 69 );
357
+ trampCall( self._vector_MIMARK_GTMARKlist_METHOD( 'vector->list',
348
358
  begin
349
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
350
- trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
351
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
352
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
359
+ if @global_lisp_binding.has_key?('_vector_MIMARK_GTMARKlist') then
360
+ trampCall(@_vector_MIMARK_GTMARKlist)
361
+ else raise NameError.new( "Error: undefined variable _vector_MIMARK_GTMARKlist", "_vector_MIMARK_GTMARKlist" ) end
362
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:69"] + __e.backtrace ) ; raise __e
353
363
  end ,
354
364
  [
355
- _cdr(
356
- begin
357
- trampCall(_entry)
358
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
359
- end
360
- )
365
+ begin
366
+ trampCall(_obj)
367
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
368
+ end
361
369
  ]
362
370
  ))
363
- )
364
- } ,
365
- begin
366
- trampCall(_obj)
367
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
368
- end
369
- ]
370
- ))
371
+ end
372
+ ]
373
+ ))
374
+ end
371
375
  ]
372
376
  )
373
377
  end
378
+ end
379
+ else
380
+ if (
381
+ begin
382
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 70 );
383
+ _pair_QUMARK(
384
+ begin
385
+ trampCall(_obj)
386
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
387
+ end
388
+ )
389
+ end
390
+ ) then
391
+ begin
392
+ begin
393
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 71 );
394
+ delayCall( '_alist_MIMARK_GTMARKhash_MIMARKtable', 'alist->hash-table',
395
+ begin
396
+ if @global_lisp_binding.has_key?('_alist_MIMARK_GTMARKhash_MIMARKtable') then
397
+ trampCall(@_alist_MIMARK_GTMARKhash_MIMARKtable)
398
+ else raise NameError.new( "Error: undefined variable _alist_MIMARK_GTMARKhash_MIMARKtable", "_alist_MIMARK_GTMARKhash_MIMARKtable" ) end
399
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:71"] + __e.backtrace ) ; raise __e
400
+ end ,
401
+ [
402
+ begin
403
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 72 );
404
+ trampCall( self._map_METHOD( 'map',
405
+ begin
406
+ if @global_lisp_binding.has_key?('_map') then
407
+ trampCall(@_map)
408
+ else raise NameError.new( "Error: undefined variable _map", "_map" ) end
409
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:72"] + __e.backtrace ) ; raise __e
410
+ end ,
411
+ [
412
+ Proc.new { |_entry|
413
+ begin
414
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 74 );
415
+ _cons(
416
+ begin
417
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 74 );
418
+ _car(
419
+ begin
420
+ trampCall(_entry)
421
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
422
+ end
423
+ )
424
+ end ,
425
+ begin
426
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 75 );
427
+ trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
428
+ begin
429
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
430
+ trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
431
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
432
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
433
+ end ,
434
+ [
435
+ begin
436
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 75 );
437
+ _cdr(
438
+ begin
439
+ trampCall(_entry)
440
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:75"] + __e.backtrace ) ; raise __e
441
+ end
442
+ )
443
+ end
444
+ ]
445
+ ))
446
+ end
447
+ )
448
+ end
449
+ } ,
450
+ begin
451
+ trampCall(_obj)
452
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:78"] + __e.backtrace ) ; raise __e
453
+ end
454
+ ]
455
+ ))
456
+ end
457
+ ]
458
+ )
459
+ end
460
+ end
374
461
  else
375
462
  if (
376
463
  true
@@ -400,25 +487,28 @@ trampCall(
400
487
  @_parse_MIMARKjson_MIMARKstring =
401
488
  trampCall(
402
489
  Proc.new { |_str|
403
- delayCall( '__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist', '%json:hash-table->alist',
404
- begin
405
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
406
- trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
407
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
408
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:85"] + __e.backtrace ) ; raise __e
409
- end ,
410
- [
411
- begin
412
- trampCall(JSON).parse(
413
- begin
414
- trampCall(_str)
415
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
416
- end
417
- )
418
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
419
- end
420
- ]
421
- )
490
+ begin
491
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 85 );
492
+ delayCall( '__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist', '%json:hash-table->alist',
493
+ begin
494
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist') then
495
+ trampCall(@__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist)
496
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist", "__PAMARKjson_COMARKhash_MIMARKtable_MIMARK_GTMARKalist" ) end
497
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:85"] + __e.backtrace ) ; raise __e
498
+ end ,
499
+ [
500
+ begin
501
+ trampCall(JSON).parse(
502
+ begin
503
+ trampCall(_str)
504
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
505
+ end
506
+ )
507
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:86"] + __e.backtrace ) ; raise __e
508
+ end
509
+ ]
510
+ )
511
+ end
422
512
  }
423
513
  )
424
514
  end
@@ -436,20 +526,23 @@ trampCall(
436
526
  ___lambda = lambda { |__|
437
527
  begin
438
528
  ___lambda = lambda { |_str|
439
- delayCall( '_parse_MIMARKjson_MIMARKstring', 'parse-json-string',
440
- begin
441
- if @global_lisp_binding.has_key?('_parse_MIMARKjson_MIMARKstring') then
442
- trampCall(@_parse_MIMARKjson_MIMARKstring)
443
- else raise NameError.new( "Error: undefined variable _parse_MIMARKjson_MIMARKstring", "_parse_MIMARKjson_MIMARKstring" ) end
444
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
445
- end ,
446
- [
447
- begin
448
- trampCall(_str)
449
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
450
- end
451
- ]
452
- )
529
+ begin
530
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 91 );
531
+ delayCall( '_parse_MIMARKjson_MIMARKstring', 'parse-json-string',
532
+ begin
533
+ if @global_lisp_binding.has_key?('_parse_MIMARKjson_MIMARKstring') then
534
+ trampCall(@_parse_MIMARKjson_MIMARKstring)
535
+ else raise NameError.new( "Error: undefined variable _parse_MIMARKjson_MIMARKstring", "_parse_MIMARKjson_MIMARKstring" ) end
536
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
537
+ end ,
538
+ [
539
+ begin
540
+ trampCall(_str)
541
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:91"] + __e.backtrace ) ; raise __e
542
+ end
543
+ ]
544
+ )
545
+ end
453
546
  } ; ___lambda.call(
454
547
  begin
455
548
  trampCall(__).read(
@@ -460,34 +553,40 @@ trampCall(
460
553
  end
461
554
  } ; ___lambda.call(
462
555
  begin
463
- ___lambda = lambda { |___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80019|
556
+ ___lambda = lambda { |___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90024|
464
557
  if (
465
- _null_QUMARK(
466
- begin
467
- trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80019)
468
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
469
- end
470
- )
558
+ begin
559
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 62 );
560
+ _null_QUMARK(
561
+ begin
562
+ trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90024)
563
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
564
+ end
565
+ )
566
+ end
471
567
  ) then
472
568
  begin
473
569
  trampCall(STDIN)
474
570
  rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:89"] + __e.backtrace ) ; raise __e
475
571
  end
476
572
  else
477
- delayCall( '_car', 'car',
478
- begin
479
- if @global_lisp_binding.has_key?('_car') then
480
- trampCall(@_car)
481
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
482
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
483
- end ,
484
- [
485
- begin
486
- trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80019)
487
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
488
- end
489
- ]
490
- )
573
+ begin
574
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 74 );
575
+ delayCall( '_car', 'car',
576
+ begin
577
+ if @global_lisp_binding.has_key?('_car') then
578
+ trampCall(@_car)
579
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
580
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
581
+ end ,
582
+ [
583
+ begin
584
+ trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90024)
585
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
586
+ end
587
+ ]
588
+ )
589
+ end
491
590
  end
492
591
  } ; ___lambda.call(
493
592
  begin
@@ -513,20 +612,23 @@ trampCall(
513
612
  Proc.new { |_obj|
514
613
  begin
515
614
  trampCall(JSON).dump(
516
- trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
517
- begin
518
- if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
519
- trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
520
- else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
521
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
522
- end ,
523
- [
524
- begin
525
- trampCall(_obj)
526
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
527
- end
528
- ]
529
- ))
615
+ begin
616
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 98 );
617
+ trampCall( self.__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable_METHOD( '%json:alist->hash-table',
618
+ begin
619
+ if @global_lisp_binding.has_key?('__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable') then
620
+ trampCall(@__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable)
621
+ else raise NameError.new( "Error: undefined variable __PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable", "__PAMARKjson_COMARKalist_MIMARK_GTMARKhash_MIMARKtable" ) end
622
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
623
+ end ,
624
+ [
625
+ begin
626
+ trampCall(_obj)
627
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:98"] + __e.backtrace ) ; raise __e
628
+ end
629
+ ]
630
+ ))
631
+ end
530
632
  )
531
633
  rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:97"] + __e.backtrace ) ; raise __e
532
634
  end
@@ -547,53 +649,62 @@ trampCall(
547
649
  ___lambda = lambda { |__|
548
650
  begin
549
651
  trampCall(__).print(
550
- trampCall( self._construct_MIMARKjson_MIMARKstring_METHOD( 'construct-json-string',
551
- begin
552
- if @global_lisp_binding.has_key?('_construct_MIMARKjson_MIMARKstring') then
553
- trampCall(@_construct_MIMARKjson_MIMARKstring)
554
- else raise NameError.new( "Error: undefined variable _construct_MIMARKjson_MIMARKstring", "_construct_MIMARKjson_MIMARKstring" ) end
555
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
556
- end ,
557
- [
558
- begin
559
- trampCall(_obj)
560
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
561
- end
562
- ]
563
- ))
652
+ begin
653
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 103 );
654
+ trampCall( self._construct_MIMARKjson_MIMARKstring_METHOD( 'construct-json-string',
655
+ begin
656
+ if @global_lisp_binding.has_key?('_construct_MIMARKjson_MIMARKstring') then
657
+ trampCall(@_construct_MIMARKjson_MIMARKstring)
658
+ else raise NameError.new( "Error: undefined variable _construct_MIMARKjson_MIMARKstring", "_construct_MIMARKjson_MIMARKstring" ) end
659
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
660
+ end ,
661
+ [
662
+ begin
663
+ trampCall(_obj)
664
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:103"] + __e.backtrace ) ; raise __e
665
+ end
666
+ ]
667
+ ))
668
+ end
564
669
  )
565
670
  rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:102"] + __e.backtrace ) ; raise __e
566
671
  end
567
672
  } ; ___lambda.call(
568
673
  begin
569
- ___lambda = lambda { |___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80020|
674
+ ___lambda = lambda { |___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90025|
570
675
  if (
571
- _null_QUMARK(
572
- begin
573
- trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80020)
574
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
575
- end
576
- )
676
+ begin
677
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 62 );
678
+ _null_QUMARK(
679
+ begin
680
+ trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90025)
681
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
682
+ end
683
+ )
684
+ end
577
685
  ) then
578
686
  begin
579
687
  trampCall(STDOUT)
580
688
  rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:101"] + __e.backtrace ) ; raise __e
581
689
  end
582
690
  else
583
- delayCall( '_car', 'car',
584
- begin
585
- if @global_lisp_binding.has_key?('_car') then
586
- trampCall(@_car)
587
- else raise NameError.new( "Error: undefined variable _car", "_car" ) end
588
- rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
589
- end ,
590
- [
591
- begin
592
- trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_80020)
593
- rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
594
- end
595
- ]
596
- )
691
+ begin
692
+ embedBacktraceInfo( "./lib/rfc/json.nnd", 74 );
693
+ delayCall( '_car', 'car',
694
+ begin
695
+ if @global_lisp_binding.has_key?('_car') then
696
+ trampCall(@_car)
697
+ else raise NameError.new( "Error: undefined variable _car", "_car" ) end
698
+ rescue => __e ; __e.set_backtrace( ["./lib/rfc/json.nnd:74"] + __e.backtrace ) ; raise __e
699
+ end ,
700
+ [
701
+ begin
702
+ trampCall(___gensym__6e1da08b054bbf0469585c6330e1b00b59b91d4c_90025)
703
+ rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
704
+ end
705
+ ]
706
+ )
707
+ end
597
708
  end
598
709
  } ; ___lambda.call(
599
710
  begin