From 84ec8185867fbbf4b7a29583fb1a68bd3a52d689 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 22 Apr 2013 20:14:03 +0100 Subject: [PATCH] Remove autogenerated file in master --- ecmalisp.js |10671 ----------------------------------------------------------- 1 file changed, 10671 deletions(-) delete mode 100644 ecmalisp.js diff --git a/ecmalisp.js b/ecmalisp.js deleted file mode 100644 index 296e945..0000000 --- a/ecmalisp.js +++ /dev/null @@ -1,10671 +0,0 @@ -var nil; - -function pv (x) { return x==undefined? nil: x; } - -function mv(){ - var r = []; - r['multiple-value'] = true; - for (var i=0; i n) throw 'too many arguments'; -} - -function checkArgs(args, n){ - checkArgsAtLeast(args, n); - checkArgsAtMost(args, n); -} - -// Improper list constructor (like LIST*) -function QIList(){ - if (arguments.length == 1) - return arguments[0]; - else { - var i = arguments.length-1; - var r = arguments[i--]; - for (; i>=0; i--){ - r = {car: arguments[i], cdr: r}; - } - return r; - } -} -var l1 = {name: "DEFMACRO"}; -l1; -var l2 = {name: "DECLAIM"}; -l2; -var l3 = {name: "DEFCONSTANT"}; -l3; -var l4 = {name: "T"}; -(function(){ - ((l4).value = l4); - return l4; -})(); -var l5 = {name: "NIL"}; -(function(){ - ((l5).value = l5); - return l5; -})(); -(nil = l5.value); -var l6 = {name: "LAMBDA"}; -l6; -var l7 = {name: "WHEN"}; -l7; -var l8 = {name: "UNLESS"}; -l8; -var l9 = {name: "DEFVAR"}; -l9; -var l10 = {name: "DEFPARAMETER"}; -l10; -var l11 = {name: "NAMED-LAMBDA"}; -l11; -var l12 = {name: "DEFUN"}; -l12; -var l13 = {name: "NULL"}; -(function(){ - (l13).fvalue = (function(v2){ - ((v2)["fname"] = "NULL"); - return v2; - })((function (values,v1){ - checkArgs(arguments, 2); - return (function(){ - return ((v1 === l5.value)?l4.value: l5.value); - })(); - })); - return l13; -})(); -var l14 = {name: "ENDP"}; -(function(){ - (l14).fvalue = (function(v4){ - ((v4)["fname"] = "ENDP"); - return v4; - })((function (values,v3){ - checkArgs(arguments, 2); - return (function(){ - return (l13.fvalue(pv, v3) !== l5.value ? l4.value : (((function(){ - var tmp = v3; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ - throw "type-error"; - })())); - })(); - })); - return l14; -})(); -var l15 = {name: "RETURN"}; -l15; -var l16 = {name: "WHILE"}; -l16; -var l17 = {name: "*GENSYM-COUNTER*"}; -(function(){ - (((l17.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l17).value = 0)); - return l17; -})(); -var l18 = {name: "GENSYM"}; -var l19 = {name: "INTEGER-TO-STRING"}; -(function(){ - (l18).fvalue = (function(v6){ - ((v6)["fname"] = "GENSYM"); - return v6; - })((function (values,v5){ - checkArgsAtMost(arguments, 2); - var v5; - switch(arguments.length-1){ - case 0: - v5="G"; - default: break; - } - return (function(){ - ((l17).value = (function(){ - var x1 = (function(){ - var symbol = l17; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()); - return (function(){ - var name = (function(){ - var string1 = v5; - var string2 = l19.fvalue(pv, (function(){ - var symbol = l17; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - if (typeof string1 != 'string') - throw 'The value ' + string1 + ' is not a type string.'; - if (typeof string2 != 'string') - throw 'The value ' + string2 + ' is not a type string.'; - return string1.concat(string2); - })(); - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })(); - })(); - })); - return l18; -})(); -var l20 = {name: "BOUNDP"}; -(function(){ - (l20).fvalue = (function(v8){ - ((v8)["fname"] = "BOUNDP"); - return v8; - })((function (values,v7){ - checkArgs(arguments, 2); - return (function(){ - return ((v7.value !== undefined)?l4.value: l5.value); - })(); - })); - return l20; -})(); -var l21 = {name: "="}; -(function(){ - (l21).fvalue = (function(v11){ - ((v11)["fname"] = "="); - return v11; - })((function (values,v9,v10){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var x1 = v9; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v10; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1==x2?l4.value: l5.value); - })(); - })(); - })); - return l21; -})(); -var l22 = {name: "*"}; -(function(){ - (l22).fvalue = (function(v14){ - ((v14)["fname"] = "*"); - return v14; - })((function (values,v12,v13){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var x1 = v12; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v13; - if (typeof x2 !== 'number') throw 'Not a number!'; - return x1*x2; - })(); - })(); - })); - return l22; -})(); -var l23 = {name: "/"}; -(function(){ - (l23).fvalue = (function(v17){ - ((v17)["fname"] = "/"); - return v17; - })((function (values,v15,v16){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var x1 = v15; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v16; - if (typeof x2 !== 'number') throw 'Not a number!'; - return x1/x2; - })(); - })(); - })); - return l23; -})(); -var l24 = {name: "1+"}; -(function(){ - (l24).fvalue = (function(v19){ - ((v19)["fname"] = "1+"); - return v19; - })((function (values,v18){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var x1 = v18; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })(); - })(); - })); - return l24; -})(); -var l25 = {name: "1-"}; -(function(){ - (l25).fvalue = (function(v21){ - ((v21)["fname"] = "1-"); - return v21; - })((function (values,v20){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var x1 = v20; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1-1; - })(); - })(); - })); - return l25; -})(); -var l26 = {name: "ZEROP"}; -(function(){ - (l26).fvalue = (function(v23){ - ((v23)["fname"] = "ZEROP"); - return v23; - })((function (values,v22){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var x1 = v22; - if (typeof x1 !== 'number') throw 'Not a number!'; - return (x1==0?l4.value: l5.value); - })(); - })(); - })); - return l26; -})(); -var l27 = {name: "TRUNCATE"}; -(function(){ - (l27).fvalue = (function(v26){ - ((v26)["fname"] = "TRUNCATE"); - return v26; - })((function (values,v24,v25){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var x = (function(){ - var x1 = v24; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v25; - if (typeof x2 !== 'number') throw 'Not a number!'; - return x1/x2; - })(); - if (typeof x != 'number') - throw 'The value ' + x + ' is not a type number.'; - return Math.floor(x); - })(); - })(); - })); - return l27; -})(); -var l28 = {name: "EQL"}; -(function(){ - (l28).fvalue = (function(v29){ - ((v29)["fname"] = "EQL"); - return v29; - })((function (values,v27,v28){ - checkArgs(arguments, 3); - return (function(){ - return ((v27 === v28)?l4.value: l5.value); - })(); - })); - return l28; -})(); -var l29 = {name: "NOT"}; -(function(){ - (l29).fvalue = (function(v31){ - ((v31)["fname"] = "NOT"); - return v31; - })((function (values,v30){ - checkArgs(arguments, 2); - return (function(){ - return (v30 !== l5.value ? l5.value : l4.value); - })(); - })); - return l29; -})(); -var l30 = {name: "CONS"}; -(function(){ - (l30).fvalue = (function(v34){ - ((v34)["fname"] = "CONS"); - return v34; - })((function (values,v32,v33){ - checkArgs(arguments, 3); - return (function(){ - return ({car: v32, cdr: v33}); - })(); - })); - return l30; -})(); -var l31 = {name: "CONSP"}; -(function(){ - (l31).fvalue = (function(v36){ - ((v36)["fname"] = "CONSP"); - return v36; - })((function (values,v35){ - checkArgs(arguments, 2); - return (function(){ - return ((function(){ - var tmp = v35; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value); - })(); - })); - return l31; -})(); -var l32 = {name: "CAR"}; -(function(){ - (l32).fvalue = (function(v38){ - ((v38)["fname"] = "CAR"); - return v38; - })((function(){ - var func = (function (values,v37){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = v37; - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - }); - func.docstring = 'Return the CAR part of a cons, or NIL if X is null.'; - return func; - })()); - return l32; -})(); -var l33 = {name: "CDR"}; -(function(){ - (l33).fvalue = (function(v40){ - ((v40)["fname"] = "CDR"); - return v40; - })((function (values,v39){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = v39; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })); - return l33; -})(); -var l34 = {name: "CAAR"}; -(function(){ - (l34).fvalue = (function(v42){ - ((v42)["fname"] = "CAAR"); - return v42; - })((function (values,v41){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = v41; - return tmp === l5.value? l5.value: tmp.car; - })(); - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l34; -})(); -var l35 = {name: "CADR"}; -(function(){ - (l35).fvalue = (function(v44){ - ((v44)["fname"] = "CADR"); - return v44; - })((function (values,v43){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = v43; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l35; -})(); -var l36 = {name: "CDAR"}; -(function(){ - (l36).fvalue = (function(v46){ - ((v46)["fname"] = "CDAR"); - return v46; - })((function (values,v45){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = v45; - return tmp === l5.value? l5.value: tmp.car; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })); - return l36; -})(); -var l37 = {name: "CDDR"}; -(function(){ - (l37).fvalue = (function(v48){ - ((v48)["fname"] = "CDDR"); - return v48; - })((function (values,v47){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = v47; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })); - return l37; -})(); -var l38 = {name: "CADAR"}; -(function(){ - (l38).fvalue = (function(v50){ - ((v50)["fname"] = "CADAR"); - return v50; - })((function (values,v49){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = (function(){ - var tmp = v49; - return tmp === l5.value? l5.value: tmp.car; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l38; -})(); -var l39 = {name: "CADDR"}; -(function(){ - (l39).fvalue = (function(v52){ - ((v52)["fname"] = "CADDR"); - return v52; - })((function (values,v51){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = (function(){ - var tmp = v51; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l39; -})(); -var l40 = {name: "CDDDR"}; -(function(){ - (l40).fvalue = (function(v54){ - ((v54)["fname"] = "CDDDR"); - return v54; - })((function (values,v53){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = (function(){ - var tmp = v53; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })); - return l40; -})(); -var l41 = {name: "CADDDR"}; -(function(){ - (l41).fvalue = (function(v56){ - ((v56)["fname"] = "CADDDR"); - return v56; - })((function (values,v55){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = (function(){ - var tmp = (function(){ - var tmp = (function(){ - var tmp = v55; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.cdr; - })(); - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l41; -})(); -var l42 = {name: "FIRST"}; -(function(){ - (l42).fvalue = (function(v58){ - ((v58)["fname"] = "FIRST"); - return v58; - })((function (values,v57){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = v57; - return tmp === l5.value? l5.value: tmp.car; - })(); - })(); - })); - return l42; -})(); -var l43 = {name: "SECOND"}; -(function(){ - (l43).fvalue = (function(v60){ - ((v60)["fname"] = "SECOND"); - return v60; - })((function (values,v59){ - checkArgs(arguments, 2); - return (function(){ - return l35.fvalue(values, v59); - })(); - })); - return l43; -})(); -var l44 = {name: "THIRD"}; -(function(){ - (l44).fvalue = (function(v62){ - ((v62)["fname"] = "THIRD"); - return v62; - })((function (values,v61){ - checkArgs(arguments, 2); - return (function(){ - return l39.fvalue(values, v61); - })(); - })); - return l44; -})(); -var l45 = {name: "FOURTH"}; -(function(){ - (l45).fvalue = (function(v64){ - ((v64)["fname"] = "FOURTH"); - return v64; - })((function (values,v63){ - checkArgs(arguments, 2); - return (function(){ - return l41.fvalue(values, v63); - })(); - })); - return l45; -})(); -var l46 = {name: "REST"}; -(function(){ - (l46).fvalue = (function(v66){ - ((v66)["fname"] = "REST"); - return v66; - })((function (values,v65){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var tmp = v65; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })); - return l46; -})(); -var l47 = {name: "LIST"}; -(function(){ - (l47).fvalue = (function(v68){ - ((v68)["fname"] = "LIST"); - return v68; - })((function (values){ - var v67= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v67 = {car: arguments[i], cdr: - v67}; - return (function(){ - return v67; - })(); - })); - return l47; -})(); -var l48 = {name: "ATOM"}; -(function(){ - (l48).fvalue = (function(v70){ - ((v70)["fname"] = "ATOM"); - return v70; - })((function (values,v69){ - checkArgs(arguments, 2); - return (function(){ - return l29.fvalue(values, ((function(){ - var tmp = v69; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value)); - })(); - })); - return l48; -})(); -var l49 = {name: "INCF"}; -l49; -var l50 = {name: "DECF"}; -l50; -var l51 = {name: "PUSH"}; -l51; -var l52 = {name: "DOLIST"}; -l52; -var l53 = {name: "DOTIMES"}; -l53; -var l54 = {name: "COND"}; -l54; -var l55 = {name: "CASE"}; -l55; -var l56 = {name: "ECASE"}; -l56; -var l57 = {name: "AND"}; -l57; -var l58 = {name: "OR"}; -l58; -var l59 = {name: "PROG1"}; -l59; -var l60 = {name: "PROG2"}; -l60; -var l61 = {name: "ENSURE-LIST"}; -var l62 = {name: "LISTP"}; -(function(){ - (l61).fvalue = (function(v72){ - ((v72)["fname"] = "ENSURE-LIST"); - return v72; - })((function (values,v71){ - checkArgs(arguments, 2); - return (function(){ - return (l62.fvalue(pv, v71) !== l5.value ? v71 : l47.fvalue(values, v71)); - })(); - })); - return l61; -})(); -var l63 = {name: "!REDUCE"}; -var l64 = {name: "INITIAL-VALUE", 'package': 'KEYWORD'}; -(function(){ - (l63).fvalue = (function(v76){ - ((v76)["fname"] = "!REDUCE"); - return v76; - })((function (values,v73,v74){ - checkArgsAtLeast(arguments, 3); - var v75; - var i; - for (i=3; i=1; i--) - v77 = {car: arguments[i], cdr: - v77}; - return (function(){ - return (function(v78){ - return (function(){ - return (function(v79,v80){ - (function(){ - while(v79 !== l5.value){ - (v80 = (function(){ - var tmp = v79; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (v78 = (function(){ - var x1 = v78; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v80; - if (typeof x2 !== 'number') throw 'Not a number!'; - return x1+x2; - })()); - return l5.value; - })(); - (v79 = (function(){ - var tmp = v79; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return v78; - })(v77,l5.value); - })(); - })(0); - })(); - })); - return l65; -})(); -var l66 = {name: "-"}; -(function(){ - (l66).fvalue = (function(v87){ - ((v87)["fname"] = "-"); - return v87; - })((function (values,v83){ - checkArgsAtLeast(arguments, 2); - var v82= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v82 = {car: arguments[i], cdr: - v82}; - return (function(){ - return (l13.fvalue(pv, v82) !== l5.value ? (function(){ - var x1 = v83; - if (typeof x1 !== 'number') throw 'Not a number!'; - return -x1; - })() : (function(v84){ - return (function(){ - return (function(v85,v86){ - (function(){ - while(v85 !== l5.value){ - (v86 = (function(){ - var tmp = v85; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (v84 = (function(){ - var x1 = v84; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v86; - if (typeof x2 !== 'number') throw 'Not a number!'; - return x1-x2; - })()); - return l5.value; - })(); - (v85 = (function(){ - var tmp = v85; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return v84; - })(v82,l5.value); - })(); - })(v83)); - })(); - })); - return l66; -})(); -var l67 = {name: "APPEND-TWO"}; -var l68 = {name: "APPEND"}; -(function(){ - (l67).fvalue = (function(v90){ - ((v90)["fname"] = "APPEND-TWO"); - return v90; - })((function (values,v88,v89){ - checkArgs(arguments, 3); - return (function(){ - return (l13.fvalue(pv, v88) !== l5.value ? v89 : ({car: (function(){ - var tmp = v88; - return tmp === l5.value? l5.value: tmp.car; - })(), cdr: l68.fvalue(pv, (function(){ - var tmp = v88; - return tmp === l5.value? l5.value: tmp.cdr; - })(), v89)})); - })(); - })); - return l67; -})(); -(function(){ - (l68).fvalue = (function(v92){ - ((v92)["fname"] = "APPEND"); - return v92; - })((function (values){ - var v91= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v91 = {car: arguments[i], cdr: - v91}; - return (function(){ - return l63.fvalue(values, (function(){ - var symbol = l67; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v91); - })(); - })); - return l68; -})(); -var l69 = {name: "REVAPPEND"}; -(function(){ - (l69).fvalue = (function(v97){ - ((v97)["fname"] = "REVAPPEND"); - return v97; - })((function (values,v93,v94){ - checkArgs(arguments, 3); - return (function(){ - (function(){ - return (function(){ - while(v93 !== l5.value){ - (function(){ - var v95 = (function(){ - var tmp = v93; - return tmp === l5.value? l5.value: tmp.car; - })(); - var v96 = ({car: v95, cdr: v94}); - return (v94 = v96); - })(); - (v93 = (function(){ - var tmp = v93; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - })(); - return v94; - })(); - })); - return l69; -})(); -var l70 = {name: "REVERSE"}; -(function(){ - (l70).fvalue = (function(v99){ - ((v99)["fname"] = "REVERSE"); - return v99; - })((function (values,v98){ - checkArgs(arguments, 2); - return (function(){ - return l69.fvalue(values, v98, l5); - })(); - })); - return l70; -})(); -var l71 = {name: "PSETQ"}; -l71; -var l72 = {name: "DO"}; -l72; -var l73 = {name: "DO*"}; -l73; -var l74 = {name: "LIST-LENGTH"}; -(function(){ - (l74).fvalue = (function(v102){ - ((v102)["fname"] = "LIST-LENGTH"); - return v102; - })((function (values,v100){ - checkArgs(arguments, 2); - return (function(){ - return (function(v101){ - (function(){ - return (function(){ - while(l29.fvalue(pv, l13.fvalue(pv, v100)) !== l5.value){ - (v101 = (function(){ - var x1 = v101; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()); - (v100 = (function(){ - var tmp = v100; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - })(); - return v101; - })(0); - })(); - })); - return l74; -})(); -var l75 = {name: "LENGTH"}; -(function(){ - (l75).fvalue = (function(v104){ - ((v104)["fname"] = "LENGTH"); - return v104; - })((function (values,v103){ - checkArgs(arguments, 2); - return (function(){ - return (((typeof(v103) == "string")?l4.value: l5.value) !== l5.value ? (function(){ - var x = v103; - if (typeof x != 'string') - throw 'The value ' + x + ' is not a type string.'; - return x.length; - })() : (((function(){ - var x = v103; - return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? (function(){ - var tmp = (v103)["length"]; - return tmp == undefined? l5.value: tmp ; - })() : (l62.fvalue(pv, v103) !== l5.value ? l74.fvalue(values, v103) : l5.value))); - })(); - })); - return l75; -})(); -var l76 = {name: "CONCAT-TWO"}; -(function(){ - (l76).fvalue = (function(v107){ - ((v107)["fname"] = "CONCAT-TWO"); - return v107; - })((function (values,v105,v106){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var string1 = v105; - var string2 = v106; - if (typeof string1 != 'string') - throw 'The value ' + string1 + ' is not a type string.'; - if (typeof string2 != 'string') - throw 'The value ' + string2 + ' is not a type string.'; - return string1.concat(string2); - })(); - })(); - })); - return l76; -})(); -var l77 = {name: "WITH-COLLECT"}; -l77; -var l78 = {name: "MAP1"}; -var l79 = {name: "SENTINEL"}; -(function(){ - (l78).fvalue = (function(v114){ - ((v114)["fname"] = "MAP1"); - return v114; - })((function (values,v108,v109){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var v110 = ({car: l79, cdr: l5.value}); - var v111 = v110; - (function(v113){ - return (function(){ - return (function(){ - while(v109 !== l5.value){ - v113(pv, (function(){ - var f = v108; - return (typeof f === 'function'? f: f.fvalue)(pv, (function(){ - var tmp = v109; - return tmp === l5.value? l5.value: tmp.car; - })()) - })()); - (v109 = (function(){ - var tmp = v109; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - })(); - })((function (values,v112){ - checkArgs(arguments, 2); - (function(){ - var x = v111; - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = ({car: v112, cdr: l5.value}), x); - })(); - (v111 = (function(){ - var tmp = v111; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - return v112; - })); - return (function(){ - var tmp = v110; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })(); - })); - return l78; -})(); -var l80 = {name: "LOOP"}; -l80; -var l81 = {name: "MAPCAR"}; -(function(){ - (l81).fvalue = (function(v126){ - ((v126)["fname"] = "MAPCAR"); - return v126; - })((function (values,v116,v117){ - checkArgsAtLeast(arguments, 3); - var v115= l5.value; - for (var i = arguments.length-1; i>=3; i--) - v115 = {car: arguments[i], cdr: - v115}; - return (function(){ - return (function(v118){ - return (function(){ - var v119 = ({car: l79, cdr: l5.value}); - var v120 = v119; - (function(v122){ - return (function(){ - try { - return (function(){ - return (function(){ - while(l4.value !== l5.value){ - (function(v123){ - (function(){ - return (function(v124){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, v124) !== l5.value ? (function(){ - throw ({type: 'block', id: 54, values: l5.value, message: 'Return from unknown block NIL.'}) - })() : l5.value); - (function(){ - (l13.fvalue(pv, (function(){ - var tmp = v124; - return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? (function(){ - throw ({type: 'block', id: 51, values: l5.value, message: 'Return from unknown block LOOP.'}) - })() : l5.value); - (function(){ - var x = v124; - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.car = l36.fvalue(pv, v124), x); - })(); - return l5.value; - })(); - (function(v125){ - return (v124 = v125); - })((function(){ - var tmp = v124; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 54) - return cf.values; - else - throw cf; - } - })(); - })(v118); - })(); - return v122(pv, (function(){ - var f = v116; - var args = [pv]; - var tail = (v123); - while (tail != l5.value){ - args.push(tail.car); - tail = tail.cdr; - } - return (typeof f === 'function'? f : f.fvalue).apply(this, args); - })()); - })(l78.fvalue(pv, (function(){ - var symbol = l32; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v118)); - }return l5.value; - })(); - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 51) - return cf.values; - else - throw cf; - } - })(); - })((function (values,v121){ - checkArgs(arguments, 2); - (function(){ - var x = v120; - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = ({car: v121, cdr: l5.value}), x); - })(); - (v120 = (function(){ - var tmp = v120; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - return v121; - })); - return (function(){ - var tmp = v119; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - })(); - })(({car: v117, cdr: v115})); - })(); - })); - return l81; -})(); -var l82 = {name: "IDENTITY"}; -(function(){ - (l82).fvalue = (function(v128){ - ((v128)["fname"] = "IDENTITY"); - return v128; - })((function (values,v127){ - checkArgs(arguments, 2); - return (function(){ - return v127; - })(); - })); - return l82; -})(); -var l83 = {name: "CONSTANTLY"}; -(function(){ - (l83).fvalue = (function(v131){ - ((v131)["fname"] = "CONSTANTLY"); - return v131; - })((function (values,v129){ - checkArgs(arguments, 2); - return (function(){ - return (function (values){ - var v130= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v130 = {car: arguments[i], cdr: - v130}; - return v129; - }); - })(); - })); - return l83; -})(); -var l84 = {name: "COPY-LIST"}; -(function(){ - (l84).fvalue = (function(v133){ - ((v133)["fname"] = "COPY-LIST"); - return v133; - })((function (values,v132){ - checkArgs(arguments, 2); - return (function(){ - return l81.fvalue(values, (function(){ - var symbol = l82; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v132); - })(); - })); - return l84; -})(); -var l85 = {name: "LIST*"}; -(function(){ - (l85).fvalue = (function(v138){ - ((v138)["fname"] = "LIST*"); - return v138; - })((function (values,v135){ - checkArgsAtLeast(arguments, 2); - var v134= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v134 = {car: arguments[i], cdr: - v134}; - return (function(){ - return (l13.fvalue(pv, v134) !== l5.value ? v135 : (l13.fvalue(pv, (function(){ - var tmp = v134; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? ({car: v135, cdr: (function(){ - var tmp = v134; - return tmp === l5.value? l5.value: tmp.car; - })()}) : (function(){ - (function(){ - return (function(v136){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, l37.fvalue(pv, v136)) !== l5.value ? (function(){ - throw ({type: 'block', id: 60, values: (function(){ - var x = v136; - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = l35.fvalue(pv, v136), x); - })(), message: 'Return from unknown block NIL.'}) - })() : l5.value); - l5.value; - (function(v137){ - return (v136 = v137); - })((function(){ - var tmp = v136; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 60) - return cf.values; - else - throw cf; - } - })(); - })(v134); - })(); - return ({car: v135, cdr: v134}); - })())); - })(); - })); - return l85; -})(); -var l86 = {name: "CODE-CHAR"}; -(function(){ - (l86).fvalue = (function(v140){ - ((v140)["fname"] = "CODE-CHAR"); - return v140; - })((function (values,v139){ - checkArgs(arguments, 2); - return (function(){ - return v139; - })(); - })); - return l86; -})(); -var l87 = {name: "CHAR-CODE"}; -(function(){ - (l87).fvalue = (function(v142){ - ((v142)["fname"] = "CHAR-CODE"); - return v142; - })((function (values,v141){ - checkArgs(arguments, 2); - return (function(){ - return v141; - })(); - })); - return l87; -})(); -var l88 = {name: "CHAR="}; -(function(){ - (l88).fvalue = (function(v145){ - ((v145)["fname"] = "CHAR="); - return v145; - })((function (values,v143,v144){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var x1 = v143; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v144; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1==x2?l4.value: l5.value); - })(); - })(); - })); - return l88; -})(); -var l89 = {name: "INTEGERP"}; -(function(){ - (l89).fvalue = (function(v147){ - ((v147)["fname"] = "INTEGERP"); - return v147; - })((function (values,v146){ - checkArgs(arguments, 2); - return (function(){ - return (((typeof (v146) == "number")?l4.value: l5.value) !== l5.value ? (function(){ - var x1 = (function(){ - var x = v146; - if (typeof x != 'number') - throw 'The value ' + x + ' is not a type number.'; - return Math.floor(x); - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v146; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1==x2?l4.value: l5.value); - })() : l5.value); - })(); - })); - return l89; -})(); -var l90 = {name: "PLUSP"}; -(function(){ - (l90).fvalue = (function(v149){ - ((v149)["fname"] = "PLUSP"); - return v149; - })((function (values,v148){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var x1 = v148; - if (typeof x1 !== 'number') throw 'Not a number!'; - return (0=1; i--) - v238 = {car: arguments[i], cdr: - v238}; - return (function(){ - return (function(v240){ - return (function(){ - return (function(v241){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, v241) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 98, values: l5.value, message: 'Return from unknown block NIL.'}) - })() : l5.value); - (function(){ - (function(v242){ - return (function(v243){ - return (((function(){ - var tmp = v243; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(){ - var v244 = v242; - var v245 = v244; - (function(){ - return (function(v246){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l14.fvalue(pv, v246) !== l5.value ? (function(){ - throw ({type: 'block', id: 100, values: l5.value, message: 'Return from unknown block NIL.'}) - })() : l5.value); - (function(){ - (function(v247){ - return (function(v248){ - return (((function(){ - var tmp = v248; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(){ - (function(){ - var x = l94.fvalue(pv, v245); - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v247, x); - })(); - return (function(){ - return (function(){ - var func = (function (values,v250){ - var v250; - switch(arguments.length-1){ - case 0: - v250=l5.value; - default: break; - } - var v249= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v249 = {car: arguments[i], cdr: - v249}; - return (v245 = v250); - }); - var args = [pv]; - return (function(){ - var values = mv; - var vs; - vs = v247; - if (typeof vs === 'object' && 'multiple-value' in vs) - args = args.concat(vs); - else - args.push(vs); - return func.apply(window, args); - })(); - })(); - })(); - })() : (l13.fvalue(pv, v248) !== l5.value ? (function(){ - var x = l94.fvalue(pv, v245); - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = l5.value, x); - })() : (l48.fvalue(pv, v248) !== l5.value ? ((function(){ - var tmp = v246; - return tmp === l5.value? l5.value: tmp.cdr; - })() !== l5.value ? v240(pv, v247) : (function(){ - var x = l94.fvalue(pv, v245); - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v247, x); - })()) : l5.value))); - })(v247); - })((function(){ - var tmp = v246; - return tmp === l5.value? l5.value: tmp.car; - })()); - return l5.value; - })(); - (function(v251){ - return (v246 = v251); - })((function(){ - var tmp = v246; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 100) - return cf.values; - else - throw cf; - } - })(); - })((function(){ - var tmp = v241; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - })(); - return (function(){ - var values = mv; - throw ({type: 'block', id: 98, values: v244, message: 'Return from unknown block NIL.'}) - })(); - })() : (l13.fvalue(pv, v243) !== l5.value ? l5.value : (l48.fvalue(pv, v243) !== l5.value ? ((function(){ - var tmp = v241; - return tmp === l5.value? l5.value: tmp.cdr; - })() !== l5.value ? v240(pv, v242) : (function(){ - var values = mv; - throw ({type: 'block', id: 98, values: v242, message: 'Return from unknown block NIL.'}) - })()) : l5.value))); - })(v242); - })((function(){ - var tmp = v241; - return tmp === l5.value? l5.value: tmp.car; - })()); - return l5.value; - })(); - (function(v252){ - return (v241 = v252); - })((function(){ - var tmp = v241; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 98) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })(v238); - })(); - })((function (values,v239){ - checkArgs(arguments, 2); - return (function(){ - throw "type-error in nconc"; - })(); - })); - })(); - })); - return l127; -})(); -var l128 = {name: "NRECONC"}; -(function(){ - (l128).fvalue = (function(v262){ - ((v262)["fname"] = "NRECONC"); - return v262; - })((function (values,v254,v255){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - return (function(v256,v257,v258){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l48.fvalue(pv, v257) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 103, values: v258, message: 'Return from unknown block NIL.'}) - })() : l5.value); - (function(){ - (function(){ - var x = v257; - if (typeof x != 'object') - throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v258, x); - })(); - return l5.value; - })(); - (function(v259,v260,v261){ - return (v256 = v259, v257 = v260, v258 = v261); - })((l14.fvalue(pv, v256) !== l5.value ? v256 : (function(){ - var tmp = v256; - return tmp === l5.value? l5.value: tmp.cdr; - })()),v256,v257); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 103) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })((function(){ - var tmp = v254; - return tmp === l5.value? l5.value: tmp.cdr; - })(),v254,v255); - })(); - })(); - })); - return l128; -})(); -var l129 = {name: "NOTANY"}; -(function(){ - (l129).fvalue = (function(v265){ - ((v265)["fname"] = "NOTANY"); - return v265; - })((function (values,v263,v264){ - checkArgs(arguments, 3); - return (function(){ - return l29.fvalue(values, l104.fvalue(pv, v263, v264)); - })(); - })); - return l129; -})(); -var l130 = {name: "*PACKAGE-LIST*"}; -(function(){ - (((l130.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l130).value = l5.value)); - return l130; -})(); -var l131 = {name: "LIST-ALL-PACKAGES"}; -(function(){ - (l131).fvalue = (function(v266){ - ((v266)["fname"] = "LIST-ALL-PACKAGES"); - return v266; - })((function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ - return (function(){ - var symbol = l130; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - })(); - })); - return l131; -})(); -var l132 = {name: "MAKE-PACKAGE"}; -var l133 = {name: "USE", 'package': 'KEYWORD'}; -var l134 = {name: "FIND-PACKAGE-OR-FAIL"}; -(function(){ - (l132).fvalue = (function(v273){ - ((v273)["fname"] = "MAKE-PACKAGE"); - return v273; - })((function (values,v267){ - checkArgsAtLeast(arguments, 2); - var v268; - var i; - for (i=2; i=3; i--) - v314 = {car: arguments[i], cdr: - v314}; - return (v316 !== l5.value ? values(v315, v316) : (function(v317){ - (function(){ - var tmp = (v317)[v311]; - return tmp == undefined? l5.value: tmp ; - })(); - return (function(v318){ - ((v318)["package"] = v313); - (((v313 === (function(){ - var symbol = l143; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (function(){ - ((v318)["value"] = v318); - return l154.fvalue(pv, l47.fvalue(pv, v318), v313); - })() : l5.value); - ((v317)[v311] = v318); - return values(v318, l5.value); - })((function(){ - var name = v311; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })()); - })(l138.fvalue(pv, v313))); - }); - var args = [values]; - return (function(){ - var values = mv; - var vs; - vs = l149.fvalue(values, v311, v313); - if (typeof vs === 'object' && 'multiple-value' in vs) - args = args.concat(vs); - else - args.push(vs); - return func.apply(window, args); - })(); - })(); - })(l134.fvalue(pv, v312)); - })(); - })); - return l153; -})(); -(function(){ - (l145).fvalue = (function(v321){ - ((v321)["fname"] = "SYMBOL-PACKAGE"); - return v321; - })((function (values,v320){ - checkArgs(arguments, 2); - return (function(){ - (((function(){ - var tmp = v320; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ - throw "it is not a symbol"; - })()); - return (function(){ - var tmp = (v320)["package"]; - return tmp == undefined? l5.value: tmp ; - })(); - })(); - })); - return l145; -})(); -(function(){ - (l154).fvalue = (function(v327){ - ((v327)["fname"] = "EXPORT"); - return v327; - })((function (values,v322,v323){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v323; - switch(arguments.length-1){ - case 1: - v323=(function(){ - var symbol = l146; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - default: break; - } - return (function(){ - return (function(v324){ - return (function(){ - return (function(v325,v326){ - (function(){ - while(v325 !== l5.value){ - (v326 = (function(){ - var tmp = v325; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - ((v324)[(v326).name] = v326); - return l5.value; - })(); - (v325 = (function(){ - var tmp = v325; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return l4.value; - })(v322,l5.value); - })(); - })(l140.fvalue(pv, v323)); - })(); - })); - return l154; -})(); -var l155 = {name: "GET-UNIVERSAL-TIME"}; -(function(){ - (l155).fvalue = (function(v328){ - ((v328)["fname"] = "GET-UNIVERSAL-TIME"); - return v328; - })((function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ - return (function(){ - var x1 = (Math.round(new Date() / 1000)); - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+2208988800; - })(); - })(); - })); - return l155; -})(); -var l156 = {name: "*NEWLINE*"}; -(function(){ - (((l156.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l156).value = l107.fvalue(pv, l86.fvalue(pv, 10)))); - return l156; -})(); -var l157 = {name: "CONCAT"}; -(function(){ - (l157).fvalue = (function(v330){ - ((v330)["fname"] = "CONCAT"); - return v330; - })((function (values){ - var v329= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v329 = {car: arguments[i], cdr: - v329}; - return (function(){ - return l63.fvalue(values, (function(){ - var symbol = l76; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v329, l64.value, ""); - })(); - })); - return l157; -})(); -var l158 = {name: "CONCATF"}; -l158; -var l159 = {name: "JOIN"}; -(function(){ - (l159).fvalue = (function(v333){ - ((v333)["fname"] = "JOIN"); - return v333; - })((function (values,v331,v332){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v332; - switch(arguments.length-1){ - case 1: - v332=""; - default: break; - } - return (function(){ - return (l13.fvalue(pv, v331) !== l5.value ? "" : (l13.fvalue(pv, (function(){ - var tmp = v331; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? (function(){ - var tmp = v331; - return tmp === l5.value? l5.value: tmp.car; - })() : l157.fvalue(values, (function(){ - var tmp = v331; - return tmp === l5.value? l5.value: tmp.car; - })(), v332, l159.fvalue(pv, (function(){ - var tmp = v331; - return tmp === l5.value? l5.value: tmp.cdr; - })(), v332)))); - })(); - })); - return l159; -})(); -var l160 = {name: "JOIN-TRAILING"}; -(function(){ - (l160).fvalue = (function(v336){ - ((v336)["fname"] = "JOIN-TRAILING"); - return v336; - })((function (values,v334,v335){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v335; - switch(arguments.length-1){ - case 1: - v335=""; - default: break; - } - return (function(){ - return (l13.fvalue(pv, v334) !== l5.value ? "" : l157.fvalue(values, (function(){ - var tmp = v334; - return tmp === l5.value? l5.value: tmp.car; - })(), v335, l160.fvalue(pv, (function(){ - var tmp = v334; - return tmp === l5.value? l5.value: tmp.cdr; - })(), v335))); - })(); - })); - return l160; -})(); -var l161 = {name: "MAPCONCAT"}; -(function(){ - (l161).fvalue = (function(v339){ - ((v339)["fname"] = "MAPCONCAT"); - return v339; - })((function (values,v337,v338){ - checkArgs(arguments, 3); - return (function(){ - return l159.fvalue(values, l81.fvalue(pv, v337, v338)); - })(); - })); - return l161; -})(); -var l162 = {name: "VECTOR-TO-LIST"}; -(function(){ - (l162).fvalue = (function(v347){ - ((v347)["fname"] = "VECTOR-TO-LIST"); - return v347; - })((function (values,v340){ - checkArgs(arguments, 2); - return (function(){ - return (function(v341,v342){ - return (function(){ - return (function(v343,v344){ - (function(){ - while((function(){ - var x1 = v343; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v344; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1= x.length) throw 'Out of range'; - return x[i] = v352; - })(); - (v350 = (function(){ - var x1 = v350; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()); - return l5.value; - })(); - (v351 = (function(){ - var tmp = v351; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return v349; - })(v348,l5.value); - })(); - })((function(){ - var r = []; - for (var i = 0; i < l75.fvalue(pv, v348); i++) - r.push(l5.value); - return r; - })(),0); - })(); - })); - return l163; -})(); -var l164 = {name: "VALUES-LIST"}; -(function(){ - (l164).fvalue = (function(v355){ - ((v355)["fname"] = "VALUES-LIST"); - return v355; - })((function (values,v354){ - checkArgs(arguments, 2); - return (function(){ - return values.apply(this, l163.fvalue(pv, v354)); - })(); - })); - return l164; -})(); -var l165 = {name: "VALUES"}; -(function(){ - (l165).fvalue = (function(v357){ - ((v357)["fname"] = "VALUES"); - return v357; - })((function (values){ - var v356= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v356 = {car: arguments[i], cdr: - v356}; - return (function(){ - return l164.fvalue(values, v356); - })(); - })); - return l165; -})(); -(function(){ - (l19).fvalue = (function(v363){ - ((v363)["fname"] = "INTEGER-TO-STRING"); - return v363; - })((function (values,v358){ - checkArgs(arguments, 2); - return (function(){ - return (l26.fvalue(pv, v358) !== l5.value ? "0" : (l91.fvalue(pv, v358) !== l5.value ? l157.fvalue(values, "-", l19.fvalue(pv, (function(){ - var x1 = v358; - if (typeof x1 !== 'number') throw 'Not a number!'; - return 0-x1; - })())) : (function(v359){ - (function(){ - return (function(){ - while(l29.fvalue(pv, l26.fvalue(pv, v358)) !== l5.value){ - (function(){ - var v360 = (function(){ - var x = v358; - var y = 10; - if (typeof x != 'number') - throw 'The value ' + x + ' is not a type number.'; - if (typeof y != 'number') - throw 'The value ' + y + ' is not a type number.'; - return x%y; - })(); - var v361 = ({car: v360, cdr: v359}); - return (v359 = v361); - })(); - (v358 = l27.fvalue(pv, v358, 10)); - }return l5.value; - })(); - })(); - return l161.fvalue(values, (function (values,v362){ - checkArgs(arguments, 2); - return l107.fvalue(values, l101.fvalue(pv, v362)); - }), v359); - })(l5.value))); - })(); - })); - return l19; -})(); -var l166 = {name: "PRIN1-TO-STRING"}; -var l167 = {name: "ESCAPE-STRING"}; -(function(){ - (l166).fvalue = (function(v372){ - ((v372)["fname"] = "PRIN1-TO-STRING"); - return v372; - })((function (values,v364){ - checkArgs(arguments, 2); - return (function(){ - return (((function(){ - var tmp = v364; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(){ - var func = (function (values,v366,v367){ - var v366; - var v367; - switch(arguments.length-1){ - case 0: - v366=l5.value; - case 1: - v367=l5.value; - default: break; - } - var v365= l5.value; - for (var i = arguments.length-1; i>=3; i--) - v365 = {car: arguments[i], cdr: - v365}; - return ((v367 !== l5.value ? ((v366 === v364)?l4.value: l5.value) : l5.value) !== l5.value ? (v364).name : (function(v368,v369){ - return l157.fvalue(values, (l13.fvalue(pv, v368) !== l5.value ? "#" : (((v368 === l136.fvalue(pv, "KEYWORD"))?l4.value: l5.value) !== l5.value ? "" : l137.fvalue(pv, v368))), ":", v369); - })(l145.fvalue(pv, v364),(v364).name)); - }); - var args = [values]; - return (function(){ - var values = mv; - var vs; - vs = l149.fvalue(values, (v364).name, (function(){ - var symbol = l146; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - if (typeof vs === 'object' && 'multiple-value' in vs) - args = args.concat(vs); - else - args.push(vs); - return func.apply(window, args); - })(); - })() : (l89.fvalue(pv, v364) !== l5.value ? l19.fvalue(values, v364) : (((typeof(v364) == "string")?l4.value: l5.value) !== l5.value ? l157.fvalue(values, "\"", l167.fvalue(pv, v364), "\"") : (((typeof v364 == 'function')?l4.value: l5.value) !== l5.value ? (function(v370){ - return (v370 !== l5.value ? l157.fvalue(values, "#") : l157.fvalue(values, "#")); - })((function(){ - var tmp = (v364)["fname"]; - return tmp == undefined? l5.value: tmp ; - })()) : (l62.fvalue(pv, v364) !== l5.value ? l157.fvalue(values, "(", l160.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l166; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l95.fvalue(pv, v364)), " "), (function(v371){ - return (l13.fvalue(pv, (function(){ - var tmp = v371; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? l166.fvalue(pv, (function(){ - var tmp = v371; - return tmp === l5.value? l5.value: tmp.car; - })()) : l157.fvalue(pv, l166.fvalue(pv, (function(){ - var tmp = v371; - return tmp === l5.value? l5.value: tmp.car; - })()), " . ", l166.fvalue(pv, (function(){ - var tmp = v371; - return tmp === l5.value? l5.value: tmp.cdr; - })()))); - })(l94.fvalue(pv, v364)), ")") : (((function(){ - var x = v364; - return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l157.fvalue(values, "#", (l26.fvalue(pv, l75.fvalue(pv, v364)) !== l5.value ? "()" : l166.fvalue(pv, l162.fvalue(pv, v364)))) : (l135.fvalue(pv, v364) !== l5.value ? l157.fvalue(values, "#") : l5.value))))))); - })(); - })); - return l166; -})(); -(function(){ - (l111).fvalue = (function(v374){ - ((v374)["fname"] = "WRITE-LINE"); - return v374; - })((function (values,v373){ - checkArgs(arguments, 2); - return (function(){ - (function(){ - var x = v373; - if (typeof x != 'string') - throw 'The value ' + x + ' is not a type string.'; - return lisp.write(x); - })(); - (function(){ - var x = (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - if (typeof x != 'string') - throw 'The value ' + x + ' is not a type string.'; - return lisp.write(x); - })(); - return v373; - })(); - })); - return l111; -})(); -var l168 = {name: "WARN"}; -(function(){ - (l168).fvalue = (function(v376){ - ((v376)["fname"] = "WARN"); - return v376; - })((function (values,v375){ - checkArgs(arguments, 2); - return (function(){ - (function(){ - var x = "WARNING: "; - if (typeof x != 'string') - throw 'The value ' + x + ' is not a type string.'; - return lisp.write(x); - })(); - return l111.fvalue(values, v375); - })(); - })); - return l168; -})(); -var l169 = {name: "PRINT"}; -(function(){ - (l169).fvalue = (function(v378){ - ((v378)["fname"] = "PRINT"); - return v378; - })((function (values,v377){ - checkArgs(arguments, 2); - return (function(){ - l111.fvalue(pv, l166.fvalue(pv, v377)); - return v377; - })(); - })); - return l169; -})(); -var l170 = {name: "MAKE-STRING-STREAM"}; -(function(){ - (l170).fvalue = (function(v380){ - ((v380)["fname"] = "MAKE-STRING-STREAM"); - return v380; - })((function (values,v379){ - checkArgs(arguments, 2); - return (function(){ - return ({car: v379, cdr: 0}); - })(); - })); - return l170; -})(); -var l171 = {name: "%PEEK-CHAR"}; -(function(){ - (l171).fvalue = (function(v382){ - ((v382)["fname"] = "%PEEK-CHAR"); - return v382; - })((function (values,v381){ - checkArgs(arguments, 2); - return (function(){ - return ((function(){ - var x1 = (function(){ - var tmp = v381; - return tmp === l5.value? l5.value: tmp.cdr; - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = l75.fvalue(pv, (function(){ - var tmp = v381; - return tmp === l5.value? l5.value: tmp.car; - })()); - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1=1; i--) - v449 = {car: arguments[i], cdr: - v449}; - return (function(){ - return l161.fvalue(values, (function (values,v450){ - checkArgs(arguments, 2); - return (l13.fvalue(pv, v450) !== l5.value ? "" : (l89.fvalue(pv, v450) !== l5.value ? l19.fvalue(values, v450) : (((typeof(v450) == "string")?l4.value: l5.value) !== l5.value ? v450 : (function(){ - throw "Unknown argument."; - })()))); - }), v449); - })(); - })); - return l191; -})(); -var l192 = {name: "JS!BOOL"}; -var l193 = {name: "LS-COMPILE"}; -(function(){ - (l192).fvalue = (function(v453){ - ((v453)["fname"] = "JS!BOOL"); - return v453; - })((function (values,v452){ - checkArgs(arguments, 2); - return (function(){ - return l191.fvalue(values, "(", v452, "?", l193.fvalue(pv, l4.value), ": ", l193.fvalue(pv, l5.value), ")"); - })(); - })); - return l192; -})(); -var l194 = {name: "JS!SELFCALL"}; -l194; -var l195 = {name: "INDENT"}; -(function(){ - (l195).fvalue = (function(v460){ - ((v460)["fname"] = "INDENT"); - return v460; - })((function (values){ - var v454= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v454 = {car: arguments[i], cdr: - v454}; - return (function(){ - return (function(v455){ - return (function(v456,v457,v458){ - (l90.fvalue(pv, l75.fvalue(pv, v455)) !== l5.value ? (v456 = l157.fvalue(pv, v456, " ")) : l5.value); - (function(){ - return (function(){ - while((function(){ - var x1 = v457; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v458; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1=2; i--) - v577 = {car: arguments[i], cdr: - v577}; - return (function(){ - return (v578 !== l5.value ? l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var func = ", l159.fvalue(pv, v577), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "func.docstring = '", v578, "';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return func;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()") : (function(){ - var f = (function(){ - var symbol = l191; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(); - var args = [values]; - var tail = (v577); - while (tail != l5.value){ - args.push(tail.car); - tail = tail.cdr; - } - return (typeof f === 'function'? f : f.fvalue).apply(this, args); - })()); - })(); - })); - return l247; -})(); -var l248 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; -var l249 = {name: "N/A"}; -(function(){ - (l248).fvalue = (function(v585){ - ((v585)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); - return v585; - })((function (values,v580,v581,v582){ - checkArgs(arguments, 4); - return (function(){ - return (function(v583,v584){ - return (function(){ - try { - (((function(){ - var x1 = v583; - if (typeof x1 !== 'number') throw 'Not a number!'; - return (1=", (function(){ - var x1 = v600; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v601; - if (typeof x2 !== 'number') throw 'Not a number!'; - return 1+x1+x2; - })(), "; i--)", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, v603, " = {car: arguments[i], cdr: "), v603, "};", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l215.fvalue(pv, v602)) : l5.value); - })(l75.fvalue(pv, l240.fvalue(pv, v599)),l75.fvalue(pv, l242.fvalue(pv, v599)),l243.fvalue(pv, v599)); - })(); - })); - return l251; -})(); -var l252 = {name: "COMPILE-LAMBDA-PARSE-KEYWORDS"}; -(function(){ - (l252).fvalue = (function(v615){ - ((v615)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS"); - return v615; - })((function (values,v605){ - checkArgs(arguments, 2); - return (function(){ - return (function(v606,v607,v608){ - return l191.fvalue(values, l161.fvalue(pv, (function (values,v609){ - checkArgs(arguments, 2); - return (function(v610){ - return l191.fvalue(values, "var ", l215.fvalue(pv, v610), "; ", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (l44.fvalue(pv, v609) !== l5.value ? l191.fvalue(pv, "var ", l215.fvalue(pv, l44.fvalue(pv, v609)), " = ", l193.fvalue(pv, l5.value), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value)); - })(l43.fvalue(pv, (function(){ - var tmp = v609; - return tmp === l5.value? l5.value: tmp.car; - })())); - }), v608), (function(v613){ - return (v608 !== l5.value ? l191.fvalue(pv, "var i;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l161.fvalue(pv, v613, v608)) : l5.value); - })((function (values,v611){ - checkArgs(arguments, 2); - return l191.fvalue(values, "for (i=", (function(){ - var x1 = v606; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v607; - if (typeof x2 !== 'number') throw 'Not a number!'; - return 1+x1+x2; - })(), "; i=1; i--) - v634 = {car: arguments[i], cdr: - v634}; - return (function(){ - return (function(v635){ - (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, v634) !== l5.value ? (function(){ - throw ({type: 'block', id: 215, values: l5.value, message: 'Return from unknown block NIL.'}) - })() : (l13.fvalue(pv, (function(){ - var tmp = v634; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? (function(){ - throw "Odd paris in SETQ"; - })() : (function(){ - (v635 = l157.fvalue(pv, v635, l157.fvalue(pv, l255.fvalue(pv, (function(){ - var tmp = v634; - return tmp === l5.value? l5.value: tmp.car; - })(), l35.fvalue(pv, v634)), (l13.fvalue(pv, l37.fvalue(pv, v634)) !== l5.value ? "" : ", ")))); - return (v634 = l37.fvalue(pv, v634)); - })())); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 215) - return cf.values; - else - throw cf; - } - })(); - return l191.fvalue(values, "(", v635, ")"); - })(""); - })(); - })); - var v636 = ({car: v633, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v636); -})(); -var l257 = {name: "JS-VREF"}; -(function(){ - var v637 = l47.fvalue(pv, l257, (function (values,v638){ - checkArgs(arguments, 2); - return (function(){ - return v638; - })(); - })); - var v639 = ({car: v637, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v639); -})(); -var l258 = {name: "JS-VSET"}; -(function(){ - var v640 = l47.fvalue(pv, l258, (function (values,v641,v642){ - checkArgs(arguments, 3); - return (function(){ - return l191.fvalue(values, "(", v641, " = ", l193.fvalue(pv, v642), ")"); - })(); - })); - var v643 = ({car: v640, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v643); -})(); -(function(){ - (l167).fvalue = (function(v650){ - ((v650)["fname"] = "ESCAPE-STRING"); - return v650; - })((function (values,v644){ - checkArgs(arguments, 2); - return (function(){ - return (function(v645,v646,v647){ - (function(){ - return (function(){ - while((function(){ - var x1 = v646; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v647; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1=2; i--) - v673 = {car: arguments[i], cdr: - v673}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "while(", l193.fvalue(pv, v674), " !== ", l193.fvalue(pv, l5.value), "){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l254.fvalue(pv, v673)), "}", "return ", l193.fvalue(pv, l5.value), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v675 = ({car: v672, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v675); -})(); -var l264 = {name: "SYMBOL-FUNCTION"}; -(function(){ - var v676 = l47.fvalue(pv, l113, (function (values,v677){ - checkArgs(arguments, 2); - return (function(){ - return ((l62.fvalue(pv, v677) !== l5.value ? (((function(){ - var tmp = v677; - return tmp === l5.value? l5.value: tmp.car; - })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l253.fvalue(values, l35.fvalue(pv, v677), l37.fvalue(pv, v677)) : (((function(){ - var tmp = v677; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v678){ - return (v678 !== l5.value ? l200.fvalue(values, v678) : l193.fvalue(values, l47.fvalue(pv, l264, l47.fvalue(pv, l186, v677)))); - })(l211.fvalue(pv, v677, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l113)) : l5.value)); - })(); - })); - var v679 = ({car: v676, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v679); -})(); -var l265 = {name: "MAKE-FUNCTION-BINDING"}; -(function(){ - (l265).fvalue = (function(v681){ - ((v681)["fname"] = "MAKE-FUNCTION-BINDING"); - return v681; - })((function (values,v680){ - checkArgs(arguments, 2); - return (function(){ - return l197.fvalue(values, v680, l113, l214.fvalue(pv, v680)); - })(); - })); - return l265; -})(); -var l266 = {name: "COMPILE-FUNCTION-DEFINITION"}; -(function(){ - (l266).fvalue = (function(v683){ - ((v683)["fname"] = "COMPILE-FUNCTION-DEFINITION"); - return v683; - })((function (values,v682){ - checkArgs(arguments, 2); - return (function(){ - return l253.fvalue(values, (function(){ - var tmp = v682; - return tmp === l5.value? l5.value: tmp.car; - })(), (function(){ - var tmp = v682; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - })(); - })); - return l266; -})(); -var l267 = {name: "TRANSLATE-FUNCTION"}; -(function(){ - (l267).fvalue = (function(v686){ - ((v686)["fname"] = "TRANSLATE-FUNCTION"); - return v686; - })((function (values,v684){ - checkArgs(arguments, 2); - return (function(){ - return (function(v685){ - return l200.fvalue(values, v685); - })(l211.fvalue(pv, v684, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l113)); - })(); - })); - return l267; -})(); -var l268 = {name: "FLET"}; -(function(){ - var v687 = l47.fvalue(pv, l268, (function (values,v689){ - checkArgsAtLeast(arguments, 2); - var v688= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v688 = {car: arguments[i], cdr: - v688}; - return (function(){ - return (function(){ - try { - var v694 = l212.value; - var v690 = l81.fvalue(pv, (function(){ - var symbol = l32; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v689); - var v691 = l81.fvalue(pv, (function(){ - var symbol = l33; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v689); - var v692 = l81.fvalue(pv, (function(){ - var symbol = l266; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v691); - ((l212).value = l210.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l265; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v690), (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l113)); - return l191.fvalue(values, "(function(", l159.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l267; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v690), ","), "){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(v693){ - return l195.fvalue(pv, v693); - })(l254.fvalue(pv, v688, l4.value)), "})(", l159.fvalue(pv, v692, ","), ")"); - } - finally { - l212.value = v694; - } - })(); - })(); - })); - var v695 = ({car: v687, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v695); -})(); -var l269 = {name: "LABELS"}; -(function(){ - var v696 = l47.fvalue(pv, l269, (function (values,v698){ - checkArgsAtLeast(arguments, 2); - var v697= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v697 = {car: arguments[i], cdr: - v697}; - return (function(){ - return (function(){ - try { - var v701 = l212.value; - var v699 = l81.fvalue(pv, (function(){ - var symbol = l32; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v698); - ((l212).value = l210.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l265; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v699), (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l113)); - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v700){ - checkArgs(arguments, 2); - return l191.fvalue(values, "var ", l267.fvalue(pv, (function(){ - var tmp = v700; - return tmp === l5.value? l5.value: tmp.car; - })()), " = ", l253.fvalue(pv, l35.fvalue(pv, v700), l37.fvalue(pv, v700)), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - }), v698), l254.fvalue(pv, v697, l4.value)), "})()"); - } - finally { - l212.value = v701; - } - })(); - })(); - })); - var v702 = ({car: v696, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v702); -})(); -var l270 = {name: "*COMPILING-FILE*"}; -(function(){ - (((l270.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l270).value = l5.value)); - return l270; -})(); -var l271 = {name: "EVAL-WHEN-COMPILE"}; -var l272 = {name: "EVAL"}; -(function(){ - var v703 = l47.fvalue(pv, l271, (function (values){ - var v704= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v704 = {car: arguments[i], cdr: - v704}; - return (function(){ - return ((function(){ - var symbol = l270; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? (function(){ - l272.fvalue(pv, ({car: l123, cdr: v704})); - return l5.value; - })() : l193.fvalue(values, ({car: l123, cdr: v704}))); - })(); - })); - var v705 = ({car: v703, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v705); -})(); -var l273 = {name: "DEFINE-TRANSFORMATION"}; -l273; -(function(){ - var v706 = l47.fvalue(pv, l123, (function (values){ - var v707= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v707 = {car: arguments[i], cdr: - v707}; - return (function(){ - return (l13.fvalue(pv, (function(){ - var tmp = v707; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? l193.fvalue(values, (function(){ - var tmp = v707; - return tmp === l5.value? l5.value: tmp.car; - })(), (function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l254.fvalue(pv, v707, l4.value)), "})()")); - })(); - })); - var v708 = ({car: v706, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v708); -})(); -var l274 = {name: "SPECIAL-VARIABLE-P"}; -(function(){ - (l274).fvalue = (function(v710){ - ((v710)["fname"] = "SPECIAL-VARIABLE-P"); - return v710; - })((function (values,v709){ - checkArgs(arguments, 2); - return (function(){ - return (l224.fvalue(pv, v709, l114, l226) !== l5.value ? l4.value : l5.value); - })(); - })); - return l274; -})(); -var l275 = {name: "LET-BINDING-WRAPPER"}; -(function(){ - (l275).fvalue = (function(v717){ - ((v717)["fname"] = "LET-BINDING-WRAPPER"); - return v717; - })((function (values,v711,v712){ - checkArgs(arguments, 3); - return (function(){ - try { - (l13.fvalue(pv, v711) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 233, values: v712, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) - })() : l5.value); - return l191.fvalue(values, "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l161.fvalue(pv, (function (values,v713){ - checkArgs(arguments, 2); - return (function(v714){ - return l191.fvalue(values, "tmp = ", v714, ".value;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), v714, ".value = ", (function(){ - var tmp = v713; - return tmp === l5.value? l5.value: tmp.cdr; - })(), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - var tmp = v713; - return tmp === l5.value? l5.value: tmp.cdr; - })(), " = tmp;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ - var tmp = v713; - return tmp === l5.value? l5.value: tmp.car; - })()))); - }), v711), v712, (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "finally {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v715){ - checkArgs(arguments, 2); - return (function(v716){ - return l191.fvalue(values, v716, ".value", " = ", (function(){ - var tmp = v715; - return tmp === l5.value? l5.value: tmp.cdr; - })(), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ - var tmp = v715; - return tmp === l5.value? l5.value: tmp.car; - })()))); - }), v711)), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 233) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })); - return l275; -})(); -var l276 = {name: "LET"}; -(function(){ - var v718 = l47.fvalue(pv, l276, (function (values,v720){ - checkArgsAtLeast(arguments, 2); - var v719= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v719 = {car: arguments[i], cdr: - v719}; - return (function(){ - return (function(){ - try { - var v730 = l212.value; - var v721 = l81.fvalue(pv, (function(){ - var symbol = l61; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v720); - var v722 = l81.fvalue(pv, (function(){ - var symbol = l42; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v721); - var v723 = l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l81.fvalue(pv, (function(){ - var symbol = l43; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v721)); - ((l212).value = l216.fvalue(pv, l98.fvalue(pv, (function(){ - var symbol = l274; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v722))); - var v724 = l5.value; - return l191.fvalue(values, "(function(", l159.fvalue(pv, l81.fvalue(pv, (function (values,v725){ - checkArgs(arguments, 2); - return (l274.fvalue(pv, v725) !== l5.value ? (function(v726){ - (function(){ - var v727 = ({car: v725, cdr: v726}); - var v728 = ({car: v727, cdr: v724}); - return (v724 = v728); - })(); - return v726; - })(l214.fvalue(pv, v725)) : l215.fvalue(values, v725)); - }), v722), ","), "){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(v729){ - return l195.fvalue(pv, l275.fvalue(pv, v724, v729)); - })(l254.fvalue(pv, v719, l4.value)), "})(", l159.fvalue(pv, v723, ","), ")"); - } - finally { - l212.value = v730; - } - })(); - })(); - })); - var v731 = ({car: v718, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v731); -})(); -var l277 = {name: "LET*-INITIALIZE-VALUE"}; -(function(){ - (l277).fvalue = (function(v738){ - ((v738)["fname"] = "LET*-INITIALIZE-VALUE"); - return v738; - })((function (values,v732){ - checkArgs(arguments, 2); - return (function(){ - return (function(v733,v734){ - return (l274.fvalue(pv, v733) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l119, v733, v734)), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : (function(){ - var v735 = l214.fvalue(pv, v733); - var v736 = l197.fvalue(pv, v733, l114, v735); - return (function(v737){ - l207.fvalue(pv, v736, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l114); - return v737; - })(l191.fvalue(pv, "var ", v735, " = ", l193.fvalue(pv, v734), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())); - })()); - })(l42.fvalue(pv, v732),l43.fvalue(pv, v732)); - })(); - })); - return l277; -})(); -var l278 = {name: "LET*-BINDING-WRAPPER"}; -(function(){ - (l278).fvalue = (function(v747){ - ((v747)["fname"] = "LET*-BINDING-WRAPPER"); - return v747; - })((function (values,v739,v740){ - checkArgs(arguments, 3); - return (function(){ - try { - (l13.fvalue(pv, v739) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 236, values: v740, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) - })() : l5.value); - return (function(v742){ - return l191.fvalue(values, "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v743){ - checkArgs(arguments, 2); - return (function(v744){ - return l191.fvalue(values, "var ", (function(){ - var tmp = v743; - return tmp === l5.value? l5.value: tmp.cdr; - })(), " = ", v744, ".value;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ - var tmp = v743; - return tmp === l5.value? l5.value: tmp.car; - })()))); - }), v742), v740), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "finally {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v745){ - checkArgs(arguments, 2); - return (function(v746){ - return l191.fvalue(values, v746, ".value", " = ", (function(){ - var tmp = v745; - return tmp === l5.value? l5.value: tmp.cdr; - })(), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ - var tmp = v745; - return tmp === l5.value? l5.value: tmp.car; - })()))); - }), v742)), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l81.fvalue(pv, (function (values,v741){ - checkArgs(arguments, 2); - return ({car: v741, cdr: l214.fvalue(pv, v741)}); - }), l99.fvalue(pv, (function(){ - var symbol = l274; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v739))); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 236) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })); - return l278; -})(); -var l279 = {name: "LET*"}; -(function(){ - var v748 = l47.fvalue(pv, l279, (function (values,v750){ - checkArgsAtLeast(arguments, 2); - var v749= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v749 = {car: arguments[i], cdr: - v749}; - return (function(){ - return (function(v751,v752){ - try { - var tmp; - tmp = l212.value; - l212.value = v752; - v752 = tmp; - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, (function(v753,v754){ - return l278.fvalue(pv, v753, v754); - })(l99.fvalue(pv, (function(){ - var symbol = l274; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l81.fvalue(pv, (function(){ - var symbol = l42; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v751)),l157.fvalue(pv, l161.fvalue(pv, (function(){ - var symbol = l277; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v751), l254.fvalue(pv, v749, l4.value)))), "})()"); - } - finally { - l212.value = v752; - } - })(l81.fvalue(pv, (function(){ - var symbol = l61; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v750),l206.fvalue(pv, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())); - })(); - })); - var v755 = ({car: v748, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v755); -})(); -var l280 = {name: "*BLOCK-COUNTER*"}; -(function(){ - (((l280.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l280).value = 0)); - return l280; -})(); -var l281 = {name: "MULTIPLE-VALUE"}; -var l282 = {name: "USED"}; -(function(){ - var v756 = l47.fvalue(pv, l208, (function (values,v758){ - checkArgsAtLeast(arguments, 2); - var v757= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v757 = {car: arguments[i], cdr: - v757}; - return (function(){ - return (function(){ - var v759 = ((l280).value = (function(){ - var x1 = (function(){ - var symbol = l280; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()); - var v760 = l197.fvalue(pv, v758, l208, v759); - ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l204.fvalue(pv, l281, v760) : l5.value); - return (function(){ - try { - var v762 = l212.value; - ((l212).value = l210.fvalue(pv, l47.fvalue(pv, v760), (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l208)); - var v761 = l254.fvalue(pv, v757, l4.value); - return (l96.fvalue(pv, l282, l201.fvalue(pv, v760)) !== l5.value ? l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, v761), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "catch (cf){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " if (cf.type == 'block' && cf.id == ", v759, ")", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " else", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " throw cf;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()") : l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, v761), "})()")); - } - finally { - l212.value = v762; - } - })(); - })(); - })(); - })); - var v763 = ({car: v756, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v763); -})(); -var l283 = {name: "RETURN-FROM"}; -(function(){ - var v764 = l47.fvalue(pv, l283, (function (values,v765,v766){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v766; - switch(arguments.length-1){ - case 1: - v766=l5.value; - default: break; - } - return (function(){ - return (function(){ - var v767 = l211.fvalue(pv, v765, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l208); - var v768 = l96.fvalue(pv, l281, l201.fvalue(pv, v767)); - (l13.fvalue(pv, v767) !== l5.value ? (function(){ - throw l157.fvalue(pv, "Unknown block `", (v765).name, "'."); - })() : l5.value); - l204.fvalue(pv, l282, v767); - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, (v768 !== l5.value ? l191.fvalue(pv, "var values = mv;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l200.fvalue(pv, v767), ", ", "values: ", l193.fvalue(pv, v766, v768), ", ", "message: 'Return from unknown block ", (v765).name, ".'", "})"), "})()"); - })(); - })(); - })); - var v769 = ({car: v764, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v769); -})(); -var l284 = {name: "CATCH"}; -(function(){ - var v770 = l47.fvalue(pv, l284, (function (values,v772){ - checkArgsAtLeast(arguments, 2); - var v771= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v771 = {car: arguments[i], cdr: - v771}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var id = ", l193.fvalue(pv, v772), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l254.fvalue(pv, v771, l4.value)), (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "catch (cf){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " if (cf.type == 'catch' && cf.id == id)", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " else", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " throw cf;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v773 = ({car: v770, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v773); -})(); -var l285 = {name: "THROW"}; -(function(){ - var v774 = l47.fvalue(pv, l285, (function (values,v775,v776){ - checkArgs(arguments, 3); - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var values = mv;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "throw ({", "type: 'catch', ", "id: ", l193.fvalue(pv, v775), ", ", "values: ", l193.fvalue(pv, v776, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); - })(); - })); - var v777 = ({car: v774, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v777); -})(); -var l286 = {name: "*TAGBODY-COUNTER*"}; -(function(){ - (((l286.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l286).value = 0)); - return l286; -})(); -var l287 = {name: "*GO-TAG-COUNTER*"}; -(function(){ - (((l287.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l287).value = 0)); - return l287; -})(); -var l288 = {name: "GO-TAG-P"}; -(function(){ - (l288).fvalue = (function(v780){ - ((v780)["fname"] = "GO-TAG-P"); - return v780; - })((function (values,v778){ - checkArgs(arguments, 2); - return (function(){ - return (function(v779){ - return (v779 !== l5.value ? v779 : ((function(){ - var tmp = v778; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value)); - })(l89.fvalue(pv, v778)); - })(); - })); - return l288; -})(); -var l289 = {name: "DECLARE-TAGBODY-TAGS"}; -(function(){ - (l289).fvalue = (function(v786){ - ((v786)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v786; - })((function (values,v781,v782){ - checkArgs(arguments, 3); - return (function(){ - return (function(v785){ - return l210.fvalue(values, v785, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l209); - })(l81.fvalue(pv, (function (values,v783){ - checkArgs(arguments, 2); - return (function(v784){ - return l197.fvalue(values, v783, l209, l47.fvalue(pv, v781, v784)); - })(l19.fvalue(pv, ((l287).value = (function(){ - var x1 = (function(){ - var symbol = l287; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()))); - }), l99.fvalue(pv, (function(){ - var symbol = l288; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v782))); - })(); - })); - return l289; -})(); -var l290 = {name: "TAGBODY"}; -var l291 = QIList(l5,l5); -(function(){ - var v787 = l47.fvalue(pv, l290, (function (values){ - var v788= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v788 = {car: arguments[i], cdr: - v788}; - return (function(){ - try { - (l104.fvalue(pv, (function(){ - var symbol = l288; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v788) !== l5.value ? l5.value : (function(){ - var values = mv; - throw ({type: 'block', id: 244, values: l193.fvalue(values, ({car: l123, cdr: l68.fvalue(pv, v788, l291)})), message: 'Return from unknown block TAGBODY.'}) - })()); - (l288.fvalue(pv, (function(){ - var tmp = v788; - return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l5.value : (function(){ - var v789 = l18.fvalue(pv, "START"); - var v790 = ({car: v789, cdr: v788}); - return (v788 = v790); - })()); - return (function(v791){ - return (function(v793,v792){ - try { - var tmp; - tmp = l212.value; - l212.value = v793; - v793 = tmp; - (function(v794){ - return (v792 = l43.fvalue(pv, l200.fvalue(pv, v794))); - })(l211.fvalue(pv, l42.fvalue(pv, v788), (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l209)); - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tagbody_", v791, " = ", v792, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "tbloop:", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "while (true) {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, (function(v795){ - return l191.fvalue(pv, "switch(tagbody_", v791, "){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "case ", v792, ":", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - return (function(v796,v797){ - (function(){ - while(v796 !== l5.value){ - (v797 = (function(){ - var tmp = v796; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (v795 = l157.fvalue(pv, v795, (l29.fvalue(pv, l288.fvalue(pv, v797)) !== l5.value ? l195.fvalue(pv, l193.fvalue(pv, v797), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : (function(v798){ - return l191.fvalue(pv, "case ", l43.fvalue(pv, l200.fvalue(pv, v798)), ":", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l211.fvalue(pv, v797, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l209))))); - return l5.value; - })(); - (v796 = (function(){ - var tmp = v796; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return v795; - })((function(){ - var tmp = v788; - return tmp === l5.value? l5.value: tmp.cdr; - })(),l5.value); - })(), "default:", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " break tbloop;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })("")), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "catch (jump) {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " if (jump.type == 'tagbody' && jump.id == ", v791, ")", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " tagbody_", v791, " = jump.label;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " else", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " throw(jump);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ", l193.fvalue(pv, l5.value), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - } - finally { - l212.value = v793; - } - })(l289.fvalue(pv, v791, v788),l5.value); - })((function(){ - var symbol = l286; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 244) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })); - var v799 = ({car: v787, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v799); -})(); -var l292 = {name: "GO"}; -(function(){ - var v800 = l47.fvalue(pv, l292, (function (values,v801){ - checkArgs(arguments, 2); - return (function(){ - return (function(v802,v803){ - (l13.fvalue(pv, v802) !== l5.value ? (function(){ - throw l157.fvalue(pv, "Unknown tag `", v803, "'."); - })() : l5.value); - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l42.fvalue(pv, l200.fvalue(pv, v802)), ", ", "label: ", l43.fvalue(pv, l200.fvalue(pv, v802)), ", ", "message: 'Attempt to GO to non-existing tag ", v803, "'", "})", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l211.fvalue(pv, v801, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l209),(((function(){ - var tmp = v801; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (v801).name : (l89.fvalue(pv, v801) !== l5.value ? l19.fvalue(pv, v801) : l5.value))); - })(); - })); - var v804 = ({car: v800, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v804); -})(); -var l293 = {name: "UNWIND-PROTECT"}; -(function(){ - var v805 = l47.fvalue(pv, l293, (function (values,v807){ - checkArgsAtLeast(arguments, 2); - var v806= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v806 = {car: arguments[i], cdr: - v806}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var ret = ", l193.fvalue(pv, l5.value), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "try {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "ret = ", l193.fvalue(pv, v807), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "} finally {", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l254.fvalue(pv, v806)), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ret;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v808 = ({car: v805, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v808); -})(); -var l294 = {name: "MULTIPLE-VALUE-CALL"}; -(function(){ - var v809 = l47.fvalue(pv, l294, (function (values,v811){ - checkArgsAtLeast(arguments, 2); - var v810= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v810 = {car: arguments[i], cdr: - v810}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var func = ", l193.fvalue(pv, v811), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var args = [", ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), "];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ", l191.fvalue(pv, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var values = mv;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var vs;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l161.fvalue(pv, (function (values,v812){ - checkArgs(arguments, 2); - return l191.fvalue(values, "vs = ", l193.fvalue(pv, v812, l4.value), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "args = args.concat(vs);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "else", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "args.push(vs);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())); - }), v810), "return func.apply(window, args);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v813 = ({car: v809, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v813); -})(); -var l295 = {name: "MULTIPLE-VALUE-PROG1"}; -(function(){ - var v814 = l47.fvalue(pv, l295, (function (values,v816){ - checkArgsAtLeast(arguments, 2); - var v815= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v815 = {car: arguments[i], cdr: - v815}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var args = ", l193.fvalue(pv, v816, (function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l254.fvalue(pv, v815), "return args;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v817 = ({car: v814, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v817); -})(); -var l296 = {name: "*COMMA*"}; -(function(){ - (((l296.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l296).value = l189)); - return l296; -})(); -var l297 = {name: "*COMMA-ATSIGN*"}; -(function(){ - (((l297.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l297).value = l188)); - return l297; -})(); -var l298 = {name: "*BQ-LIST*"}; -(function(){ - (((l298.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l298).value = (function(){ - var name = "BQ-LIST"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l298; -})(); -var l299 = {name: "*BQ-APPEND*"}; -(function(){ - (((l299.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l299).value = (function(){ - var name = "BQ-APPEND"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l299; -})(); -var l300 = {name: "*BQ-LIST**"}; -(function(){ - (((l300.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l300).value = (function(){ - var name = "BQ-LIST*"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l300; -})(); -var l301 = {name: "*BQ-NCONC*"}; -(function(){ - (((l301.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l301).value = (function(){ - var name = "BQ-NCONC"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l301; -})(); -var l302 = {name: "*BQ-CLOBBERABLE*"}; -(function(){ - (((l302.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l302).value = (function(){ - var name = "BQ-CLOBBERABLE"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l302; -})(); -var l303 = {name: "*BQ-QUOTE*"}; -(function(){ - (((l303.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l303).value = (function(){ - var name = "BQ-QUOTE"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); - return l303; -})(); -var l304 = {name: "*BQ-QUOTE-NIL*"}; -(function(){ - (((l304.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l304).value = l47.fvalue(pv, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l5.value))); - return l304; -})(); -var l305 = {name: "*BQ-SIMPLIFY*"}; -(function(){ - ((l305).value = l4.value); - return l305; -})(); -l187; -var l306 = {name: "BQ-COMPLETELY-PROCESS"}; -var l307 = {name: "BQ-PROCESS"}; -var l308 = {name: "BQ-SIMPLIFY"}; -var l309 = {name: "BQ-REMOVE-TOKENS"}; -(function(){ - (l306).fvalue = (function(v820){ - ((v820)["fname"] = "BQ-COMPLETELY-PROCESS"); - return v820; - })((function (values,v818){ - checkArgs(arguments, 2); - return (function(){ - return (function(v819){ - return l309.fvalue(values, ((function(){ - var symbol = l305; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l308.fvalue(pv, v819) : v819)); - })(l307.fvalue(pv, v818)); - })(); - })); - return l306; -})(); -var l310 = {name: "BRACKET"}; -(function(){ - (l307).fvalue = (function(v826){ - ((v826)["fname"] = "BQ-PROCESS"); - return v826; - })((function (values,v821){ - checkArgs(arguments, 2); - return (function(){ - return (l48.fvalue(pv, v821) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), v821) : ((((function(){ - var tmp = v821; - return tmp === l5.value? l5.value: tmp.car; - })() === l187)?l4.value: l5.value) !== l5.value ? l307.fvalue(values, l306.fvalue(pv, l35.fvalue(pv, v821))) : ((((function(){ - var tmp = v821; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l296; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v821) : ((((function(){ - var tmp = v821; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l297; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (function(){ - throw "ill-formed"; - })() : (function(){ - return (function(v822,v823){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l48.fvalue(pv, v822) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 253, values: ({car: (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), cdr: l128.fvalue(pv, v823, l47.fvalue(pv, l47.fvalue(pv, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), v822)))}), message: 'Return from unknown block NIL.'}) - })() : l5.value); - (function(){ - ((((function(){ - var tmp = v822; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l296; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (function(){ - (l13.fvalue(pv, l37.fvalue(pv, v822)) !== l5.value ? l5.value : (function(){ - throw "Malformed"; - })()); - return (function(){ - var values = mv; - throw ({type: 'block', id: 253, values: ({car: (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), cdr: l128.fvalue(pv, v823, l47.fvalue(pv, l35.fvalue(pv, v822)))}), message: 'Return from unknown block NIL.'}) - })(); - })() : l5.value); - ((((function(){ - var tmp = v822; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l297; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (function(){ - throw "Dotted"; - })() : l5.value); - return l5.value; - })(); - (function(v824,v825){ - return (v822 = v824, v823 = v825); - })((function(){ - var tmp = v822; - return tmp === l5.value? l5.value: tmp.cdr; - })(),({car: l310.fvalue(pv, (function(){ - var tmp = v822; - return tmp === l5.value? l5.value: tmp.car; - })()), cdr: v823})); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 253) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })(v821,l5); - })())))); - })(); - })); - return l307; -})(); -(function(){ - (l310).fvalue = (function(v828){ - ((v828)["fname"] = "BRACKET"); - return v828; - })((function (values,v827){ - checkArgs(arguments, 2); - return (function(){ - return (l48.fvalue(pv, v827) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l307.fvalue(pv, v827)) : ((((function(){ - var tmp = v827; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l296; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l35.fvalue(pv, v827)) : ((((function(){ - var tmp = v827; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l297; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v827) : l47.fvalue(values, (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l307.fvalue(pv, v827))))); - })(); - })); - return l310; -})(); -var l311 = {name: "MAPTREE"}; -(function(){ - (l311).fvalue = (function(v833){ - ((v833)["fname"] = "MAPTREE"); - return v833; - })((function (values,v829,v830){ - checkArgs(arguments, 3); - return (function(){ - return (l48.fvalue(pv, v830) !== l5.value ? (function(){ - var f = v829; - return (typeof f === 'function'? f: f.fvalue)(values, v830) - })() : (function(v831,v832){ - return ((l28.fvalue(pv, v831, (function(){ - var tmp = v830; - return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l28.fvalue(pv, v832, (function(){ - var tmp = v830; - return tmp === l5.value? l5.value: tmp.cdr; - })()) : l5.value) !== l5.value ? v830 : ({car: v831, cdr: v832})); - })((function(){ - var f = v829; - return (typeof f === 'function'? f: f.fvalue)(pv, (function(){ - var tmp = v830; - return tmp === l5.value? l5.value: tmp.car; - })()) - })(),l311.fvalue(pv, v829, (function(){ - var tmp = v830; - return tmp === l5.value? l5.value: tmp.cdr; - })()))); - })(); - })); - return l311; -})(); -var l312 = {name: "BQ-SPLICING-FROB"}; -(function(){ - (l312).fvalue = (function(v835){ - ((v835)["fname"] = "BQ-SPLICING-FROB"); - return v835; - })((function (values,v834){ - checkArgs(arguments, 2); - return (function(){ - return (((function(){ - var tmp = v834; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v834; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l297; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) : l5.value); - })(); - })); - return l312; -})(); -var l313 = {name: "BQ-FROB"}; -(function(){ - (l313).fvalue = (function(v838){ - ((v838)["fname"] = "BQ-FROB"); - return v838; - })((function (values,v836){ - checkArgs(arguments, 2); - return (function(){ - return (((function(){ - var tmp = v836; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v837){ - return (v837 !== l5.value ? v837 : (((function(){ - var tmp = v836; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l297; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)); - })((((function(){ - var tmp = v836; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l296; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)) : l5.value); - })(); - })); - return l313; -})(); -var l314 = {name: "BQ-SIMPLIFY-ARGS"}; -(function(){ - (l308).fvalue = (function(v841){ - ((v841)["fname"] = "BQ-SIMPLIFY"); - return v841; - })((function (values,v839){ - checkArgs(arguments, 2); - return (function(){ - return (l48.fvalue(pv, v839) !== l5.value ? v839 : (function(v840){ - return (l29.fvalue(pv, (((function(){ - var tmp = v840; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)) !== l5.value ? v840 : l314.fvalue(values, v840)); - })(((((function(){ - var tmp = v839; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? v839 : l311.fvalue(pv, (function(){ - var symbol = l308; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v839)))); - })(); - })); - return l308; -})(); -var l315 = {name: "BQ-ATTACH-APPEND"}; -var l316 = {name: "BQ-ATTACH-CONSES"}; -var l317 = {name: "CDDAR"}; -var l318 = {name: "CAADAR"}; -(function(){ - (l314).fvalue = (function(v847){ - ((v847)["fname"] = "BQ-SIMPLIFY-ARGS"); - return v847; - })((function (values,v842){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - return (function(v843,v844){ - return (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, v843) !== l5.value ? (function(){ - var values = mv; - throw ({type: 'block', id: 261, values: v844, message: 'Return from unknown block NIL.'}) - })() : l5.value); - l5.value; - (function(v845,v846){ - return (v843 = v845, v844 = v846); - })((function(){ - var tmp = v843; - return tmp === l5.value? l5.value: tmp.cdr; - })(),(l48.fvalue(pv, (function(){ - var tmp = v843; - return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l315.fvalue(pv, (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - var tmp = v843; - return tmp === l5.value? l5.value: tmp.car; - })(), v844) : ((((l34.fvalue(pv, v843) === (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l129.fvalue(pv, (function(){ - var symbol = l312; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l36.fvalue(pv, v843)) : l5.value) !== l5.value ? l316.fvalue(pv, l36.fvalue(pv, v843), v844) : ((((l34.fvalue(pv, v843) === (function(){ - var symbol = l300; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l129.fvalue(pv, (function(){ - var symbol = l312; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l36.fvalue(pv, v843)) : l5.value) !== l5.value ? l316.fvalue(pv, l70.fvalue(pv, (function(){ - var tmp = l70.fvalue(pv, l36.fvalue(pv, v843)); - return tmp === l5.value? l5.value: tmp.cdr; - })()), l315.fvalue(pv, (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - var tmp = l94.fvalue(pv, (function(){ - var tmp = v843; - return tmp === l5.value? l5.value: tmp.car; - })()); - return tmp === l5.value? l5.value: tmp.car; - })(), v844)) : ((((l34.fvalue(pv, v843) === (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = l38.fvalue(pv, v843); - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (l29.fvalue(pv, l313.fvalue(pv, l38.fvalue(pv, v843))) !== l5.value ? l13.fvalue(pv, l317.fvalue(pv, v843)) : l5.value) : l5.value) : l5.value) !== l5.value ? l316.fvalue(pv, l47.fvalue(pv, l47.fvalue(pv, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l318.fvalue(pv, v843))), v844) : (((l34.fvalue(pv, v843) === (function(){ - var symbol = l302; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l315.fvalue(pv, (function(){ - var symbol = l301; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l38.fvalue(pv, v843), v844) : l315.fvalue(pv, (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - var tmp = v843; - return tmp === l5.value? l5.value: tmp.car; - })(), v844))))))); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 261) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); - })(l70.fvalue(pv, (function(){ - var tmp = v842; - return tmp === l5.value? l5.value: tmp.cdr; - })()),l5.value); - })(); - })(); - })); - return l314; -})(); -var l319 = {name: "NULL-OR-QUOTED"}; -(function(){ - (l319).fvalue = (function(v850){ - ((v850)["fname"] = "NULL-OR-QUOTED"); - return v850; - })((function (values,v848){ - checkArgs(arguments, 2); - return (function(){ - return (function(v849){ - return (v849 !== l5.value ? v849 : (((function(){ - var tmp = v848; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v848; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) : l5.value)); - })(l13.fvalue(pv, v848)); - })(); - })); - return l319; -})(); -(function(){ - (l315).fvalue = (function(v855){ - ((v855)["fname"] = "BQ-ATTACH-APPEND"); - return v855; - })((function (values,v851,v852,v853){ - checkArgs(arguments, 4); - return (function(){ - return ((l319.fvalue(pv, v852) !== l5.value ? l319.fvalue(pv, v853) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l68.fvalue(pv, l35.fvalue(pv, v852), l35.fvalue(pv, v853))) : ((function(v854){ - return (v854 !== l5.value ? v854 : ((v853 == (function(){ - var symbol = l304; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)); - })(l13.fvalue(pv, v853)) !== l5.value ? (l312.fvalue(pv, v852) !== l5.value ? l47.fvalue(values, v851, v852) : v852) : ((((function(){ - var tmp = v853; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v853; - return tmp === l5.value? l5.value: tmp.car; - })() === v851)?l4.value: l5.value) : l5.value) !== l5.value ? l85.fvalue(values, (function(){ - var tmp = v853; - return tmp === l5.value? l5.value: tmp.car; - })(), v852, (function(){ - var tmp = v853; - return tmp === l5.value? l5.value: tmp.cdr; - })()) : l47.fvalue(values, v851, v852, v853)))); - })(); - })); - return l315; -})(); -(function(){ - (l316).fvalue = (function(v860){ - ((v860)["fname"] = "BQ-ATTACH-CONSES"); - return v860; - })((function (values,v856,v857){ - checkArgs(arguments, 3); - return (function(){ - return ((l105.fvalue(pv, (function(){ - var symbol = l319; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v856) !== l5.value ? l319.fvalue(pv, v857) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l68.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l35; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v856), l35.fvalue(pv, v857))) : ((function(v858){ - return (v858 !== l5.value ? v858 : ((v857 == (function(){ - var symbol = l304; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)); - })(l13.fvalue(pv, v857)) !== l5.value ? ({car: (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), cdr: v856}) : ((((function(){ - var tmp = v857; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v859){ - return (v859 !== l5.value ? v859 : (((function(){ - var tmp = v857; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l300; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)); - })((((function(){ - var tmp = v857; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value)) : l5.value) !== l5.value ? ({car: (function(){ - var tmp = v857; - return tmp === l5.value? l5.value: tmp.car; - })(), cdr: l68.fvalue(pv, v856, (function(){ - var tmp = v857; - return tmp === l5.value? l5.value: tmp.cdr; - })())}) : ({car: (function(){ - var symbol = l300; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), cdr: l68.fvalue(pv, v856, l47.fvalue(pv, v857))})))); - })(); - })); - return l316; -})(); -(function(){ - (l309).fvalue = (function(v862){ - ((v862)["fname"] = "BQ-REMOVE-TOKENS"); - return v862; - })((function (values,v861){ - checkArgs(arguments, 2); - return (function(){ - return (((v861 === (function(){ - var symbol = l298; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l47 : (((v861 === (function(){ - var symbol = l299; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l68 : (((v861 === (function(){ - var symbol = l301; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l127 : (((v861 === (function(){ - var symbol = l300; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l85 : (((v861 === (function(){ - var symbol = l303; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l186 : (l48.fvalue(pv, v861) !== l5.value ? v861 : ((((function(){ - var tmp = v861; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l302; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? l309.fvalue(values, l35.fvalue(pv, v861)) : (((((function(){ - var tmp = v861; - return tmp === l5.value? l5.value: tmp.car; - })() === (function(){ - var symbol = l300; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = l37.fvalue(pv, v861); - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? l13.fvalue(pv, l40.fvalue(pv, v861)) : l5.value) : l5.value) !== l5.value ? ({car: l30, cdr: l311.fvalue(pv, (function(){ - var symbol = l309; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), (function(){ - var tmp = v861; - return tmp === l5.value? l5.value: tmp.cdr; - })())}) : l311.fvalue(values, (function(){ - var symbol = l309; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v861))))))))); - })(); - })); - return l309; -})(); -(function(){ - var v863 = l47.fvalue(pv, l187, (function (values,v864){ - checkArgs(arguments, 2); - return (function(){ - return l193.fvalue(values, l306.fvalue(pv, v864)); - })(); - })); - var v865 = ({car: v863, cdr: (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l230).value = v865); -})(); -var l320 = {name: "*BUILTINS*"}; -(function(){ - (((l320.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l320).value = l5.value)); - return l320; -})(); -var l321 = {name: "DEFINE-RAW-BUILTIN"}; -l321; -var l322 = {name: "DEFINE-BUILTIN"}; -l322; -var l323 = {name: "TYPE-CHECK"}; -l323; -var l324 = {name: "VARIABLE-ARITY-CALL"}; -(function(){ - (l324).fvalue = (function(v878){ - ((v878)["fname"] = "VARIABLE-ARITY-CALL"); - return v878; - })((function (values,v866,v867){ - checkArgs(arguments, 3); - return (function(){ - (((function(){ - var tmp = v866; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ - throw "ARGS must be a non-empty list"; - })()); - return (function(v868,v869,v870){ - (function(){ - return (function(v871,v872){ - (function(){ - while(v871 !== l5.value){ - (v872 = (function(){ - var tmp = v871; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (((typeof (v872) == "number")?l4.value: l5.value) !== l5.value ? (function(){ - var v873 = l19.fvalue(pv, v872); - var v874 = ({car: v873, cdr: v869}); - return (v869 = v874); - })() : (function(v875){ - (function(){ - var v876 = v875; - var v877 = ({car: v876, cdr: v869}); - return (v869 = v877); - })(); - return (v870 = l157.fvalue(pv, v870, l191.fvalue(pv, "var ", v875, " = ", l193.fvalue(pv, v872), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (typeof ", v875, " !== 'number') throw 'Not a number!';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()))); - })(l191.fvalue(pv, "x", (v868 = (function(){ - var x1 = v868; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })())))); - return l5.value; - })(); - (v871 = (function(){ - var tmp = v871; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return l5.value; - })(v866,l5.value); - })(); - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, v870, (function(){ - var f = v867; - return (typeof f === 'function'? f: f.fvalue)(pv, l70.fvalue(pv, v869)) - })()), "})()"); - })(0,l5,""); - })(); - })); - return l324; -})(); -var l325 = {name: "VARIABLE-ARITY"}; -l325; -var l326 = {name: "NUM-OP-NUM"}; -(function(){ - (l326).fvalue = (function(v882){ - ((v882)["fname"] = "NUM-OP-NUM"); - return v882; - })((function (values,v879,v880,v881){ - checkArgs(arguments, 4); - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v879, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "var ", "y", " = ", v881, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "x", v880, "y"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(); - })); - return l326; -})(); -(function(){ - var v883 = l47.fvalue(pv, l65, (function (values){ - var v884= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v884 = {car: arguments[i], cdr: - v884}; - return (function(){ - return (l13.fvalue(pv, v884) !== l5.value ? "0" : l324.fvalue(values, v884, (function (values,v885){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l159.fvalue(pv, v885, "+"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - }))); - })(); - })); - var v886 = ({car: v883, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v886); -})(); -(function(){ - var v887 = l47.fvalue(pv, l66, (function (values,v889){ - checkArgsAtLeast(arguments, 2); - var v888= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v888 = {car: arguments[i], cdr: - v888}; - return (function(){ - return (function(v890){ - return l324.fvalue(values, v890, (function (values,v891){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", (l13.fvalue(pv, v888) !== l5.value ? l157.fvalue(pv, "-", (function(){ - var tmp = v891; - return tmp === l5.value? l5.value: tmp.car; - })()) : l159.fvalue(pv, v891, "-")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v889, cdr: v888})); - })(); - })); - var v892 = ({car: v887, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v892); -})(); -(function(){ - var v893 = l47.fvalue(pv, l22, (function (values){ - var v894= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v894 = {car: arguments[i], cdr: - v894}; - return (function(){ - return (l13.fvalue(pv, v894) !== l5.value ? "1" : l324.fvalue(values, v894, (function (values,v895){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l159.fvalue(pv, v895, "*"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - }))); - })(); - })); - var v896 = ({car: v893, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v896); -})(); -(function(){ - var v897 = l47.fvalue(pv, l23, (function (values,v899){ - checkArgsAtLeast(arguments, 2); - var v898= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v898 = {car: arguments[i], cdr: - v898}; - return (function(){ - return (function(v900){ - return l324.fvalue(values, v900, (function (values,v901){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", (l13.fvalue(pv, v898) !== l5.value ? l157.fvalue(pv, "1 /", (function(){ - var tmp = v901; - return tmp === l5.value? l5.value: tmp.car; - })()) : l159.fvalue(pv, v901, "/")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v899, cdr: v898})); - })(); - })); - var v902 = ({car: v897, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v902); -})(); -var l327 = {name: "MOD"}; -(function(){ - var v903 = l47.fvalue(pv, l327, (function (values,v904,v905){ - checkArgs(arguments, 3); - return (function(){ - return (function(v906,v907){ - return l326.fvalue(values, v906, "%", v907); - })(l193.fvalue(pv, v904),l193.fvalue(pv, v905)); - })(); - })); - var v908 = ({car: v903, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v908); -})(); -var l328 = {name: "COMPARISON-CONJUNTION"}; -(function(){ - (l328).fvalue = (function(v911){ - ((v911)["fname"] = "COMPARISON-CONJUNTION"); - return v911; - })((function (values,v909,v910){ - checkArgs(arguments, 3); - return (function(){ - return (l13.fvalue(pv, (function(){ - var tmp = v909; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? "true" : (l13.fvalue(pv, l37.fvalue(pv, v909)) !== l5.value ? l157.fvalue(values, (function(){ - var tmp = v909; - return tmp === l5.value? l5.value: tmp.car; - })(), v910, l35.fvalue(pv, v909)) : l157.fvalue(values, (function(){ - var tmp = v909; - return tmp === l5.value? l5.value: tmp.car; - })(), v910, l35.fvalue(pv, v909), " && ", l328.fvalue(pv, (function(){ - var tmp = v909; - return tmp === l5.value? l5.value: tmp.cdr; - })(), v910)))); - })(); - })); - return l328; -})(); -var l329 = {name: "DEFINE-BUILTIN-COMPARISON"}; -l329; -var l330 = {name: ">"}; -(function(){ - var v912 = l47.fvalue(pv, l330, (function (values,v914){ - checkArgsAtLeast(arguments, 2); - var v913= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v913 = {car: arguments[i], cdr: - v913}; - return (function(){ - return (function(v915){ - return l324.fvalue(values, v915, (function (values,v916){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v916, ">")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v914, cdr: v913})); - })(); - })); - var v917 = ({car: v912, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v917); -})(); -var l331 = {name: "<"}; -(function(){ - var v918 = l47.fvalue(pv, l331, (function (values,v920){ - checkArgsAtLeast(arguments, 2); - var v919= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v919 = {car: arguments[i], cdr: - v919}; - return (function(){ - return (function(v921){ - return l324.fvalue(values, v921, (function (values,v922){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v922, "<")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v920, cdr: v919})); - })(); - })); - var v923 = ({car: v918, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v923); -})(); -var l332 = {name: ">="}; -(function(){ - var v924 = l47.fvalue(pv, l332, (function (values,v926){ - checkArgsAtLeast(arguments, 2); - var v925= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v925 = {car: arguments[i], cdr: - v925}; - return (function(){ - return (function(v927){ - return l324.fvalue(values, v927, (function (values,v928){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v928, ">=")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v926, cdr: v925})); - })(); - })); - var v929 = ({car: v924, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v929); -})(); -var l333 = {name: "<="}; -(function(){ - var v930 = l47.fvalue(pv, l333, (function (values,v932){ - checkArgsAtLeast(arguments, 2); - var v931= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v931 = {car: arguments[i], cdr: - v931}; - return (function(){ - return (function(v933){ - return l324.fvalue(values, v933, (function (values,v934){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v934, "<=")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v932, cdr: v931})); - })(); - })); - var v935 = ({car: v930, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v935); -})(); -(function(){ - var v936 = l47.fvalue(pv, l21, (function (values,v938){ - checkArgsAtLeast(arguments, 2); - var v937= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v937 = {car: arguments[i], cdr: - v937}; - return (function(){ - return (function(v939){ - return l324.fvalue(values, v939, (function (values,v940){ - checkArgs(arguments, 2); - return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v940, "==")), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v938, cdr: v937})); - })(); - })); - var v941 = ({car: v936, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v941); -})(); -var l334 = {name: "NUMBERP"}; -(function(){ - var v942 = l47.fvalue(pv, l334, (function (values,v943){ - checkArgs(arguments, 2); - return (function(){ - return (function(v944){ - return l192.fvalue(values, l191.fvalue(pv, "(typeof (", v944, ") == \"number\")")); - })(l193.fvalue(pv, v943)); - })(); - })); - var v945 = ({car: v942, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v945); -})(); -var l335 = {name: "FLOOR"}; -(function(){ - var v946 = l47.fvalue(pv, l335, (function (values,v947){ - checkArgs(arguments, 2); - return (function(){ - return (function(v948){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v948, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v947)); - })(); - })); - var v949 = ({car: v946, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v949); -})(); -(function(){ - var v950 = l47.fvalue(pv, l30, (function (values,v951,v952){ - checkArgs(arguments, 3); - return (function(){ - return (function(v953,v954){ - return l191.fvalue(values, "({car: ", v953, ", cdr: ", v954, "})"); - })(l193.fvalue(pv, v951),l193.fvalue(pv, v952)); - })(); - })); - var v955 = ({car: v950, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v955); -})(); -(function(){ - var v956 = l47.fvalue(pv, l31, (function (values,v957){ - checkArgs(arguments, 2); - return (function(){ - return (function(v958){ - return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp = ", v958, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()")); - })(l193.fvalue(pv, v957)); - })(); - })); - var v959 = ({car: v956, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v959); -})(); -(function(){ - var v960 = l47.fvalue(pv, l32, (function (values,v961){ - checkArgs(arguments, 2); - return (function(){ - return (function(v962){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp = ", v962, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return tmp === ", l193.fvalue(pv, l5.value), "? ", l193.fvalue(pv, l5.value), ": tmp.car;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v961)); - })(); - })); - var v963 = ({car: v960, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v963); -})(); -(function(){ - var v964 = l47.fvalue(pv, l33, (function (values,v965){ - checkArgs(arguments, 2); - return (function(){ - return (function(v966){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp = ", v966, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return tmp === ", l193.fvalue(pv, l5.value), "? ", l193.fvalue(pv, l5.value), ": tmp.cdr;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v965)); - })(); - })); - var v967 = ({car: v964, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v967); -})(); -(function(){ - var v968 = l47.fvalue(pv, l124, (function (values,v969,v970){ - checkArgs(arguments, 3); - return (function(){ - return (function(v971,v972){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v971, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "(x.car = ", v972, ", x)"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v969),l193.fvalue(pv, v970)); - })(); - })); - var v973 = ({car: v968, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v973); -})(); -(function(){ - var v974 = l47.fvalue(pv, l125, (function (values,v975,v976){ - checkArgs(arguments, 3); - return (function(){ - return (function(v977,v978){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v977, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "(x.cdr = ", v978, ", x)"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v975),l193.fvalue(pv, v976)); - })(); - })); - var v979 = ({car: v974, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v979); -})(); -var l336 = {name: "SYMBOLP"}; -(function(){ - var v980 = l47.fvalue(pv, l336, (function (values,v981){ - checkArgs(arguments, 2); - return (function(){ - return (function(v982){ - return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp = ", v982, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()")); - })(l193.fvalue(pv, v981)); - })(); - })); - var v983 = ({car: v980, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v983); -})(); -var l337 = {name: "MAKE-SYMBOL"}; -(function(){ - var v984 = l47.fvalue(pv, l337, (function (values,v985){ - checkArgs(arguments, 2); - return (function(){ - return (function(v986){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "name", " = ", v986, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "({name: name})", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v985)); - })(); - })); - var v987 = ({car: v984, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v987); -})(); -var l338 = {name: "SYMBOL-NAME"}; -(function(){ - var v988 = l47.fvalue(pv, l338, (function (values,v989){ - checkArgs(arguments, 2); - return (function(){ - return (function(v990){ - return l191.fvalue(values, "(", v990, ").name"); - })(l193.fvalue(pv, v989)); - })(); - })); - var v991 = ({car: v988, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v991); -})(); -(function(){ - var v992 = l47.fvalue(pv, l256, (function (values,v993,v994){ - checkArgs(arguments, 3); - return (function(){ - return (function(v995,v996){ - return l191.fvalue(values, "(", v995, ").value = ", v996); - })(l193.fvalue(pv, v993),l193.fvalue(pv, v994)); - })(); - })); - var v997 = ({car: v992, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v997); -})(); -var l339 = {name: "FSET"}; -(function(){ - var v998 = l47.fvalue(pv, l339, (function (values,v999,v1000){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1001,v1002){ - return l191.fvalue(values, "(", v1001, ").fvalue = ", v1002); - })(l193.fvalue(pv, v999),l193.fvalue(pv, v1000)); - })(); - })); - var v1003 = ({car: v998, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1003); -})(); -(function(){ - var v1004 = l47.fvalue(pv, l20, (function (values,v1005){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1006){ - return l192.fvalue(values, l191.fvalue(pv, "(", v1006, ".value !== undefined)")); - })(l193.fvalue(pv, v1005)); - })(); - })); - var v1007 = ({car: v1004, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1007); -})(); -var l340 = {name: "SYMBOL-VALUE"}; -(function(){ - var v1008 = l47.fvalue(pv, l340, (function (values,v1009){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1010){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var symbol = ", v1010, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var value = symbol.value;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return value;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1009)); - })(); - })); - var v1011 = ({car: v1008, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1011); -})(); -(function(){ - var v1012 = l47.fvalue(pv, l264, (function (values,v1013){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1014){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var symbol = ", v1014, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var func = symbol.fvalue;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return func;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1013)); - })(); - })); - var v1015 = ({car: v1012, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1015); -})(); -var l341 = {name: "SYMBOL-PLIST"}; -(function(){ - var v1016 = l47.fvalue(pv, l341, (function (values,v1017){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1018){ - return l191.fvalue(values, "((", v1018, ").plist || ", l193.fvalue(pv, l5.value), ")"); - })(l193.fvalue(pv, v1017)); - })(); - })); - var v1019 = ({car: v1016, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1019); -})(); -var l342 = {name: "LAMBDA-CODE"}; -(function(){ - var v1020 = l47.fvalue(pv, l342, (function (values,v1021){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1022){ - return l191.fvalue(values, "(", v1022, ").toString()"); - })(l193.fvalue(pv, v1021)); - })(); - })); - var v1023 = ({car: v1020, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1023); -})(); -var l343 = {name: "EQ"}; -(function(){ - var v1024 = l47.fvalue(pv, l343, (function (values,v1025,v1026){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1027,v1028){ - return l192.fvalue(values, l191.fvalue(pv, "(", v1027, " === ", v1028, ")")); - })(l193.fvalue(pv, v1025),l193.fvalue(pv, v1026)); - })(); - })); - var v1029 = ({car: v1024, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1029); -})(); -var l344 = {name: "EQUAL"}; -(function(){ - var v1030 = l47.fvalue(pv, l344, (function (values,v1031,v1032){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1033,v1034){ - return l192.fvalue(values, l191.fvalue(pv, "(", v1033, " == ", v1034, ")")); - })(l193.fvalue(pv, v1031),l193.fvalue(pv, v1032)); - })(); - })); - var v1035 = ({car: v1030, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1035); -})(); -var l345 = {name: "CHAR-TO-STRING"}; -(function(){ - var v1036 = l47.fvalue(pv, l345, (function (values,v1037){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1038){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1038, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1037)); - })(); - })); - var v1039 = ({car: v1036, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1039); -})(); -var l346 = {name: "STRINGP"}; -(function(){ - var v1040 = l47.fvalue(pv, l346, (function (values,v1041){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1042){ - return l192.fvalue(values, l191.fvalue(pv, "(typeof(", v1042, ") == \"string\")")); - })(l193.fvalue(pv, v1041)); - })(); - })); - var v1043 = ({car: v1040, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1043); -})(); -var l347 = {name: "STRING-UPCASE"}; -(function(){ - var v1044 = l47.fvalue(pv, l347, (function (values,v1045){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1046){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1046, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1045)); - })(); - })); - var v1047 = ({car: v1044, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1047); -})(); -var l348 = {name: "STRING-LENGTH"}; -(function(){ - var v1048 = l47.fvalue(pv, l348, (function (values,v1049){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1050){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1050, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "x.length", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1049)); - })(); - })); - var v1051 = ({car: v1048, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1051); -})(); -var l349 = {name: "SLICE"}; -(function(){ - var v1052 = l47.fvalue(pv, l349, (function (values,v1053,v1054,v1055){ - checkArgsAtLeast(arguments, 3); - checkArgsAtMost(arguments, 4); - var v1055; - switch(arguments.length-1){ - case 2: - v1055=l5.value; - default: break; - } - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var str = ", l193.fvalue(pv, v1053), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var a = ", l193.fvalue(pv, v1054), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var b;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (v1055 !== l5.value ? l191.fvalue(pv, "b = ", l193.fvalue(pv, v1055), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value), "return str.slice(a,b);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); - })); - var v1056 = ({car: v1052, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1056); -})(); -var l350 = {name: "CHAR"}; -(function(){ - var v1057 = l47.fvalue(pv, l350, (function (values,v1058,v1059){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1060,v1061){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string", " = ", v1060, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "var ", "index", " = ", v1061, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1058),l193.fvalue(pv, v1059)); - })(); - })); - var v1062 = ({car: v1057, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1062); -})(); -(function(){ - var v1063 = l47.fvalue(pv, l76, (function (values,v1064,v1065){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1066,v1067){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string1", " = ", v1066, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "var ", "string2", " = ", v1067, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1064),l193.fvalue(pv, v1065)); - })(); - })); - var v1068 = ({car: v1063, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1068); -})(); -var l351 = {name: "FUNCALL"}; -(function(){ - var v1069 = l47.fvalue(pv, l351, (function (values,v1071){ - checkArgsAtLeast(arguments, 2); - var v1070= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v1070 = {car: arguments[i], cdr: - v1070}; - return (function(){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var f = ", l193.fvalue(pv, v1071), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof f === 'function'? f: f.fvalue)(", l159.fvalue(pv, ({car: ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), cdr: l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1070)}), ", "), ")"), "})()"); - })(); - })); - var v1072 = ({car: v1069, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1072); -})(); -var l352 = {name: "APPLY"}; -(function(){ - var v1073 = l47.fvalue(pv, l352, (function (values,v1075){ - checkArgsAtLeast(arguments, 2); - var v1074= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v1074 = {car: arguments[i], cdr: - v1074}; - return (function(){ - return (l13.fvalue(pv, v1074) !== l5.value ? l191.fvalue(values, "(", l193.fvalue(pv, v1075), ")()") : (function(v1076,v1077){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var f = ", l193.fvalue(pv, v1075), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var args = [", l159.fvalue(pv, ({car: ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), cdr: l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1076)}), ", "), "];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var tail = (", l193.fvalue(pv, v1077), ");", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "while (tail != ", l193.fvalue(pv, l5.value), "){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " args.push(tail.car);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " tail = tail.cdr;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof f === 'function'? f : f.fvalue).apply(this, args);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l95.fvalue(pv, v1074),(function(){ - var tmp = l94.fvalue(pv, v1074); - return tmp === l5.value? l5.value: tmp.car; - })())); - })(); - })); - var v1078 = ({car: v1073, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1078); -})(); -var l353 = {name: "JS-EVAL"}; -(function(){ - var v1079 = l47.fvalue(pv, l353, (function (values,v1080){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1081){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string", " = ", v1081, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l191.fvalue(pv, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "v = [v];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "v['multiple-value'] = true;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "}", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return values.apply(this, v);", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()") : "eval.apply(window, [string])"), ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1080)); - })(); - })); - var v1082 = ({car: v1079, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1082); -})(); -var l354 = {name: "ERROR"}; -(function(){ - var v1083 = l47.fvalue(pv, l354, (function (values,v1084){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1085){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw ", v1085, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1084)); - })(); - })); - var v1086 = ({car: v1083, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1086); -})(); -var l355 = {name: "NEW"}; -(function(){ - var v1087 = l47.fvalue(pv, l355, (function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ - return (function(){ - return "{}"; - })(); - })(); - })); - var v1088 = ({car: v1087, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1088); -})(); -var l356 = {name: "OBJECTP"}; -(function(){ - var v1089 = l47.fvalue(pv, l356, (function (values,v1090){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1091){ - return l192.fvalue(values, l191.fvalue(pv, "(typeof (", v1091, ") === 'object')")); - })(l193.fvalue(pv, v1090)); - })(); - })); - var v1092 = ({car: v1089, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1092); -})(); -var l357 = {name: "OGET"}; -(function(){ - var v1093 = l47.fvalue(pv, l357, (function (values,v1094,v1095){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1096,v1097){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var tmp = ", "(", v1096, ")[", v1097, "];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return tmp == undefined? ", l193.fvalue(pv, l5.value), ": tmp ;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1094),l193.fvalue(pv, v1095)); - })(); - })); - var v1098 = ({car: v1093, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1098); -})(); -var l358 = {name: "OSET"}; -(function(){ - var v1099 = l47.fvalue(pv, l358, (function (values,v1100,v1101,v1102){ - checkArgs(arguments, 4); - return (function(){ - return (function(v1103,v1104,v1105){ - return l191.fvalue(values, "((", v1103, ")[", v1104, "] = ", v1105, ")"); - })(l193.fvalue(pv, v1100),l193.fvalue(pv, v1101),l193.fvalue(pv, v1102)); - })(); - })); - var v1106 = ({car: v1099, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1106); -})(); -var l359 = {name: "IN"}; -(function(){ - var v1107 = l47.fvalue(pv, l359, (function (values,v1108,v1109){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1110,v1111){ - return l192.fvalue(values, l191.fvalue(pv, "((", v1110, ") in (", v1111, "))")); - })(l193.fvalue(pv, v1108),l193.fvalue(pv, v1109)); - })(); - })); - var v1112 = ({car: v1107, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1112); -})(); -var l360 = {name: "FUNCTIONP"}; -(function(){ - var v1113 = l47.fvalue(pv, l360, (function (values,v1114){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1115){ - return l192.fvalue(values, l191.fvalue(pv, "(typeof ", v1115, " == 'function')")); - })(l193.fvalue(pv, v1114)); - })(); - })); - var v1116 = ({car: v1113, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1116); -})(); -var l361 = {name: "WRITE-STRING"}; -(function(){ - var v1117 = l47.fvalue(pv, l361, (function (values,v1118){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1119){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1119, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l191.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l193.fvalue(pv, v1118)); - })(); - })); - var v1120 = ({car: v1117, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1120); -})(); -var l362 = {name: "MAKE-ARRAY"}; -(function(){ - var v1121 = l47.fvalue(pv, l362, (function (values,v1122){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1123){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var r = [];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "for (var i = 0; i < ", v1123, "; i++)", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "r.push(", l193.fvalue(pv, l5.value), ");", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "return r;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1122)); - })(); - })); - var v1124 = ({car: v1121, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1124); -})(); -var l363 = {name: "ARRAYP"}; -(function(){ - var v1125 = l47.fvalue(pv, l363, (function (values,v1126){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1127){ - return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var x = ", v1127, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l193.fvalue(pv, v1126)); - })(); - })); - var v1128 = ({car: v1125, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1128); -})(); -var l364 = {name: "AREF"}; -(function(){ - var v1129 = l47.fvalue(pv, l364, (function (values,v1130,v1131){ - checkArgs(arguments, 3); - return (function(){ - return (function(v1132,v1133){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var x = ", "(", v1132, ")[", v1133, "];", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (x === undefined) throw 'Out of range';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return x;", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1130),l193.fvalue(pv, v1131)); - })(); - })); - var v1134 = ({car: v1129, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1134); -})(); -var l365 = {name: "ASET"}; -(function(){ - var v1135 = l47.fvalue(pv, l365, (function (values,v1136,v1137,v1138){ - checkArgs(arguments, 4); - return (function(){ - return (function(v1139,v1140,v1141){ - return l191.fvalue(values, "(function(){", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l195.fvalue(pv, "var x = ", v1139, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var i = ", v1140, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return x[i] = ", v1141, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l193.fvalue(pv, v1136),l193.fvalue(pv, v1137),l193.fvalue(pv, v1138)); - })(); - })); - var v1142 = ({car: v1135, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1142); -})(); -var l366 = {name: "GET-UNIX-TIME"}; -(function(){ - var v1143 = l47.fvalue(pv, l366, (function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ - return (function(){ - return l191.fvalue(values, "(Math.round(new Date() / 1000))"); - })(); - })(); - })); - var v1144 = ({car: v1143, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1144); -})(); -var l367 = {name: "VALUES-ARRAY"}; -(function(){ - var v1145 = l47.fvalue(pv, l367, (function (values,v1146){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1147){ - return ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l191.fvalue(values, "values.apply(this, ", v1147, ")") : l191.fvalue(values, "pv.apply(this, ", v1147, ")")); - })(l193.fvalue(pv, v1146)); - })(); - })); - var v1148 = ({car: v1145, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1148); -})(); -(function(){ - var v1149 = l47.fvalue(pv, l165, (function (values){ - var v1150= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v1150 = {car: arguments[i], cdr: - v1150}; - return (function(){ - return ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l191.fvalue(values, "values(", l159.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1150), ", "), ")") : l191.fvalue(values, "pv(", l159.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1150), ", "), ")")); - })(); - })); - var v1151 = ({car: v1149, cdr: (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l320).value = v1151); -})(); -(function(){ - (l222).fvalue = (function(v1154){ - ((v1154)["fname"] = "MACRO"); - return v1154; - })((function (values,v1152){ - checkArgs(arguments, 2); - return (function(){ - return (((function(){ - var tmp = v1152; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v1153){ - return (((l199.fvalue(pv, v1153) === l222)?l4.value: l5.value) !== l5.value ? v1153 : l5.value); - })(l211.fvalue(pv, v1152, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l113)) : l5.value); - })(); - })); - return l222; -})(); -(function(){ - (l120).fvalue = (function(v1159){ - ((v1159)["fname"] = "LS-MACROEXPAND-1"); - return v1159; - })((function (values,v1155){ - checkArgs(arguments, 2); - return (function(){ - return (function(v1156){ - return (v1156 !== l5.value ? (function(v1157){ - (l62.fvalue(pv, v1157) !== l5.value ? (function(v1158){ - l202.fvalue(pv, v1156, v1158); - return (v1157 = v1158); - })(l272.fvalue(pv, v1157)) : l5.value); - return (function(){ - var f = v1157; - var args = [values]; - var tail = ((function(){ - var tmp = v1155; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - while (tail != l5.value){ - args.push(tail.car); - tail = tail.cdr; - } - return (typeof f === 'function'? f : f.fvalue).apply(this, args); - })(); - })(l200.fvalue(pv, v1156)) : v1155); - })(l222.fvalue(pv, (function(){ - var tmp = v1155; - return tmp === l5.value? l5.value: tmp.car; - })())); - })(); - })); - return l120; -})(); -var l368 = {name: "COMPILE-FUNCALL"}; -var l369 = {name: "G1056"}; -(function(){ - (l368).fvalue = (function(v1164){ - ((v1164)["fname"] = "COMPILE-FUNCALL"); - return v1164; - })((function (values,v1160,v1161){ - checkArgs(arguments, 3); - return (function(){ - return (function(){ - var v1162 = ((function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"); - var v1163 = l157.fvalue(pv, "(", l159.fvalue(pv, ({car: v1162, cdr: l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1161)}), ", "), ")"); - return (l267.fvalue(pv, v1160) !== l5.value ? l157.fvalue(values, l267.fvalue(pv, v1160), v1163) : ((((function(){ - var tmp = v1160; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((l145.fvalue(pv, v1160) === l136.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ - var symbol = l369; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() : l5.value) : l5.value) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l186, v1160)), ".fvalue", v1163) : l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l113, v1160)), v1163))); - })(); - })(); - })); - return l368; -})(); -(function(){ - (l254).fvalue = (function(v1167){ - ((v1167)["fname"] = "LS-COMPILE-BLOCK"); - return v1167; - })((function (values,v1165,v1166){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v1166; - switch(arguments.length-1){ - case 1: - v1166=l5.value; - default: break; - } - return (function(){ - return (v1166 !== l5.value ? l191.fvalue(values, l254.fvalue(pv, l95.fvalue(pv, v1165)), "return ", l193.fvalue(pv, (function(){ - var tmp = l94.fvalue(pv, v1165); - return tmp === l5.value? l5.value: tmp.car; - })(), (function(){ - var symbol = l196; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), ";") : l160.fvalue(values, l98.fvalue(pv, (function(){ - var symbol = l219; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l81.fvalue(pv, (function(){ - var symbol = l193; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1165)), l157.fvalue(pv, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()))); - })(); - })); - return l254; -})(); -(function(){ - (l193).fvalue = (function(v1177){ - ((v1177)["fname"] = "LS-COMPILE"); - return v1177; - })((function (values,v1168,v1169){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v1169; - switch(arguments.length-1){ - case 1: - v1169=l5.value; - default: break; - } - return (function(){ - return (function(v1170){ - try { - var tmp; - tmp = l196.value; - l196.value = v1170; - v1170 = tmp; - return (((function(){ - var tmp = v1168; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v1171){ - return ((v1171 !== l5.value ? l29.fvalue(pv, l96.fvalue(pv, l226, l201.fvalue(pv, v1171))) : l5.value) !== l5.value ? l200.fvalue(values, v1171) : ((function(v1172){ - return (v1172 !== l5.value ? v1172 : l96.fvalue(pv, l228, l201.fvalue(pv, v1171))); - })(l144.fvalue(pv, v1168)) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l186, v1168)), ".value") : l193.fvalue(values, l47.fvalue(pv, l340, l47.fvalue(pv, l186, v1168))))); - })(l211.fvalue(pv, v1168, (function(){ - var symbol = l212; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l114)) : (l89.fvalue(pv, v1168) !== l5.value ? l19.fvalue(values, v1168) : (((typeof(v1168) == "string")?l4.value: l5.value) !== l5.value ? l191.fvalue(values, "\"", l167.fvalue(pv, v1168), "\"") : (((function(){ - var x = v1168; - return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l262.fvalue(values, v1168) : (l62.fvalue(pv, v1168) !== l5.value ? (function(v1173,v1174){ - return (l106.fvalue(pv, v1173, (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) !== l5.value ? (function(v1175){ - return (function(){ - var f = v1175; - var args = [values]; - var tail = (v1174); - while (tail != l5.value){ - args.push(tail.car); - tail = tail.cdr; - } - return (typeof f === 'function'? f : f.fvalue).apply(this, args); - })(); - })(l43.fvalue(pv, l106.fvalue(pv, v1173, (function(){ - var symbol = l230; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()))) : ((l106.fvalue(pv, v1173, (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) !== l5.value ? l29.fvalue(pv, l224.fvalue(pv, v1173, l113, l227)) : l5.value) !== l5.value ? (function(v1176){ - return (function(){ - var f = v1176; - var args = [values]; - var tail = (v1174); - while (tail != l5.value){ - args.push(tail.car); - tail = tail.cdr; - } - return (typeof f === 'function'? f : f.fvalue).apply(this, args); - })(); - })(l43.fvalue(pv, l106.fvalue(pv, v1173, (function(){ - var symbol = l320; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()))) : (l222.fvalue(pv, v1173) !== l5.value ? l193.fvalue(values, l120.fvalue(pv, v1168), v1169) : l368.fvalue(values, v1173, v1174)))); - })((function(){ - var tmp = v1168; - return tmp === l5.value? l5.value: tmp.car; - })(),(function(){ - var tmp = v1168; - return tmp === l5.value? l5.value: tmp.cdr; - })()) : (function(){ - throw l157.fvalue(pv, "How should I compile ", l166.fvalue(pv, v1168), "?"); - })()))))); - } - finally { - l196.value = v1170; - } - })(v1169); - })(); - })); - return l193; -})(); -var l370 = {name: "LS-COMPILE-TOPLEVEL"}; -(function(){ - (l370).fvalue = (function(v1184){ - ((v1184)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v1184; - })((function (values,v1178,v1179){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v1179; - switch(arguments.length-1){ - case 1: - v1179=l5.value; - default: break; - } - return (function(){ - return (function(v1180){ - try { - var tmp; - tmp = l217.value; - l217.value = v1180; - v1180 = tmp; - return ((((function(){ - var tmp = v1178; - return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v1178; - return tmp === l5.value? l5.value: tmp.car; - })() === l123)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v1182){ - return l159.fvalue(values, l98.fvalue(pv, (function(){ - var symbol = l219; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v1182)); - })(l81.fvalue(pv, (function (values,v1181){ - checkArgs(arguments, 2); - return l370.fvalue(values, v1181, l4.value); - }), (function(){ - var tmp = v1178; - return tmp === l5.value? l5.value: tmp.cdr; - })())) : (function(v1183){ - return l191.fvalue(values, l160.fvalue(pv, l220.fvalue(pv), l191.fvalue(pv, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), (v1183 !== l5.value ? l191.fvalue(pv, v1183, ";", (function(){ - var symbol = l156; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value)); - })(l193.fvalue(pv, v1178, v1179))); - } - finally { - l217.value = v1180; - } - })(l5.value); - })(); - })); - return l370; -})(); -(function(){ - (l272).fvalue = (function(v1186){ - ((v1186)["fname"] = "EVAL"); - return v1186; - })((function (values,v1185){ - checkArgs(arguments, 2); - return (function(){ - return (function(){ - var string = l370.fvalue(pv, v1185, l4.value); - if (typeof string != 'string') - throw 'The value ' + string + ' is not a type string.'; - return (function(){ - var v = eval.apply(window, [string]); - if (typeof v !== 'object' || !('multiple-value' in v)){ - v = [v]; - v['multiple-value'] = true; - } - return values.apply(this, v); - })(); - })(); - })(); - })); - return l272; -})(); -var l371 = {name: "&BODY"}; -var l372 = QIList(l235,l236,l234,l371,l22,l17,l146,l65,l66,l23,l24,l25,l331,l333,l21,l21,l330,l332,l57,l68,l352,l364,l363,l106,l48,l208,l20,l20,l95,l34,l41,l39,l35,l32,l32,l55,l284,l36,l40,l37,l33,l33,l350,l87,l109,l136,l149,l42,l268,l45,l339,l351,l113,l360,l18,l118,l155,l292,l82,l232,l147,l49,l89,l89,l153,l144,l269,l6,l94,l75,l276,l279,l88,l86,l54,l30,l31,l83,l84,l50,l2,l121,l3,l10,l12,l1,l9,l101,l100,l110,l72,l73,l112,l52,l53,l56,l343,l28,l344,l354,l272,l105,l154,l131,l47,l85,l62,l80,l362,l132,l337,l81,l96,l91,l327,l115,l294,l116,l295,l127,l5,l29,l93,l92,l13,l334,l58,l137,l139,l135,l184,l90,l166,l169,l229,l59,l60,l123,l71,l51,l186,l128,l97,l98,l99,l15,l283,l69,l70,l124,l125,l43,l256,l122,l119,l104,l347,l107,l108,l346,l102,l264,l338,l145,l341,l340,l336,l4,l290,l44,l285,l27,l8,l293,l165,l164,l114,l168,l7,l111,l361,l26,l5); -l154.fvalue(values, l372); -((l146).value = (function(){ - var symbol = l142; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()); -(function(){ - var string = "var lisp"; - if (typeof string != 'string') - throw 'The value ' + string + ' is not a type string.'; - return (function(){ - var v = eval.apply(window, [string]); - if (typeof v !== 'object' || !('multiple-value' in v)){ - v = [v]; - v['multiple-value'] = true; - } - return values.apply(this, v); - })(); -})(); -(lisp = {}); -(lisp.read = (function(){ - var symbol = l190; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; -})()); -(lisp.print = (function(){ - var symbol = l166; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; -})()); -(lisp.eval = (function(){ - var symbol = l272; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; -})()); -(lisp.compile = (function (values,v1187){ - checkArgs(arguments, 2); - return l370.fvalue(values, v1187, l4.value); -})); -(lisp.evalString = (function (values,v1188){ - checkArgs(arguments, 2); - return l272.fvalue(values, l190.fvalue(pv, v1188)); -})); -(lisp.compileString = (function (values,v1189){ - checkArgs(arguments, 2); - return l370.fvalue(values, l190.fvalue(pv, v1189), l4.value); -})); -var l373 = {name: "OP"}; -var l374 = {name: "SYM"}; -var l375 = {name: "X"}; -var l376 = {name: "ARGS"}; -var l377 = {name: "BODY"}; -var l378 = {name: "DECLS"}; -var l379 = {name: "DECL"}; -var l380 = {name: "NAME"}; -var l381 = {name: "ARG"}; -var l382 = {name: "FORM"}; -var l383 = {name: "PACKAGE-DESIGNATOR"}; -var l384 = {name: "CLAUSULES"}; -var l385 = {name: "VALUE"}; -var l386 = {name: "C"}; -var l387 = {name: "INTEGER"}; -var l388 = {name: "PAIRS"}; -var l389 = {name: "PLACE"}; -var l390 = {name: "VARS"}; -var l391 = {name: "VALS"}; -var l392 = {name: "STORE-VARS"}; -var l393 = {name: "WRITER-FORM"}; -var l394 = {name: "READER-FORM"}; -var l395 = {name: "RESULT"}; -var l396 = {name: "ACCESS-FN"}; -var l397 = {name: "LAMBDA-LIST"}; -var l398 = {name: "VALUE-FROM"}; -var l399 = {name: "VARIABLES"}; -var l400 = {name: "ITERATION"}; -var l401 = {name: "SEQ"}; -var l402 = {name: "INDEX"}; -var l403 = {name: "HEAD"}; -var l404 = {name: "TAIL"}; -var l405 = {name: "COLLECT"}; -var l406 = {name: "VARLIST"}; -var l407 = {name: "ENDLIST"}; -var l408 = {name: "V"}; -var l409 = {name: "ASSIGNMENTS"}; -var l410 = {name: "FORM1"}; -var l411 = {name: "FORMS"}; -var l412 = {name: "G"}; -var l413 = {name: "!FORM"}; -var l414 = {name: "CLAUSULE"}; -var l415 = {name: "ITER"}; -var l416 = {name: "G!TO"}; -var l417 = {name: "VAR"}; -var l418 = {name: "TO"}; -var l419 = {name: "G!LIST"}; -var l420 = {name: "DUMMIES"}; -var l421 = {name: "NEWVAL"}; -var l422 = {name: "SETTER"}; -var l423 = {name: "GETTER"}; -var l424 = {name: "DELTA"}; -var l425 = {name: "CONDITION"}; -var l426 = {name: "DOCSTRING"}; -var l427 = QIList(QIList(QIList(l320,l114,l5,QIList(l226,l5),l5),QIList(l304,l114,l5,QIList(l226,l5),l5),QIList(l303,l114,l5,QIList(l226,l5),l5),QIList(l302,l114,l5,QIList(l226,l5),l5),QIList(l301,l114,l5,QIList(l226,l5),l5),QIList(l300,l114,l5,QIList(l226,l5),l5),QIList(l299,l114,l5,QIList(l226,l5),l5),QIList(l298,l114,l5,QIList(l226,l5),l5),QIList(l297,l114,l5,QIList(l226,l5),l5),QIList(l296,l114,l5,QIList(l226,l5),l5),QIList(l287,l114,l5,QIList(l226,l5),l5),QIList(l286,l114,l5,QIList(l226,l5),l5),QIList(l280,l114,l5,QIList(l226,l5),l5),QIList(l270,l114,l5,QIList(l226,l5),l5),QIList(l260,l114,l5,QIList(l226,l5),l5),QIList(l259,l114,l5,QIList(l226,l5),l5),QIList(l233,l114,l5,QIList(l226,l5),l5),QIList(l230,l114,l5,QIList(l226,l5),l5),QIList(l217,l114,l5,QIList(l226,l5),l5),QIList(l213,l114,l5,QIList(l226,l5),l5),QIList(l212,l114,l5,QIList(l226,l5),l5),QIList(l196,l114,l5,QIList(l226,l5),l5),QIList(l185,l114,l5,QIList(l226,l5),l5),QIList(l156,l114,l5,QIList(l226,l5),l5),QIList(l146,l114,l5,QIList(l226,l5),l5),QIList(l143,l114,l5,QIList(l226,l5),l5),QIList(l142,l114,l5,QIList(l226,l5),l5),QIList(l141,l114,l5,QIList(l226,l5),l5),QIList(l130,l114,l5,QIList(l226,l5),l5),QIList(l117,l114,l5,QIList(l226,l5),l5),QIList(l17,l114,l5,QIList(l226,l5),l5),QIList(l5,l114,l5,QIList(l228,l226,l5),l5),QIList(l4,l114,l5,QIList(l228,l226,l5),l5),l5),QIList(QIList(l329,l222,QIList(l113,QIList(l6,QIList(l373,l374,l5),QIList(l187,QIList(l321,QIList(l189,l373,l5),QIList(l375,l235,l376,l5),QIList(l276,QIList(QIList(l376,QIList(l30,l375,l376,l5),l5),l5),QIList(l325,l376,QIList(l192,QIList(l328,l376,QIList(l189,l374,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l325,l222,QIList(l113,QIList(l6,QIList(l376,l235,l377,l5),QIList(l8,QIList(l336,l376,l5),QIList(l354,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l187,QIList(l324,QIList(l189,l376,l5),QIList(l6,QIList(QIList(l189,l376,l5),l5),QIList(l191,"return ",QIList(l188,l377,l5),";",l156,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l323,l222,QIList(l113,QIList(l6,QIList(l378,l235,l377,l5),QIList(l187,QIList(l194,QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l191,"var ",QIList(l189,QIList(l42,l379,l5),l5)," = ",QIList(l189,QIList(l44,l379,l5),l5),";",l156,l5),l5),l5),l378,l5),l5),QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l191,"if (typeof ",QIList(l189,QIList(l42,l379,l5),l5)," != '",QIList(l189,QIList(l43,l379,l5),l5),"')",l156,QIList(l195,"throw 'The value ' + ",QIList(l189,QIList(l42,l379,l5),l5)," + ' is not a type ",QIList(l189,QIList(l43,l379,l5),l5),".';",l156,l5),l5),l5),l5),l378,l5),l5),QIList(l191,"return ",QIList(l123,QIList(l188,l377,l5),l5),";",l156,l5),l5),l5),l5),l5),l5,l5),QIList(l322,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l321,QIList(l189,l380,l5),QIList(l189,l376,l5),QIList(l276,QIList(l189,QIList(l81,QIList(l6,QIList(l381,l5),QIList(l187,QIList(QIList(l189,l381,l5),QIList(l193,QIList(l189,l381,l5),l5),l5),l5),l5),l376,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l321,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l51,QIList(l47,QIList(l186,QIList(l189,l380,l5),l5),QIList(l6,QIList(l189,l376,l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l320,l5),l5),l5),l5),l5,l5),QIList(l187,l222,QIList(l113,QIList(l6,QIList(l375,l5),QIList(l306,l375,l5),l5),l5),l5,l5),QIList(l273,l222,QIList(l113,QIList(l6,QIList(l380,l376,l382,l5),QIList(l187,QIList(l231,QIList(l189,l380,l5),QIList(l189,l376,l5),QIList(l193,QIList(l189,l382,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l231,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l51,QIList(l47,QIList(l186,QIList(l189,l380,l5),l5),QIList(l6,QIList(l189,l376,l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l230,l5),l5),l5),l5),l5,l5),QIList(l194,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l187,QIList(l191,"(function(){",l156,QIList(l195,QIList(l188,l377,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l158,l222,QIList(l113,QIList(l6,QIList(l114,l235,l382,l5),QIList(l187,QIList(l119,QIList(l189,l114,l5),QIList(l157,QIList(l189,l114,l5),QIList(l123,QIList(l188,l382,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l147,l222,QIList(l113,QIList(l6,QIList(l383,l5),QIList(l187,QIList(l271,QIList(l119,l146,QIList(l134,QIList(l189,l383,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l126,l222,QIList(l113,QIList(l6,QIList(l375,l235,l384,l5),QIList(l276,QIList(QIList(l385,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l385,l5),QIList(l189,l375,l5),l5),l5),QIList(l54,QIList(l188,QIList(l81,QIList(l6,QIList(l386,l5),QIList(l232,QIList(l343,QIList(l32,l386,l5),l4,l5),QIList(l187,QIList(QIList(l4,QIList(l188,QIList(l46,l386,l5),l5),l5),l5),l5),QIList(l187,QIList(QIList(QIList(l189,QIList(l56,QIList(l32,l386,l5),QIList(l387,QIList(l186,l89,l5),l5),QIList(l30,QIList(l186,l31,l5),l5),QIList(l107,QIList(l186,l346,l5),l5),QIList(l48,QIList(l186,l48,l5),l5),QIList(l13,QIList(l186,l13,l5),l5),l5),l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l58,QIList(l46,l386,l5),QIList(l47,l5,l5),l5),l5),l5),l5),l5),l5),l384,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l122,l222,QIList(l113,QIList(l6,QIList(l235,l388,l5),QIList(l54,QIList(QIList(l13,l388,l5),l5,l5),QIList(QIList(l13,QIList(l33,l388,l5),l5),QIList(l354,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l37,l388,l5),l5),QIList(l276,QIList(QIList(l389,QIList(l42,l388,l5),l5),QIList(l385,QIList(l43,l388,l5),l5),l5),QIList(l115,QIList(l390,l391,l392,l393,l394,l5),QIList(l118,l389,l5),QIList(l187,QIList(l279,QIList(l189,QIList(l81,QIList(l113,l47,l5),l390,l391,l5),l5),QIList(l115,QIList(l189,l392,l5),QIList(l189,l385,l5),QIList(l189,l393,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l187,QIList(l123,QIList(l188,QIList(l72,QIList(QIList(l388,l388,QIList(l37,l388,l5),l5),QIList(l395,QIList(l186,l5,l5),QIList(l30,QIList(l187,QIList(l122,QIList(l189,QIList(l32,l388,l5),l5),QIList(l189,QIList(l35,l388,l5),l5),l5),l5),l395,l5),l5),l5),QIList(QIList(l13,l388,l5),QIList(l70,l395,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l121,l222,QIList(l113,QIList(l6,QIList(l396,l397,l235,l377,l5),QIList(l8,QIList(l336,l396,l5),QIList(l354,"ACCESS-FN must be a symbol.",l5),l5),QIList(l187,QIList(l123,QIList(l51,QIList(l30,QIList(l186,QIList(l189,l396,l5),l5),QIList(l6,QIList(l189,l397,l5),QIList(l188,l377,l5),l5),l5),l117,l5),QIList(l186,QIList(l189,l396,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l116,l222,QIList(l113,QIList(l6,QIList(l398,l5),QIList(l187,QIList(l294,QIList(l113,l47,l5),QIList(l189,l398,l5),l5),l5),l5),l5),l5,l5),QIList(l115,l222,QIList(l113,QIList(l6,QIList(l399,l398,l235,l377,l5),QIList(l187,QIList(l294,QIList(l6,QIList(l234,QIList(l188,l399,l5),l235,QIList(l189,QIList(l18,l5),l5),l5),QIList(l188,l377,l5),l5),QIList(l189,l398,l5),l5),l5),l5),l5),l5,l5),QIList(l103,l222,QIList(l113,QIList(l6,QIList(l400,l235,l377,l5),QIList(l276,QIList(QIList(l401,QIList(l18,l5),l5),QIList(l402,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l401,l5),QIList(l189,QIList(l43,l400,l5),l5),l5),l5),QIList(l54,QIList(QIList(l346,QIList(l189,l401,l5),l5),QIList(l276,QIList(QIList(QIList(l189,l402,l5),0,l5),l5),QIList(l53,QIList(QIList(l189,l402,l5),QIList(l75,QIList(l189,l401,l5),l5),l5),QIList(l276,QIList(QIList(QIList(l189,QIList(l42,l400,l5),l5),QIList(l350,QIList(l189,l401,l5),QIList(l189,l402,l5),l5),l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),QIList(QIList(l62,QIList(l189,l401,l5),l5),QIList(l52,QIList(QIList(l189,QIList(l42,l400,l5),l5),QIList(l189,l401,l5),l5),QIList(l188,l377,l5),l5),l5),QIList(l4,QIList(l354,"type-error!",l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l80,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l187,QIList(l16,l4,QIList(l188,l377,l5),l5),l5),l5),l5),l5,l5),QIList(l77,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l276,QIList(QIList(l403,QIList(l18,l5),l5),QIList(l404,QIList(l18,l5),l5),l5),QIList(l187,QIList(l279,QIList(QIList(QIList(l189,l403,l5),QIList(l30,QIList(l186,l79,l5),l5,l5),l5),QIList(QIList(l189,l404,l5),QIList(l189,l403,l5),l5),l5),QIList(l268,QIList(QIList(l405,QIList(l375,l5),QIList(l125,QIList(l189,l404,l5),QIList(l30,l375,l5,l5),l5),QIList(l119,QIList(l189,l404,l5),QIList(l33,QIList(l189,l404,l5),l5),l5),l375,l5),l5),QIList(l188,l377,l5),l5),QIList(l33,QIList(l189,l403,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l73,l222,QIList(l113,QIList(l6,QIList(l406,l407,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l279,QIList(l189,QIList(l81,QIList(l6,QIList(l375,l5),QIList(l47,QIList(l42,l375,l5),QIList(l43,l375,l5),l5),l5),l406,l5),l5),QIList(l16,l4,QIList(l7,QIList(l189,QIList(l32,l407,l5),l5),QIList(l15,QIList(l123,QIList(l188,QIList(l33,l407,l5),l5),l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l119,QIList(l188,QIList(l352,QIList(l113,l68,l5),QIList(l81,QIList(l6,QIList(l408,l5),QIList(l57,QIList(l31,QIList(l37,l408,l5),l5),QIList(l47,QIList(l42,l408,l5),QIList(l44,l408,l5),l5),l5),l5),l406,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l72,l222,QIList(l113,QIList(l6,QIList(l406,l407,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(l189,QIList(l81,QIList(l6,QIList(l375,l5),QIList(l47,QIList(l42,l375,l5),QIList(l43,l375,l5),l5),l5),l406,l5),l5),QIList(l16,l4,QIList(l7,QIList(l189,QIList(l32,l407,l5),l5),QIList(l15,QIList(l123,QIList(l188,QIList(l33,l407,l5),l5),l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l71,QIList(l188,QIList(l352,QIList(l113,l68,l5),QIList(l81,QIList(l6,QIList(l408,l5),QIList(l57,QIList(l31,QIList(l37,l408,l5),l5),QIList(l47,QIList(l42,l408,l5),QIList(l44,l408,l5),l5),l5),l5),l406,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l222,QIList(l113,QIList(l6,QIList(l235,l388,l5),QIList(l276,QIList(QIList(l409,QIList(l186,l5,l5),l5),l5),QIList(l16,l4,QIList(l54,QIList(QIList(l13,l388,l5),QIList(l15,l5),l5),QIList(QIList(l13,QIList(l33,l388,l5),l5),QIList(l354,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l276,QIList(QIList(l114,QIList(l32,l388,l5),l5),QIList(l385,QIList(l35,l388,l5),l5),l5),QIList(l51,QIList(l187,QIList(QIList(l189,l114,l5),QIList(l189,QIList(l18,l5),l5),QIList(l189,l385,l5),l5),l5),l409,l5),QIList(l119,l388,QIList(l37,l388,l5),l5),l5),l5),l5),l5),QIList(l119,l409,QIList(l70,l409,l5),l5),QIList(l187,QIList(l276,QIList(l189,QIList(l81,QIList(l113,l33,l5),l409,l5),l5),QIList(l119,QIList(l188,QIList(l63,QIList(l113,l68,l5),QIList(l81,QIList(l113,l95,l5),l409,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l60,l222,QIList(l113,QIList(l6,QIList(l410,l395,l235,l377,l5),QIList(l187,QIList(l59,QIList(l123,QIList(l189,l410,l5),QIList(l189,l395,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5,l5),QIList(l59,l222,QIList(l113,QIList(l6,QIList(l382,l235,l377,l5),QIList(l276,QIList(QIList(l385,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l385,l5),QIList(l189,l382,l5),l5),l5),QIList(l188,l377,l5),QIList(l189,l385,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l222,QIList(l113,QIList(l6,QIList(l235,l411,l5),QIList(l54,QIList(QIList(l13,l411,l5),l5,l5),QIList(QIList(l13,QIList(l33,l411,l5),l5),QIList(l32,l411,l5),l5),QIList(l4,QIList(l276,QIList(QIList(l412,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l412,l5),QIList(l189,QIList(l32,l411,l5),l5),l5),l5),QIList(l232,QIList(l189,l412,l5),QIList(l189,l412,l5),QIList(l58,QIList(l188,QIList(l33,l411,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l57,l222,QIList(l113,QIList(l6,QIList(l235,l411,l5),QIList(l54,QIList(QIList(l13,l411,l5),l4,l5),QIList(QIList(l13,QIList(l33,l411,l5),l5),QIList(l32,l411,l5),l5),QIList(l4,QIList(l187,QIList(l232,QIList(l189,QIList(l32,l411,l5),l5),QIList(l57,QIList(l188,QIList(l33,l411,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l222,QIList(l113,QIList(l6,QIList(l382,l235,l384,l5),QIList(l187,QIList(l55,QIList(l189,l382,l5),QIList(l188,QIList(l68,l384,QIList(l187,QIList(QIList(l4,QIList(l354,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l222,QIList(l113,QIList(l6,QIList(l382,l235,l384,l5),QIList(l276,QIList(QIList(l413,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l413,l5),QIList(l189,l382,l5),l5),l5),QIList(l54,QIList(l188,QIList(l81,QIList(l6,QIList(l414,l5),QIList(l232,QIList(l343,QIList(l32,l414,l5),l4,l5),l414,QIList(l187,QIList(QIList(l28,QIList(l189,l413,l5),QIList(l186,QIList(l189,QIList(l32,l414,l5),l5),l5),l5),QIList(l188,QIList(l33,l414,l5),l5),l5),l5),l5),l5),l384,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l222,QIList(l113,QIList(l6,QIList(l235,l384,l5),QIList(l232,QIList(l13,l384,l5),l5,QIList(l232,QIList(l343,QIList(l34,l384,l5),l4,l5),QIList(l187,QIList(l123,QIList(l188,QIList(l36,l384,l5),l5),l5),l5),QIList(l187,QIList(l232,QIList(l189,QIList(l34,l384,l5),l5),QIList(l123,QIList(l188,QIList(l36,l384,l5),l5),l5),QIList(l54,QIList(l188,QIList(l33,l384,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l222,QIList(l113,QIList(l6,QIList(l415,l235,l377,l5),QIList(l276,QIList(QIList(l416,QIList(l18,l5),l5),QIList(l417,QIList(l42,l415,l5),l5),QIList(l418,QIList(l43,l415,l5),l5),QIList(l395,QIList(l44,l415,l5),l5),l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(QIList(QIList(l189,l417,l5),0,l5),QIList(QIList(l189,l416,l5),QIList(l189,l418,l5),l5),l5),QIList(l263,QIList(l331,QIList(l189,l417,l5),QIList(l189,l416,l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l49,QIList(l189,l417,l5),l5),l5),QIList(l189,l395,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l222,QIList(l113,QIList(l6,QIList(l415,l235,l377,l5),QIList(l276,QIList(QIList(l417,QIList(l42,l415,l5),l5),QIList(l419,QIList(l18,l5),l5),l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(QIList(QIList(l189,l419,l5),QIList(l189,QIList(l43,l415,l5),l5),l5),QIList(QIList(l189,l417,l5),l5,l5),l5),QIList(l263,QIList(l189,l419,l5),QIList(l119,QIList(l189,l417,l5),QIList(l32,QIList(l189,l419,l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l119,QIList(l189,l419,l5),QIList(l33,QIList(l189,l419,l5),l5),l5),l5),QIList(l189,QIList(l44,l415,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l222,QIList(l113,QIList(l6,QIList(l375,l389,l5),QIList(l115,QIList(l420,l391,l421,l422,l423,l5),QIList(l118,l389,l5),QIList(l276,QIList(QIList(l412,QIList(l18,l5),l5),l5),QIList(l187,QIList(l279,QIList(QIList(QIList(l189,l412,l5),QIList(l189,l375,l5),l5),QIList(l188,QIList(l81,QIList(l113,l47,l5),l420,l391,l5),l5),QIList(QIList(l189,QIList(l32,l421,l5),l5),QIList(l30,QIList(l189,l412,l5),QIList(l189,l423,l5),l5),l5),QIList(l188,QIList(l33,l421,l5),l5),l5),QIList(l189,l422,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l222,QIList(l113,QIList(l6,QIList(l375,l234,QIList(l424,1,l5),l5),QIList(l187,QIList(l119,QIList(l189,l375,l5),QIList(l66,QIList(l189,l375,l5),QIList(l189,l424,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l222,QIList(l113,QIList(l6,QIList(l375,l234,QIList(l424,1,l5),l5),QIList(l187,QIList(l119,QIList(l189,l375,l5),QIList(l65,QIList(l189,l375,l5),QIList(l189,l424,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l16,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l263,QIList(l189,l425,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l222,QIList(l113,QIList(l6,QIList(l234,l385,l5),QIList(l187,QIList(l283,l5,QIList(l189,l385,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l123,QIList(l339,QIList(l186,QIList(l189,l380,l5),l5),QIList(l11,QIList(l189,QIList(l338,l380,l5),l5),QIList(l189,l376,l5),QIList(l188,QIList(l232,QIList(l57,QIList(l346,QIList(l32,l377,l5),l5),QIList(l29,QIList(l13,QIList(l33,l377,l5),l5),l5),l5),QIList(l187,QIList(QIList(l189,QIList(l32,l377,l5),l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,QIList(l33,l377,l5),l5),l5),l5),l5),QIList(l187,QIList(QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l276,QIList(QIList(l375,QIList(l18,"FN",l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l375,l5),QIList(l6,QIList(l189,l376,l5),QIList(l188,l377,l5),l5),l5),l5),QIList(l358,QIList(l189,l375,l5),"fname",QIList(l189,l380,l5),l5),QIList(l189,l375,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l2,QIList(l226,QIList(l189,l380,l5),l5),l5),QIList(l8,QIList(l20,QIList(l186,QIList(l189,l380,l5),l5),l5),QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l232,QIList(l189,l425,l5),l5,QIList(l123,QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l232,QIList(l189,l425,l5),QIList(l123,QIList(l188,l377,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l222,QIList(l113,QIList(l6,QIList(l376,l235,l377,l5),QIList(l187,QIList(l113,QIList(l6,QIList(l189,l376,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l2,QIList(l226,QIList(l189,l380,l5),l5),l5),QIList(l2,QIList(l228,QIList(l189,l380,l5),l5),l5),QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l222,QIList(l113,QIList(l6,QIList(l235,l378,l5),QIList(l187,QIList(l271,QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l225,QIList(l186,QIList(l189,l379,l5),l5),l5),l5),l5),l378,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l271,QIList(l221,QIList(l186,QIList(l189,l380,l5),l5),QIList(l186,QIList(l113,QIList(l6,QIList(l189,QIList(l81,QIList(l113,QIList(l6,QIList(l375,l5),QIList(l232,QIList(l343,l375,QIList(l186,l371,l5),l5),QIList(l186,l235,l5),l375,l5),l5),l5),l376,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); -((l212).value = l427); -var l428 = QIList(QIList(l426,"l426"),QIList(l425,"l425"),QIList(l424,"l424"),QIList(l423,"l423"),QIList(l422,"l422"),QIList(l421,"l421"),QIList(l420,"l420"),QIList(l419,"l419"),QIList(l418,"l418"),QIList(l417,"l417"),QIList(l416,"l416"),QIList(l415,"l415"),QIList(l414,"l414"),QIList(l413,"l413"),QIList(l412,"l412"),QIList(l411,"l411"),QIList(l410,"l410"),QIList(l409,"l409"),QIList(l408,"l408"),QIList(l407,"l407"),QIList(l406,"l406"),QIList(l405,"l405"),QIList(l404,"l404"),QIList(l403,"l403"),QIList(l402,"l402"),QIList(l401,"l401"),QIList(l400,"l400"),QIList(l399,"l399"),QIList(l398,"l398"),QIList(l397,"l397"),QIList(l396,"l396"),QIList(l395,"l395"),QIList(l394,"l394"),QIList(l393,"l393"),QIList(l392,"l392"),QIList(l391,"l391"),QIList(l390,"l390"),QIList(l389,"l389"),QIList(l388,"l388"),QIList(l387,"l387"),QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QIList(l382,"l382"),QIList(l381,"l381"),QIList(l380,"l380"),QIList(l379,"l379"),QIList(l378,"l378"),QIList(l377,"l377"),QIList(l376,"l376"),QIList(l375,"l375"),QIList(l374,"l374"),QIList(l373,"l373"),QIList(l371,"l371"),QIList(l370,"l370"),QIList(l369,"l369"),QIList(l368,"l368"),QIList(l367,"l367"),QIList(l366,"l366"),QIList(l365,"l365"),QIList(l364,"l364"),QIList(l363,"l363"),QIList(l362,"l362"),QIList(l361,"l361"),QIList(l360,"l360"),QIList(l359,"l359"),QIList(l358,"l358"),QIList(l357,"l357"),QIList(l356,"l356"),QIList(l355,"l355"),QIList(l354,"l354"),QIList(l353,"l353"),QIList(l352,"l352"),QIList(l351,"l351"),QIList(l350,"l350"),QIList(l349,"l349"),QIList(l348,"l348"),QIList(l347,"l347"),QIList(l346,"l346"),QIList(l345,"l345"),QIList(l344,"l344"),QIList(l343,"l343"),QIList(l342,"l342"),QIList(l341,"l341"),QIList(l340,"l340"),QIList(l339,"l339"),QIList(l338,"l338"),QIList(l337,"l337"),QIList(l336,"l336"),QIList(l335,"l335"),QIList(l334,"l334"),QIList(l333,"l333"),QIList(l332,"l332"),QIList(l331,"l331"),QIList(l330,"l330"),QIList(l329,"l329"),QIList(l328,"l328"),QIList(l327,"l327"),QIList(l326,"l326"),QIList(l325,"l325"),QIList(l324,"l324"),QIList(l323,"l323"),QIList(l322,"l322"),QIList(l321,"l321"),QIList(l320,"l320"),QIList(l319,"l319"),QIList(l318,"l318"),QIList(l317,"l317"),QIList(l316,"l316"),QIList(l315,"l315"),QIList(l314,"l314"),QIList(l313,"l313"),QIList(l312,"l312"),QIList(l311,"l311"),QIList(l310,"l310"),QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l209,"l209"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l205,"l205"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l5); -(function(){ - l148.fvalue(pv, l426); - l148.fvalue(pv, l425); - l148.fvalue(pv, l424); - l148.fvalue(pv, l423); - l148.fvalue(pv, l422); - l148.fvalue(pv, l421); - l148.fvalue(pv, l420); - l148.fvalue(pv, l419); - l148.fvalue(pv, l418); - l148.fvalue(pv, l417); - l148.fvalue(pv, l416); - l148.fvalue(pv, l415); - l148.fvalue(pv, l414); - l148.fvalue(pv, l413); - l148.fvalue(pv, l412); - l148.fvalue(pv, l411); - l148.fvalue(pv, l410); - l148.fvalue(pv, l409); - l148.fvalue(pv, l408); - l148.fvalue(pv, l407); - l148.fvalue(pv, l406); - l148.fvalue(pv, l405); - l148.fvalue(pv, l404); - l148.fvalue(pv, l403); - l148.fvalue(pv, l402); - l148.fvalue(pv, l401); - l148.fvalue(pv, l400); - l148.fvalue(pv, l399); - l148.fvalue(pv, l398); - l148.fvalue(pv, l397); - l148.fvalue(pv, l396); - l148.fvalue(pv, l395); - l148.fvalue(pv, l394); - l148.fvalue(pv, l393); - l148.fvalue(pv, l392); - l148.fvalue(pv, l391); - l148.fvalue(pv, l390); - l148.fvalue(pv, l389); - l148.fvalue(pv, l388); - l148.fvalue(pv, l387); - l148.fvalue(pv, l386); - l148.fvalue(pv, l385); - l148.fvalue(pv, l384); - l148.fvalue(pv, l383); - l148.fvalue(pv, l382); - l148.fvalue(pv, l381); - l148.fvalue(pv, l380); - l148.fvalue(pv, l379); - l148.fvalue(pv, l378); - l148.fvalue(pv, l377); - l148.fvalue(pv, l376); - l148.fvalue(pv, l375); - l148.fvalue(pv, l374); - l148.fvalue(pv, l373); - l148.fvalue(pv, l371); - l148.fvalue(pv, l370); - l148.fvalue(pv, l369); - l148.fvalue(pv, l368); - l148.fvalue(pv, l367); - l148.fvalue(pv, l366); - l148.fvalue(pv, l365); - l148.fvalue(pv, l364); - l148.fvalue(pv, l363); - l148.fvalue(pv, l362); - l148.fvalue(pv, l361); - l148.fvalue(pv, l360); - l148.fvalue(pv, l359); - l148.fvalue(pv, l358); - l148.fvalue(pv, l357); - l148.fvalue(pv, l356); - l148.fvalue(pv, l355); - l148.fvalue(pv, l354); - l148.fvalue(pv, l353); - l148.fvalue(pv, l352); - l148.fvalue(pv, l351); - l148.fvalue(pv, l350); - l148.fvalue(pv, l349); - l148.fvalue(pv, l348); - l148.fvalue(pv, l347); - l148.fvalue(pv, l346); - l148.fvalue(pv, l345); - l148.fvalue(pv, l344); - l148.fvalue(pv, l343); - l148.fvalue(pv, l342); - l148.fvalue(pv, l341); - l148.fvalue(pv, l340); - l148.fvalue(pv, l339); - l148.fvalue(pv, l338); - l148.fvalue(pv, l337); - l148.fvalue(pv, l336); - l148.fvalue(pv, l335); - l148.fvalue(pv, l334); - l148.fvalue(pv, l333); - l148.fvalue(pv, l332); - l148.fvalue(pv, l331); - l148.fvalue(pv, l330); - l148.fvalue(pv, l329); - l148.fvalue(pv, l328); - l148.fvalue(pv, l327); - l148.fvalue(pv, l326); - l148.fvalue(pv, l325); - l148.fvalue(pv, l324); - l148.fvalue(pv, l323); - l148.fvalue(pv, l322); - l148.fvalue(pv, l321); - l148.fvalue(pv, l320); - l148.fvalue(pv, l319); - l148.fvalue(pv, l318); - l148.fvalue(pv, l317); - l148.fvalue(pv, l316); - l148.fvalue(pv, l315); - l148.fvalue(pv, l314); - l148.fvalue(pv, l313); - l148.fvalue(pv, l312); - l148.fvalue(pv, l311); - l148.fvalue(pv, l310); - l148.fvalue(pv, l309); - l148.fvalue(pv, l308); - l148.fvalue(pv, l307); - l148.fvalue(pv, l306); - l148.fvalue(pv, l305); - l148.fvalue(pv, l304); - l148.fvalue(pv, l303); - l148.fvalue(pv, l302); - l148.fvalue(pv, l301); - l148.fvalue(pv, l300); - l148.fvalue(pv, l299); - l148.fvalue(pv, l298); - l148.fvalue(pv, l297); - l148.fvalue(pv, l296); - l148.fvalue(pv, l295); - l148.fvalue(pv, l294); - l148.fvalue(pv, l293); - l148.fvalue(pv, l292); - l148.fvalue(pv, l290); - l148.fvalue(pv, l289); - l148.fvalue(pv, l288); - l148.fvalue(pv, l287); - l148.fvalue(pv, l286); - l148.fvalue(pv, l285); - l148.fvalue(pv, l284); - l148.fvalue(pv, l283); - l148.fvalue(pv, l282); - l148.fvalue(pv, l281); - l148.fvalue(pv, l280); - l148.fvalue(pv, l279); - l148.fvalue(pv, l278); - l148.fvalue(pv, l277); - l148.fvalue(pv, l276); - l148.fvalue(pv, l275); - l148.fvalue(pv, l274); - l148.fvalue(pv, l273); - l148.fvalue(pv, l272); - l148.fvalue(pv, l271); - l148.fvalue(pv, l270); - l148.fvalue(pv, l269); - l148.fvalue(pv, l268); - l148.fvalue(pv, l267); - l148.fvalue(pv, l266); - l148.fvalue(pv, l265); - l148.fvalue(pv, l264); - l148.fvalue(pv, l263); - l148.fvalue(pv, l262); - l148.fvalue(pv, l261); - l148.fvalue(pv, l260); - l148.fvalue(pv, l259); - l148.fvalue(pv, l258); - l148.fvalue(pv, l257); - l148.fvalue(pv, l256); - l148.fvalue(pv, l255); - l148.fvalue(pv, l254); - l148.fvalue(pv, l253); - l148.fvalue(pv, l252); - l148.fvalue(pv, l251); - l148.fvalue(pv, l250); - l148.fvalue(pv, l249); - l148.fvalue(pv, l248); - l148.fvalue(pv, l247); - l148.fvalue(pv, l246); - l148.fvalue(pv, l245); - l148.fvalue(pv, l244); - l148.fvalue(pv, l243); - l148.fvalue(pv, l242); - l148.fvalue(pv, l241); - l148.fvalue(pv, l240); - l148.fvalue(pv, l239); - l148.fvalue(pv, l238); - l148.fvalue(pv, l236); - l148.fvalue(pv, l235); - l148.fvalue(pv, l234); - l148.fvalue(pv, l233); - l148.fvalue(pv, l232); - l148.fvalue(pv, l231); - l148.fvalue(pv, l230); - l148.fvalue(pv, l229); - l148.fvalue(pv, l228); - l148.fvalue(pv, l227); - l148.fvalue(pv, l226); - l148.fvalue(pv, l225); - l148.fvalue(pv, l224); - l148.fvalue(pv, l223); - l148.fvalue(pv, l222); - l148.fvalue(pv, l221); - l148.fvalue(pv, l220); - l148.fvalue(pv, l219); - l148.fvalue(pv, l218); - l148.fvalue(pv, l217); - l148.fvalue(pv, l216); - l148.fvalue(pv, l215); - l148.fvalue(pv, l214); - l148.fvalue(pv, l213); - l148.fvalue(pv, l212); - l148.fvalue(pv, l211); - l148.fvalue(pv, l210); - l148.fvalue(pv, l209); - l148.fvalue(pv, l208); - l148.fvalue(pv, l207); - l148.fvalue(pv, l206); - l148.fvalue(pv, l205); - l148.fvalue(pv, l204); - l148.fvalue(pv, l203); - l148.fvalue(pv, l202); - l148.fvalue(pv, l201); - l148.fvalue(pv, l200); - l148.fvalue(pv, l199); - l148.fvalue(pv, l198); - l148.fvalue(pv, l197); - l148.fvalue(pv, l196); - l148.fvalue(pv, l195); - l148.fvalue(pv, l194); - l148.fvalue(pv, l193); - l148.fvalue(pv, l192); - l148.fvalue(pv, l191); - l148.fvalue(pv, l190); - l148.fvalue(pv, l189); - l148.fvalue(pv, l188); - l148.fvalue(pv, l187); - l148.fvalue(pv, l186); - l148.fvalue(pv, l185); - l148.fvalue(pv, l184); - l148.fvalue(pv, l183); - l148.fvalue(pv, l182); - l148.fvalue(pv, l181); - l148.fvalue(pv, l180); - l148.fvalue(pv, l179); - l148.fvalue(pv, l178); - l148.fvalue(pv, l177); - l148.fvalue(pv, l176); - l148.fvalue(pv, l175); - l148.fvalue(pv, l174); - l148.fvalue(pv, l173); - l148.fvalue(pv, l172); - l148.fvalue(pv, l171); - l148.fvalue(pv, l170); - l148.fvalue(pv, l169); - l148.fvalue(pv, l168); - l148.fvalue(pv, l167); - l148.fvalue(pv, l166); - l148.fvalue(pv, l165); - l148.fvalue(pv, l164); - l148.fvalue(pv, l163); - l148.fvalue(pv, l162); - l148.fvalue(pv, l161); - l148.fvalue(pv, l160); - l148.fvalue(pv, l159); - l148.fvalue(pv, l158); - l148.fvalue(pv, l157); - l148.fvalue(pv, l156); - l148.fvalue(pv, l155); - l148.fvalue(pv, l154); - l148.fvalue(pv, l153); - l148.fvalue(pv, l152); - l148.fvalue(pv, l151); - l148.fvalue(pv, l150); - l148.fvalue(pv, l149); - l148.fvalue(pv, l148); - l148.fvalue(pv, l147); - l148.fvalue(pv, l146); - l148.fvalue(pv, l145); - l148.fvalue(pv, l144); - l148.fvalue(pv, l143); - l148.fvalue(pv, l142); - l148.fvalue(pv, l141); - l148.fvalue(pv, l140); - l148.fvalue(pv, l139); - l148.fvalue(pv, l138); - l148.fvalue(pv, l137); - l148.fvalue(pv, l136); - l148.fvalue(pv, l135); - l148.fvalue(pv, l134); - l148.fvalue(pv, l133); - l148.fvalue(pv, l132); - l148.fvalue(pv, l131); - l148.fvalue(pv, l130); - l148.fvalue(pv, l129); - l148.fvalue(pv, l128); - l148.fvalue(pv, l127); - l148.fvalue(pv, l126); - l148.fvalue(pv, l125); - l148.fvalue(pv, l124); - l148.fvalue(pv, l123); - l148.fvalue(pv, l122); - l148.fvalue(pv, l121); - l148.fvalue(pv, l120); - l148.fvalue(pv, l119); - l148.fvalue(pv, l118); - l148.fvalue(pv, l117); - l148.fvalue(pv, l116); - l148.fvalue(pv, l115); - l148.fvalue(pv, l114); - l148.fvalue(pv, l113); - l148.fvalue(pv, l112); - l148.fvalue(pv, l111); - l148.fvalue(pv, l110); - l148.fvalue(pv, l109); - l148.fvalue(pv, l108); - l148.fvalue(pv, l107); - l148.fvalue(pv, l106); - l148.fvalue(pv, l105); - l148.fvalue(pv, l104); - l148.fvalue(pv, l103); - l148.fvalue(pv, l102); - l148.fvalue(pv, l101); - l148.fvalue(pv, l100); - l148.fvalue(pv, l99); - l148.fvalue(pv, l98); - l148.fvalue(pv, l97); - l148.fvalue(pv, l96); - l148.fvalue(pv, l95); - l148.fvalue(pv, l94); - l148.fvalue(pv, l93); - l148.fvalue(pv, l92); - l148.fvalue(pv, l91); - l148.fvalue(pv, l90); - l148.fvalue(pv, l89); - l148.fvalue(pv, l88); - l148.fvalue(pv, l87); - l148.fvalue(pv, l86); - l148.fvalue(pv, l85); - l148.fvalue(pv, l84); - l148.fvalue(pv, l83); - l148.fvalue(pv, l82); - l148.fvalue(pv, l81); - l148.fvalue(pv, l80); - l148.fvalue(pv, l79); - l148.fvalue(pv, l78); - l148.fvalue(pv, l77); - l148.fvalue(pv, l76); - l148.fvalue(pv, l75); - l148.fvalue(pv, l74); - l148.fvalue(pv, l73); - l148.fvalue(pv, l72); - l148.fvalue(pv, l71); - l148.fvalue(pv, l70); - l148.fvalue(pv, l69); - l148.fvalue(pv, l68); - l148.fvalue(pv, l67); - l148.fvalue(pv, l66); - l148.fvalue(pv, l65); - l148.fvalue(pv, l64); - l148.fvalue(pv, l63); - l148.fvalue(pv, l62); - l148.fvalue(pv, l61); - l148.fvalue(pv, l60); - l148.fvalue(pv, l59); - l148.fvalue(pv, l58); - l148.fvalue(pv, l57); - l148.fvalue(pv, l56); - l148.fvalue(pv, l55); - l148.fvalue(pv, l54); - l148.fvalue(pv, l53); - l148.fvalue(pv, l52); - l148.fvalue(pv, l51); - l148.fvalue(pv, l50); - l148.fvalue(pv, l49); - l148.fvalue(pv, l48); - l148.fvalue(pv, l47); - l148.fvalue(pv, l46); - l148.fvalue(pv, l45); - l148.fvalue(pv, l44); - l148.fvalue(pv, l43); - l148.fvalue(pv, l42); - l148.fvalue(pv, l41); - l148.fvalue(pv, l40); - l148.fvalue(pv, l39); - l148.fvalue(pv, l38); - l148.fvalue(pv, l37); - l148.fvalue(pv, l36); - l148.fvalue(pv, l35); - l148.fvalue(pv, l34); - l148.fvalue(pv, l33); - l148.fvalue(pv, l32); - l148.fvalue(pv, l31); - l148.fvalue(pv, l30); - l148.fvalue(pv, l29); - l148.fvalue(pv, l28); - l148.fvalue(pv, l27); - l148.fvalue(pv, l26); - l148.fvalue(pv, l25); - l148.fvalue(pv, l24); - l148.fvalue(pv, l23); - l148.fvalue(pv, l22); - l148.fvalue(pv, l21); - l148.fvalue(pv, l20); - l148.fvalue(pv, l19); - l148.fvalue(pv, l18); - l148.fvalue(pv, l17); - l148.fvalue(pv, l16); - l148.fvalue(pv, l15); - l148.fvalue(pv, l14); - l148.fvalue(pv, l13); - l148.fvalue(pv, l12); - l148.fvalue(pv, l11); - l148.fvalue(pv, l10); - l148.fvalue(pv, l9); - l148.fvalue(pv, l8); - l148.fvalue(pv, l7); - l148.fvalue(pv, l6); - l148.fvalue(pv, l5); - l148.fvalue(pv, l4); - l148.fvalue(pv, l3); - l148.fvalue(pv, l2); - l148.fvalue(pv, l1); - ((l259).value = l428); - ((l213).value = 1189); - ((l17).value = 460); - return ((l280).value = 332); -})(); -((l260).value = 428); -- 1.7.10.4