nendo 0.6.0 → 0.6.1
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/lib/init.nnd +18 -0
- data/lib/init.nndc +3458 -3078
- data/lib/nendo/experimental.nnd +23 -2
- data/lib/nendo/experimental.nndc +2122 -276
- data/lib/nendo/test.nndc +116 -4
- data/lib/rfc/json.nndc +6 -6
- data/lib/ruby/core.rb +1 -1
- data/lib/ruby/printer.rb +6 -0
- data/lib/ruby/types.rb +4 -1
- data/lib/srfi-1.nndc +147 -147
- data/lib/srfi-2.nndc +90 -90
- data/lib/srfi-26.nndc +251 -251
- data/lib/text/html-lite.nndc +23 -23
- data/lib/util/combinations.nndc +191 -191
- data/lib/util/list.nndc +294 -294
- data/lib/util/match.nndc +5551 -5551
- data/test/nendo_spec.rb +33 -0
- data/test/syntax_spec.rb +31 -7
- metadata +5 -5
data/lib/nendo/experimental.nnd
CHANGED
@@ -135,14 +135,15 @@
|
|
135
135
|
;; guard for Exceptions
|
136
136
|
(define-syntax %guard-var
|
137
137
|
(syntax-rules (=> ...)
|
138
|
-
((%guard-
|
138
|
+
((%guard-var (var clauses ...))
|
139
139
|
var)))
|
140
140
|
|
141
141
|
(define-syntax %guard-clause
|
142
142
|
(syntax-rules (=> ...)
|
143
143
|
((%guard-clause (var clauses ...))
|
144
144
|
(cond
|
145
|
-
clauses ...
|
145
|
+
clauses ...
|
146
|
+
(#t (raise var))))))
|
146
147
|
|
147
148
|
(define-syntax guard
|
148
149
|
(syntax-rules ()
|
@@ -176,3 +177,23 @@
|
|
176
177
|
cleanup))))))
|
177
178
|
|
178
179
|
|
180
|
+
;; syntax check enabled version of let1
|
181
|
+
(define nendo-syntax-error SyntaxError)
|
182
|
+
(define-syntax let1
|
183
|
+
(syntax-rules (%let)
|
184
|
+
((let1)
|
185
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
186
|
+
((let1 var)
|
187
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
188
|
+
((let1 var expr)
|
189
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
190
|
+
((let1 (var) expr body ...)
|
191
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
192
|
+
((let1 (var expr) body ...)
|
193
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
194
|
+
((let1 ((var expr)) body ...)
|
195
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
196
|
+
((let1 () body ...)
|
197
|
+
(raise nendo-syntax-error "let1 requires (let1 var expr body ...) form."))
|
198
|
+
((let1 var expr body ...)
|
199
|
+
(%let ((var expr)) body ...))))
|
data/lib/nendo/experimental.nndc
CHANGED
@@ -999,13 +999,13 @@ trampCall(
|
|
999
999
|
end
|
1000
1000
|
} ; ___lambda.call(
|
1001
1001
|
begin
|
1002
|
-
___lambda = lambda { |
|
1002
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30162|
|
1003
1003
|
if (
|
1004
1004
|
begin
|
1005
1005
|
embedBacktraceInfo( "", 1 );
|
1006
1006
|
_null_QUMARK(
|
1007
1007
|
begin
|
1008
|
-
trampCall(
|
1008
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30162)
|
1009
1009
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1010
1010
|
end
|
1011
1011
|
)
|
@@ -1024,7 +1024,7 @@ trampCall(
|
|
1024
1024
|
end ,
|
1025
1025
|
[
|
1026
1026
|
begin
|
1027
|
-
trampCall(
|
1027
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30162)
|
1028
1028
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1029
1029
|
end
|
1030
1030
|
]
|
@@ -1080,69 +1080,69 @@ trampCall(
|
|
1080
1080
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1081
1081
|
end ,
|
1082
1082
|
[
|
1083
|
-
Proc.new { |
|
1083
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30169|
|
1084
1084
|
begin
|
1085
|
-
___lambda = lambda { |
|
1085
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30191|
|
1086
1086
|
if (
|
1087
1087
|
begin
|
1088
|
-
trampCall(
|
1088
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30191)
|
1089
1089
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1090
1090
|
end
|
1091
1091
|
) then
|
1092
1092
|
begin
|
1093
|
-
trampCall(
|
1093
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30191)
|
1094
1094
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1095
1095
|
end
|
1096
1096
|
else
|
1097
1097
|
begin
|
1098
|
-
___lambda = lambda { |
|
1098
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30192|
|
1099
1099
|
if (
|
1100
1100
|
begin
|
1101
|
-
trampCall(
|
1101
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30192)
|
1102
1102
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1103
1103
|
end
|
1104
1104
|
) then
|
1105
1105
|
begin
|
1106
|
-
trampCall(
|
1106
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30192)
|
1107
1107
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1108
1108
|
end
|
1109
1109
|
else
|
1110
1110
|
begin
|
1111
|
-
___lambda = lambda { |
|
1111
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30193|
|
1112
1112
|
if (
|
1113
1113
|
begin
|
1114
|
-
trampCall(
|
1114
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30193)
|
1115
1115
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1116
1116
|
end
|
1117
1117
|
) then
|
1118
1118
|
begin
|
1119
|
-
trampCall(
|
1119
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30193)
|
1120
1120
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1121
1121
|
end
|
1122
1122
|
else
|
1123
1123
|
begin
|
1124
|
-
___lambda = lambda { |
|
1124
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30194|
|
1125
1125
|
if (
|
1126
1126
|
begin
|
1127
|
-
trampCall(
|
1127
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30194)
|
1128
1128
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1129
1129
|
end
|
1130
1130
|
) then
|
1131
1131
|
begin
|
1132
|
-
trampCall(
|
1132
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30194)
|
1133
1133
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1134
1134
|
end
|
1135
1135
|
else
|
1136
1136
|
begin
|
1137
|
-
___lambda = lambda { |
|
1137
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30195|
|
1138
1138
|
if (
|
1139
1139
|
begin
|
1140
|
-
trampCall(
|
1140
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30195)
|
1141
1141
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1142
1142
|
end
|
1143
1143
|
) then
|
1144
1144
|
begin
|
1145
|
-
trampCall(
|
1145
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30195)
|
1146
1146
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1147
1147
|
end
|
1148
1148
|
else
|
@@ -1162,7 +1162,7 @@ trampCall(
|
|
1162
1162
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
1163
1163
|
end ,
|
1164
1164
|
[
|
1165
|
-
|
1165
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167
|
1166
1166
|
]
|
1167
1167
|
))
|
1168
1168
|
end
|
@@ -1176,7 +1176,7 @@ trampCall(
|
|
1176
1176
|
end
|
1177
1177
|
} ; ___lambda.call(
|
1178
1178
|
begin
|
1179
|
-
___lambda = lambda { |
|
1179
|
+
___lambda = lambda { |__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30184|
|
1180
1180
|
if (
|
1181
1181
|
begin
|
1182
1182
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1188,7 +1188,7 @@ trampCall(
|
|
1188
1188
|
begin
|
1189
1189
|
embedBacktraceInfo( "", 1 );
|
1190
1190
|
_pair_QUMARK(
|
1191
|
-
|
1191
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30184
|
1192
1192
|
)
|
1193
1193
|
end
|
1194
1194
|
)
|
@@ -1197,11 +1197,11 @@ trampCall(
|
|
1197
1197
|
end
|
1198
1198
|
) then
|
1199
1199
|
begin
|
1200
|
-
___lambda = lambda { |
|
1200
|
+
___lambda = lambda { |__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30185|
|
1201
1201
|
begin
|
1202
1202
|
___lambda = lambda { |_exc|
|
1203
1203
|
begin
|
1204
|
-
___lambda = lambda { |
|
1204
|
+
___lambda = lambda { |__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30186|
|
1205
1205
|
if (
|
1206
1206
|
begin
|
1207
1207
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1213,7 +1213,7 @@ trampCall(
|
|
1213
1213
|
begin
|
1214
1214
|
embedBacktraceInfo( "", 1 );
|
1215
1215
|
_pair_QUMARK(
|
1216
|
-
|
1216
|
+
__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30186
|
1217
1217
|
)
|
1218
1218
|
end
|
1219
1219
|
)
|
@@ -1222,11 +1222,11 @@ trampCall(
|
|
1222
1222
|
end
|
1223
1223
|
) then
|
1224
1224
|
begin
|
1225
|
-
___lambda = lambda { |
|
1225
|
+
___lambda = lambda { |__v__13__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30187|
|
1226
1226
|
begin
|
1227
1227
|
___lambda = lambda { |_mes|
|
1228
1228
|
begin
|
1229
|
-
___lambda = lambda { |
|
1229
|
+
___lambda = lambda { |__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30188|
|
1230
1230
|
if (
|
1231
1231
|
begin
|
1232
1232
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1238,7 +1238,7 @@ trampCall(
|
|
1238
1238
|
begin
|
1239
1239
|
embedBacktraceInfo( "", 1 );
|
1240
1240
|
_pair_QUMARK(
|
1241
|
-
|
1241
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30188
|
1242
1242
|
)
|
1243
1243
|
end
|
1244
1244
|
)
|
@@ -1247,11 +1247,11 @@ trampCall(
|
|
1247
1247
|
end
|
1248
1248
|
) then
|
1249
1249
|
begin
|
1250
|
-
___lambda = lambda { |
|
1250
|
+
___lambda = lambda { |__v__15__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30189|
|
1251
1251
|
begin
|
1252
1252
|
___lambda = lambda { |_backtrace|
|
1253
1253
|
begin
|
1254
|
-
___lambda = lambda { |
|
1254
|
+
___lambda = lambda { |__v__16__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30190|
|
1255
1255
|
if (
|
1256
1256
|
begin
|
1257
1257
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1263,7 +1263,7 @@ trampCall(
|
|
1263
1263
|
begin
|
1264
1264
|
embedBacktraceInfo( "", 1 );
|
1265
1265
|
_null_QUMARK(
|
1266
|
-
|
1266
|
+
__v__16__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30190
|
1267
1267
|
)
|
1268
1268
|
end
|
1269
1269
|
)
|
@@ -1276,9 +1276,9 @@ trampCall(
|
|
1276
1276
|
_cons(
|
1277
1277
|
begin
|
1278
1278
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1279
|
-
trampCall( callProcedure( '
|
1279
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1280
1280
|
begin
|
1281
|
-
trampCall(
|
1281
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1282
1282
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1283
1283
|
end ,
|
1284
1284
|
[
|
@@ -1323,20 +1323,20 @@ trampCall(
|
|
1323
1323
|
begin
|
1324
1324
|
embedBacktraceInfo( "", 1 );
|
1325
1325
|
_cdr(
|
1326
|
-
|
1326
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30188
|
1327
1327
|
)
|
1328
1328
|
end
|
1329
1329
|
)
|
1330
1330
|
end
|
1331
1331
|
} ; ___lambda.call(
|
1332
|
-
|
1332
|
+
__v__15__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30189
|
1333
1333
|
)
|
1334
1334
|
end
|
1335
1335
|
} ; ___lambda.call(
|
1336
1336
|
begin
|
1337
1337
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1338
1338
|
_car(
|
1339
|
-
|
1339
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30188
|
1340
1340
|
)
|
1341
1341
|
end
|
1342
1342
|
)
|
@@ -1348,20 +1348,20 @@ trampCall(
|
|
1348
1348
|
begin
|
1349
1349
|
embedBacktraceInfo( "", 1 );
|
1350
1350
|
_cdr(
|
1351
|
-
|
1351
|
+
__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30186
|
1352
1352
|
)
|
1353
1353
|
end
|
1354
1354
|
)
|
1355
1355
|
end
|
1356
1356
|
} ; ___lambda.call(
|
1357
|
-
|
1357
|
+
__v__13__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30187
|
1358
1358
|
)
|
1359
1359
|
end
|
1360
1360
|
} ; ___lambda.call(
|
1361
1361
|
begin
|
1362
1362
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1363
1363
|
_car(
|
1364
|
-
|
1364
|
+
__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30186
|
1365
1365
|
)
|
1366
1366
|
end
|
1367
1367
|
)
|
@@ -1373,20 +1373,20 @@ trampCall(
|
|
1373
1373
|
begin
|
1374
1374
|
embedBacktraceInfo( "", 1 );
|
1375
1375
|
_cdr(
|
1376
|
-
|
1376
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30184
|
1377
1377
|
)
|
1378
1378
|
end
|
1379
1379
|
)
|
1380
1380
|
end
|
1381
1381
|
} ; ___lambda.call(
|
1382
|
-
|
1382
|
+
__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30185
|
1383
1383
|
)
|
1384
1384
|
end
|
1385
1385
|
} ; ___lambda.call(
|
1386
1386
|
begin
|
1387
1387
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1388
1388
|
_car(
|
1389
|
-
|
1389
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30184
|
1390
1390
|
)
|
1391
1391
|
end
|
1392
1392
|
)
|
@@ -1398,7 +1398,7 @@ trampCall(
|
|
1398
1398
|
begin
|
1399
1399
|
embedBacktraceInfo( "", 1 );
|
1400
1400
|
_cdr(
|
1401
|
-
|
1401
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167
|
1402
1402
|
)
|
1403
1403
|
end
|
1404
1404
|
)
|
@@ -1408,7 +1408,7 @@ trampCall(
|
|
1408
1408
|
end
|
1409
1409
|
} ; ___lambda.call(
|
1410
1410
|
begin
|
1411
|
-
___lambda = lambda { |
|
1411
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30179|
|
1412
1412
|
if (
|
1413
1413
|
begin
|
1414
1414
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1420,7 +1420,7 @@ trampCall(
|
|
1420
1420
|
begin
|
1421
1421
|
embedBacktraceInfo( "", 1 );
|
1422
1422
|
_pair_QUMARK(
|
1423
|
-
|
1423
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30179
|
1424
1424
|
)
|
1425
1425
|
end
|
1426
1426
|
)
|
@@ -1429,11 +1429,11 @@ trampCall(
|
|
1429
1429
|
end
|
1430
1430
|
) then
|
1431
1431
|
begin
|
1432
|
-
___lambda = lambda { |
|
1432
|
+
___lambda = lambda { |__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30180|
|
1433
1433
|
begin
|
1434
1434
|
___lambda = lambda { |_exc|
|
1435
1435
|
begin
|
1436
|
-
___lambda = lambda { |
|
1436
|
+
___lambda = lambda { |__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30181|
|
1437
1437
|
if (
|
1438
1438
|
begin
|
1439
1439
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1445,7 +1445,7 @@ trampCall(
|
|
1445
1445
|
begin
|
1446
1446
|
embedBacktraceInfo( "", 1 );
|
1447
1447
|
_pair_QUMARK(
|
1448
|
-
|
1448
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30181
|
1449
1449
|
)
|
1450
1450
|
end
|
1451
1451
|
)
|
@@ -1454,11 +1454,11 @@ trampCall(
|
|
1454
1454
|
end
|
1455
1455
|
) then
|
1456
1456
|
begin
|
1457
|
-
___lambda = lambda { |
|
1457
|
+
___lambda = lambda { |__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30182|
|
1458
1458
|
begin
|
1459
1459
|
___lambda = lambda { |_mes|
|
1460
1460
|
begin
|
1461
|
-
___lambda = lambda { |
|
1461
|
+
___lambda = lambda { |__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30183|
|
1462
1462
|
if (
|
1463
1463
|
begin
|
1464
1464
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1470,7 +1470,7 @@ trampCall(
|
|
1470
1470
|
begin
|
1471
1471
|
embedBacktraceInfo( "", 1 );
|
1472
1472
|
_null_QUMARK(
|
1473
|
-
|
1473
|
+
__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30183
|
1474
1474
|
)
|
1475
1475
|
end
|
1476
1476
|
)
|
@@ -1483,9 +1483,9 @@ trampCall(
|
|
1483
1483
|
_cons(
|
1484
1484
|
begin
|
1485
1485
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1486
|
-
trampCall( callProcedure( '
|
1486
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1487
1487
|
begin
|
1488
|
-
trampCall(
|
1488
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1489
1489
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1490
1490
|
end ,
|
1491
1491
|
[
|
@@ -1515,9 +1515,9 @@ trampCall(
|
|
1515
1515
|
_cons(
|
1516
1516
|
begin
|
1517
1517
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1518
|
-
trampCall( callProcedure( '
|
1518
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1519
1519
|
begin
|
1520
|
-
trampCall(
|
1520
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1521
1521
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1522
1522
|
end ,
|
1523
1523
|
[
|
@@ -1537,9 +1537,9 @@ trampCall(
|
|
1537
1537
|
_cons(
|
1538
1538
|
begin
|
1539
1539
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1540
|
-
trampCall( callProcedure( '
|
1540
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1541
1541
|
begin
|
1542
|
-
trampCall(
|
1542
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1543
1543
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1544
1544
|
end ,
|
1545
1545
|
[
|
@@ -1558,9 +1558,9 @@ trampCall(
|
|
1558
1558
|
_cons(
|
1559
1559
|
begin
|
1560
1560
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1561
|
-
trampCall( callProcedure( '
|
1561
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1562
1562
|
begin
|
1563
|
-
trampCall(
|
1563
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1564
1564
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1565
1565
|
end ,
|
1566
1566
|
[
|
@@ -1605,20 +1605,20 @@ trampCall(
|
|
1605
1605
|
begin
|
1606
1606
|
embedBacktraceInfo( "", 1 );
|
1607
1607
|
_cdr(
|
1608
|
-
|
1608
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30181
|
1609
1609
|
)
|
1610
1610
|
end
|
1611
1611
|
)
|
1612
1612
|
end
|
1613
1613
|
} ; ___lambda.call(
|
1614
|
-
|
1614
|
+
__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30182
|
1615
1615
|
)
|
1616
1616
|
end
|
1617
1617
|
} ; ___lambda.call(
|
1618
1618
|
begin
|
1619
1619
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1620
1620
|
_car(
|
1621
|
-
|
1621
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30181
|
1622
1622
|
)
|
1623
1623
|
end
|
1624
1624
|
)
|
@@ -1630,20 +1630,20 @@ trampCall(
|
|
1630
1630
|
begin
|
1631
1631
|
embedBacktraceInfo( "", 1 );
|
1632
1632
|
_cdr(
|
1633
|
-
|
1633
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30179
|
1634
1634
|
)
|
1635
1635
|
end
|
1636
1636
|
)
|
1637
1637
|
end
|
1638
1638
|
} ; ___lambda.call(
|
1639
|
-
|
1639
|
+
__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30180
|
1640
1640
|
)
|
1641
1641
|
end
|
1642
1642
|
} ; ___lambda.call(
|
1643
1643
|
begin
|
1644
1644
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1645
1645
|
_car(
|
1646
|
-
|
1646
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30179
|
1647
1647
|
)
|
1648
1648
|
end
|
1649
1649
|
)
|
@@ -1655,7 +1655,7 @@ trampCall(
|
|
1655
1655
|
begin
|
1656
1656
|
embedBacktraceInfo( "", 1 );
|
1657
1657
|
_cdr(
|
1658
|
-
|
1658
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167
|
1659
1659
|
)
|
1660
1660
|
end
|
1661
1661
|
)
|
@@ -1665,7 +1665,7 @@ trampCall(
|
|
1665
1665
|
end
|
1666
1666
|
} ; ___lambda.call(
|
1667
1667
|
begin
|
1668
|
-
___lambda = lambda { |
|
1668
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30176|
|
1669
1669
|
if (
|
1670
1670
|
begin
|
1671
1671
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1677,7 +1677,7 @@ trampCall(
|
|
1677
1677
|
begin
|
1678
1678
|
embedBacktraceInfo( "", 1 );
|
1679
1679
|
_pair_QUMARK(
|
1680
|
-
|
1680
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30176
|
1681
1681
|
)
|
1682
1682
|
end
|
1683
1683
|
)
|
@@ -1686,11 +1686,11 @@ trampCall(
|
|
1686
1686
|
end
|
1687
1687
|
) then
|
1688
1688
|
begin
|
1689
|
-
___lambda = lambda { |
|
1689
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30177|
|
1690
1690
|
begin
|
1691
1691
|
___lambda = lambda { |_exc|
|
1692
1692
|
begin
|
1693
|
-
___lambda = lambda { |
|
1693
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30178|
|
1694
1694
|
if (
|
1695
1695
|
begin
|
1696
1696
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1702,7 +1702,7 @@ trampCall(
|
|
1702
1702
|
begin
|
1703
1703
|
embedBacktraceInfo( "", 1 );
|
1704
1704
|
_null_QUMARK(
|
1705
|
-
|
1705
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30178
|
1706
1706
|
)
|
1707
1707
|
end
|
1708
1708
|
)
|
@@ -1715,9 +1715,9 @@ trampCall(
|
|
1715
1715
|
_cons(
|
1716
1716
|
begin
|
1717
1717
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1718
|
-
trampCall( callProcedure( '
|
1718
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1719
1719
|
begin
|
1720
|
-
trampCall(
|
1720
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1721
1721
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1722
1722
|
end ,
|
1723
1723
|
[
|
@@ -1740,9 +1740,9 @@ trampCall(
|
|
1740
1740
|
_cons(
|
1741
1741
|
begin
|
1742
1742
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1743
|
-
trampCall( callProcedure( '
|
1743
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1744
1744
|
begin
|
1745
|
-
trampCall(
|
1745
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1746
1746
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1747
1747
|
end ,
|
1748
1748
|
[
|
@@ -1762,9 +1762,9 @@ trampCall(
|
|
1762
1762
|
_cons(
|
1763
1763
|
begin
|
1764
1764
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1765
|
-
trampCall( callProcedure( '
|
1765
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1766
1766
|
begin
|
1767
|
-
trampCall(
|
1767
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1768
1768
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1769
1769
|
end ,
|
1770
1770
|
[
|
@@ -1783,9 +1783,9 @@ trampCall(
|
|
1783
1783
|
_cons(
|
1784
1784
|
begin
|
1785
1785
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1786
|
-
trampCall( callProcedure( '
|
1786
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1787
1787
|
begin
|
1788
|
-
trampCall(
|
1788
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1789
1789
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1790
1790
|
end ,
|
1791
1791
|
[
|
@@ -1822,9 +1822,9 @@ trampCall(
|
|
1822
1822
|
_cons(
|
1823
1823
|
begin
|
1824
1824
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1825
|
-
trampCall( callProcedure( '
|
1825
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1826
1826
|
begin
|
1827
|
-
trampCall(
|
1827
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1828
1828
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1829
1829
|
end ,
|
1830
1830
|
[
|
@@ -1844,9 +1844,9 @@ trampCall(
|
|
1844
1844
|
_cons(
|
1845
1845
|
begin
|
1846
1846
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1847
|
-
trampCall( callProcedure( '
|
1847
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1848
1848
|
begin
|
1849
|
-
trampCall(
|
1849
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1850
1850
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1851
1851
|
end ,
|
1852
1852
|
[
|
@@ -1865,9 +1865,9 @@ trampCall(
|
|
1865
1865
|
_cons(
|
1866
1866
|
begin
|
1867
1867
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1868
|
-
trampCall( callProcedure( '
|
1868
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1869
1869
|
begin
|
1870
|
-
trampCall(
|
1870
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1871
1871
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1872
1872
|
end ,
|
1873
1873
|
[
|
@@ -1912,20 +1912,20 @@ trampCall(
|
|
1912
1912
|
begin
|
1913
1913
|
embedBacktraceInfo( "", 1 );
|
1914
1914
|
_cdr(
|
1915
|
-
|
1915
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30176
|
1916
1916
|
)
|
1917
1917
|
end
|
1918
1918
|
)
|
1919
1919
|
end
|
1920
1920
|
} ; ___lambda.call(
|
1921
|
-
|
1921
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30177
|
1922
1922
|
)
|
1923
1923
|
end
|
1924
1924
|
} ; ___lambda.call(
|
1925
1925
|
begin
|
1926
1926
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
1927
1927
|
_car(
|
1928
|
-
|
1928
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30176
|
1929
1929
|
)
|
1930
1930
|
end
|
1931
1931
|
)
|
@@ -1937,7 +1937,7 @@ trampCall(
|
|
1937
1937
|
begin
|
1938
1938
|
embedBacktraceInfo( "", 1 );
|
1939
1939
|
_cdr(
|
1940
|
-
|
1940
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167
|
1941
1941
|
)
|
1942
1942
|
end
|
1943
1943
|
)
|
@@ -1947,7 +1947,7 @@ trampCall(
|
|
1947
1947
|
end
|
1948
1948
|
} ; ___lambda.call(
|
1949
1949
|
begin
|
1950
|
-
___lambda = lambda { |
|
1950
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30175|
|
1951
1951
|
if (
|
1952
1952
|
begin
|
1953
1953
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -1959,7 +1959,7 @@ trampCall(
|
|
1959
1959
|
begin
|
1960
1960
|
embedBacktraceInfo( "", 1 );
|
1961
1961
|
_null_QUMARK(
|
1962
|
-
|
1962
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30175
|
1963
1963
|
)
|
1964
1964
|
end
|
1965
1965
|
)
|
@@ -1972,9 +1972,9 @@ trampCall(
|
|
1972
1972
|
_cons(
|
1973
1973
|
begin
|
1974
1974
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
1975
|
-
trampCall( callProcedure( '
|
1975
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168',
|
1976
1976
|
begin
|
1977
|
-
trampCall(
|
1977
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30168)
|
1978
1978
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
1979
1979
|
end ,
|
1980
1980
|
[
|
@@ -1998,7 +1998,7 @@ trampCall(
|
|
1998
1998
|
begin
|
1999
1999
|
embedBacktraceInfo( "", 1 );
|
2000
2000
|
_cdr(
|
2001
|
-
|
2001
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30167
|
2002
2002
|
)
|
2003
2003
|
end
|
2004
2004
|
)
|
@@ -2030,30 +2030,30 @@ trampCall(
|
|
2030
2030
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2031
2031
|
end ,
|
2032
2032
|
[
|
2033
|
-
Proc.new { |
|
2033
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30196,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30197,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30198|
|
2034
2034
|
begin
|
2035
|
-
___lambda = lambda { |
|
2035
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30209|
|
2036
2036
|
if (
|
2037
2037
|
begin
|
2038
|
-
trampCall(
|
2038
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30209)
|
2039
2039
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2040
2040
|
end
|
2041
2041
|
) then
|
2042
2042
|
begin
|
2043
|
-
trampCall(
|
2043
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30209)
|
2044
2044
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2045
2045
|
end
|
2046
2046
|
else
|
2047
2047
|
begin
|
2048
|
-
___lambda = lambda { |
|
2048
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30210|
|
2049
2049
|
if (
|
2050
2050
|
begin
|
2051
|
-
trampCall(
|
2051
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30210)
|
2052
2052
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2053
2053
|
end
|
2054
2054
|
) then
|
2055
2055
|
begin
|
2056
|
-
trampCall(
|
2056
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30210)
|
2057
2057
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2058
2058
|
end
|
2059
2059
|
else
|
@@ -2073,7 +2073,7 @@ trampCall(
|
|
2073
2073
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2074
2074
|
end ,
|
2075
2075
|
[
|
2076
|
-
|
2076
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30196
|
2077
2077
|
]
|
2078
2078
|
))
|
2079
2079
|
end
|
@@ -2087,7 +2087,7 @@ trampCall(
|
|
2087
2087
|
end
|
2088
2088
|
} ; ___lambda.call(
|
2089
2089
|
begin
|
2090
|
-
___lambda = lambda { |
|
2090
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30204|
|
2091
2091
|
if (
|
2092
2092
|
begin
|
2093
2093
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2099,7 +2099,7 @@ trampCall(
|
|
2099
2099
|
begin
|
2100
2100
|
embedBacktraceInfo( "", 1 );
|
2101
2101
|
_pair_QUMARK(
|
2102
|
-
|
2102
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30204
|
2103
2103
|
)
|
2104
2104
|
end
|
2105
2105
|
)
|
@@ -2108,7 +2108,7 @@ trampCall(
|
|
2108
2108
|
end
|
2109
2109
|
) then
|
2110
2110
|
begin
|
2111
|
-
___lambda = lambda { |
|
2111
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30205|
|
2112
2112
|
if (
|
2113
2113
|
begin
|
2114
2114
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2120,7 +2120,7 @@ trampCall(
|
|
2120
2120
|
begin
|
2121
2121
|
embedBacktraceInfo( "", 1 );
|
2122
2122
|
_pair_QUMARK(
|
2123
|
-
|
2123
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30205
|
2124
2124
|
)
|
2125
2125
|
end
|
2126
2126
|
)
|
@@ -2129,11 +2129,11 @@ trampCall(
|
|
2129
2129
|
end
|
2130
2130
|
) then
|
2131
2131
|
begin
|
2132
|
-
___lambda = lambda { |
|
2132
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30206|
|
2133
2133
|
begin
|
2134
2134
|
___lambda = lambda { |_var|
|
2135
2135
|
begin
|
2136
|
-
___lambda = lambda { |
|
2136
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30207|
|
2137
2137
|
if (
|
2138
2138
|
begin
|
2139
2139
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2152,7 +2152,7 @@ trampCall(
|
|
2152
2152
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2153
2153
|
end ,
|
2154
2154
|
[
|
2155
|
-
|
2155
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30207
|
2156
2156
|
]
|
2157
2157
|
))
|
2158
2158
|
end
|
@@ -2164,7 +2164,7 @@ trampCall(
|
|
2164
2164
|
begin
|
2165
2165
|
___lambda = lambda { |_clauses|
|
2166
2166
|
begin
|
2167
|
-
___lambda = lambda { |
|
2167
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30208|
|
2168
2168
|
if (
|
2169
2169
|
begin
|
2170
2170
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2176,7 +2176,7 @@ trampCall(
|
|
2176
2176
|
begin
|
2177
2177
|
embedBacktraceInfo( "", 1 );
|
2178
2178
|
_null_QUMARK(
|
2179
|
-
|
2179
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30208
|
2180
2180
|
)
|
2181
2181
|
end
|
2182
2182
|
)
|
@@ -2195,13 +2195,13 @@ trampCall(
|
|
2195
2195
|
begin
|
2196
2196
|
embedBacktraceInfo( "", 1 );
|
2197
2197
|
_cdr(
|
2198
|
-
|
2198
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30204
|
2199
2199
|
)
|
2200
2200
|
end
|
2201
2201
|
)
|
2202
2202
|
end
|
2203
2203
|
} ; ___lambda.call(
|
2204
|
-
|
2204
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30207
|
2205
2205
|
)
|
2206
2206
|
end
|
2207
2207
|
else
|
@@ -2211,20 +2211,20 @@ trampCall(
|
|
2211
2211
|
begin
|
2212
2212
|
embedBacktraceInfo( "", 1 );
|
2213
2213
|
_cdr(
|
2214
|
-
|
2214
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30205
|
2215
2215
|
)
|
2216
2216
|
end
|
2217
2217
|
)
|
2218
2218
|
end
|
2219
2219
|
} ; ___lambda.call(
|
2220
|
-
|
2220
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30206
|
2221
2221
|
)
|
2222
2222
|
end
|
2223
2223
|
} ; ___lambda.call(
|
2224
2224
|
begin
|
2225
2225
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2226
2226
|
_car(
|
2227
|
-
|
2227
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30205
|
2228
2228
|
)
|
2229
2229
|
end
|
2230
2230
|
)
|
@@ -2236,7 +2236,7 @@ trampCall(
|
|
2236
2236
|
begin
|
2237
2237
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2238
2238
|
_car(
|
2239
|
-
|
2239
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30204
|
2240
2240
|
)
|
2241
2241
|
end
|
2242
2242
|
)
|
@@ -2248,7 +2248,7 @@ trampCall(
|
|
2248
2248
|
begin
|
2249
2249
|
embedBacktraceInfo( "", 1 );
|
2250
2250
|
_cdr(
|
2251
|
-
|
2251
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30196
|
2252
2252
|
)
|
2253
2253
|
end
|
2254
2254
|
)
|
@@ -2280,30 +2280,30 @@ trampCall(
|
|
2280
2280
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2281
2281
|
end ,
|
2282
2282
|
[
|
2283
|
-
Proc.new { |
|
2283
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30211,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30213|
|
2284
2284
|
begin
|
2285
|
-
___lambda = lambda { |
|
2285
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30224|
|
2286
2286
|
if (
|
2287
2287
|
begin
|
2288
|
-
trampCall(
|
2288
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30224)
|
2289
2289
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2290
2290
|
end
|
2291
2291
|
) then
|
2292
2292
|
begin
|
2293
|
-
trampCall(
|
2293
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30224)
|
2294
2294
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2295
2295
|
end
|
2296
2296
|
else
|
2297
2297
|
begin
|
2298
|
-
___lambda = lambda { |
|
2298
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30225|
|
2299
2299
|
if (
|
2300
2300
|
begin
|
2301
|
-
trampCall(
|
2301
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30225)
|
2302
2302
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2303
2303
|
end
|
2304
2304
|
) then
|
2305
2305
|
begin
|
2306
|
-
trampCall(
|
2306
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30225)
|
2307
2307
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2308
2308
|
end
|
2309
2309
|
else
|
@@ -2323,7 +2323,7 @@ trampCall(
|
|
2323
2323
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2324
2324
|
end ,
|
2325
2325
|
[
|
2326
|
-
|
2326
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30211
|
2327
2327
|
]
|
2328
2328
|
))
|
2329
2329
|
end
|
@@ -2337,7 +2337,7 @@ trampCall(
|
|
2337
2337
|
end
|
2338
2338
|
} ; ___lambda.call(
|
2339
2339
|
begin
|
2340
|
-
___lambda = lambda { |
|
2340
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30219|
|
2341
2341
|
if (
|
2342
2342
|
begin
|
2343
2343
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2349,7 +2349,7 @@ trampCall(
|
|
2349
2349
|
begin
|
2350
2350
|
embedBacktraceInfo( "", 1 );
|
2351
2351
|
_pair_QUMARK(
|
2352
|
-
|
2352
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30219
|
2353
2353
|
)
|
2354
2354
|
end
|
2355
2355
|
)
|
@@ -2358,7 +2358,7 @@ trampCall(
|
|
2358
2358
|
end
|
2359
2359
|
) then
|
2360
2360
|
begin
|
2361
|
-
___lambda = lambda { |
|
2361
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30220|
|
2362
2362
|
if (
|
2363
2363
|
begin
|
2364
2364
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2370,7 +2370,7 @@ trampCall(
|
|
2370
2370
|
begin
|
2371
2371
|
embedBacktraceInfo( "", 1 );
|
2372
2372
|
_pair_QUMARK(
|
2373
|
-
|
2373
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30220
|
2374
2374
|
)
|
2375
2375
|
end
|
2376
2376
|
)
|
@@ -2379,11 +2379,11 @@ trampCall(
|
|
2379
2379
|
end
|
2380
2380
|
) then
|
2381
2381
|
begin
|
2382
|
-
___lambda = lambda { |
|
2382
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30221|
|
2383
2383
|
begin
|
2384
2384
|
___lambda = lambda { |_var|
|
2385
2385
|
begin
|
2386
|
-
___lambda = lambda { |
|
2386
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30222|
|
2387
2387
|
if (
|
2388
2388
|
begin
|
2389
2389
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2402,7 +2402,7 @@ trampCall(
|
|
2402
2402
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2403
2403
|
end ,
|
2404
2404
|
[
|
2405
|
-
|
2405
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30222
|
2406
2406
|
]
|
2407
2407
|
))
|
2408
2408
|
end
|
@@ -2414,7 +2414,7 @@ trampCall(
|
|
2414
2414
|
begin
|
2415
2415
|
___lambda = lambda { |_clauses|
|
2416
2416
|
begin
|
2417
|
-
___lambda = lambda { |
|
2417
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30223|
|
2418
2418
|
if (
|
2419
2419
|
begin
|
2420
2420
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2426,7 +2426,7 @@ trampCall(
|
|
2426
2426
|
begin
|
2427
2427
|
embedBacktraceInfo( "", 1 );
|
2428
2428
|
_null_QUMARK(
|
2429
|
-
|
2429
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30223
|
2430
2430
|
)
|
2431
2431
|
end
|
2432
2432
|
)
|
@@ -2439,9 +2439,9 @@ trampCall(
|
|
2439
2439
|
_cons(
|
2440
2440
|
begin
|
2441
2441
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2442
|
-
trampCall( callProcedure( '
|
2442
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212',
|
2443
2443
|
begin
|
2444
|
-
trampCall(
|
2444
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212)
|
2445
2445
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2446
2446
|
end ,
|
2447
2447
|
[
|
@@ -2450,24 +2450,82 @@ trampCall(
|
|
2450
2450
|
))
|
2451
2451
|
end ,
|
2452
2452
|
begin
|
2453
|
-
embedBacktraceInfo( "
|
2454
|
-
trampCall( self.
|
2453
|
+
embedBacktraceInfo( "", 1 );
|
2454
|
+
trampCall( self._append_METHOD( 'append',
|
2455
2455
|
begin
|
2456
|
-
if @global_lisp_binding.has_key?('
|
2457
|
-
trampCall(@
|
2458
|
-
else raise NameError.new( "Error: undefined variable
|
2459
|
-
rescue => __e ; __e.set_backtrace( ["
|
2456
|
+
if @global_lisp_binding.has_key?('_append') then
|
2457
|
+
trampCall(@_append)
|
2458
|
+
else raise NameError.new( "Error: undefined variable _append", "_append" ) end
|
2459
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2460
2460
|
end ,
|
2461
2461
|
[
|
2462
|
-
Proc.new { |_clauses|
|
2463
|
-
begin
|
2464
|
-
trampCall(_clauses)
|
2465
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:145"] + __e.backtrace ) ; raise __e
|
2466
|
-
end
|
2467
|
-
} ,
|
2468
2462
|
begin
|
2469
|
-
|
2470
|
-
|
2463
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 91 );
|
2464
|
+
trampCall( self._map_METHOD( 'map',
|
2465
|
+
begin
|
2466
|
+
if @global_lisp_binding.has_key?('_map') then
|
2467
|
+
trampCall(@_map)
|
2468
|
+
else raise NameError.new( "Error: undefined variable _map", "_map" ) end
|
2469
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:91"] + __e.backtrace ) ; raise __e
|
2470
|
+
end ,
|
2471
|
+
[
|
2472
|
+
Proc.new { |_clauses|
|
2473
|
+
begin
|
2474
|
+
trampCall(_clauses)
|
2475
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:145"] + __e.backtrace ) ; raise __e
|
2476
|
+
end
|
2477
|
+
} ,
|
2478
|
+
begin
|
2479
|
+
trampCall(_clauses)
|
2480
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:145"] + __e.backtrace ) ; raise __e
|
2481
|
+
end
|
2482
|
+
]
|
2483
|
+
))
|
2484
|
+
end ,
|
2485
|
+
begin
|
2486
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
2487
|
+
_cons(
|
2488
|
+
begin
|
2489
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
2490
|
+
_cons(
|
2491
|
+
true ,
|
2492
|
+
begin
|
2493
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
2494
|
+
_cons(
|
2495
|
+
begin
|
2496
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
2497
|
+
_cons(
|
2498
|
+
begin
|
2499
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2500
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212',
|
2501
|
+
begin
|
2502
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30212)
|
2503
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2504
|
+
end ,
|
2505
|
+
[
|
2506
|
+
:"raise"
|
2507
|
+
]
|
2508
|
+
))
|
2509
|
+
end ,
|
2510
|
+
begin
|
2511
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
2512
|
+
_cons(
|
2513
|
+
begin
|
2514
|
+
trampCall(_var)
|
2515
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:146"] + __e.backtrace ) ; raise __e
|
2516
|
+
end ,
|
2517
|
+
Cell.new()
|
2518
|
+
)
|
2519
|
+
end
|
2520
|
+
)
|
2521
|
+
end ,
|
2522
|
+
Cell.new()
|
2523
|
+
)
|
2524
|
+
end
|
2525
|
+
)
|
2526
|
+
end ,
|
2527
|
+
Cell.new()
|
2528
|
+
)
|
2471
2529
|
end
|
2472
2530
|
]
|
2473
2531
|
))
|
@@ -2481,13 +2539,13 @@ trampCall(
|
|
2481
2539
|
begin
|
2482
2540
|
embedBacktraceInfo( "", 1 );
|
2483
2541
|
_cdr(
|
2484
|
-
|
2542
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30219
|
2485
2543
|
)
|
2486
2544
|
end
|
2487
2545
|
)
|
2488
2546
|
end
|
2489
2547
|
} ; ___lambda.call(
|
2490
|
-
|
2548
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30222
|
2491
2549
|
)
|
2492
2550
|
end
|
2493
2551
|
else
|
@@ -2497,20 +2555,20 @@ trampCall(
|
|
2497
2555
|
begin
|
2498
2556
|
embedBacktraceInfo( "", 1 );
|
2499
2557
|
_cdr(
|
2500
|
-
|
2558
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30220
|
2501
2559
|
)
|
2502
2560
|
end
|
2503
2561
|
)
|
2504
2562
|
end
|
2505
2563
|
} ; ___lambda.call(
|
2506
|
-
|
2564
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30221
|
2507
2565
|
)
|
2508
2566
|
end
|
2509
2567
|
} ; ___lambda.call(
|
2510
2568
|
begin
|
2511
2569
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2512
2570
|
_car(
|
2513
|
-
|
2571
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30220
|
2514
2572
|
)
|
2515
2573
|
end
|
2516
2574
|
)
|
@@ -2522,7 +2580,7 @@ trampCall(
|
|
2522
2580
|
begin
|
2523
2581
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2524
2582
|
_car(
|
2525
|
-
|
2583
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30219
|
2526
2584
|
)
|
2527
2585
|
end
|
2528
2586
|
)
|
@@ -2534,7 +2592,7 @@ trampCall(
|
|
2534
2592
|
begin
|
2535
2593
|
embedBacktraceInfo( "", 1 );
|
2536
2594
|
_cdr(
|
2537
|
-
|
2595
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30211
|
2538
2596
|
)
|
2539
2597
|
end
|
2540
2598
|
)
|
@@ -2566,56 +2624,56 @@ trampCall(
|
|
2566
2624
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2567
2625
|
end ,
|
2568
2626
|
[
|
2569
|
-
Proc.new { |
|
2627
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30226,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30228|
|
2570
2628
|
begin
|
2571
|
-
___lambda = lambda { |
|
2629
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30241|
|
2572
2630
|
if (
|
2573
2631
|
begin
|
2574
|
-
trampCall(
|
2632
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30241)
|
2575
2633
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2576
2634
|
end
|
2577
2635
|
) then
|
2578
2636
|
begin
|
2579
|
-
trampCall(
|
2637
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30241)
|
2580
2638
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2581
2639
|
end
|
2582
2640
|
else
|
2583
2641
|
begin
|
2584
|
-
___lambda = lambda { |
|
2642
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30242|
|
2585
2643
|
if (
|
2586
2644
|
begin
|
2587
|
-
trampCall(
|
2645
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30242)
|
2588
2646
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2589
2647
|
end
|
2590
2648
|
) then
|
2591
2649
|
begin
|
2592
|
-
trampCall(
|
2650
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30242)
|
2593
2651
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2594
2652
|
end
|
2595
2653
|
else
|
2596
2654
|
begin
|
2597
|
-
___lambda = lambda { |
|
2655
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30243|
|
2598
2656
|
if (
|
2599
2657
|
begin
|
2600
|
-
trampCall(
|
2658
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30243)
|
2601
2659
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2602
2660
|
end
|
2603
2661
|
) then
|
2604
2662
|
begin
|
2605
|
-
trampCall(
|
2663
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30243)
|
2606
2664
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2607
2665
|
end
|
2608
2666
|
else
|
2609
2667
|
begin
|
2610
|
-
___lambda = lambda { |
|
2668
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30244|
|
2611
2669
|
if (
|
2612
2670
|
begin
|
2613
|
-
trampCall(
|
2671
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30244)
|
2614
2672
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2615
2673
|
end
|
2616
2674
|
) then
|
2617
2675
|
begin
|
2618
|
-
trampCall(
|
2676
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30244)
|
2619
2677
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2620
2678
|
end
|
2621
2679
|
else
|
@@ -2635,13 +2693,13 @@ trampCall(
|
|
2635
2693
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2636
2694
|
end ,
|
2637
2695
|
[
|
2638
|
-
|
2696
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30226
|
2639
2697
|
]
|
2640
2698
|
))
|
2641
2699
|
end
|
2642
2700
|
)
|
2643
2701
|
rescue => __e
|
2644
|
-
__e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
2702
|
+
__e.set_backtrace( ["./lib/nendo/experimental.nnd:153"] + __e.backtrace )
|
2645
2703
|
raise __e
|
2646
2704
|
end
|
2647
2705
|
)
|
@@ -2649,7 +2707,7 @@ trampCall(
|
|
2649
2707
|
end
|
2650
2708
|
} ; ___lambda.call(
|
2651
2709
|
begin
|
2652
|
-
___lambda = lambda { |
|
2710
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30238|
|
2653
2711
|
if (
|
2654
2712
|
begin
|
2655
2713
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2661,7 +2719,7 @@ trampCall(
|
|
2661
2719
|
begin
|
2662
2720
|
embedBacktraceInfo( "", 1 );
|
2663
2721
|
_pair_QUMARK(
|
2664
|
-
|
2722
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30238
|
2665
2723
|
)
|
2666
2724
|
end
|
2667
2725
|
)
|
@@ -2670,11 +2728,11 @@ trampCall(
|
|
2670
2728
|
end
|
2671
2729
|
) then
|
2672
2730
|
begin
|
2673
|
-
___lambda = lambda { |
|
2731
|
+
___lambda = lambda { |__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30239|
|
2674
2732
|
begin
|
2675
2733
|
___lambda = lambda { |_var_MIMARKclauses|
|
2676
2734
|
begin
|
2677
|
-
___lambda = lambda { |
|
2735
|
+
___lambda = lambda { |__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30240|
|
2678
2736
|
if (
|
2679
2737
|
begin
|
2680
2738
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2693,7 +2751,7 @@ trampCall(
|
|
2693
2751
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
2694
2752
|
end ,
|
2695
2753
|
[
|
2696
|
-
|
2754
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30240
|
2697
2755
|
]
|
2698
2756
|
))
|
2699
2757
|
end
|
@@ -2709,9 +2767,9 @@ trampCall(
|
|
2709
2767
|
_cons(
|
2710
2768
|
begin
|
2711
2769
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2712
|
-
trampCall( callProcedure( '
|
2770
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227',
|
2713
2771
|
begin
|
2714
|
-
trampCall(
|
2772
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227)
|
2715
2773
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2716
2774
|
end ,
|
2717
2775
|
[
|
@@ -2727,9 +2785,9 @@ trampCall(
|
|
2727
2785
|
_cons(
|
2728
2786
|
begin
|
2729
2787
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2730
|
-
trampCall( callProcedure( '
|
2788
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227',
|
2731
2789
|
begin
|
2732
|
-
trampCall(
|
2790
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227)
|
2733
2791
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2734
2792
|
end ,
|
2735
2793
|
[
|
@@ -2742,7 +2800,7 @@ trampCall(
|
|
2742
2800
|
_cons(
|
2743
2801
|
begin
|
2744
2802
|
trampCall(_var_MIMARKclauses)
|
2745
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
2803
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:159"] + __e.backtrace ) ; raise __e
|
2746
2804
|
end ,
|
2747
2805
|
Cell.new()
|
2748
2806
|
)
|
@@ -2757,9 +2815,9 @@ trampCall(
|
|
2757
2815
|
_cons(
|
2758
2816
|
begin
|
2759
2817
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2760
|
-
trampCall( callProcedure( '
|
2818
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227',
|
2761
2819
|
begin
|
2762
|
-
trampCall(
|
2820
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227)
|
2763
2821
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2764
2822
|
end ,
|
2765
2823
|
[
|
@@ -2772,7 +2830,7 @@ trampCall(
|
|
2772
2830
|
_cons(
|
2773
2831
|
begin
|
2774
2832
|
trampCall(_var_MIMARKclauses)
|
2775
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
2833
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:159"] + __e.backtrace ) ; raise __e
|
2776
2834
|
end ,
|
2777
2835
|
Cell.new()
|
2778
2836
|
)
|
@@ -2792,12 +2850,12 @@ trampCall(
|
|
2792
2850
|
Proc.new { |_body|
|
2793
2851
|
begin
|
2794
2852
|
trampCall(_body)
|
2795
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
2853
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:160"] + __e.backtrace ) ; raise __e
|
2796
2854
|
end
|
2797
2855
|
} ,
|
2798
2856
|
begin
|
2799
2857
|
trampCall(_body)
|
2800
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
2858
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:160"] + __e.backtrace ) ; raise __e
|
2801
2859
|
end
|
2802
2860
|
]
|
2803
2861
|
))
|
@@ -2809,7 +2867,7 @@ trampCall(
|
|
2809
2867
|
)
|
2810
2868
|
end
|
2811
2869
|
} ; ___lambda.call(
|
2812
|
-
|
2870
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30240
|
2813
2871
|
)
|
2814
2872
|
end
|
2815
2873
|
else
|
@@ -2819,20 +2877,20 @@ trampCall(
|
|
2819
2877
|
begin
|
2820
2878
|
embedBacktraceInfo( "", 1 );
|
2821
2879
|
_cdr(
|
2822
|
-
|
2880
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30238
|
2823
2881
|
)
|
2824
2882
|
end
|
2825
2883
|
)
|
2826
2884
|
end
|
2827
2885
|
} ; ___lambda.call(
|
2828
|
-
|
2886
|
+
__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30239
|
2829
2887
|
)
|
2830
2888
|
end
|
2831
2889
|
} ; ___lambda.call(
|
2832
2890
|
begin
|
2833
2891
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2834
2892
|
_car(
|
2835
|
-
|
2893
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30238
|
2836
2894
|
)
|
2837
2895
|
end
|
2838
2896
|
)
|
@@ -2844,7 +2902,7 @@ trampCall(
|
|
2844
2902
|
begin
|
2845
2903
|
embedBacktraceInfo( "", 1 );
|
2846
2904
|
_cdr(
|
2847
|
-
|
2905
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30226
|
2848
2906
|
)
|
2849
2907
|
end
|
2850
2908
|
)
|
@@ -2854,7 +2912,7 @@ trampCall(
|
|
2854
2912
|
end
|
2855
2913
|
} ; ___lambda.call(
|
2856
2914
|
begin
|
2857
|
-
___lambda = lambda { |
|
2915
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30235|
|
2858
2916
|
if (
|
2859
2917
|
begin
|
2860
2918
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2866,7 +2924,7 @@ trampCall(
|
|
2866
2924
|
begin
|
2867
2925
|
embedBacktraceInfo( "", 1 );
|
2868
2926
|
_pair_QUMARK(
|
2869
|
-
|
2927
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30235
|
2870
2928
|
)
|
2871
2929
|
end
|
2872
2930
|
)
|
@@ -2875,11 +2933,11 @@ trampCall(
|
|
2875
2933
|
end
|
2876
2934
|
) then
|
2877
2935
|
begin
|
2878
|
-
___lambda = lambda { |
|
2936
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30236|
|
2879
2937
|
begin
|
2880
2938
|
___lambda = lambda { |_var_MIMARKclauses|
|
2881
2939
|
begin
|
2882
|
-
___lambda = lambda { |
|
2940
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30237|
|
2883
2941
|
if (
|
2884
2942
|
begin
|
2885
2943
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2891,7 +2949,7 @@ trampCall(
|
|
2891
2949
|
begin
|
2892
2950
|
embedBacktraceInfo( "", 1 );
|
2893
2951
|
_null_QUMARK(
|
2894
|
-
|
2952
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30237
|
2895
2953
|
)
|
2896
2954
|
end
|
2897
2955
|
)
|
@@ -2904,9 +2962,9 @@ trampCall(
|
|
2904
2962
|
_cons(
|
2905
2963
|
begin
|
2906
2964
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2907
|
-
trampCall( callProcedure( '
|
2965
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227',
|
2908
2966
|
begin
|
2909
|
-
trampCall(
|
2967
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227)
|
2910
2968
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2911
2969
|
end ,
|
2912
2970
|
[
|
@@ -2930,20 +2988,20 @@ trampCall(
|
|
2930
2988
|
begin
|
2931
2989
|
embedBacktraceInfo( "", 1 );
|
2932
2990
|
_cdr(
|
2933
|
-
|
2991
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30235
|
2934
2992
|
)
|
2935
2993
|
end
|
2936
2994
|
)
|
2937
2995
|
end
|
2938
2996
|
} ; ___lambda.call(
|
2939
|
-
|
2997
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30236
|
2940
2998
|
)
|
2941
2999
|
end
|
2942
3000
|
} ; ___lambda.call(
|
2943
3001
|
begin
|
2944
3002
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
2945
3003
|
_car(
|
2946
|
-
|
3004
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30235
|
2947
3005
|
)
|
2948
3006
|
end
|
2949
3007
|
)
|
@@ -2955,7 +3013,7 @@ trampCall(
|
|
2955
3013
|
begin
|
2956
3014
|
embedBacktraceInfo( "", 1 );
|
2957
3015
|
_cdr(
|
2958
|
-
|
3016
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30226
|
2959
3017
|
)
|
2960
3018
|
end
|
2961
3019
|
)
|
@@ -2965,7 +3023,7 @@ trampCall(
|
|
2965
3023
|
end
|
2966
3024
|
} ; ___lambda.call(
|
2967
3025
|
begin
|
2968
|
-
___lambda = lambda { |
|
3026
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30234|
|
2969
3027
|
if (
|
2970
3028
|
begin
|
2971
3029
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -2977,7 +3035,7 @@ trampCall(
|
|
2977
3035
|
begin
|
2978
3036
|
embedBacktraceInfo( "", 1 );
|
2979
3037
|
_null_QUMARK(
|
2980
|
-
|
3038
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30234
|
2981
3039
|
)
|
2982
3040
|
end
|
2983
3041
|
)
|
@@ -2990,9 +3048,9 @@ trampCall(
|
|
2990
3048
|
_cons(
|
2991
3049
|
begin
|
2992
3050
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
2993
|
-
trampCall( callProcedure( '
|
3051
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227',
|
2994
3052
|
begin
|
2995
|
-
trampCall(
|
3053
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30227)
|
2996
3054
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
2997
3055
|
end ,
|
2998
3056
|
[
|
@@ -3016,7 +3074,7 @@ trampCall(
|
|
3016
3074
|
begin
|
3017
3075
|
embedBacktraceInfo( "", 1 );
|
3018
3076
|
_cdr(
|
3019
|
-
|
3077
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30226
|
3020
3078
|
)
|
3021
3079
|
end
|
3022
3080
|
)
|
@@ -3048,56 +3106,56 @@ trampCall(
|
|
3048
3106
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3049
3107
|
end ,
|
3050
3108
|
[
|
3051
|
-
Proc.new { |
|
3109
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30245,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30247|
|
3052
3110
|
begin
|
3053
|
-
___lambda = lambda { |
|
3111
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30262|
|
3054
3112
|
if (
|
3055
3113
|
begin
|
3056
|
-
trampCall(
|
3114
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30262)
|
3057
3115
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3058
3116
|
end
|
3059
3117
|
) then
|
3060
3118
|
begin
|
3061
|
-
trampCall(
|
3119
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30262)
|
3062
3120
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3063
3121
|
end
|
3064
3122
|
else
|
3065
3123
|
begin
|
3066
|
-
___lambda = lambda { |
|
3124
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30263|
|
3067
3125
|
if (
|
3068
3126
|
begin
|
3069
|
-
trampCall(
|
3127
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30263)
|
3070
3128
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3071
3129
|
end
|
3072
3130
|
) then
|
3073
3131
|
begin
|
3074
|
-
trampCall(
|
3132
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30263)
|
3075
3133
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3076
3134
|
end
|
3077
3135
|
else
|
3078
3136
|
begin
|
3079
|
-
___lambda = lambda { |
|
3137
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30264|
|
3080
3138
|
if (
|
3081
3139
|
begin
|
3082
|
-
trampCall(
|
3140
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30264)
|
3083
3141
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3084
3142
|
end
|
3085
3143
|
) then
|
3086
3144
|
begin
|
3087
|
-
trampCall(
|
3145
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30264)
|
3088
3146
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3089
3147
|
end
|
3090
3148
|
else
|
3091
3149
|
begin
|
3092
|
-
___lambda = lambda { |
|
3150
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30265|
|
3093
3151
|
if (
|
3094
3152
|
begin
|
3095
|
-
trampCall(
|
3153
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30265)
|
3096
3154
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3097
3155
|
end
|
3098
3156
|
) then
|
3099
3157
|
begin
|
3100
|
-
trampCall(
|
3158
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30265)
|
3101
3159
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3102
3160
|
end
|
3103
3161
|
else
|
@@ -3117,13 +3175,13 @@ trampCall(
|
|
3117
3175
|
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3118
3176
|
end ,
|
3119
3177
|
[
|
3120
|
-
|
3178
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30245
|
3121
3179
|
]
|
3122
3180
|
))
|
3123
3181
|
end
|
3124
3182
|
)
|
3125
3183
|
rescue => __e
|
3126
|
-
__e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
3184
|
+
__e.set_backtrace( ["./lib/nendo/experimental.nnd:169"] + __e.backtrace )
|
3127
3185
|
raise __e
|
3128
3186
|
end
|
3129
3187
|
)
|
@@ -3131,7 +3189,7 @@ trampCall(
|
|
3131
3189
|
end
|
3132
3190
|
} ; ___lambda.call(
|
3133
3191
|
begin
|
3134
|
-
___lambda = lambda { |
|
3192
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30257|
|
3135
3193
|
if (
|
3136
3194
|
begin
|
3137
3195
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3143,7 +3201,7 @@ trampCall(
|
|
3143
3201
|
begin
|
3144
3202
|
embedBacktraceInfo( "", 1 );
|
3145
3203
|
_pair_QUMARK(
|
3146
|
-
|
3204
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30257
|
3147
3205
|
)
|
3148
3206
|
end
|
3149
3207
|
)
|
@@ -3152,11 +3210,11 @@ trampCall(
|
|
3152
3210
|
end
|
3153
3211
|
) then
|
3154
3212
|
begin
|
3155
|
-
___lambda = lambda { |
|
3213
|
+
___lambda = lambda { |__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30258|
|
3156
3214
|
begin
|
3157
3215
|
___lambda = lambda { |_body|
|
3158
3216
|
begin
|
3159
|
-
___lambda = lambda { |
|
3217
|
+
___lambda = lambda { |__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30259|
|
3160
3218
|
if (
|
3161
3219
|
begin
|
3162
3220
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3168,7 +3226,7 @@ trampCall(
|
|
3168
3226
|
begin
|
3169
3227
|
embedBacktraceInfo( "", 1 );
|
3170
3228
|
_pair_QUMARK(
|
3171
|
-
|
3229
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30259
|
3172
3230
|
)
|
3173
3231
|
end
|
3174
3232
|
)
|
@@ -3177,11 +3235,11 @@ trampCall(
|
|
3177
3235
|
end
|
3178
3236
|
) then
|
3179
3237
|
begin
|
3180
|
-
___lambda = lambda { |
|
3238
|
+
___lambda = lambda { |__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30260|
|
3181
3239
|
begin
|
3182
3240
|
___lambda = lambda { |_cleanup|
|
3183
3241
|
begin
|
3184
|
-
___lambda = lambda { |
|
3242
|
+
___lambda = lambda { |__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30261|
|
3185
3243
|
if (
|
3186
3244
|
begin
|
3187
3245
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3193,7 +3251,7 @@ trampCall(
|
|
3193
3251
|
begin
|
3194
3252
|
embedBacktraceInfo( "", 1 );
|
3195
3253
|
_null_QUMARK(
|
3196
|
-
|
3254
|
+
__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30261
|
3197
3255
|
)
|
3198
3256
|
end
|
3199
3257
|
)
|
@@ -3206,9 +3264,9 @@ trampCall(
|
|
3206
3264
|
_cons(
|
3207
3265
|
begin
|
3208
3266
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3209
|
-
trampCall( callProcedure( '
|
3267
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3210
3268
|
begin
|
3211
|
-
trampCall(
|
3269
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3212
3270
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3213
3271
|
end ,
|
3214
3272
|
[
|
@@ -3221,9 +3279,9 @@ trampCall(
|
|
3221
3279
|
_cons(
|
3222
3280
|
begin
|
3223
3281
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3224
|
-
trampCall( callProcedure( '
|
3282
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3225
3283
|
begin
|
3226
|
-
trampCall(
|
3284
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3227
3285
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3228
3286
|
end ,
|
3229
3287
|
[
|
@@ -3243,9 +3301,9 @@ trampCall(
|
|
3243
3301
|
_cons(
|
3244
3302
|
begin
|
3245
3303
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3246
|
-
trampCall( callProcedure( '
|
3304
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3247
3305
|
begin
|
3248
|
-
trampCall(
|
3306
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3249
3307
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3250
3308
|
end ,
|
3251
3309
|
[
|
@@ -3261,9 +3319,9 @@ trampCall(
|
|
3261
3319
|
_cons(
|
3262
3320
|
begin
|
3263
3321
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3264
|
-
trampCall( callProcedure( '
|
3322
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3265
3323
|
begin
|
3266
|
-
trampCall(
|
3324
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3267
3325
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3268
3326
|
end ,
|
3269
3327
|
[
|
@@ -3286,9 +3344,9 @@ trampCall(
|
|
3286
3344
|
_cons(
|
3287
3345
|
begin
|
3288
3346
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3289
|
-
trampCall( callProcedure( '
|
3347
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3290
3348
|
begin
|
3291
|
-
trampCall(
|
3349
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3292
3350
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3293
3351
|
end ,
|
3294
3352
|
[
|
@@ -3301,16 +3359,16 @@ trampCall(
|
|
3301
3359
|
_cons(
|
3302
3360
|
begin
|
3303
3361
|
trampCall(_cleanup)
|
3304
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
3362
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:177"] + __e.backtrace ) ; raise __e
|
3305
3363
|
end ,
|
3306
3364
|
begin
|
3307
3365
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
3308
3366
|
_cons(
|
3309
3367
|
begin
|
3310
3368
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3311
|
-
trampCall( callProcedure( '
|
3369
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3312
3370
|
begin
|
3313
|
-
trampCall(
|
3371
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3314
3372
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3315
3373
|
end ,
|
3316
3374
|
[
|
@@ -3343,9 +3401,9 @@ trampCall(
|
|
3343
3401
|
_cons(
|
3344
3402
|
begin
|
3345
3403
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3346
|
-
trampCall( callProcedure( '
|
3404
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3347
3405
|
begin
|
3348
|
-
trampCall(
|
3406
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3349
3407
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3350
3408
|
end ,
|
3351
3409
|
[
|
@@ -3361,9 +3419,9 @@ trampCall(
|
|
3361
3419
|
_cons(
|
3362
3420
|
begin
|
3363
3421
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3364
|
-
trampCall( callProcedure( '
|
3422
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3365
3423
|
begin
|
3366
|
-
trampCall(
|
3424
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3367
3425
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3368
3426
|
end ,
|
3369
3427
|
[
|
@@ -3376,9 +3434,9 @@ trampCall(
|
|
3376
3434
|
_cons(
|
3377
3435
|
begin
|
3378
3436
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3379
|
-
trampCall( callProcedure( '
|
3437
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3380
3438
|
begin
|
3381
|
-
trampCall(
|
3439
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3382
3440
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3383
3441
|
end ,
|
3384
3442
|
[
|
@@ -3391,7 +3449,7 @@ trampCall(
|
|
3391
3449
|
_cons(
|
3392
3450
|
begin
|
3393
3451
|
trampCall(_body)
|
3394
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
3452
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:176"] + __e.backtrace ) ; raise __e
|
3395
3453
|
end ,
|
3396
3454
|
Cell.new()
|
3397
3455
|
)
|
@@ -3405,7 +3463,7 @@ trampCall(
|
|
3405
3463
|
_cons(
|
3406
3464
|
begin
|
3407
3465
|
trampCall(_cleanup)
|
3408
|
-
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:
|
3466
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:177"] + __e.backtrace ) ; raise __e
|
3409
3467
|
end ,
|
3410
3468
|
Cell.new()
|
3411
3469
|
)
|
@@ -3437,20 +3495,20 @@ trampCall(
|
|
3437
3495
|
begin
|
3438
3496
|
embedBacktraceInfo( "", 1 );
|
3439
3497
|
_cdr(
|
3440
|
-
|
3498
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30259
|
3441
3499
|
)
|
3442
3500
|
end
|
3443
3501
|
)
|
3444
3502
|
end
|
3445
3503
|
} ; ___lambda.call(
|
3446
|
-
|
3504
|
+
__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30260
|
3447
3505
|
)
|
3448
3506
|
end
|
3449
3507
|
} ; ___lambda.call(
|
3450
3508
|
begin
|
3451
3509
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
3452
3510
|
_car(
|
3453
|
-
|
3511
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30259
|
3454
3512
|
)
|
3455
3513
|
end
|
3456
3514
|
)
|
@@ -3462,20 +3520,20 @@ trampCall(
|
|
3462
3520
|
begin
|
3463
3521
|
embedBacktraceInfo( "", 1 );
|
3464
3522
|
_cdr(
|
3465
|
-
|
3523
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30257
|
3466
3524
|
)
|
3467
3525
|
end
|
3468
3526
|
)
|
3469
3527
|
end
|
3470
3528
|
} ; ___lambda.call(
|
3471
|
-
|
3529
|
+
__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30258
|
3472
3530
|
)
|
3473
3531
|
end
|
3474
3532
|
} ; ___lambda.call(
|
3475
3533
|
begin
|
3476
3534
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
3477
3535
|
_car(
|
3478
|
-
|
3536
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30257
|
3479
3537
|
)
|
3480
3538
|
end
|
3481
3539
|
)
|
@@ -3487,7 +3545,7 @@ trampCall(
|
|
3487
3545
|
begin
|
3488
3546
|
embedBacktraceInfo( "", 1 );
|
3489
3547
|
_cdr(
|
3490
|
-
|
3548
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30245
|
3491
3549
|
)
|
3492
3550
|
end
|
3493
3551
|
)
|
@@ -3497,7 +3555,7 @@ trampCall(
|
|
3497
3555
|
end
|
3498
3556
|
} ; ___lambda.call(
|
3499
3557
|
begin
|
3500
|
-
___lambda = lambda { |
|
3558
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30254|
|
3501
3559
|
if (
|
3502
3560
|
begin
|
3503
3561
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3509,7 +3567,7 @@ trampCall(
|
|
3509
3567
|
begin
|
3510
3568
|
embedBacktraceInfo( "", 1 );
|
3511
3569
|
_pair_QUMARK(
|
3512
|
-
|
3570
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30254
|
3513
3571
|
)
|
3514
3572
|
end
|
3515
3573
|
)
|
@@ -3518,11 +3576,11 @@ trampCall(
|
|
3518
3576
|
end
|
3519
3577
|
) then
|
3520
3578
|
begin
|
3521
|
-
___lambda = lambda { |
|
3579
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30255|
|
3522
3580
|
begin
|
3523
3581
|
___lambda = lambda { |_body|
|
3524
3582
|
begin
|
3525
|
-
___lambda = lambda { |
|
3583
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30256|
|
3526
3584
|
if (
|
3527
3585
|
begin
|
3528
3586
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3534,7 +3592,7 @@ trampCall(
|
|
3534
3592
|
begin
|
3535
3593
|
embedBacktraceInfo( "", 1 );
|
3536
3594
|
_null_QUMARK(
|
3537
|
-
|
3595
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30256
|
3538
3596
|
)
|
3539
3597
|
end
|
3540
3598
|
)
|
@@ -3547,9 +3605,9 @@ trampCall(
|
|
3547
3605
|
_cons(
|
3548
3606
|
begin
|
3549
3607
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3550
|
-
trampCall( callProcedure( '
|
3608
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3551
3609
|
begin
|
3552
|
-
trampCall(
|
3610
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3553
3611
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3554
3612
|
end ,
|
3555
3613
|
[
|
@@ -3573,20 +3631,20 @@ trampCall(
|
|
3573
3631
|
begin
|
3574
3632
|
embedBacktraceInfo( "", 1 );
|
3575
3633
|
_cdr(
|
3576
|
-
|
3634
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30254
|
3577
3635
|
)
|
3578
3636
|
end
|
3579
3637
|
)
|
3580
3638
|
end
|
3581
3639
|
} ; ___lambda.call(
|
3582
|
-
|
3640
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30255
|
3583
3641
|
)
|
3584
3642
|
end
|
3585
3643
|
} ; ___lambda.call(
|
3586
3644
|
begin
|
3587
3645
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
3588
3646
|
_car(
|
3589
|
-
|
3647
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30254
|
3590
3648
|
)
|
3591
3649
|
end
|
3592
3650
|
)
|
@@ -3598,7 +3656,7 @@ trampCall(
|
|
3598
3656
|
begin
|
3599
3657
|
embedBacktraceInfo( "", 1 );
|
3600
3658
|
_cdr(
|
3601
|
-
|
3659
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30245
|
3602
3660
|
)
|
3603
3661
|
end
|
3604
3662
|
)
|
@@ -3608,7 +3666,7 @@ trampCall(
|
|
3608
3666
|
end
|
3609
3667
|
} ; ___lambda.call(
|
3610
3668
|
begin
|
3611
|
-
___lambda = lambda { |
|
3669
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30253|
|
3612
3670
|
if (
|
3613
3671
|
begin
|
3614
3672
|
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
@@ -3620,7 +3678,7 @@ trampCall(
|
|
3620
3678
|
begin
|
3621
3679
|
embedBacktraceInfo( "", 1 );
|
3622
3680
|
_null_QUMARK(
|
3623
|
-
|
3681
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30253
|
3624
3682
|
)
|
3625
3683
|
end
|
3626
3684
|
)
|
@@ -3633,9 +3691,9 @@ trampCall(
|
|
3633
3691
|
_cons(
|
3634
3692
|
begin
|
3635
3693
|
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
3636
|
-
trampCall( callProcedure( '
|
3694
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246',
|
3637
3695
|
begin
|
3638
|
-
trampCall(
|
3696
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30246)
|
3639
3697
|
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
3640
3698
|
end ,
|
3641
3699
|
[
|
@@ -3659,7 +3717,1795 @@ trampCall(
|
|
3659
3717
|
begin
|
3660
3718
|
embedBacktraceInfo( "", 1 );
|
3661
3719
|
_cdr(
|
3662
|
-
|
3720
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30245
|
3721
|
+
)
|
3722
|
+
end
|
3723
|
+
)
|
3724
|
+
end
|
3725
|
+
)
|
3726
|
+
end
|
3727
|
+
}
|
3728
|
+
]
|
3729
|
+
))
|
3730
|
+
end
|
3731
|
+
)
|
3732
|
+
end
|
3733
|
+
)
|
3734
|
+
#--------------------
|
3735
|
+
|
3736
|
+
trampCall(
|
3737
|
+
begin
|
3738
|
+
def self._nendo_MIMARKsyntax_MIMARKerror_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_nendo_MIMARKsyntax_MIMARKerror', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
3739
|
+
@global_lisp_binding['_nendo_MIMARKsyntax_MIMARKerror'] = self.method( :_nendo_MIMARKsyntax_MIMARKerror_METHOD )
|
3740
|
+
@_nendo_MIMARKsyntax_MIMARKerror =
|
3741
|
+
trampCall(
|
3742
|
+
begin
|
3743
|
+
trampCall(SyntaxError)
|
3744
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:181"] + __e.backtrace ) ; raise __e
|
3745
|
+
end
|
3746
|
+
)
|
3747
|
+
end
|
3748
|
+
)
|
3749
|
+
#--------------------
|
3750
|
+
|
3751
|
+
trampCall(
|
3752
|
+
begin
|
3753
|
+
def self._let1_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( '_let1', origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
|
3754
|
+
@global_lisp_binding['_let1'] = self.method( :_let1_METHOD )
|
3755
|
+
@_let1 =
|
3756
|
+
trampCall(
|
3757
|
+
begin
|
3758
|
+
embedBacktraceInfo( "", 1 );
|
3759
|
+
trampCall( self._er_MIMARKmacro_MIMARKtransformer_METHOD( 'er-macro-transformer',
|
3760
|
+
begin
|
3761
|
+
if @global_lisp_binding.has_key?('_er_MIMARKmacro_MIMARKtransformer') then
|
3762
|
+
trampCall(@_er_MIMARKmacro_MIMARKtransformer)
|
3763
|
+
else raise NameError.new( "Error: undefined variable _er_MIMARKmacro_MIMARKtransformer", "_er_MIMARKmacro_MIMARKtransformer" ) end
|
3764
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3765
|
+
end ,
|
3766
|
+
[
|
3767
|
+
Proc.new { |__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266,__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267,__compare__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30268|
|
3768
|
+
begin
|
3769
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30314|
|
3770
|
+
if (
|
3771
|
+
begin
|
3772
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30314)
|
3773
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3774
|
+
end
|
3775
|
+
) then
|
3776
|
+
begin
|
3777
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30314)
|
3778
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3779
|
+
end
|
3780
|
+
else
|
3781
|
+
begin
|
3782
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30315|
|
3783
|
+
if (
|
3784
|
+
begin
|
3785
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30315)
|
3786
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3787
|
+
end
|
3788
|
+
) then
|
3789
|
+
begin
|
3790
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30315)
|
3791
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3792
|
+
end
|
3793
|
+
else
|
3794
|
+
begin
|
3795
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30316|
|
3796
|
+
if (
|
3797
|
+
begin
|
3798
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30316)
|
3799
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3800
|
+
end
|
3801
|
+
) then
|
3802
|
+
begin
|
3803
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30316)
|
3804
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3805
|
+
end
|
3806
|
+
else
|
3807
|
+
begin
|
3808
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30317|
|
3809
|
+
if (
|
3810
|
+
begin
|
3811
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30317)
|
3812
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3813
|
+
end
|
3814
|
+
) then
|
3815
|
+
begin
|
3816
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30317)
|
3817
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3818
|
+
end
|
3819
|
+
else
|
3820
|
+
begin
|
3821
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30318|
|
3822
|
+
if (
|
3823
|
+
begin
|
3824
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30318)
|
3825
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3826
|
+
end
|
3827
|
+
) then
|
3828
|
+
begin
|
3829
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30318)
|
3830
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3831
|
+
end
|
3832
|
+
else
|
3833
|
+
begin
|
3834
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30319|
|
3835
|
+
if (
|
3836
|
+
begin
|
3837
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30319)
|
3838
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3839
|
+
end
|
3840
|
+
) then
|
3841
|
+
begin
|
3842
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30319)
|
3843
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3844
|
+
end
|
3845
|
+
else
|
3846
|
+
begin
|
3847
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30320|
|
3848
|
+
if (
|
3849
|
+
begin
|
3850
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30320)
|
3851
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3852
|
+
end
|
3853
|
+
) then
|
3854
|
+
begin
|
3855
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30320)
|
3856
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3857
|
+
end
|
3858
|
+
else
|
3859
|
+
begin
|
3860
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30321|
|
3861
|
+
if (
|
3862
|
+
begin
|
3863
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30321)
|
3864
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3865
|
+
end
|
3866
|
+
) then
|
3867
|
+
begin
|
3868
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30321)
|
3869
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3870
|
+
end
|
3871
|
+
else
|
3872
|
+
begin
|
3873
|
+
___lambda = lambda { |___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30322|
|
3874
|
+
if (
|
3875
|
+
begin
|
3876
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30322)
|
3877
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3878
|
+
end
|
3879
|
+
) then
|
3880
|
+
begin
|
3881
|
+
trampCall(___gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30322)
|
3882
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3883
|
+
end
|
3884
|
+
else
|
3885
|
+
false
|
3886
|
+
end
|
3887
|
+
} ; ___lambda.call(
|
3888
|
+
begin raise RuntimeError,
|
3889
|
+
"no expansion for" ' ' +
|
3890
|
+
_write_MIMARKto_MIMARKstring(
|
3891
|
+
begin
|
3892
|
+
embedBacktraceInfo( "", 1 );
|
3893
|
+
trampCall( self._strip_MIMARKsyntactic_MIMARKclosures_METHOD( 'strip-syntactic-closures',
|
3894
|
+
begin
|
3895
|
+
if @global_lisp_binding.has_key?('_strip_MIMARKsyntactic_MIMARKclosures') then
|
3896
|
+
trampCall(@_strip_MIMARKsyntactic_MIMARKclosures)
|
3897
|
+
else raise NameError.new( "Error: undefined variable _strip_MIMARKsyntactic_MIMARKclosures", "_strip_MIMARKsyntactic_MIMARKclosures" ) end
|
3898
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3899
|
+
end ,
|
3900
|
+
[
|
3901
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
3902
|
+
]
|
3903
|
+
))
|
3904
|
+
end
|
3905
|
+
)
|
3906
|
+
rescue => __e
|
3907
|
+
__e.set_backtrace( ["./lib/nendo/experimental.nnd:169"] + __e.backtrace )
|
3908
|
+
raise __e
|
3909
|
+
end
|
3910
|
+
)
|
3911
|
+
end
|
3912
|
+
end
|
3913
|
+
} ; ___lambda.call(
|
3914
|
+
begin
|
3915
|
+
___lambda = lambda { |__v__36__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30309|
|
3916
|
+
if (
|
3917
|
+
begin
|
3918
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
3919
|
+
_not(
|
3920
|
+
begin
|
3921
|
+
embedBacktraceInfo( "", 1 );
|
3922
|
+
_eq_QUMARK(
|
3923
|
+
false ,
|
3924
|
+
begin
|
3925
|
+
embedBacktraceInfo( "", 1 );
|
3926
|
+
_pair_QUMARK(
|
3927
|
+
__v__36__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30309
|
3928
|
+
)
|
3929
|
+
end
|
3930
|
+
)
|
3931
|
+
end
|
3932
|
+
)
|
3933
|
+
end
|
3934
|
+
) then
|
3935
|
+
begin
|
3936
|
+
___lambda = lambda { |__v__37__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30310|
|
3937
|
+
begin
|
3938
|
+
___lambda = lambda { |_var|
|
3939
|
+
begin
|
3940
|
+
___lambda = lambda { |__v__38__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30311|
|
3941
|
+
if (
|
3942
|
+
begin
|
3943
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
3944
|
+
_not(
|
3945
|
+
begin
|
3946
|
+
embedBacktraceInfo( "", 1 );
|
3947
|
+
_eq_QUMARK(
|
3948
|
+
false ,
|
3949
|
+
begin
|
3950
|
+
embedBacktraceInfo( "", 1 );
|
3951
|
+
_pair_QUMARK(
|
3952
|
+
__v__38__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30311
|
3953
|
+
)
|
3954
|
+
end
|
3955
|
+
)
|
3956
|
+
end
|
3957
|
+
)
|
3958
|
+
end
|
3959
|
+
) then
|
3960
|
+
begin
|
3961
|
+
___lambda = lambda { |__v__39__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30312|
|
3962
|
+
begin
|
3963
|
+
___lambda = lambda { |_expr|
|
3964
|
+
begin
|
3965
|
+
___lambda = lambda { |__v__40__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30313|
|
3966
|
+
if (
|
3967
|
+
begin
|
3968
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
3969
|
+
_not(
|
3970
|
+
begin
|
3971
|
+
embedBacktraceInfo( "", 1 );
|
3972
|
+
_eq_QUMARK(
|
3973
|
+
false ,
|
3974
|
+
begin
|
3975
|
+
embedBacktraceInfo( "", 1 );
|
3976
|
+
trampCall( self._list_QUMARK_METHOD( 'list?',
|
3977
|
+
begin
|
3978
|
+
if @global_lisp_binding.has_key?('_list_QUMARK') then
|
3979
|
+
trampCall(@_list_QUMARK)
|
3980
|
+
else raise NameError.new( "Error: undefined variable _list_QUMARK", "_list_QUMARK" ) end
|
3981
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
3982
|
+
end ,
|
3983
|
+
[
|
3984
|
+
__v__40__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30313
|
3985
|
+
]
|
3986
|
+
))
|
3987
|
+
end
|
3988
|
+
)
|
3989
|
+
end
|
3990
|
+
)
|
3991
|
+
end
|
3992
|
+
) then
|
3993
|
+
begin
|
3994
|
+
___lambda = lambda { |_body|
|
3995
|
+
begin
|
3996
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
3997
|
+
_cons(
|
3998
|
+
begin
|
3999
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4000
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4001
|
+
begin
|
4002
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4003
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4004
|
+
end ,
|
4005
|
+
[
|
4006
|
+
:"%let"
|
4007
|
+
]
|
4008
|
+
))
|
4009
|
+
end ,
|
4010
|
+
begin
|
4011
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4012
|
+
_cons(
|
4013
|
+
begin
|
4014
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4015
|
+
_cons(
|
4016
|
+
begin
|
4017
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4018
|
+
_cons(
|
4019
|
+
begin
|
4020
|
+
trampCall(_var)
|
4021
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:199"] + __e.backtrace ) ; raise __e
|
4022
|
+
end ,
|
4023
|
+
begin
|
4024
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4025
|
+
_cons(
|
4026
|
+
begin
|
4027
|
+
trampCall(_expr)
|
4028
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:199"] + __e.backtrace ) ; raise __e
|
4029
|
+
end ,
|
4030
|
+
Cell.new()
|
4031
|
+
)
|
4032
|
+
end
|
4033
|
+
)
|
4034
|
+
end ,
|
4035
|
+
Cell.new()
|
4036
|
+
)
|
4037
|
+
end ,
|
4038
|
+
begin
|
4039
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 91 );
|
4040
|
+
trampCall( self._map_METHOD( 'map',
|
4041
|
+
begin
|
4042
|
+
if @global_lisp_binding.has_key?('_map') then
|
4043
|
+
trampCall(@_map)
|
4044
|
+
else raise NameError.new( "Error: undefined variable _map", "_map" ) end
|
4045
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:91"] + __e.backtrace ) ; raise __e
|
4046
|
+
end ,
|
4047
|
+
[
|
4048
|
+
Proc.new { |_body|
|
4049
|
+
begin
|
4050
|
+
trampCall(_body)
|
4051
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:199"] + __e.backtrace ) ; raise __e
|
4052
|
+
end
|
4053
|
+
} ,
|
4054
|
+
begin
|
4055
|
+
trampCall(_body)
|
4056
|
+
rescue => __e ; __e.set_backtrace( ["./lib/nendo/experimental.nnd:199"] + __e.backtrace ) ; raise __e
|
4057
|
+
end
|
4058
|
+
]
|
4059
|
+
))
|
4060
|
+
end
|
4061
|
+
)
|
4062
|
+
end
|
4063
|
+
)
|
4064
|
+
end
|
4065
|
+
} ; ___lambda.call(
|
4066
|
+
__v__40__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30313
|
4067
|
+
)
|
4068
|
+
end
|
4069
|
+
else
|
4070
|
+
false
|
4071
|
+
end
|
4072
|
+
} ; ___lambda.call(
|
4073
|
+
begin
|
4074
|
+
embedBacktraceInfo( "", 1 );
|
4075
|
+
_cdr(
|
4076
|
+
__v__38__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30311
|
4077
|
+
)
|
4078
|
+
end
|
4079
|
+
)
|
4080
|
+
end
|
4081
|
+
} ; ___lambda.call(
|
4082
|
+
__v__39__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30312
|
4083
|
+
)
|
4084
|
+
end
|
4085
|
+
} ; ___lambda.call(
|
4086
|
+
begin
|
4087
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4088
|
+
_car(
|
4089
|
+
__v__38__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30311
|
4090
|
+
)
|
4091
|
+
end
|
4092
|
+
)
|
4093
|
+
end
|
4094
|
+
else
|
4095
|
+
false
|
4096
|
+
end
|
4097
|
+
} ; ___lambda.call(
|
4098
|
+
begin
|
4099
|
+
embedBacktraceInfo( "", 1 );
|
4100
|
+
_cdr(
|
4101
|
+
__v__36__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30309
|
4102
|
+
)
|
4103
|
+
end
|
4104
|
+
)
|
4105
|
+
end
|
4106
|
+
} ; ___lambda.call(
|
4107
|
+
__v__37__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30310
|
4108
|
+
)
|
4109
|
+
end
|
4110
|
+
} ; ___lambda.call(
|
4111
|
+
begin
|
4112
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4113
|
+
_car(
|
4114
|
+
__v__36__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30309
|
4115
|
+
)
|
4116
|
+
end
|
4117
|
+
)
|
4118
|
+
end
|
4119
|
+
else
|
4120
|
+
false
|
4121
|
+
end
|
4122
|
+
} ; ___lambda.call(
|
4123
|
+
begin
|
4124
|
+
embedBacktraceInfo( "", 1 );
|
4125
|
+
_cdr(
|
4126
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
4127
|
+
)
|
4128
|
+
end
|
4129
|
+
)
|
4130
|
+
end
|
4131
|
+
)
|
4132
|
+
end
|
4133
|
+
end
|
4134
|
+
} ; ___lambda.call(
|
4135
|
+
begin
|
4136
|
+
___lambda = lambda { |__v__33__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30306|
|
4137
|
+
if (
|
4138
|
+
begin
|
4139
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4140
|
+
_not(
|
4141
|
+
begin
|
4142
|
+
embedBacktraceInfo( "", 1 );
|
4143
|
+
_eq_QUMARK(
|
4144
|
+
false ,
|
4145
|
+
begin
|
4146
|
+
embedBacktraceInfo( "", 1 );
|
4147
|
+
_pair_QUMARK(
|
4148
|
+
__v__33__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30306
|
4149
|
+
)
|
4150
|
+
end
|
4151
|
+
)
|
4152
|
+
end
|
4153
|
+
)
|
4154
|
+
end
|
4155
|
+
) then
|
4156
|
+
begin
|
4157
|
+
___lambda = lambda { |__v__34__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30307|
|
4158
|
+
if (
|
4159
|
+
begin
|
4160
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4161
|
+
_not(
|
4162
|
+
begin
|
4163
|
+
embedBacktraceInfo( "", 1 );
|
4164
|
+
_eq_QUMARK(
|
4165
|
+
false ,
|
4166
|
+
begin
|
4167
|
+
embedBacktraceInfo( "", 1 );
|
4168
|
+
_null_QUMARK(
|
4169
|
+
__v__34__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30307
|
4170
|
+
)
|
4171
|
+
end
|
4172
|
+
)
|
4173
|
+
end
|
4174
|
+
)
|
4175
|
+
end
|
4176
|
+
) then
|
4177
|
+
begin
|
4178
|
+
___lambda = lambda { |__v__35__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30308|
|
4179
|
+
if (
|
4180
|
+
begin
|
4181
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4182
|
+
_not(
|
4183
|
+
begin
|
4184
|
+
embedBacktraceInfo( "", 1 );
|
4185
|
+
_eq_QUMARK(
|
4186
|
+
false ,
|
4187
|
+
begin
|
4188
|
+
embedBacktraceInfo( "", 1 );
|
4189
|
+
trampCall( self._list_QUMARK_METHOD( 'list?',
|
4190
|
+
begin
|
4191
|
+
if @global_lisp_binding.has_key?('_list_QUMARK') then
|
4192
|
+
trampCall(@_list_QUMARK)
|
4193
|
+
else raise NameError.new( "Error: undefined variable _list_QUMARK", "_list_QUMARK" ) end
|
4194
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
4195
|
+
end ,
|
4196
|
+
[
|
4197
|
+
__v__35__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30308
|
4198
|
+
]
|
4199
|
+
))
|
4200
|
+
end
|
4201
|
+
)
|
4202
|
+
end
|
4203
|
+
)
|
4204
|
+
end
|
4205
|
+
) then
|
4206
|
+
begin
|
4207
|
+
___lambda = lambda { |_body|
|
4208
|
+
begin
|
4209
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4210
|
+
_cons(
|
4211
|
+
begin
|
4212
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4213
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4214
|
+
begin
|
4215
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4216
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4217
|
+
end ,
|
4218
|
+
[
|
4219
|
+
:"raise"
|
4220
|
+
]
|
4221
|
+
))
|
4222
|
+
end ,
|
4223
|
+
begin
|
4224
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4225
|
+
_cons(
|
4226
|
+
begin
|
4227
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4228
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4229
|
+
begin
|
4230
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4231
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4232
|
+
end ,
|
4233
|
+
[
|
4234
|
+
:"nendo-syntax-error"
|
4235
|
+
]
|
4236
|
+
))
|
4237
|
+
end ,
|
4238
|
+
begin
|
4239
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4240
|
+
_cons(
|
4241
|
+
"let1 requires (let1 var expr body ...) form." ,
|
4242
|
+
Cell.new()
|
4243
|
+
)
|
4244
|
+
end
|
4245
|
+
)
|
4246
|
+
end
|
4247
|
+
)
|
4248
|
+
end
|
4249
|
+
} ; ___lambda.call(
|
4250
|
+
__v__35__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30308
|
4251
|
+
)
|
4252
|
+
end
|
4253
|
+
else
|
4254
|
+
false
|
4255
|
+
end
|
4256
|
+
} ; ___lambda.call(
|
4257
|
+
begin
|
4258
|
+
embedBacktraceInfo( "", 1 );
|
4259
|
+
_cdr(
|
4260
|
+
__v__33__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30306
|
4261
|
+
)
|
4262
|
+
end
|
4263
|
+
)
|
4264
|
+
end
|
4265
|
+
else
|
4266
|
+
false
|
4267
|
+
end
|
4268
|
+
} ; ___lambda.call(
|
4269
|
+
begin
|
4270
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4271
|
+
_car(
|
4272
|
+
__v__33__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30306
|
4273
|
+
)
|
4274
|
+
end
|
4275
|
+
)
|
4276
|
+
end
|
4277
|
+
else
|
4278
|
+
false
|
4279
|
+
end
|
4280
|
+
} ; ___lambda.call(
|
4281
|
+
begin
|
4282
|
+
embedBacktraceInfo( "", 1 );
|
4283
|
+
_cdr(
|
4284
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
4285
|
+
)
|
4286
|
+
end
|
4287
|
+
)
|
4288
|
+
end
|
4289
|
+
)
|
4290
|
+
end
|
4291
|
+
end
|
4292
|
+
} ; ___lambda.call(
|
4293
|
+
begin
|
4294
|
+
___lambda = lambda { |__v__24__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30297|
|
4295
|
+
if (
|
4296
|
+
begin
|
4297
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4298
|
+
_not(
|
4299
|
+
begin
|
4300
|
+
embedBacktraceInfo( "", 1 );
|
4301
|
+
_eq_QUMARK(
|
4302
|
+
false ,
|
4303
|
+
begin
|
4304
|
+
embedBacktraceInfo( "", 1 );
|
4305
|
+
_pair_QUMARK(
|
4306
|
+
__v__24__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30297
|
4307
|
+
)
|
4308
|
+
end
|
4309
|
+
)
|
4310
|
+
end
|
4311
|
+
)
|
4312
|
+
end
|
4313
|
+
) then
|
4314
|
+
begin
|
4315
|
+
___lambda = lambda { |__v__25__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30298|
|
4316
|
+
if (
|
4317
|
+
begin
|
4318
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4319
|
+
_not(
|
4320
|
+
begin
|
4321
|
+
embedBacktraceInfo( "", 1 );
|
4322
|
+
_eq_QUMARK(
|
4323
|
+
false ,
|
4324
|
+
begin
|
4325
|
+
embedBacktraceInfo( "", 1 );
|
4326
|
+
_pair_QUMARK(
|
4327
|
+
__v__25__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30298
|
4328
|
+
)
|
4329
|
+
end
|
4330
|
+
)
|
4331
|
+
end
|
4332
|
+
)
|
4333
|
+
end
|
4334
|
+
) then
|
4335
|
+
begin
|
4336
|
+
___lambda = lambda { |__v__26__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30299|
|
4337
|
+
if (
|
4338
|
+
begin
|
4339
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4340
|
+
_not(
|
4341
|
+
begin
|
4342
|
+
embedBacktraceInfo( "", 1 );
|
4343
|
+
_eq_QUMARK(
|
4344
|
+
false ,
|
4345
|
+
begin
|
4346
|
+
embedBacktraceInfo( "", 1 );
|
4347
|
+
_pair_QUMARK(
|
4348
|
+
__v__26__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30299
|
4349
|
+
)
|
4350
|
+
end
|
4351
|
+
)
|
4352
|
+
end
|
4353
|
+
)
|
4354
|
+
end
|
4355
|
+
) then
|
4356
|
+
begin
|
4357
|
+
___lambda = lambda { |__v__27__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30300|
|
4358
|
+
begin
|
4359
|
+
___lambda = lambda { |_var|
|
4360
|
+
begin
|
4361
|
+
___lambda = lambda { |__v__28__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30301|
|
4362
|
+
if (
|
4363
|
+
begin
|
4364
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4365
|
+
_not(
|
4366
|
+
begin
|
4367
|
+
embedBacktraceInfo( "", 1 );
|
4368
|
+
_eq_QUMARK(
|
4369
|
+
false ,
|
4370
|
+
begin
|
4371
|
+
embedBacktraceInfo( "", 1 );
|
4372
|
+
_pair_QUMARK(
|
4373
|
+
__v__28__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30301
|
4374
|
+
)
|
4375
|
+
end
|
4376
|
+
)
|
4377
|
+
end
|
4378
|
+
)
|
4379
|
+
end
|
4380
|
+
) then
|
4381
|
+
begin
|
4382
|
+
___lambda = lambda { |__v__29__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30302|
|
4383
|
+
begin
|
4384
|
+
___lambda = lambda { |_expr|
|
4385
|
+
begin
|
4386
|
+
___lambda = lambda { |__v__30__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30303|
|
4387
|
+
if (
|
4388
|
+
begin
|
4389
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4390
|
+
_not(
|
4391
|
+
begin
|
4392
|
+
embedBacktraceInfo( "", 1 );
|
4393
|
+
_eq_QUMARK(
|
4394
|
+
false ,
|
4395
|
+
begin
|
4396
|
+
embedBacktraceInfo( "", 1 );
|
4397
|
+
_null_QUMARK(
|
4398
|
+
__v__30__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30303
|
4399
|
+
)
|
4400
|
+
end
|
4401
|
+
)
|
4402
|
+
end
|
4403
|
+
)
|
4404
|
+
end
|
4405
|
+
) then
|
4406
|
+
begin
|
4407
|
+
___lambda = lambda { |__v__31__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30304|
|
4408
|
+
if (
|
4409
|
+
begin
|
4410
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4411
|
+
_not(
|
4412
|
+
begin
|
4413
|
+
embedBacktraceInfo( "", 1 );
|
4414
|
+
_eq_QUMARK(
|
4415
|
+
false ,
|
4416
|
+
begin
|
4417
|
+
embedBacktraceInfo( "", 1 );
|
4418
|
+
_null_QUMARK(
|
4419
|
+
__v__31__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30304
|
4420
|
+
)
|
4421
|
+
end
|
4422
|
+
)
|
4423
|
+
end
|
4424
|
+
)
|
4425
|
+
end
|
4426
|
+
) then
|
4427
|
+
begin
|
4428
|
+
___lambda = lambda { |__v__32__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30305|
|
4429
|
+
if (
|
4430
|
+
begin
|
4431
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4432
|
+
_not(
|
4433
|
+
begin
|
4434
|
+
embedBacktraceInfo( "", 1 );
|
4435
|
+
_eq_QUMARK(
|
4436
|
+
false ,
|
4437
|
+
begin
|
4438
|
+
embedBacktraceInfo( "", 1 );
|
4439
|
+
trampCall( self._list_QUMARK_METHOD( 'list?',
|
4440
|
+
begin
|
4441
|
+
if @global_lisp_binding.has_key?('_list_QUMARK') then
|
4442
|
+
trampCall(@_list_QUMARK)
|
4443
|
+
else raise NameError.new( "Error: undefined variable _list_QUMARK", "_list_QUMARK" ) end
|
4444
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
4445
|
+
end ,
|
4446
|
+
[
|
4447
|
+
__v__32__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30305
|
4448
|
+
]
|
4449
|
+
))
|
4450
|
+
end
|
4451
|
+
)
|
4452
|
+
end
|
4453
|
+
)
|
4454
|
+
end
|
4455
|
+
) then
|
4456
|
+
begin
|
4457
|
+
___lambda = lambda { |_body|
|
4458
|
+
begin
|
4459
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4460
|
+
_cons(
|
4461
|
+
begin
|
4462
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4463
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4464
|
+
begin
|
4465
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4466
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4467
|
+
end ,
|
4468
|
+
[
|
4469
|
+
:"raise"
|
4470
|
+
]
|
4471
|
+
))
|
4472
|
+
end ,
|
4473
|
+
begin
|
4474
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4475
|
+
_cons(
|
4476
|
+
begin
|
4477
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4478
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4479
|
+
begin
|
4480
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4481
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4482
|
+
end ,
|
4483
|
+
[
|
4484
|
+
:"nendo-syntax-error"
|
4485
|
+
]
|
4486
|
+
))
|
4487
|
+
end ,
|
4488
|
+
begin
|
4489
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4490
|
+
_cons(
|
4491
|
+
"let1 requires (let1 var expr body ...) form." ,
|
4492
|
+
Cell.new()
|
4493
|
+
)
|
4494
|
+
end
|
4495
|
+
)
|
4496
|
+
end
|
4497
|
+
)
|
4498
|
+
end
|
4499
|
+
} ; ___lambda.call(
|
4500
|
+
__v__32__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30305
|
4501
|
+
)
|
4502
|
+
end
|
4503
|
+
else
|
4504
|
+
false
|
4505
|
+
end
|
4506
|
+
} ; ___lambda.call(
|
4507
|
+
begin
|
4508
|
+
embedBacktraceInfo( "", 1 );
|
4509
|
+
_cdr(
|
4510
|
+
__v__24__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30297
|
4511
|
+
)
|
4512
|
+
end
|
4513
|
+
)
|
4514
|
+
end
|
4515
|
+
else
|
4516
|
+
false
|
4517
|
+
end
|
4518
|
+
} ; ___lambda.call(
|
4519
|
+
begin
|
4520
|
+
embedBacktraceInfo( "", 1 );
|
4521
|
+
_cdr(
|
4522
|
+
__v__25__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30298
|
4523
|
+
)
|
4524
|
+
end
|
4525
|
+
)
|
4526
|
+
end
|
4527
|
+
else
|
4528
|
+
false
|
4529
|
+
end
|
4530
|
+
} ; ___lambda.call(
|
4531
|
+
begin
|
4532
|
+
embedBacktraceInfo( "", 1 );
|
4533
|
+
_cdr(
|
4534
|
+
__v__28__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30301
|
4535
|
+
)
|
4536
|
+
end
|
4537
|
+
)
|
4538
|
+
end
|
4539
|
+
} ; ___lambda.call(
|
4540
|
+
__v__29__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30302
|
4541
|
+
)
|
4542
|
+
end
|
4543
|
+
} ; ___lambda.call(
|
4544
|
+
begin
|
4545
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4546
|
+
_car(
|
4547
|
+
__v__28__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30301
|
4548
|
+
)
|
4549
|
+
end
|
4550
|
+
)
|
4551
|
+
end
|
4552
|
+
else
|
4553
|
+
false
|
4554
|
+
end
|
4555
|
+
} ; ___lambda.call(
|
4556
|
+
begin
|
4557
|
+
embedBacktraceInfo( "", 1 );
|
4558
|
+
_cdr(
|
4559
|
+
__v__26__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30299
|
4560
|
+
)
|
4561
|
+
end
|
4562
|
+
)
|
4563
|
+
end
|
4564
|
+
} ; ___lambda.call(
|
4565
|
+
__v__27__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30300
|
4566
|
+
)
|
4567
|
+
end
|
4568
|
+
} ; ___lambda.call(
|
4569
|
+
begin
|
4570
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4571
|
+
_car(
|
4572
|
+
__v__26__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30299
|
4573
|
+
)
|
4574
|
+
end
|
4575
|
+
)
|
4576
|
+
end
|
4577
|
+
else
|
4578
|
+
false
|
4579
|
+
end
|
4580
|
+
} ; ___lambda.call(
|
4581
|
+
begin
|
4582
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4583
|
+
_car(
|
4584
|
+
__v__25__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30298
|
4585
|
+
)
|
4586
|
+
end
|
4587
|
+
)
|
4588
|
+
end
|
4589
|
+
else
|
4590
|
+
false
|
4591
|
+
end
|
4592
|
+
} ; ___lambda.call(
|
4593
|
+
begin
|
4594
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4595
|
+
_car(
|
4596
|
+
__v__24__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30297
|
4597
|
+
)
|
4598
|
+
end
|
4599
|
+
)
|
4600
|
+
end
|
4601
|
+
else
|
4602
|
+
false
|
4603
|
+
end
|
4604
|
+
} ; ___lambda.call(
|
4605
|
+
begin
|
4606
|
+
embedBacktraceInfo( "", 1 );
|
4607
|
+
_cdr(
|
4608
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
4609
|
+
)
|
4610
|
+
end
|
4611
|
+
)
|
4612
|
+
end
|
4613
|
+
)
|
4614
|
+
end
|
4615
|
+
end
|
4616
|
+
} ; ___lambda.call(
|
4617
|
+
begin
|
4618
|
+
___lambda = lambda { |__v__17__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30290|
|
4619
|
+
if (
|
4620
|
+
begin
|
4621
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4622
|
+
_not(
|
4623
|
+
begin
|
4624
|
+
embedBacktraceInfo( "", 1 );
|
4625
|
+
_eq_QUMARK(
|
4626
|
+
false ,
|
4627
|
+
begin
|
4628
|
+
embedBacktraceInfo( "", 1 );
|
4629
|
+
_pair_QUMARK(
|
4630
|
+
__v__17__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30290
|
4631
|
+
)
|
4632
|
+
end
|
4633
|
+
)
|
4634
|
+
end
|
4635
|
+
)
|
4636
|
+
end
|
4637
|
+
) then
|
4638
|
+
begin
|
4639
|
+
___lambda = lambda { |__v__18__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30291|
|
4640
|
+
if (
|
4641
|
+
begin
|
4642
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4643
|
+
_not(
|
4644
|
+
begin
|
4645
|
+
embedBacktraceInfo( "", 1 );
|
4646
|
+
_eq_QUMARK(
|
4647
|
+
false ,
|
4648
|
+
begin
|
4649
|
+
embedBacktraceInfo( "", 1 );
|
4650
|
+
_pair_QUMARK(
|
4651
|
+
__v__18__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30291
|
4652
|
+
)
|
4653
|
+
end
|
4654
|
+
)
|
4655
|
+
end
|
4656
|
+
)
|
4657
|
+
end
|
4658
|
+
) then
|
4659
|
+
begin
|
4660
|
+
___lambda = lambda { |__v__19__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30292|
|
4661
|
+
begin
|
4662
|
+
___lambda = lambda { |_var|
|
4663
|
+
begin
|
4664
|
+
___lambda = lambda { |__v__20__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30293|
|
4665
|
+
if (
|
4666
|
+
begin
|
4667
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4668
|
+
_not(
|
4669
|
+
begin
|
4670
|
+
embedBacktraceInfo( "", 1 );
|
4671
|
+
_eq_QUMARK(
|
4672
|
+
false ,
|
4673
|
+
begin
|
4674
|
+
embedBacktraceInfo( "", 1 );
|
4675
|
+
_pair_QUMARK(
|
4676
|
+
__v__20__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30293
|
4677
|
+
)
|
4678
|
+
end
|
4679
|
+
)
|
4680
|
+
end
|
4681
|
+
)
|
4682
|
+
end
|
4683
|
+
) then
|
4684
|
+
begin
|
4685
|
+
___lambda = lambda { |__v__21__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30294|
|
4686
|
+
begin
|
4687
|
+
___lambda = lambda { |_expr|
|
4688
|
+
begin
|
4689
|
+
___lambda = lambda { |__v__22__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30295|
|
4690
|
+
if (
|
4691
|
+
begin
|
4692
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4693
|
+
_not(
|
4694
|
+
begin
|
4695
|
+
embedBacktraceInfo( "", 1 );
|
4696
|
+
_eq_QUMARK(
|
4697
|
+
false ,
|
4698
|
+
begin
|
4699
|
+
embedBacktraceInfo( "", 1 );
|
4700
|
+
_null_QUMARK(
|
4701
|
+
__v__22__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30295
|
4702
|
+
)
|
4703
|
+
end
|
4704
|
+
)
|
4705
|
+
end
|
4706
|
+
)
|
4707
|
+
end
|
4708
|
+
) then
|
4709
|
+
begin
|
4710
|
+
___lambda = lambda { |__v__23__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30296|
|
4711
|
+
if (
|
4712
|
+
begin
|
4713
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4714
|
+
_not(
|
4715
|
+
begin
|
4716
|
+
embedBacktraceInfo( "", 1 );
|
4717
|
+
_eq_QUMARK(
|
4718
|
+
false ,
|
4719
|
+
begin
|
4720
|
+
embedBacktraceInfo( "", 1 );
|
4721
|
+
trampCall( self._list_QUMARK_METHOD( 'list?',
|
4722
|
+
begin
|
4723
|
+
if @global_lisp_binding.has_key?('_list_QUMARK') then
|
4724
|
+
trampCall(@_list_QUMARK)
|
4725
|
+
else raise NameError.new( "Error: undefined variable _list_QUMARK", "_list_QUMARK" ) end
|
4726
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
4727
|
+
end ,
|
4728
|
+
[
|
4729
|
+
__v__23__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30296
|
4730
|
+
]
|
4731
|
+
))
|
4732
|
+
end
|
4733
|
+
)
|
4734
|
+
end
|
4735
|
+
)
|
4736
|
+
end
|
4737
|
+
) then
|
4738
|
+
begin
|
4739
|
+
___lambda = lambda { |_body|
|
4740
|
+
begin
|
4741
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4742
|
+
_cons(
|
4743
|
+
begin
|
4744
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4745
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4746
|
+
begin
|
4747
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4748
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4749
|
+
end ,
|
4750
|
+
[
|
4751
|
+
:"raise"
|
4752
|
+
]
|
4753
|
+
))
|
4754
|
+
end ,
|
4755
|
+
begin
|
4756
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4757
|
+
_cons(
|
4758
|
+
begin
|
4759
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
4760
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
4761
|
+
begin
|
4762
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
4763
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
4764
|
+
end ,
|
4765
|
+
[
|
4766
|
+
:"nendo-syntax-error"
|
4767
|
+
]
|
4768
|
+
))
|
4769
|
+
end ,
|
4770
|
+
begin
|
4771
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
4772
|
+
_cons(
|
4773
|
+
"let1 requires (let1 var expr body ...) form." ,
|
4774
|
+
Cell.new()
|
4775
|
+
)
|
4776
|
+
end
|
4777
|
+
)
|
4778
|
+
end
|
4779
|
+
)
|
4780
|
+
end
|
4781
|
+
} ; ___lambda.call(
|
4782
|
+
__v__23__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30296
|
4783
|
+
)
|
4784
|
+
end
|
4785
|
+
else
|
4786
|
+
false
|
4787
|
+
end
|
4788
|
+
} ; ___lambda.call(
|
4789
|
+
begin
|
4790
|
+
embedBacktraceInfo( "", 1 );
|
4791
|
+
_cdr(
|
4792
|
+
__v__17__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30290
|
4793
|
+
)
|
4794
|
+
end
|
4795
|
+
)
|
4796
|
+
end
|
4797
|
+
else
|
4798
|
+
false
|
4799
|
+
end
|
4800
|
+
} ; ___lambda.call(
|
4801
|
+
begin
|
4802
|
+
embedBacktraceInfo( "", 1 );
|
4803
|
+
_cdr(
|
4804
|
+
__v__20__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30293
|
4805
|
+
)
|
4806
|
+
end
|
4807
|
+
)
|
4808
|
+
end
|
4809
|
+
} ; ___lambda.call(
|
4810
|
+
__v__21__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30294
|
4811
|
+
)
|
4812
|
+
end
|
4813
|
+
} ; ___lambda.call(
|
4814
|
+
begin
|
4815
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4816
|
+
_car(
|
4817
|
+
__v__20__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30293
|
4818
|
+
)
|
4819
|
+
end
|
4820
|
+
)
|
4821
|
+
end
|
4822
|
+
else
|
4823
|
+
false
|
4824
|
+
end
|
4825
|
+
} ; ___lambda.call(
|
4826
|
+
begin
|
4827
|
+
embedBacktraceInfo( "", 1 );
|
4828
|
+
_cdr(
|
4829
|
+
__v__18__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30291
|
4830
|
+
)
|
4831
|
+
end
|
4832
|
+
)
|
4833
|
+
end
|
4834
|
+
} ; ___lambda.call(
|
4835
|
+
__v__19__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30292
|
4836
|
+
)
|
4837
|
+
end
|
4838
|
+
} ; ___lambda.call(
|
4839
|
+
begin
|
4840
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4841
|
+
_car(
|
4842
|
+
__v__18__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30291
|
4843
|
+
)
|
4844
|
+
end
|
4845
|
+
)
|
4846
|
+
end
|
4847
|
+
else
|
4848
|
+
false
|
4849
|
+
end
|
4850
|
+
} ; ___lambda.call(
|
4851
|
+
begin
|
4852
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
4853
|
+
_car(
|
4854
|
+
__v__17__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30290
|
4855
|
+
)
|
4856
|
+
end
|
4857
|
+
)
|
4858
|
+
end
|
4859
|
+
else
|
4860
|
+
false
|
4861
|
+
end
|
4862
|
+
} ; ___lambda.call(
|
4863
|
+
begin
|
4864
|
+
embedBacktraceInfo( "", 1 );
|
4865
|
+
_cdr(
|
4866
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
4867
|
+
)
|
4868
|
+
end
|
4869
|
+
)
|
4870
|
+
end
|
4871
|
+
)
|
4872
|
+
end
|
4873
|
+
end
|
4874
|
+
} ; ___lambda.call(
|
4875
|
+
begin
|
4876
|
+
___lambda = lambda { |__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30283|
|
4877
|
+
if (
|
4878
|
+
begin
|
4879
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4880
|
+
_not(
|
4881
|
+
begin
|
4882
|
+
embedBacktraceInfo( "", 1 );
|
4883
|
+
_eq_QUMARK(
|
4884
|
+
false ,
|
4885
|
+
begin
|
4886
|
+
embedBacktraceInfo( "", 1 );
|
4887
|
+
_pair_QUMARK(
|
4888
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30283
|
4889
|
+
)
|
4890
|
+
end
|
4891
|
+
)
|
4892
|
+
end
|
4893
|
+
)
|
4894
|
+
end
|
4895
|
+
) then
|
4896
|
+
begin
|
4897
|
+
___lambda = lambda { |__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30284|
|
4898
|
+
if (
|
4899
|
+
begin
|
4900
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4901
|
+
_not(
|
4902
|
+
begin
|
4903
|
+
embedBacktraceInfo( "", 1 );
|
4904
|
+
_eq_QUMARK(
|
4905
|
+
false ,
|
4906
|
+
begin
|
4907
|
+
embedBacktraceInfo( "", 1 );
|
4908
|
+
_pair_QUMARK(
|
4909
|
+
__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30284
|
4910
|
+
)
|
4911
|
+
end
|
4912
|
+
)
|
4913
|
+
end
|
4914
|
+
)
|
4915
|
+
end
|
4916
|
+
) then
|
4917
|
+
begin
|
4918
|
+
___lambda = lambda { |__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30285|
|
4919
|
+
begin
|
4920
|
+
___lambda = lambda { |_var|
|
4921
|
+
begin
|
4922
|
+
___lambda = lambda { |__v__13__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30286|
|
4923
|
+
if (
|
4924
|
+
begin
|
4925
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4926
|
+
_not(
|
4927
|
+
begin
|
4928
|
+
embedBacktraceInfo( "", 1 );
|
4929
|
+
_eq_QUMARK(
|
4930
|
+
false ,
|
4931
|
+
begin
|
4932
|
+
embedBacktraceInfo( "", 1 );
|
4933
|
+
_null_QUMARK(
|
4934
|
+
__v__13__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30286
|
4935
|
+
)
|
4936
|
+
end
|
4937
|
+
)
|
4938
|
+
end
|
4939
|
+
)
|
4940
|
+
end
|
4941
|
+
) then
|
4942
|
+
begin
|
4943
|
+
___lambda = lambda { |__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30287|
|
4944
|
+
if (
|
4945
|
+
begin
|
4946
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4947
|
+
_not(
|
4948
|
+
begin
|
4949
|
+
embedBacktraceInfo( "", 1 );
|
4950
|
+
_eq_QUMARK(
|
4951
|
+
false ,
|
4952
|
+
begin
|
4953
|
+
embedBacktraceInfo( "", 1 );
|
4954
|
+
_pair_QUMARK(
|
4955
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30287
|
4956
|
+
)
|
4957
|
+
end
|
4958
|
+
)
|
4959
|
+
end
|
4960
|
+
)
|
4961
|
+
end
|
4962
|
+
) then
|
4963
|
+
begin
|
4964
|
+
___lambda = lambda { |__v__15__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30288|
|
4965
|
+
begin
|
4966
|
+
___lambda = lambda { |_expr|
|
4967
|
+
begin
|
4968
|
+
___lambda = lambda { |__v__16__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30289|
|
4969
|
+
if (
|
4970
|
+
begin
|
4971
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
4972
|
+
_not(
|
4973
|
+
begin
|
4974
|
+
embedBacktraceInfo( "", 1 );
|
4975
|
+
_eq_QUMARK(
|
4976
|
+
false ,
|
4977
|
+
begin
|
4978
|
+
embedBacktraceInfo( "", 1 );
|
4979
|
+
trampCall( self._list_QUMARK_METHOD( 'list?',
|
4980
|
+
begin
|
4981
|
+
if @global_lisp_binding.has_key?('_list_QUMARK') then
|
4982
|
+
trampCall(@_list_QUMARK)
|
4983
|
+
else raise NameError.new( "Error: undefined variable _list_QUMARK", "_list_QUMARK" ) end
|
4984
|
+
rescue => __e ; __e.set_backtrace( [":1"] + __e.backtrace ) ; raise __e
|
4985
|
+
end ,
|
4986
|
+
[
|
4987
|
+
__v__16__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30289
|
4988
|
+
]
|
4989
|
+
))
|
4990
|
+
end
|
4991
|
+
)
|
4992
|
+
end
|
4993
|
+
)
|
4994
|
+
end
|
4995
|
+
) then
|
4996
|
+
begin
|
4997
|
+
___lambda = lambda { |_body|
|
4998
|
+
begin
|
4999
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5000
|
+
_cons(
|
5001
|
+
begin
|
5002
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5003
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5004
|
+
begin
|
5005
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5006
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5007
|
+
end ,
|
5008
|
+
[
|
5009
|
+
:"raise"
|
5010
|
+
]
|
5011
|
+
))
|
5012
|
+
end ,
|
5013
|
+
begin
|
5014
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5015
|
+
_cons(
|
5016
|
+
begin
|
5017
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5018
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5019
|
+
begin
|
5020
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5021
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5022
|
+
end ,
|
5023
|
+
[
|
5024
|
+
:"nendo-syntax-error"
|
5025
|
+
]
|
5026
|
+
))
|
5027
|
+
end ,
|
5028
|
+
begin
|
5029
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5030
|
+
_cons(
|
5031
|
+
"let1 requires (let1 var expr body ...) form." ,
|
5032
|
+
Cell.new()
|
5033
|
+
)
|
5034
|
+
end
|
5035
|
+
)
|
5036
|
+
end
|
5037
|
+
)
|
5038
|
+
end
|
5039
|
+
} ; ___lambda.call(
|
5040
|
+
__v__16__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30289
|
5041
|
+
)
|
5042
|
+
end
|
5043
|
+
else
|
5044
|
+
false
|
5045
|
+
end
|
5046
|
+
} ; ___lambda.call(
|
5047
|
+
begin
|
5048
|
+
embedBacktraceInfo( "", 1 );
|
5049
|
+
_cdr(
|
5050
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30287
|
5051
|
+
)
|
5052
|
+
end
|
5053
|
+
)
|
5054
|
+
end
|
5055
|
+
} ; ___lambda.call(
|
5056
|
+
__v__15__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30288
|
5057
|
+
)
|
5058
|
+
end
|
5059
|
+
} ; ___lambda.call(
|
5060
|
+
begin
|
5061
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5062
|
+
_car(
|
5063
|
+
__v__14__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30287
|
5064
|
+
)
|
5065
|
+
end
|
5066
|
+
)
|
5067
|
+
end
|
5068
|
+
else
|
5069
|
+
false
|
5070
|
+
end
|
5071
|
+
} ; ___lambda.call(
|
5072
|
+
begin
|
5073
|
+
embedBacktraceInfo( "", 1 );
|
5074
|
+
_cdr(
|
5075
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30283
|
5076
|
+
)
|
5077
|
+
end
|
5078
|
+
)
|
5079
|
+
end
|
5080
|
+
else
|
5081
|
+
false
|
5082
|
+
end
|
5083
|
+
} ; ___lambda.call(
|
5084
|
+
begin
|
5085
|
+
embedBacktraceInfo( "", 1 );
|
5086
|
+
_cdr(
|
5087
|
+
__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30284
|
5088
|
+
)
|
5089
|
+
end
|
5090
|
+
)
|
5091
|
+
end
|
5092
|
+
} ; ___lambda.call(
|
5093
|
+
__v__12__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30285
|
5094
|
+
)
|
5095
|
+
end
|
5096
|
+
} ; ___lambda.call(
|
5097
|
+
begin
|
5098
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5099
|
+
_car(
|
5100
|
+
__v__11__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30284
|
5101
|
+
)
|
5102
|
+
end
|
5103
|
+
)
|
5104
|
+
end
|
5105
|
+
else
|
5106
|
+
false
|
5107
|
+
end
|
5108
|
+
} ; ___lambda.call(
|
5109
|
+
begin
|
5110
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5111
|
+
_car(
|
5112
|
+
__v__10__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30283
|
5113
|
+
)
|
5114
|
+
end
|
5115
|
+
)
|
5116
|
+
end
|
5117
|
+
else
|
5118
|
+
false
|
5119
|
+
end
|
5120
|
+
} ; ___lambda.call(
|
5121
|
+
begin
|
5122
|
+
embedBacktraceInfo( "", 1 );
|
5123
|
+
_cdr(
|
5124
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
5125
|
+
)
|
5126
|
+
end
|
5127
|
+
)
|
5128
|
+
end
|
5129
|
+
)
|
5130
|
+
end
|
5131
|
+
end
|
5132
|
+
} ; ___lambda.call(
|
5133
|
+
begin
|
5134
|
+
___lambda = lambda { |__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30278|
|
5135
|
+
if (
|
5136
|
+
begin
|
5137
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5138
|
+
_not(
|
5139
|
+
begin
|
5140
|
+
embedBacktraceInfo( "", 1 );
|
5141
|
+
_eq_QUMARK(
|
5142
|
+
false ,
|
5143
|
+
begin
|
5144
|
+
embedBacktraceInfo( "", 1 );
|
5145
|
+
_pair_QUMARK(
|
5146
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30278
|
5147
|
+
)
|
5148
|
+
end
|
5149
|
+
)
|
5150
|
+
end
|
5151
|
+
)
|
5152
|
+
end
|
5153
|
+
) then
|
5154
|
+
begin
|
5155
|
+
___lambda = lambda { |__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30279|
|
5156
|
+
begin
|
5157
|
+
___lambda = lambda { |_var|
|
5158
|
+
begin
|
5159
|
+
___lambda = lambda { |__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30280|
|
5160
|
+
if (
|
5161
|
+
begin
|
5162
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5163
|
+
_not(
|
5164
|
+
begin
|
5165
|
+
embedBacktraceInfo( "", 1 );
|
5166
|
+
_eq_QUMARK(
|
5167
|
+
false ,
|
5168
|
+
begin
|
5169
|
+
embedBacktraceInfo( "", 1 );
|
5170
|
+
_pair_QUMARK(
|
5171
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30280
|
5172
|
+
)
|
5173
|
+
end
|
5174
|
+
)
|
5175
|
+
end
|
5176
|
+
)
|
5177
|
+
end
|
5178
|
+
) then
|
5179
|
+
begin
|
5180
|
+
___lambda = lambda { |__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30281|
|
5181
|
+
begin
|
5182
|
+
___lambda = lambda { |_expr|
|
5183
|
+
begin
|
5184
|
+
___lambda = lambda { |__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30282|
|
5185
|
+
if (
|
5186
|
+
begin
|
5187
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5188
|
+
_not(
|
5189
|
+
begin
|
5190
|
+
embedBacktraceInfo( "", 1 );
|
5191
|
+
_eq_QUMARK(
|
5192
|
+
false ,
|
5193
|
+
begin
|
5194
|
+
embedBacktraceInfo( "", 1 );
|
5195
|
+
_null_QUMARK(
|
5196
|
+
__v__9__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30282
|
5197
|
+
)
|
5198
|
+
end
|
5199
|
+
)
|
5200
|
+
end
|
5201
|
+
)
|
5202
|
+
end
|
5203
|
+
) then
|
5204
|
+
begin
|
5205
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5206
|
+
_cons(
|
5207
|
+
begin
|
5208
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5209
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5210
|
+
begin
|
5211
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5212
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5213
|
+
end ,
|
5214
|
+
[
|
5215
|
+
:"raise"
|
5216
|
+
]
|
5217
|
+
))
|
5218
|
+
end ,
|
5219
|
+
begin
|
5220
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5221
|
+
_cons(
|
5222
|
+
begin
|
5223
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5224
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5225
|
+
begin
|
5226
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5227
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5228
|
+
end ,
|
5229
|
+
[
|
5230
|
+
:"nendo-syntax-error"
|
5231
|
+
]
|
5232
|
+
))
|
5233
|
+
end ,
|
5234
|
+
begin
|
5235
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5236
|
+
_cons(
|
5237
|
+
"let1 requires (let1 var expr body ...) form." ,
|
5238
|
+
Cell.new()
|
5239
|
+
)
|
5240
|
+
end
|
5241
|
+
)
|
5242
|
+
end
|
5243
|
+
)
|
5244
|
+
end
|
5245
|
+
else
|
5246
|
+
false
|
5247
|
+
end
|
5248
|
+
} ; ___lambda.call(
|
5249
|
+
begin
|
5250
|
+
embedBacktraceInfo( "", 1 );
|
5251
|
+
_cdr(
|
5252
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30280
|
5253
|
+
)
|
5254
|
+
end
|
5255
|
+
)
|
5256
|
+
end
|
5257
|
+
} ; ___lambda.call(
|
5258
|
+
__v__8__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30281
|
5259
|
+
)
|
5260
|
+
end
|
5261
|
+
} ; ___lambda.call(
|
5262
|
+
begin
|
5263
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5264
|
+
_car(
|
5265
|
+
__v__7__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30280
|
5266
|
+
)
|
5267
|
+
end
|
5268
|
+
)
|
5269
|
+
end
|
5270
|
+
else
|
5271
|
+
false
|
5272
|
+
end
|
5273
|
+
} ; ___lambda.call(
|
5274
|
+
begin
|
5275
|
+
embedBacktraceInfo( "", 1 );
|
5276
|
+
_cdr(
|
5277
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30278
|
5278
|
+
)
|
5279
|
+
end
|
5280
|
+
)
|
5281
|
+
end
|
5282
|
+
} ; ___lambda.call(
|
5283
|
+
__v__6__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30279
|
5284
|
+
)
|
5285
|
+
end
|
5286
|
+
} ; ___lambda.call(
|
5287
|
+
begin
|
5288
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5289
|
+
_car(
|
5290
|
+
__v__5__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30278
|
5291
|
+
)
|
5292
|
+
end
|
5293
|
+
)
|
5294
|
+
end
|
5295
|
+
else
|
5296
|
+
false
|
5297
|
+
end
|
5298
|
+
} ; ___lambda.call(
|
5299
|
+
begin
|
5300
|
+
embedBacktraceInfo( "", 1 );
|
5301
|
+
_cdr(
|
5302
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
5303
|
+
)
|
5304
|
+
end
|
5305
|
+
)
|
5306
|
+
end
|
5307
|
+
)
|
5308
|
+
end
|
5309
|
+
end
|
5310
|
+
} ; ___lambda.call(
|
5311
|
+
begin
|
5312
|
+
___lambda = lambda { |__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30275|
|
5313
|
+
if (
|
5314
|
+
begin
|
5315
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5316
|
+
_not(
|
5317
|
+
begin
|
5318
|
+
embedBacktraceInfo( "", 1 );
|
5319
|
+
_eq_QUMARK(
|
5320
|
+
false ,
|
5321
|
+
begin
|
5322
|
+
embedBacktraceInfo( "", 1 );
|
5323
|
+
_pair_QUMARK(
|
5324
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30275
|
5325
|
+
)
|
5326
|
+
end
|
5327
|
+
)
|
5328
|
+
end
|
5329
|
+
)
|
5330
|
+
end
|
5331
|
+
) then
|
5332
|
+
begin
|
5333
|
+
___lambda = lambda { |__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30276|
|
5334
|
+
begin
|
5335
|
+
___lambda = lambda { |_var|
|
5336
|
+
begin
|
5337
|
+
___lambda = lambda { |__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30277|
|
5338
|
+
if (
|
5339
|
+
begin
|
5340
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5341
|
+
_not(
|
5342
|
+
begin
|
5343
|
+
embedBacktraceInfo( "", 1 );
|
5344
|
+
_eq_QUMARK(
|
5345
|
+
false ,
|
5346
|
+
begin
|
5347
|
+
embedBacktraceInfo( "", 1 );
|
5348
|
+
_null_QUMARK(
|
5349
|
+
__v__4__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30277
|
5350
|
+
)
|
5351
|
+
end
|
5352
|
+
)
|
5353
|
+
end
|
5354
|
+
)
|
5355
|
+
end
|
5356
|
+
) then
|
5357
|
+
begin
|
5358
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5359
|
+
_cons(
|
5360
|
+
begin
|
5361
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5362
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5363
|
+
begin
|
5364
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5365
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5366
|
+
end ,
|
5367
|
+
[
|
5368
|
+
:"raise"
|
5369
|
+
]
|
5370
|
+
))
|
5371
|
+
end ,
|
5372
|
+
begin
|
5373
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5374
|
+
_cons(
|
5375
|
+
begin
|
5376
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5377
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5378
|
+
begin
|
5379
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5380
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5381
|
+
end ,
|
5382
|
+
[
|
5383
|
+
:"nendo-syntax-error"
|
5384
|
+
]
|
5385
|
+
))
|
5386
|
+
end ,
|
5387
|
+
begin
|
5388
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5389
|
+
_cons(
|
5390
|
+
"let1 requires (let1 var expr body ...) form." ,
|
5391
|
+
Cell.new()
|
5392
|
+
)
|
5393
|
+
end
|
5394
|
+
)
|
5395
|
+
end
|
5396
|
+
)
|
5397
|
+
end
|
5398
|
+
else
|
5399
|
+
false
|
5400
|
+
end
|
5401
|
+
} ; ___lambda.call(
|
5402
|
+
begin
|
5403
|
+
embedBacktraceInfo( "", 1 );
|
5404
|
+
_cdr(
|
5405
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30275
|
5406
|
+
)
|
5407
|
+
end
|
5408
|
+
)
|
5409
|
+
end
|
5410
|
+
} ; ___lambda.call(
|
5411
|
+
__v__3__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30276
|
5412
|
+
)
|
5413
|
+
end
|
5414
|
+
} ; ___lambda.call(
|
5415
|
+
begin
|
5416
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 73 );
|
5417
|
+
_car(
|
5418
|
+
__v__2__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30275
|
5419
|
+
)
|
5420
|
+
end
|
5421
|
+
)
|
5422
|
+
end
|
5423
|
+
else
|
5424
|
+
false
|
5425
|
+
end
|
5426
|
+
} ; ___lambda.call(
|
5427
|
+
begin
|
5428
|
+
embedBacktraceInfo( "", 1 );
|
5429
|
+
_cdr(
|
5430
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
5431
|
+
)
|
5432
|
+
end
|
5433
|
+
)
|
5434
|
+
end
|
5435
|
+
)
|
5436
|
+
end
|
5437
|
+
end
|
5438
|
+
} ; ___lambda.call(
|
5439
|
+
begin
|
5440
|
+
___lambda = lambda { |__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30274|
|
5441
|
+
if (
|
5442
|
+
begin
|
5443
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 39 );
|
5444
|
+
_not(
|
5445
|
+
begin
|
5446
|
+
embedBacktraceInfo( "", 1 );
|
5447
|
+
_eq_QUMARK(
|
5448
|
+
false ,
|
5449
|
+
begin
|
5450
|
+
embedBacktraceInfo( "", 1 );
|
5451
|
+
_null_QUMARK(
|
5452
|
+
__v__1__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30274
|
5453
|
+
)
|
5454
|
+
end
|
5455
|
+
)
|
5456
|
+
end
|
5457
|
+
)
|
5458
|
+
end
|
5459
|
+
) then
|
5460
|
+
begin
|
5461
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5462
|
+
_cons(
|
5463
|
+
begin
|
5464
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5465
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5466
|
+
begin
|
5467
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5468
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5469
|
+
end ,
|
5470
|
+
[
|
5471
|
+
:"raise"
|
5472
|
+
]
|
5473
|
+
))
|
5474
|
+
end ,
|
5475
|
+
begin
|
5476
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5477
|
+
_cons(
|
5478
|
+
begin
|
5479
|
+
embedBacktraceInfo( "dynamic S-expression ( no source )", 1 );
|
5480
|
+
trampCall( callProcedure( '__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267', '_rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267',
|
5481
|
+
begin
|
5482
|
+
trampCall(__rename__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30267)
|
5483
|
+
rescue => __e ; __e.set_backtrace( ["dynamic S-expression ( no source ):1"] + __e.backtrace ) ; raise __e
|
5484
|
+
end ,
|
5485
|
+
[
|
5486
|
+
:"nendo-syntax-error"
|
5487
|
+
]
|
5488
|
+
))
|
5489
|
+
end ,
|
5490
|
+
begin
|
5491
|
+
embedBacktraceInfo( "./lib/nendo/experimental.nnd", 71 );
|
5492
|
+
_cons(
|
5493
|
+
"let1 requires (let1 var expr body ...) form." ,
|
5494
|
+
Cell.new()
|
5495
|
+
)
|
5496
|
+
end
|
5497
|
+
)
|
5498
|
+
end
|
5499
|
+
)
|
5500
|
+
end
|
5501
|
+
else
|
5502
|
+
false
|
5503
|
+
end
|
5504
|
+
} ; ___lambda.call(
|
5505
|
+
begin
|
5506
|
+
embedBacktraceInfo( "", 1 );
|
5507
|
+
_cdr(
|
5508
|
+
__expr__gensym__29d1958308f04161c7005d22e2e7d31864eae2bc_30266
|
3663
5509
|
)
|
3664
5510
|
end
|
3665
5511
|
)
|