nendo 0.5.2 → 0.5.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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