Fix bug about strings in docstring position

For instance, in

  (defun f () "str")

"str" is a form, no the docstring of F.

diff --git a/ecmalisp.js b/ecmalisp.js
index bf12a65..474cbbe 100644 (file)
--- a/ecmalisp.js
+++ b/ecmalisp.js
@@ -17216,7 +17216,7 @@ var l271 = {name: "DELTA"};
 var l272 = {name: "CONDITION"};
 var l273 = {name: "DOCSTRING"};
 var l274 = {name: "&BODY"};
-var l275 = {car: l2, cdr: {car: {car: {car: l246, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l59, cdr: {car: {car: l189, cdr: {car: {car: l177, cdr: {car: l133, cdr: {car: l2, cdr: l2}}}, cdr: {car: {car: l150, cdr: l2}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l52, cdr: {car: {car: l249, cdr: {car: l133, cdr: l2}}, cdr: {car: {car: l233, cdr: {car: l249, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l207, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l250, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l110, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l251, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "var ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " = ", cdr: {car: {car: l131, cdr: {car: {car: l45, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: ";", cdr: {car: l101, cdr: l2}}}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l250, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l251, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "if (typeof ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " != '", cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: "')", cdr: {car: l101, cdr: {car: {car: l107, cdr: {car: "throw 'The value ' + ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: ".';", cdr: {car: l101, cdr: l2}}}}}}}, cdr: l2}}}}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l250, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l102, cdr: {car: "return ", cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: ";", cdr: {car: l101, cdr: l2}}}}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l206, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l164, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l192, cdr: {car: {car: l131, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l254, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: {car: l131, cdr: {car: l254, cdr: l2}}, cdr: {car: {car: l109, cdr: {car: {car: l131, cdr: {car: l254, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l253, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: l2}, cdr: {car: {car: l204, cdr: {car: l255, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l190, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l255, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l164, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l109, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l164, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l51, cdr: {car: {car: l47, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l144, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l162, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l110, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "(function(){", cdr: {car: l101, cdr: {car: {car: l107, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: "})()", cdr: l2}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l103, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l100, cdr: {car: l168, cdr: {car: l255, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l100, cdr: l2}}, cdr: {car: {car: l102, cdr: {car: {car: l131, cdr: {car: l100, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l60, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l256, cdr: {car: l257, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l59, cdr: {car: {car: l189, cdr: {car: {car: l131, cdr: {car: l256, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l257, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l59, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l258, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l58, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l259, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: {car: l11, cdr: {car: l259, cdr: l2}}, cdr: {car: l2, cdr: l2}}, cdr: {car: {car: {car: l11, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l3, cdr: {car: {car: l192, cdr: {car: {car: {car: l260, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l58, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l57, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l259, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: {car: l11, cdr: {car: l259, cdr: l2}}, cdr: {car: l3, cdr: l2}}, cdr: {car: {car: {car: l11, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l3, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l57, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: l2, cdr: l2}}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l56, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l261, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l55, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l65, cdr: {car: l261, cdr: {car: {car: l129, cdr: {car: {car: {car: l3, cdr: {car: {car: l236, cdr: {car: "ECASE expression failed.", cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l55, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l261, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l262, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l262, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l54, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l263, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: {car: l34, cdr: {car: l263, cdr: l2}}, cdr: {car: l3, cdr: l2}}}, cdr: {car: l263, cdr: {car: {car: l129, cdr: {car: {car: {car: l30, cdr: {car: {car: l131, cdr: {car: l262, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l263, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l263, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l261, cdr: l2}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l54, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l261, cdr: l2}}, cdr: {car: {car: l165, cdr: {car: {car: l11, cdr: {car: l261, cdr: l2}}, cdr: {car: l2, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: {car: l36, cdr: {car: l261, cdr: l2}}, cdr: {car: l3, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: {car: l38, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: {car: l36, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: {car: l38, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l53, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l264, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l265, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: {car: {car: l266, cdr: {car: {car: l43, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l267, cdr: {car: {car: l44, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l257, cdr: {car: {car: l45, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: 0, cdr: l2}}, cdr: {car: {car: {car: l131, cdr: {car: l265, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l267, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l185, cdr: {car: {car: l210, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l265, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l201, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l49, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l131, cdr: {car: l257, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l52, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l264, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l266, cdr: {car: {car: l43, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l268, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: l2, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l185, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l201, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l35, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}}}, cdr: {car: {car: l131, cdr: {car: {car: l45, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l51, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l270, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l270, cdr: l2}}, cdr: {car: {car: l32, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l270, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l50, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l167, cdr: {car: {car: l271, cdr: {car: 1, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l23, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l271, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l49, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l167, cdr: {car: {car: l271, cdr: {car: 1, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l22, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l271, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l13, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l185, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l12, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l167, cdr: {car: l258, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l194, cdr: {car: l2, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l9, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l221, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l8, cdr: {car: {car: l131, cdr: {car: {car: l220, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l4, cdr: {car: {car: l228, cdr: {car: {car: l34, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l144, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l165, cdr: {car: {car: l228, cdr: {car: {car: l34, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l35, cdr: {car: l248, cdr: l2}}, cdr: {car: l248, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}}}, cdr: l2}}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l8, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l269, cdr: {car: {car: l18, cdr: {car: "FN", cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l239, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: "fname", cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l7, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l258, cdr: {car: l167, cdr: {car: l273, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l4, cdr: {car: {car: l228, cdr: {car: l273, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l239, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: "vardoc", cdr: {car: {car: l131, cdr: {car: l273, cdr: l2}}, cdr: l2}}}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l6, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l258, cdr: {car: l167, cdr: {car: l273, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l5, cdr: {car: {car: l20, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l4, cdr: {car: {car: l228, cdr: {car: l273, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l239, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: "vardoc", cdr: {car: {car: l131, cdr: {car: l273, cdr: l2}}, cdr: l2}}}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l5, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: l2, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l4, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: l2, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l1, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l187, cdr: {car: {car: l160, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: l269, cdr: {car: {car: l128, cdr: {car: l274, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l128, cdr: {car: l168, cdr: l2}}, cdr: {car: l269, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l253, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: l2}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: l2, cdr: {car: l2, cdr: l2}}}};
+var l275 = {car: l2, cdr: {car: {car: {car: l246, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l59, cdr: {car: {car: l189, cdr: {car: {car: l177, cdr: {car: l133, cdr: {car: l2, cdr: l2}}}, cdr: {car: {car: l150, cdr: l2}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l52, cdr: {car: {car: l249, cdr: {car: l133, cdr: l2}}, cdr: {car: {car: l233, cdr: {car: l249, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l207, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l250, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l110, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l251, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "var ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " = ", cdr: {car: {car: l131, cdr: {car: {car: l45, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: ";", cdr: {car: l101, cdr: l2}}}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l250, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l251, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "if (typeof ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " != '", cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: "')", cdr: {car: l101, cdr: {car: {car: l107, cdr: {car: "throw 'The value ' + ", cdr: {car: {car: l131, cdr: {car: {car: l43, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l251, cdr: l2}}, cdr: l2}}, cdr: {car: ".';", cdr: {car: l101, cdr: l2}}}}}}}, cdr: l2}}}}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l250, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l102, cdr: {car: "return ", cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: ";", cdr: {car: l101, cdr: l2}}}}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l206, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l164, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l192, cdr: {car: {car: l131, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l254, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: {car: l131, cdr: {car: l254, cdr: l2}}, cdr: {car: {car: l109, cdr: {car: {car: l131, cdr: {car: l254, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l253, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: l2}, cdr: {car: {car: l204, cdr: {car: l255, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l190, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l255, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l164, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l109, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l164, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l51, cdr: {car: {car: l47, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l144, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l162, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l110, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l102, cdr: {car: "(function(){", cdr: {car: l101, cdr: {car: {car: l107, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: "})()", cdr: l2}}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l103, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l100, cdr: {car: l168, cdr: {car: l255, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l100, cdr: l2}}, cdr: {car: {car: l102, cdr: {car: {car: l131, cdr: {car: l100, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l60, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l256, cdr: {car: l257, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l59, cdr: {car: {car: l189, cdr: {car: {car: l131, cdr: {car: l256, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l257, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l59, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l258, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l58, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l259, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: {car: l11, cdr: {car: l259, cdr: l2}}, cdr: {car: l2, cdr: l2}}, cdr: {car: {car: {car: l11, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l3, cdr: {car: {car: l192, cdr: {car: {car: {car: l260, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l260, cdr: l2}}, cdr: {car: {car: l58, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l57, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l259, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: {car: l11, cdr: {car: l259, cdr: l2}}, cdr: {car: l3, cdr: l2}}, cdr: {car: {car: {car: l11, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l3, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l57, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l259, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: l2, cdr: l2}}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l56, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l261, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l55, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l65, cdr: {car: l261, cdr: {car: {car: l129, cdr: {car: {car: {car: l3, cdr: {car: {car: l236, cdr: {car: "ECASE expression failed.", cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l55, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l255, cdr: {car: l168, cdr: {car: l261, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l262, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l262, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l255, cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l54, cdr: {car: {car: l130, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l263, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: {car: l34, cdr: {car: l263, cdr: l2}}, cdr: {car: l3, cdr: l2}}}, cdr: {car: l263, cdr: {car: {car: l129, cdr: {car: {car: {car: l30, cdr: {car: {car: l131, cdr: {car: l262, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l263, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l263, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l261, cdr: l2}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l54, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l168, cdr: {car: l261, cdr: l2}}, cdr: {car: {car: l165, cdr: {car: {car: l11, cdr: {car: l261, cdr: l2}}, cdr: {car: l2, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: {car: l36, cdr: {car: l261, cdr: l2}}, cdr: {car: l3, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: {car: l38, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: {car: l36, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: {car: l38, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l54, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l261, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l53, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l264, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l265, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: {car: {car: l266, cdr: {car: {car: l43, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l267, cdr: {car: {car: l44, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l257, cdr: {car: {car: l45, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: 0, cdr: l2}}, cdr: {car: {car: {car: l131, cdr: {car: l265, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l267, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l185, cdr: {car: {car: l210, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l265, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l201, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l49, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l131, cdr: {car: l257, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l52, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l264, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l266, cdr: {car: {car: l43, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l268, cdr: {car: {car: l18, cdr: l2}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: {car: l44, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: l2, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l185, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l266, cdr: l2}}, cdr: {car: {car: l34, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l201, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: {car: {car: l35, cdr: {car: {car: l131, cdr: {car: l268, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}}}, cdr: {car: {car: l131, cdr: {car: {car: l45, cdr: {car: l264, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l51, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l270, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l270, cdr: l2}}, cdr: {car: {car: l32, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l270, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l50, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l167, cdr: {car: {car: l271, cdr: {car: 1, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l23, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l271, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l49, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: {car: l167, cdr: {car: {car: l271, cdr: {car: 1, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l22, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l271, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l13, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l144, cdr: {car: l2, cdr: {car: {car: l185, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l12, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l167, cdr: {car: l258, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: l194, cdr: {car: l2, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l9, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l221, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l8, cdr: {car: {car: l131, cdr: {car: {car: l220, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l165, cdr: {car: {car: l57, cdr: {car: {car: l228, cdr: {car: {car: l34, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l31, cdr: {car: {car: l11, cdr: {car: {car: l35, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l131, cdr: {car: {car: l34, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l144, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: {car: l35, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l144, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l8, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l192, cdr: {car: {car: {car: l269, cdr: {car: {car: l18, cdr: {car: "FN", cdr: l2}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l129, cdr: {car: {car: l192, cdr: {car: {car: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: l253, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}, cdr: {car: {car: l239, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: {car: "fname", cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}}}, cdr: {car: {car: l131, cdr: {car: l269, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l7, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l258, cdr: {car: l167, cdr: {car: l273, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l4, cdr: {car: {car: l228, cdr: {car: l273, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l239, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: "vardoc", cdr: {car: {car: l131, cdr: {car: l273, cdr: l2}}, cdr: l2}}}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l6, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l258, cdr: {car: l167, cdr: {car: l273, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l189, cdr: {car: {car: l5, cdr: {car: {car: l20, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l177, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: {car: {car: l131, cdr: {car: l258, cdr: l2}}, cdr: l2}}}, cdr: l2}}}, cdr: {car: {car: l130, cdr: {car: {car: l4, cdr: {car: {car: l228, cdr: {car: l273, cdr: l2}}, cdr: {car: {car: l129, cdr: {car: {car: {car: l239, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: "vardoc", cdr: {car: {car: l131, cdr: {car: l273, cdr: l2}}, cdr: l2}}}}, cdr: l2}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l5, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: l2, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l4, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l272, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}, cdr: {car: {car: l129, cdr: {car: {car: l165, cdr: {car: {car: l131, cdr: {car: l272, cdr: l2}}, cdr: {car: {car: l189, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}, cdr: {car: l2, cdr: l2}}}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: {car: {car: l1, cdr: {car: l161, cdr: {car: {car: l176, cdr: {car: {car: l252, cdr: {car: l253, cdr: {car: l168, cdr: {car: l248, cdr: l2}}}}, cdr: {car: {car: l129, cdr: {car: {car: l187, cdr: {car: {car: l160, cdr: {car: {car: l128, cdr: {car: {car: l131, cdr: {car: l252, cdr: l2}}, cdr: l2}}, cdr: {car: {car: l128, cdr: {car: {car: l176, cdr: {car: {car: l131, cdr: {car: {car: l71, cdr: {car: {car: l176, cdr: {car: {car: l269, cdr: l2}, cdr: {car: {car: l165, cdr: {car: {car: l225, cdr: {car: l269, cdr: {car: {car: l128, cdr: {car: l274, cdr: l2}}, cdr: l2}}}, cdr: {car: {car: l128, cdr: {car: l168, cdr: l2}}, cdr: {car: l269, cdr: l2}}}}, cdr: l2}}}, cdr: {car: l253, cdr: l2}}}, cdr: l2}}, cdr: {car: {car: l130, cdr: {car: l248, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}}, cdr: l2}}, cdr: l2}}, cdr: l2}}}, cdr: {car: l3, cdr: l2}}}}, cdr: l2}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: l2, cdr: {car: l2, cdr: l2}}}};
 (function(){
     (((function(){
         var symbol = l10;

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 286069d..8138361 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -68,11 +68,9 @@
     `(progn
        (fset ',name
              (named-lambda ,(symbol-name name) ,args
-               ,@(when (stringp (car body)) `(,(car body)))
-               (block ,name
-                 ,@(if (stringp (car body))
-                       (cdr body)
-                       body))))
+               ,@(if (and (stringp (car body)) (not (null (cdr body))))
+                     `(,(car body) (block ,name ,@(cdr body)))
+                     `((block ,name ,@body)))))
        ',name))
 
   (defvar *package* (new))