3 function pv (x) { return x==undefined? nil: x; }
7 r['multiple-value'] = true;
8 for (var i=0; i<arguments.length; i++)
13 function forcemv (x) {
14 return typeof x == 'object' && 'multiple-value' in x? x: mv(x);
17 // NOTE: Define VALUES to be MV for toplevel forms. It is because
18 // `eval' compiles the forms and execute the Javascript code at
19 // toplevel with `js-eval', so it is necessary to return multiple
20 // values from the eval function.
23 function checkArgsAtLeast(args, n){
24 if (args.length < n) throw 'too few arguments';
27 function checkArgsAtMost(args, n){
28 if (args.length > n) throw 'too many arguments';
31 function checkArgs(args, n){
32 checkArgsAtLeast(args, n);
33 checkArgsAtMost(args, n);
36 // Improper list constructor (like LIST*)
38 if (arguments.length == 1)
41 var i = arguments.length-1;
42 var r = arguments[i--];
44 r = {car: arguments[i], cdr: r};
49 var l1 = {name: "DEFMACRO"};
51 var l2 = {name: "DECLAIM"};
53 var l3 = {name: "NIL"};
58 var l5 = {name: "LAMBDA"};
60 var l6 = {name: "WHEN"};
62 var l7 = {name: "UNLESS"};
64 var l8 = {name: "DEFVAR"};
66 var l9 = {name: "DEFPARAMETER"};
68 var l10 = {name: "NAMED-LAMBDA"};
70 var l11 = {name: "DEFUN"};
72 var l12 = {name: "NULL"};
74 (l12).fvalue = (function(v2){
75 ((v2)["fname"] = "NULL");
77 })((function (values,v1){
78 checkArgs(arguments, 2);
80 return ((v1 === l3.value)?l4.value: l3.value);
85 var l13 = {name: "RETURN"};
87 var l14 = {name: "WHILE"};
89 var l15 = {name: "*GENSYM-COUNTER*"};
91 (((l15.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l15).value = 0));
94 var l16 = {name: "GENSYM"};
95 var l17 = {name: "INTEGER-TO-STRING"};
97 (l16).fvalue = (function(v4){
98 ((v4)["fname"] = "GENSYM");
100 })((function (values,v3){
101 checkArgsAtMost(arguments, 2);
102 switch(arguments.length-1){
108 ((l15).value = (function(){
109 var x1 = (function(){
111 var value = symbol.value;
112 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
115 if (typeof x1 !== 'number') throw 'Not a number!';
117 if (typeof x2 !== 'number') throw 'Not a number!';
121 var name = (function(){
123 var string2 = l17.fvalue(pv, (function(){
125 var value = symbol.value;
126 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
129 if (typeof string1 != 'string')
130 throw 'The value ' + string1 + ' is not a type string.';
131 if (typeof string2 != 'string')
132 throw 'The value ' + string2 + ' is not a type string.';
133 return string1.concat(string2);
135 if (typeof name != 'string')
136 throw 'The value ' + name + ' is not a type string.';
137 return ({name: name});
143 var l18 = {name: "BOUNDP"};
145 (l18).fvalue = (function(v6){
146 ((v6)["fname"] = "BOUNDP");
148 })((function (values,v5){
149 checkArgs(arguments, 2);
151 return ((v5.value !== undefined)?l4.value: l3.value);
156 var l19 = {name: "="};
158 (l19).fvalue = (function(v9){
159 ((v9)["fname"] = "=");
161 })((function (values,v7,v8){
162 checkArgs(arguments, 3);
166 if (typeof x1 !== 'number') throw 'Not a number!';
168 if (typeof x2 !== 'number') throw 'Not a number!';
169 return (x1==x2?l4.value: l3.value);
175 var l20 = {name: "*"};
177 (l20).fvalue = (function(v12){
178 ((v12)["fname"] = "*");
180 })((function (values,v10,v11){
181 checkArgs(arguments, 3);
185 if (typeof x1 !== 'number') throw 'Not a number!';
187 if (typeof x2 !== 'number') throw 'Not a number!';
194 var l21 = {name: "/"};
196 (l21).fvalue = (function(v15){
197 ((v15)["fname"] = "/");
199 })((function (values,v13,v14){
200 checkArgs(arguments, 3);
204 if (typeof x1 !== 'number') throw 'Not a number!';
206 if (typeof x2 !== 'number') throw 'Not a number!';
213 var l22 = {name: "1+"};
215 (l22).fvalue = (function(v17){
216 ((v17)["fname"] = "1+");
218 })((function (values,v16){
219 checkArgs(arguments, 2);
223 if (typeof x1 !== 'number') throw 'Not a number!';
225 if (typeof x2 !== 'number') throw 'Not a number!';
232 var l23 = {name: "1-"};
234 (l23).fvalue = (function(v19){
235 ((v19)["fname"] = "1-");
237 })((function (values,v18){
238 checkArgs(arguments, 2);
242 if (typeof x1 !== 'number') throw 'Not a number!';
244 if (typeof x2 !== 'number') throw 'Not a number!';
251 var l24 = {name: "ZEROP"};
253 (l24).fvalue = (function(v21){
254 ((v21)["fname"] = "ZEROP");
256 })((function (values,v20){
257 checkArgs(arguments, 2);
261 if (typeof x1 !== 'number') throw 'Not a number!';
263 if (typeof x2 !== 'number') throw 'Not a number!';
264 return (x1==x2?l4.value: l3.value);
270 var l25 = {name: "TRUNCATE"};
272 (l25).fvalue = (function(v24){
273 ((v24)["fname"] = "TRUNCATE");
275 })((function (values,v22,v23){
276 checkArgs(arguments, 3);
281 if (typeof x1 !== 'number') throw 'Not a number!';
283 if (typeof x2 !== 'number') throw 'Not a number!';
286 if (typeof x != 'number')
287 throw 'The value ' + x + ' is not a type number.';
288 return Math.floor(x);
294 var l26 = {name: "EQL"};
296 (l26).fvalue = (function(v27){
297 ((v27)["fname"] = "EQL");
299 })((function (values,v25,v26){
300 checkArgs(arguments, 3);
302 return ((v25 === v26)?l4.value: l3.value);
307 var l27 = {name: "NOT"};
309 (l27).fvalue = (function(v29){
310 ((v29)["fname"] = "NOT");
312 })((function (values,v28){
313 checkArgs(arguments, 2);
315 return (v28 !== l3.value ? l3.value : l4.value);
320 var l28 = {name: "CONS"};
322 (l28).fvalue = (function(v32){
323 ((v32)["fname"] = "CONS");
325 })((function (values,v30,v31){
326 checkArgs(arguments, 3);
328 return ({car: v30, cdr: v31});
333 var l29 = {name: "CONSP"};
335 (l29).fvalue = (function(v34){
336 ((v34)["fname"] = "CONSP");
338 })((function (values,v33){
339 checkArgs(arguments, 2);
343 return (typeof tmp == 'object' && 'car' in tmp);
344 })()?l4.value: l3.value);
349 var l30 = {name: "CAR"};
351 (l30).fvalue = (function(v36){
352 ((v36)["fname"] = "CAR");
355 var func = (function (values,v35){
356 checkArgs(arguments, 2);
360 return tmp === l3.value? l3.value: tmp.car;
364 func.docstring = 'Return the CAR part of a cons, or NIL if X is null.';
369 var l31 = {name: "CDR"};
371 (l31).fvalue = (function(v38){
372 ((v38)["fname"] = "CDR");
374 })((function (values,v37){
375 checkArgs(arguments, 2);
379 return tmp === l3.value? l3.value: tmp.cdr;
385 var l32 = {name: "CAAR"};
387 (l32).fvalue = (function(v40){
388 ((v40)["fname"] = "CAAR");
390 })((function (values,v39){
391 checkArgs(arguments, 2);
394 var tmp = (function(){
396 return tmp === l3.value? l3.value: tmp.car;
398 return tmp === l3.value? l3.value: tmp.car;
404 var l33 = {name: "CADR"};
406 (l33).fvalue = (function(v42){
407 ((v42)["fname"] = "CADR");
409 })((function (values,v41){
410 checkArgs(arguments, 2);
413 var tmp = (function(){
415 return tmp === l3.value? l3.value: tmp.cdr;
417 return tmp === l3.value? l3.value: tmp.car;
423 var l34 = {name: "CDAR"};
425 (l34).fvalue = (function(v44){
426 ((v44)["fname"] = "CDAR");
428 })((function (values,v43){
429 checkArgs(arguments, 2);
432 var tmp = (function(){
434 return tmp === l3.value? l3.value: tmp.car;
436 return tmp === l3.value? l3.value: tmp.cdr;
442 var l35 = {name: "CDDR"};
444 (l35).fvalue = (function(v46){
445 ((v46)["fname"] = "CDDR");
447 })((function (values,v45){
448 checkArgs(arguments, 2);
451 var tmp = (function(){
453 return tmp === l3.value? l3.value: tmp.cdr;
455 return tmp === l3.value? l3.value: tmp.cdr;
461 var l36 = {name: "CADDR"};
463 (l36).fvalue = (function(v48){
464 ((v48)["fname"] = "CADDR");
466 })((function (values,v47){
467 checkArgs(arguments, 2);
470 var tmp = (function(){
471 var tmp = (function(){
473 return tmp === l3.value? l3.value: tmp.cdr;
475 return tmp === l3.value? l3.value: tmp.cdr;
477 return tmp === l3.value? l3.value: tmp.car;
483 var l37 = {name: "CDDDR"};
485 (l37).fvalue = (function(v50){
486 ((v50)["fname"] = "CDDDR");
488 })((function (values,v49){
489 checkArgs(arguments, 2);
492 var tmp = (function(){
493 var tmp = (function(){
495 return tmp === l3.value? l3.value: tmp.cdr;
497 return tmp === l3.value? l3.value: tmp.cdr;
499 return tmp === l3.value? l3.value: tmp.cdr;
505 var l38 = {name: "CADDDR"};
507 (l38).fvalue = (function(v52){
508 ((v52)["fname"] = "CADDDR");
510 })((function (values,v51){
511 checkArgs(arguments, 2);
514 var tmp = (function(){
515 var tmp = (function(){
516 var tmp = (function(){
518 return tmp === l3.value? l3.value: tmp.cdr;
520 return tmp === l3.value? l3.value: tmp.cdr;
522 return tmp === l3.value? l3.value: tmp.cdr;
524 return tmp === l3.value? l3.value: tmp.car;
530 var l39 = {name: "FIRST"};
532 (l39).fvalue = (function(v54){
533 ((v54)["fname"] = "FIRST");
535 })((function (values,v53){
536 checkArgs(arguments, 2);
540 return tmp === l3.value? l3.value: tmp.car;
546 var l40 = {name: "SECOND"};
548 (l40).fvalue = (function(v56){
549 ((v56)["fname"] = "SECOND");
551 })((function (values,v55){
552 checkArgs(arguments, 2);
554 return l33.fvalue(values, v55);
559 var l41 = {name: "THIRD"};
561 (l41).fvalue = (function(v58){
562 ((v58)["fname"] = "THIRD");
564 })((function (values,v57){
565 checkArgs(arguments, 2);
567 return l36.fvalue(values, v57);
572 var l42 = {name: "FOURTH"};
574 (l42).fvalue = (function(v60){
575 ((v60)["fname"] = "FOURTH");
577 })((function (values,v59){
578 checkArgs(arguments, 2);
580 return l38.fvalue(values, v59);
585 var l43 = {name: "LIST"};
587 (l43).fvalue = (function(v62){
588 ((v62)["fname"] = "LIST");
590 })((function (values){
592 for (var i = arguments.length-1; i>=1; i--)
593 v61 = {car: arguments[i], cdr:
601 var l44 = {name: "ATOM"};
603 (l44).fvalue = (function(v64){
604 ((v64)["fname"] = "ATOM");
606 })((function (values,v63){
607 checkArgs(arguments, 2);
609 return l27.fvalue(values, ((function(){
611 return (typeof tmp == 'object' && 'car' in tmp);
612 })()?l4.value: l3.value));
617 var l45 = {name: "INCF"};
619 var l46 = {name: "DECF"};
621 var l47 = {name: "PUSH"};
623 var l48 = {name: "DOLIST"};
625 var l49 = {name: "DOTIMES"};
627 var l50 = {name: "COND"};
629 var l51 = {name: "CASE"};
631 var l52 = {name: "ECASE"};
633 var l53 = {name: "AND"};
635 var l54 = {name: "OR"};
637 var l55 = {name: "PROG1"};
639 var l56 = {name: "PROG2"};
641 var l57 = {name: "ENSURE-LIST"};
642 var l58 = {name: "LISTP"};
644 (l57).fvalue = (function(v66){
645 ((v66)["fname"] = "ENSURE-LIST");
647 })((function (values,v65){
648 checkArgs(arguments, 2);
650 return (l58.fvalue(pv, v65) !== l3.value ? v65 : l43.fvalue(values, v65));
655 var l59 = {name: "!REDUCE"};
657 (l59).fvalue = (function(v70){
658 ((v70)["fname"] = "!REDUCE");
660 })((function (values,v67,v68,v69){
661 checkArgs(arguments, 4);
663 return (l12.fvalue(pv, v68) !== l3.value ? v69 : l59.fvalue(values, v67, (function(){
665 return tmp === l3.value? l3.value: tmp.cdr;
666 })(), (v67)(pv, v69, (function(){
668 return tmp === l3.value? l3.value: tmp.car;
674 var l60 = {name: "+"};
676 (l60).fvalue = (function(v75){
677 ((v75)["fname"] = "+");
679 })((function (values){
681 for (var i = arguments.length-1; i>=1; i--)
682 v71 = {car: arguments[i], cdr:
685 return (function(v72){
687 return (function(v73,v74){
689 while(v73 !== l3.value){
692 return tmp === l3.value? l3.value: tmp.car;
697 if (typeof x1 !== 'number') throw 'Not a number!';
699 if (typeof x2 !== 'number') throw 'Not a number!';
706 return tmp === l3.value? l3.value: tmp.cdr;
718 var l61 = {name: "-"};
720 (l61).fvalue = (function(v81){
721 ((v81)["fname"] = "-");
723 })((function (values,v77){
724 checkArgsAtLeast(arguments, 2);
726 for (var i = arguments.length-1; i>=2; i--)
727 v76 = {car: arguments[i], cdr:
730 return (l12.fvalue(pv, v76) !== l3.value ? (function(){
732 if (typeof x1 !== 'number') throw 'Not a number!';
734 })() : (function(v78){
736 return (function(v79,v80){
738 while(v79 !== l3.value){
741 return tmp === l3.value? l3.value: tmp.car;
746 if (typeof x1 !== 'number') throw 'Not a number!';
748 if (typeof x2 !== 'number') throw 'Not a number!';
755 return tmp === l3.value? l3.value: tmp.cdr;
767 var l62 = {name: "APPEND-TWO"};
768 var l63 = {name: "APPEND"};
770 (l62).fvalue = (function(v84){
771 ((v84)["fname"] = "APPEND-TWO");
773 })((function (values,v82,v83){
774 checkArgs(arguments, 3);
776 return (l12.fvalue(pv, v82) !== l3.value ? v83 : ({car: (function(){
778 return tmp === l3.value? l3.value: tmp.car;
779 })(), cdr: l63.fvalue(pv, (function(){
781 return tmp === l3.value? l3.value: tmp.cdr;
788 (l63).fvalue = (function(v86){
789 ((v86)["fname"] = "APPEND");
791 })((function (values){
793 for (var i = arguments.length-1; i>=1; i--)
794 v85 = {car: arguments[i], cdr:
797 return l59.fvalue(values, (function(){
799 var func = symbol.fvalue;
800 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
807 var l64 = {name: "REVAPPEND"};
809 (l64).fvalue = (function(v89){
810 ((v89)["fname"] = "REVAPPEND");
812 })((function (values,v87,v88){
813 checkArgs(arguments, 3);
817 while(v87 !== l3.value){
818 (v88 = ({car: (function(){
820 return tmp === l3.value? l3.value: tmp.car;
824 return tmp === l3.value? l3.value: tmp.cdr;
834 var l65 = {name: "REVERSE"};
836 (l65).fvalue = (function(v91){
837 ((v91)["fname"] = "REVERSE");
839 })((function (values,v90){
840 checkArgs(arguments, 2);
842 return l64.fvalue(values, v90, l3);
847 var l66 = {name: "PSETQ"};
849 var l67 = {name: "DO"};
851 var l68 = {name: "DO*"};
853 var l69 = {name: "LIST-LENGTH"};
855 (l69).fvalue = (function(v94){
856 ((v94)["fname"] = "LIST-LENGTH");
858 })((function (values,v92){
859 checkArgs(arguments, 2);
861 return (function(v93){
864 while(l27.fvalue(pv, l12.fvalue(pv, v92)) !== l3.value){
867 if (typeof x1 !== 'number') throw 'Not a number!';
869 if (typeof x2 !== 'number') throw 'Not a number!';
874 return tmp === l3.value? l3.value: tmp.cdr;
885 var l70 = {name: "LENGTH"};
887 (l70).fvalue = (function(v96){
888 ((v96)["fname"] = "LENGTH");
890 })((function (values,v95){
891 checkArgs(arguments, 2);
893 return (((typeof(v95) == "string")?l4.value: l3.value) !== l3.value ? (function(){
895 if (typeof x != 'string')
896 throw 'The value ' + x + ' is not a type string.';
898 })() : (((function(){
900 return typeof x === 'object' && 'length' in x;
901 })()?l4.value: l3.value) !== l3.value ? (function(){
902 var tmp = (v95)["length"];
903 return tmp == undefined? l3.value: tmp ;
904 })() : (l58.fvalue(pv, v95) !== l3.value ? l69.fvalue(values, v95) : l3.value)));
909 var l71 = {name: "CONCAT-TWO"};
911 (l71).fvalue = (function(v99){
912 ((v99)["fname"] = "CONCAT-TWO");
914 })((function (values,v97,v98){
915 checkArgs(arguments, 3);
920 if (typeof string1 != 'string')
921 throw 'The value ' + string1 + ' is not a type string.';
922 if (typeof string2 != 'string')
923 throw 'The value ' + string2 + ' is not a type string.';
924 return string1.concat(string2);
930 var l72 = {name: "MAPCAR"};
932 (l72).fvalue = (function(v102){
933 ((v102)["fname"] = "MAPCAR");
935 })((function (values,v100,v101){
936 checkArgs(arguments, 3);
938 return (l12.fvalue(pv, v101) !== l3.value ? l3 : ({car: (v100)(pv, (function(){
940 return tmp === l3.value? l3.value: tmp.car;
941 })()), cdr: l72.fvalue(pv, v100, (function(){
943 return tmp === l3.value? l3.value: tmp.cdr;
949 var l73 = {name: "IDENTITY"};
951 (l73).fvalue = (function(v104){
952 ((v104)["fname"] = "IDENTITY");
954 })((function (values,v103){
955 checkArgs(arguments, 2);
962 var l74 = {name: "COPY-LIST"};
964 (l74).fvalue = (function(v106){
965 ((v106)["fname"] = "COPY-LIST");
967 })((function (values,v105){
968 checkArgs(arguments, 2);
970 return l72.fvalue(values, (function(){
972 var func = symbol.fvalue;
973 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
980 var l75 = {name: "CODE-CHAR"};
982 (l75).fvalue = (function(v108){
983 ((v108)["fname"] = "CODE-CHAR");
985 })((function (values,v107){
986 checkArgs(arguments, 2);
993 var l76 = {name: "CHAR-CODE"};
995 (l76).fvalue = (function(v110){
996 ((v110)["fname"] = "CHAR-CODE");
998 })((function (values,v109){
999 checkArgs(arguments, 2);
1006 var l77 = {name: "CHAR="};
1008 (l77).fvalue = (function(v113){
1009 ((v113)["fname"] = "CHAR=");
1011 })((function (values,v111,v112){
1012 checkArgs(arguments, 3);
1016 if (typeof x1 !== 'number') throw 'Not a number!';
1018 if (typeof x2 !== 'number') throw 'Not a number!';
1019 return (x1==x2?l4.value: l3.value);
1025 var l78 = {name: "INTEGERP"};
1027 (l78).fvalue = (function(v115){
1028 ((v115)["fname"] = "INTEGERP");
1030 })((function (values,v114){
1031 checkArgs(arguments, 2);
1033 return (((typeof (v114) == "number")?l4.value: l3.value) !== l3.value ? (function(){
1034 var x1 = (function(){
1036 if (typeof x != 'number')
1037 throw 'The value ' + x + ' is not a type number.';
1038 return Math.floor(x);
1040 if (typeof x1 !== 'number') throw 'Not a number!';
1042 if (typeof x2 !== 'number') throw 'Not a number!';
1043 return (x1==x2?l4.value: l3.value);
1049 var l79 = {name: "PLUSP"};
1051 (l79).fvalue = (function(v117){
1052 ((v117)["fname"] = "PLUSP");
1054 })((function (values,v116){
1055 checkArgs(arguments, 2);
1059 if (typeof x1 !== 'number') throw 'Not a number!';
1061 if (typeof x2 !== 'number') throw 'Not a number!';
1062 return (x1<x2?l4.value: l3.value);
1068 var l80 = {name: "MINUSP"};
1070 (l80).fvalue = (function(v119){
1071 ((v119)["fname"] = "MINUSP");
1073 })((function (values,v118){
1074 checkArgs(arguments, 2);
1078 if (typeof x1 !== 'number') throw 'Not a number!';
1080 if (typeof x2 !== 'number') throw 'Not a number!';
1081 return (x1<x2?l4.value: l3.value);
1088 (l58).fvalue = (function(v122){
1089 ((v122)["fname"] = "LISTP");
1091 })((function (values,v120){
1092 checkArgs(arguments, 2);
1094 return (function(v121){
1095 return (v121 !== l3.value ? v121 : l12.fvalue(values, v120));
1098 return (typeof tmp == 'object' && 'car' in tmp);
1099 })()?l4.value: l3.value));
1104 var l81 = {name: "NTHCDR"};
1106 (l81).fvalue = (function(v125){
1107 ((v125)["fname"] = "NTHCDR");
1109 })((function (values,v123,v124){
1110 checkArgs(arguments, 3);
1114 while((l79.fvalue(pv, v123) !== l3.value ? v124 : l3.value) !== l3.value){
1115 (v123 = l23.fvalue(pv, v123));
1116 (v124 = (function(){
1118 return tmp === l3.value? l3.value: tmp.cdr;
1128 var l82 = {name: "NTH"};
1130 (l82).fvalue = (function(v128){
1131 ((v128)["fname"] = "NTH");
1133 })((function (values,v126,v127){
1134 checkArgs(arguments, 3);
1137 var tmp = l81.fvalue(pv, v126, v127);
1138 return tmp === l3.value? l3.value: tmp.car;
1144 var l83 = {name: "LAST"};
1146 (l83).fvalue = (function(v130){
1147 ((v130)["fname"] = "LAST");
1149 })((function (values,v129){
1150 checkArgs(arguments, 2);
1155 var tmp = (function(){
1157 return tmp === l3.value? l3.value: tmp.cdr;
1159 return (typeof tmp == 'object' && 'car' in tmp);
1160 })()?l4.value: l3.value) !== l3.value){
1161 (v129 = (function(){
1163 return tmp === l3.value? l3.value: tmp.cdr;
1173 var l84 = {name: "BUTLAST"};
1175 (l84).fvalue = (function(v132){
1176 ((v132)["fname"] = "BUTLAST");
1178 })((function (values,v131){
1179 checkArgs(arguments, 2);
1181 return (((function(){
1182 var tmp = (function(){
1184 return tmp === l3.value? l3.value: tmp.cdr;
1186 return (typeof tmp == 'object' && 'car' in tmp);
1187 })()?l4.value: l3.value) !== l3.value ? ({car: (function(){
1189 return tmp === l3.value? l3.value: tmp.car;
1190 })(), cdr: l84.fvalue(pv, (function(){
1192 return tmp === l3.value? l3.value: tmp.cdr;
1193 })())}) : l3.value);
1198 var l85 = {name: "MEMBER"};
1200 (l85).fvalue = (function(v135){
1201 ((v135)["fname"] = "MEMBER");
1203 })((function (values,v133,v134){
1204 checkArgs(arguments, 3);
1209 while(v134 !== l3.value){
1210 (l26.fvalue(pv, v133, (function(){
1212 return tmp === l3.value? l3.value: tmp.car;
1213 })()) !== l3.value ? (function(){
1215 throw ({type: 'block', id: 62, values: v134, message: 'Return from unknown block NIL.'})
1217 (v134 = (function(){
1219 return tmp === l3.value? l3.value: tmp.cdr;
1225 if (cf.type == 'block' && cf.id == 62)
1226 return values.apply(this, forcemv(cf.values));
1235 var l86 = {name: "REMOVE"};
1237 (l86).fvalue = (function(v138){
1238 ((v138)["fname"] = "REMOVE");
1240 })((function (values,v136,v137){
1241 checkArgs(arguments, 3);
1243 return (l12.fvalue(pv, v137) !== l3.value ? l3.value : (l26.fvalue(pv, v136, (function(){
1245 return tmp === l3.value? l3.value: tmp.car;
1246 })()) !== l3.value ? l86.fvalue(values, v136, (function(){
1248 return tmp === l3.value? l3.value: tmp.cdr;
1249 })()) : ({car: (function(){
1251 return tmp === l3.value? l3.value: tmp.car;
1252 })(), cdr: l86.fvalue(pv, v136, (function(){
1254 return tmp === l3.value? l3.value: tmp.cdr;
1260 var l87 = {name: "REMOVE-IF"};
1262 (l87).fvalue = (function(v141){
1263 ((v141)["fname"] = "REMOVE-IF");
1265 })((function (values,v139,v140){
1266 checkArgs(arguments, 3);
1268 return (l12.fvalue(pv, v140) !== l3.value ? l3.value : ((v139)(pv, (function(){
1270 return tmp === l3.value? l3.value: tmp.car;
1271 })()) !== l3.value ? l87.fvalue(values, v139, (function(){
1273 return tmp === l3.value? l3.value: tmp.cdr;
1274 })()) : ({car: (function(){
1276 return tmp === l3.value? l3.value: tmp.car;
1277 })(), cdr: l87.fvalue(pv, v139, (function(){
1279 return tmp === l3.value? l3.value: tmp.cdr;
1285 var l88 = {name: "REMOVE-IF-NOT"};
1287 (l88).fvalue = (function(v144){
1288 ((v144)["fname"] = "REMOVE-IF-NOT");
1290 })((function (values,v142,v143){
1291 checkArgs(arguments, 3);
1293 return (l12.fvalue(pv, v143) !== l3.value ? l3.value : ((v142)(pv, (function(){
1295 return tmp === l3.value? l3.value: tmp.car;
1296 })()) !== l3.value ? ({car: (function(){
1298 return tmp === l3.value? l3.value: tmp.car;
1299 })(), cdr: l88.fvalue(pv, v142, (function(){
1301 return tmp === l3.value? l3.value: tmp.cdr;
1302 })())}) : l88.fvalue(values, v142, (function(){
1304 return tmp === l3.value? l3.value: tmp.cdr;
1310 var l89 = {name: "DIGIT-CHAR-P"};
1312 (l89).fvalue = (function(v146){
1313 ((v146)["fname"] = "DIGIT-CHAR-P");
1315 })((function (values,v145){
1316 checkArgs(arguments, 2);
1318 return (((function(){
1320 if (typeof x1 !== 'number') throw 'Not a number!';
1322 if (typeof x2 !== 'number') throw 'Not a number!';
1323 return (x1<=x2?l4.value: l3.value);
1324 })() !== l3.value ? (function(){
1326 if (typeof x1 !== 'number') throw 'Not a number!';
1328 if (typeof x2 !== 'number') throw 'Not a number!';
1329 return (x1<=x2?l4.value: l3.value);
1330 })() : l3.value) !== l3.value ? (function(){
1332 if (typeof x1 !== 'number') throw 'Not a number!';
1334 if (typeof x2 !== 'number') throw 'Not a number!';
1341 var l90 = {name: "SUBSEQ"};
1343 (l90).fvalue = (function(v150){
1344 ((v150)["fname"] = "SUBSEQ");
1346 })((function (values,v147,v148,v149){
1347 checkArgsAtLeast(arguments, 3);
1348 checkArgsAtMost(arguments, 4);
1349 switch(arguments.length-1){
1355 return (((typeof(v147) == "string")?l4.value: l3.value) !== l3.value ? (v149 !== l3.value ? (function(){
1360 return str.slice(a,b);
1365 return str.slice(a,b);
1366 })()) : (function(){
1367 throw "Unsupported argument.";
1373 var l91 = {name: "PARSE-INTEGER"};
1375 (l91).fvalue = (function(v155){
1376 ((v155)["fname"] = "PARSE-INTEGER");
1378 })((function (values,v151){
1379 checkArgs(arguments, 2);
1381 return (function(v152,v153,v154){
1386 if (typeof x1 !== 'number') throw 'Not a number!';
1388 if (typeof x2 !== 'number') throw 'Not a number!';
1389 return (x1<x2?l4.value: l3.value);
1391 (v152 = (function(){
1392 var x1 = (function(){
1394 if (typeof x1 !== 'number') throw 'Not a number!';
1396 if (typeof x2 !== 'number') throw 'Not a number!';
1399 if (typeof x1 !== 'number') throw 'Not a number!';
1400 var x2 = l89.fvalue(pv, (function(){
1403 if (typeof string != 'string')
1404 throw 'The value ' + string + ' is not a type string.';
1405 if (typeof index != 'number')
1406 throw 'The value ' + index + ' is not a type number.';
1407 return string.charCodeAt(index);
1409 if (typeof x2 !== 'number') throw 'Not a number!';
1412 (v153 = (function(){
1414 if (typeof x1 !== 'number') throw 'Not a number!';
1416 if (typeof x2 !== 'number') throw 'Not a number!';
1423 })(0,0,l70.fvalue(pv, v151));
1428 var l92 = {name: "SOME"};
1430 (l92).fvalue = (function(v162){
1431 ((v162)["fname"] = "SOME");
1433 })((function (values,v156,v157){
1434 checkArgs(arguments, 3);
1437 return (((typeof(v157) == "string")?l4.value: l3.value) !== l3.value ? (function(v158,v159){
1442 if (typeof x1 !== 'number') throw 'Not a number!';
1444 if (typeof x2 !== 'number') throw 'Not a number!';
1445 return (x1<x2?l4.value: l3.value);
1447 ((v156)(pv, (function(){
1450 if (typeof string != 'string')
1451 throw 'The value ' + string + ' is not a type string.';
1452 if (typeof index != 'number')
1453 throw 'The value ' + index + ' is not a type number.';
1454 return string.charCodeAt(index);
1455 })()) !== l3.value ? (function(){
1457 throw ({type: 'block', id: 70, values: l4.value, message: 'Return from unknown block SOME.'})
1459 (v158 = (function(){
1461 if (typeof x1 !== 'number') throw 'Not a number!';
1463 if (typeof x2 !== 'number') throw 'Not a number!';
1470 })(0,l70.fvalue(pv, v157)) : (l58.fvalue(pv, v157) !== l3.value ? (function(){
1472 return (function(v160,v161){
1474 while(v160 !== l3.value){
1475 (v161 = (function(){
1477 return tmp === l3.value? l3.value: tmp.car;
1480 ((v156)(pv, v161) !== l3.value ? (function(){
1482 throw ({type: 'block', id: 72, values: l4.value, message: 'Return from unknown block NIL.'})
1486 (v160 = (function(){
1488 return tmp === l3.value? l3.value: tmp.cdr;
1496 if (cf.type == 'block' && cf.id == 72)
1497 return values.apply(this, forcemv(cf.values));
1502 throw "Unknown sequence.";
1506 if (cf.type == 'block' && cf.id == 70)
1507 return values.apply(this, forcemv(cf.values));
1515 var l93 = {name: "EVERY"};
1517 (l93).fvalue = (function(v169){
1518 ((v169)["fname"] = "EVERY");
1520 })((function (values,v163,v164){
1521 checkArgs(arguments, 3);
1524 return (((typeof(v164) == "string")?l4.value: l3.value) !== l3.value ? (function(v165,v166){
1529 if (typeof x1 !== 'number') throw 'Not a number!';
1531 if (typeof x2 !== 'number') throw 'Not a number!';
1532 return (x1<x2?l4.value: l3.value);
1534 ((v163)(pv, (function(){
1537 if (typeof string != 'string')
1538 throw 'The value ' + string + ' is not a type string.';
1539 if (typeof index != 'number')
1540 throw 'The value ' + index + ' is not a type number.';
1541 return string.charCodeAt(index);
1542 })()) !== l3.value ? l3.value : (function(){
1544 throw ({type: 'block', id: 73, values: l3.value, message: 'Return from unknown block EVERY.'})
1546 (v165 = (function(){
1548 if (typeof x1 !== 'number') throw 'Not a number!';
1550 if (typeof x2 !== 'number') throw 'Not a number!';
1557 })(0,l70.fvalue(pv, v164)) : (l58.fvalue(pv, v164) !== l3.value ? (function(){
1559 return (function(v167,v168){
1561 while(v167 !== l3.value){
1562 (v168 = (function(){
1564 return tmp === l3.value? l3.value: tmp.car;
1567 ((v163)(pv, v168) !== l3.value ? l3.value : (function(){
1569 throw ({type: 'block', id: 75, values: l3.value, message: 'Return from unknown block NIL.'})
1573 (v167 = (function(){
1575 return tmp === l3.value? l3.value: tmp.cdr;
1583 if (cf.type == 'block' && cf.id == 75)
1584 return values.apply(this, forcemv(cf.values));
1589 throw "Unknown sequence.";
1593 if (cf.type == 'block' && cf.id == 73)
1594 return values.apply(this, forcemv(cf.values));
1602 var l94 = {name: "ASSOC"};
1604 (l94).fvalue = (function(v172){
1605 ((v172)["fname"] = "ASSOC");
1607 })((function (values,v170,v171){
1608 checkArgs(arguments, 3);
1613 while(v171 !== l3.value){
1614 (l26.fvalue(pv, v170, l32.fvalue(pv, v171)) !== l3.value ? (function(){
1615 throw ({type: 'block', id: 77, values: l3.value, message: 'Return from unknown block NIL.'})
1616 })() : (v171 = (function(){
1618 return tmp === l3.value? l3.value: tmp.cdr;
1624 if (cf.type == 'block' && cf.id == 77)
1632 return tmp === l3.value? l3.value: tmp.car;
1638 var l95 = {name: "STRING"};
1640 (l95).fvalue = (function(v174){
1641 ((v174)["fname"] = "STRING");
1643 })((function (values,v173){
1644 checkArgs(arguments, 2);
1646 return (((typeof(v173) == "string")?l4.value: l3.value) !== l3.value ? v173 : (((function(){
1648 return (typeof tmp == 'object' && 'name' in tmp);
1649 })()?l4.value: l3.value) !== l3.value ? (v173).name : (function(){
1651 if (typeof x != 'number')
1652 throw 'The value ' + x + ' is not a type number.';
1653 return String.fromCharCode(x);
1659 var l96 = {name: "STRING="};
1661 (l96).fvalue = (function(v177){
1662 ((v177)["fname"] = "STRING=");
1664 })((function (values,v175,v176){
1665 checkArgs(arguments, 3);
1667 return ((v175 == v176)?l4.value: l3.value);
1672 var l97 = {name: "FDEFINITION"};
1674 (l97).fvalue = (function(v179){
1675 ((v179)["fname"] = "FDEFINITION");
1677 })((function (values,v178){
1678 checkArgs(arguments, 2);
1680 return (((typeof v178 == 'function')?l4.value: l3.value) !== l3.value ? v178 : (((function(){
1682 return (typeof tmp == 'object' && 'name' in tmp);
1683 })()?l4.value: l3.value) !== l3.value ? (function(){
1685 var func = symbol.fvalue;
1686 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1689 throw "Invalid function";
1695 var l98 = {name: "DISASSEMBLE"};
1696 var l99 = {name: "WRITE-LINE"};
1698 (l98).fvalue = (function(v181){
1699 ((v181)["fname"] = "DISASSEMBLE");
1701 })((function (values,v180){
1702 checkArgs(arguments, 2);
1704 l99.fvalue(pv, (l97.fvalue(pv, v180)).toString());
1710 var l100 = {name: "DOCUMENTATION"};
1711 var l101 = {name: "FUNCTION"};
1712 var l102 = {name: "VARIABLE"};
1714 (l100).fvalue = (function(v186){
1715 ((v186)["fname"] = "DOCUMENTATION");
1718 var func = (function (values,v182,v183){
1719 checkArgs(arguments, 3);
1721 return (function(v184){
1722 return (l26.fvalue(pv, v184, l101) !== l3.value ? (function(v185){
1724 var tmp = (v185)["docstring"];
1725 return tmp == undefined? l3.value: tmp ;
1727 })(l97.fvalue(pv, v182)) : (l26.fvalue(pv, v184, l102) !== l3.value ? (function(){
1730 return (typeof tmp == 'object' && 'name' in tmp);
1731 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
1732 throw "Wrong argument type! it should be a symbol";
1735 var tmp = (v182)["vardoc"];
1736 return tmp == undefined? l3.value: tmp ;
1739 throw "ECASE expression failed.";
1744 func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
1749 var l103 = {name: "*PACKAGE-LIST*"};
1751 (((l103.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l103).value = l3.value));
1754 var l104 = {name: "LIST-ALL-PACKAGES"};
1756 (l104).fvalue = (function(v187){
1757 ((v187)["fname"] = "LIST-ALL-PACKAGES");
1759 })((function (values){
1760 checkArgsAtMost(arguments, 1);
1764 var value = symbol.value;
1765 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1772 var l105 = {name: "MAKE-PACKAGE"};
1773 var l106 = {name: "FIND-PACKAGE-OR-FAIL"};
1775 (l105).fvalue = (function(v192){
1776 ((v192)["fname"] = "MAKE-PACKAGE");
1778 })((function (values,v188,v189){
1779 checkArgsAtLeast(arguments, 2);
1780 checkArgsAtMost(arguments, 3);
1781 switch(arguments.length-1){
1787 return (function(v190,v191){
1788 ((v190)["packageName"] = v188);
1789 ((v190)["symbols"] = {});
1790 ((v190)["exports"] = {});
1791 ((v190)["use"] = v191);
1792 ((l103).value = ({car: v190, cdr: (function(){
1794 var value = symbol.value;
1795 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1799 })({},l72.fvalue(pv, (function(){
1801 var func = symbol.fvalue;
1802 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1809 var l107 = {name: "PACKAGEP"};
1811 (l107).fvalue = (function(v194){
1812 ((v194)["fname"] = "PACKAGEP");
1814 })((function (values,v193){
1815 checkArgs(arguments, 2);
1817 return (((typeof (v193) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v193))?l4.value: l3.value) : l3.value);
1822 var l108 = {name: "FIND-PACKAGE"};
1823 var l109 = {name: "PACKAGE-NAME"};
1825 (l108).fvalue = (function(v199){
1826 ((v199)["fname"] = "FIND-PACKAGE");
1828 })((function (values,v195){
1829 checkArgs(arguments, 2);
1832 (l107.fvalue(pv, v195) !== l3.value ? (function(){
1834 throw ({type: 'block', id: 86, values: v195, message: 'Return from unknown block FIND-PACKAGE.'})
1836 return (function(v196){
1839 return (function(v197,v198){
1841 while(v197 !== l3.value){
1842 (v198 = (function(){
1844 return tmp === l3.value? l3.value: tmp.car;
1847 (l96.fvalue(pv, l109.fvalue(pv, v198), v196) !== l3.value ? (function(){
1849 throw ({type: 'block', id: 87, values: v198, message: 'Return from unknown block NIL.'})
1853 (v197 = (function(){
1855 return tmp === l3.value? l3.value: tmp.cdr;
1862 var value = symbol.value;
1863 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1868 if (cf.type == 'block' && cf.id == 87)
1869 return values.apply(this, forcemv(cf.values));
1874 })(l95.fvalue(pv, v195));
1877 if (cf.type == 'block' && cf.id == 86)
1878 return values.apply(this, forcemv(cf.values));
1887 (l106).fvalue = (function(v202){
1888 ((v202)["fname"] = "FIND-PACKAGE-OR-FAIL");
1890 })((function (values,v200){
1891 checkArgs(arguments, 2);
1893 return (function(v201){
1894 return (v201 !== l3.value ? v201 : (function(){
1895 throw "Package unknown.";
1897 })(l108.fvalue(pv, v200));
1903 (l109).fvalue = (function(v205){
1904 ((v205)["fname"] = "PACKAGE-NAME");
1906 })((function (values,v203){
1907 checkArgs(arguments, 2);
1909 return (function(v204){
1911 var tmp = (v204)["packageName"];
1912 return tmp == undefined? l3.value: tmp ;
1914 })(l106.fvalue(pv, v203));
1919 var l110 = {name: "%PACKAGE-SYMBOLS"};
1921 (l110).fvalue = (function(v208){
1922 ((v208)["fname"] = "%PACKAGE-SYMBOLS");
1924 })((function (values,v206){
1925 checkArgs(arguments, 2);
1927 return (function(v207){
1929 var tmp = (v207)["symbols"];
1930 return tmp == undefined? l3.value: tmp ;
1932 })(l106.fvalue(pv, v206));
1937 var l111 = {name: "PACKAGE-USE-LIST"};
1939 (l111).fvalue = (function(v211){
1940 ((v211)["fname"] = "PACKAGE-USE-LIST");
1942 })((function (values,v209){
1943 checkArgs(arguments, 2);
1945 return (function(v210){
1947 var tmp = (v210)["use"];
1948 return tmp == undefined? l3.value: tmp ;
1950 })(l106.fvalue(pv, v209));
1955 var l112 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
1957 (l112).fvalue = (function(v214){
1958 ((v214)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
1960 })((function (values,v212){
1961 checkArgs(arguments, 2);
1963 return (function(v213){
1965 var tmp = (v213)["exports"];
1966 return tmp == undefined? l3.value: tmp ;
1968 })(l106.fvalue(pv, v212));
1973 var l113 = {name: "*COMMON-LISP-PACKAGE*"};
1975 (((l113.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l113).value = l105.fvalue(pv, "CL")));
1978 var l114 = {name: "*USER-PACKAGE*"};
1980 (((l114.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l114).value = l105.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){
1982 var value = symbol.value;
1983 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1988 var l115 = {name: "*KEYWORD-PACKAGE*"};
1990 (((l115.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l115).value = l105.fvalue(pv, "KEYWORD")));
1993 var l116 = {name: "KEYWORDP"};
1994 var l117 = {name: "SYMBOL-PACKAGE"};
1996 (l116).fvalue = (function(v216){
1997 ((v216)["fname"] = "KEYWORDP");
1999 })((function (values,v215){
2000 checkArgs(arguments, 2);
2002 return (((function(){
2004 return (typeof tmp == 'object' && 'name' in tmp);
2005 })()?l4.value: l3.value) !== l3.value ? ((l117.fvalue(pv, v215) === (function(){
2007 var value = symbol.value;
2008 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2010 })())?l4.value: l3.value) : l3.value);
2015 var l118 = {name: "*PACKAGE*"};
2017 (((l118.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l118).value = (function(){
2019 var value = symbol.value;
2020 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2025 var l119 = {name: "IN-PACKAGE"};
2027 var l120 = {name: "%INTERN-SYMBOL"};
2029 (l120).fvalue = (function(v219){
2030 ((v219)["fname"] = "%INTERN-SYMBOL");
2032 })((function (values,v217){
2033 checkArgs(arguments, 2);
2035 return (function(v218){
2036 ((v217)["package"] = (function(){
2038 var value = symbol.value;
2039 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2042 return ((v218)[(v217).name] = v217);
2043 })(l110.fvalue(pv, (function(){
2045 var value = symbol.value;
2046 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2053 var l121 = {name: "%FIND-SYMBOL"};
2055 (l121).fvalue = (function(v227){
2056 ((v227)["fname"] = "%FIND-SYMBOL");
2058 })((function (values,v220,v221){
2059 checkArgs(arguments, 3);
2062 return (function(v222){
2063 return (function(v223){
2064 return ((((v220) in (v223))?l4.value: l3.value) !== l3.value ? ({car: (function(){
2065 var tmp = (v223)[v220];
2066 return tmp == undefined? l3.value: tmp ;
2067 })(), cdr: l4.value}) : (function(){
2068 return (function(v224,v225){
2070 while(v224 !== l3.value){
2071 (v225 = (function(){
2073 return tmp === l3.value? l3.value: tmp.car;
2077 return ((((v220) in (v226))?l4.value: l3.value) !== l3.value ? (function(){
2079 throw ({type: 'block', id: 95, values: ({car: (function(){
2080 var tmp = (v226)[v220];
2081 return tmp == undefined? l3.value: tmp ;
2082 })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'})
2084 })(l112.fvalue(pv, v225));
2087 (v224 = (function(){
2089 return tmp === l3.value? l3.value: tmp.cdr;
2093 return ({car: l3.value, cdr: l3.value});
2094 })(l111.fvalue(pv, v222),l3.value);
2096 })(l110.fvalue(pv, v222));
2097 })(l106.fvalue(pv, v221));
2100 if (cf.type == 'block' && cf.id == 95)
2101 return values.apply(this, forcemv(cf.values));
2109 var l122 = {name: "FIND-SYMBOL"};
2111 (l122).fvalue = (function(v230){
2112 ((v230)["fname"] = "FIND-SYMBOL");
2114 })((function (values,v228,v229){
2115 checkArgsAtLeast(arguments, 2);
2116 checkArgsAtMost(arguments, 3);
2117 switch(arguments.length-1){
2121 var value = symbol.value;
2122 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2129 var tmp = l121.fvalue(pv, v228, v229);
2130 return tmp === l3.value? l3.value: tmp.car;
2136 var l123 = {name: "INTERN"};
2137 var l124 = {name: "EXPORT"};
2139 (l123).fvalue = (function(v237){
2140 ((v237)["fname"] = "INTERN");
2142 })((function (values,v231,v232){
2143 checkArgsAtLeast(arguments, 2);
2144 checkArgsAtMost(arguments, 3);
2145 switch(arguments.length-1){
2149 var value = symbol.value;
2150 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2156 return (function(v233){
2157 return (function(v234){
2158 return ((function(){
2160 return tmp === l3.value? l3.value: tmp.cdr;
2161 })() !== l3.value ? (function(){
2163 return tmp === l3.value? l3.value: tmp.car;
2164 })() : (function(v235){
2166 var tmp = (v235)[v231];
2167 return tmp == undefined? l3.value: tmp ;
2169 return (function(v236){
2170 ((v236)["package"] = v233);
2171 (((v233 === (function(){
2173 var value = symbol.value;
2174 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2176 })())?l4.value: l3.value) !== l3.value ? (function(){
2177 ((v236)["value"] = v236);
2178 return l124.fvalue(pv, l43.fvalue(pv, v236), v233);
2180 return ((v235)[v231] = v236);
2183 if (typeof name != 'string')
2184 throw 'The value ' + name + ' is not a type string.';
2185 return ({name: name});
2187 })(l110.fvalue(pv, v233)));
2188 })(l121.fvalue(pv, v231, v233));
2189 })(l106.fvalue(pv, v232));
2195 (l117).fvalue = (function(v239){
2196 ((v239)["fname"] = "SYMBOL-PACKAGE");
2198 })((function (values,v238){
2199 checkArgs(arguments, 2);
2203 return (typeof tmp == 'object' && 'name' in tmp);
2204 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
2205 throw "it is not a symbol";
2208 var tmp = (v238)["package"];
2209 return tmp == undefined? l3.value: tmp ;
2216 (l124).fvalue = (function(v245){
2217 ((v245)["fname"] = "EXPORT");
2219 })((function (values,v240,v241){
2220 checkArgsAtLeast(arguments, 2);
2221 checkArgsAtMost(arguments, 3);
2222 switch(arguments.length-1){
2226 var value = symbol.value;
2227 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2233 return (function(v242){
2235 return (function(v243,v244){
2237 while(v243 !== l3.value){
2238 (v244 = (function(){
2240 return tmp === l3.value? l3.value: tmp.car;
2243 ((v242)[(v244).name] = v244);
2246 (v243 = (function(){
2248 return tmp === l3.value? l3.value: tmp.cdr;
2255 })(l112.fvalue(pv, v241));
2260 var l125 = {name: "GET-UNIVERSAL-TIME"};
2262 (l125).fvalue = (function(v246){
2263 ((v246)["fname"] = "GET-UNIVERSAL-TIME");
2265 })((function (values){
2266 checkArgsAtMost(arguments, 1);
2269 var x1 = (Math.round(new Date() / 1000));
2270 if (typeof x1 !== 'number') throw 'Not a number!';
2271 var x2 = 2208988800;
2272 if (typeof x2 !== 'number') throw 'Not a number!';
2279 var l126 = {name: "*NEWLINE*"};
2281 (((l126.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l126).value = l95.fvalue(pv, l75.fvalue(pv, 10))));
2284 var l127 = {name: "CONCAT"};
2286 (l127).fvalue = (function(v248){
2287 ((v248)["fname"] = "CONCAT");
2289 })((function (values){
2291 for (var i = arguments.length-1; i>=1; i--)
2292 v247 = {car: arguments[i], cdr:
2295 return l59.fvalue(values, (function(){
2297 var func = symbol.fvalue;
2298 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2305 var l128 = {name: "CONCATF"};
2307 var l129 = {name: "JOIN"};
2309 (l129).fvalue = (function(v251){
2310 ((v251)["fname"] = "JOIN");
2312 })((function (values,v249,v250){
2313 checkArgsAtLeast(arguments, 2);
2314 checkArgsAtMost(arguments, 3);
2315 switch(arguments.length-1){
2321 return (l12.fvalue(pv, v249) !== l3.value ? "" : (l12.fvalue(pv, (function(){
2323 return tmp === l3.value? l3.value: tmp.cdr;
2324 })()) !== l3.value ? (function(){
2326 return tmp === l3.value? l3.value: tmp.car;
2327 })() : l127.fvalue(values, (function(){
2329 return tmp === l3.value? l3.value: tmp.car;
2330 })(), v250, l129.fvalue(pv, (function(){
2332 return tmp === l3.value? l3.value: tmp.cdr;
2338 var l130 = {name: "JOIN-TRAILING"};
2340 (l130).fvalue = (function(v254){
2341 ((v254)["fname"] = "JOIN-TRAILING");
2343 })((function (values,v252,v253){
2344 checkArgsAtLeast(arguments, 2);
2345 checkArgsAtMost(arguments, 3);
2346 switch(arguments.length-1){
2352 return (l12.fvalue(pv, v252) !== l3.value ? "" : l127.fvalue(values, (function(){
2354 return tmp === l3.value? l3.value: tmp.car;
2355 })(), v253, l130.fvalue(pv, (function(){
2357 return tmp === l3.value? l3.value: tmp.cdr;
2363 var l131 = {name: "MAPCONCAT"};
2365 (l131).fvalue = (function(v257){
2366 ((v257)["fname"] = "MAPCONCAT");
2368 })((function (values,v255,v256){
2369 checkArgs(arguments, 3);
2371 return l129.fvalue(values, l72.fvalue(pv, v255, v256));
2376 var l132 = {name: "VECTOR-TO-LIST"};
2378 (l132).fvalue = (function(v263){
2379 ((v263)["fname"] = "VECTOR-TO-LIST");
2381 })((function (values,v258){
2382 checkArgs(arguments, 2);
2384 return (function(v259,v260){
2386 return (function(v261,v262){
2390 if (typeof x1 !== 'number') throw 'Not a number!';
2392 if (typeof x2 !== 'number') throw 'Not a number!';
2393 return (x1<x2?l4.value: l3.value);
2396 (v259 = ({car: (function(){
2397 var x = (v258)[v261];
2398 if (x === undefined) throw 'Out of range';
2403 (v261 = (function(){
2405 if (typeof x1 !== 'number') throw 'Not a number!';
2407 if (typeof x2 !== 'number') throw 'Not a number!';
2412 return l65.fvalue(values, v259);
2415 })(l3.value,l70.fvalue(pv, v258));
2420 var l133 = {name: "LIST-TO-VECTOR"};
2422 (l133).fvalue = (function(v269){
2423 ((v269)["fname"] = "LIST-TO-VECTOR");
2425 })((function (values,v264){
2426 checkArgs(arguments, 2);
2428 return (function(v265,v266){
2430 return (function(v267,v268){
2432 while(v267 !== l3.value){
2433 (v268 = (function(){
2435 return tmp === l3.value? l3.value: tmp.car;
2441 if (i < 0 || i >= x.length) throw 'Out of range';
2444 (v266 = (function(){
2446 if (typeof x1 !== 'number') throw 'Not a number!';
2448 if (typeof x2 !== 'number') throw 'Not a number!';
2453 (v267 = (function(){
2455 return tmp === l3.value? l3.value: tmp.cdr;
2464 for (var i = 0; i < l70.fvalue(pv, v264); i++)
2472 var l134 = {name: "VALUES-LIST"};
2474 (l134).fvalue = (function(v271){
2475 ((v271)["fname"] = "VALUES-LIST");
2477 })((function (values,v270){
2478 checkArgs(arguments, 2);
2480 return values.apply(this, l133.fvalue(pv, v270));
2485 var l135 = {name: "VALUES"};
2487 (l135).fvalue = (function(v273){
2488 ((v273)["fname"] = "VALUES");
2490 })((function (values){
2492 for (var i = arguments.length-1; i>=1; i--)
2493 v272 = {car: arguments[i], cdr:
2496 return l134.fvalue(values, v272);
2501 var l136 = {name: "MULTIPLE-VALUE-BIND"};
2503 var l137 = {name: "MULTIPLE-VALUE-LIST"};
2505 var l138 = {name: "INDENT"};
2507 (l138).fvalue = (function(v280){
2508 ((v280)["fname"] = "INDENT");
2510 })((function (values){
2512 for (var i = arguments.length-1; i>=1; i--)
2513 v274 = {car: arguments[i], cdr:
2516 return (function(v275){
2517 return (function(v276,v277,v278){
2518 (l79.fvalue(pv, l70.fvalue(pv, v275)) !== l3.value ? (v276 = l127.fvalue(pv, v276, " ")) : l3.value);
2523 if (typeof x1 !== 'number') throw 'Not a number!';
2525 if (typeof x2 !== 'number') throw 'Not a number!';
2526 return (x1<x2?l4.value: l3.value);
2529 return (v276 = l127.fvalue(pv, v276, v279));
2530 })(((l77.fvalue(pv, (function(){
2533 if (typeof string != 'string')
2534 throw 'The value ' + string + ' is not a type string.';
2535 if (typeof index != 'number')
2536 throw 'The value ' + index + ' is not a type number.';
2537 return string.charCodeAt(index);
2538 })(), 10) !== l3.value ? ((function(){
2540 if (typeof x1 !== 'number') throw 'Not a number!';
2541 var x2 = l23.fvalue(pv, v278);
2542 if (typeof x2 !== 'number') throw 'Not a number!';
2543 return (x1<x2?l4.value: l3.value);
2544 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
2546 var index = l22.fvalue(pv, v277);
2547 if (typeof string != 'string')
2548 throw 'The value ' + string + ' is not a type string.';
2549 if (typeof index != 'number')
2550 throw 'The value ' + index + ' is not a type number.';
2551 return string.charCodeAt(index);
2552 })(), 10)) : l3.value) : l3.value) !== l3.value ? l127.fvalue(pv, l95.fvalue(pv, 10), " ") : l95.fvalue(pv, (function(){
2555 if (typeof string != 'string')
2556 throw 'The value ' + string + ' is not a type string.';
2557 if (typeof index != 'number')
2558 throw 'The value ' + index + ' is not a type number.';
2559 return string.charCodeAt(index);
2561 (v277 = (function(){
2563 if (typeof x1 !== 'number') throw 'Not a number!';
2565 if (typeof x2 !== 'number') throw 'Not a number!';
2572 })("",0,l70.fvalue(pv, v275));
2573 })(l129.fvalue(pv, v274));
2579 (l17).fvalue = (function(v284){
2580 ((v284)["fname"] = "INTEGER-TO-STRING");
2582 })((function (values,v281){
2583 checkArgs(arguments, 2);
2585 return (l24.fvalue(pv, v281) !== l3.value ? "0" : (l80.fvalue(pv, v281) !== l3.value ? l127.fvalue(values, "-", l17.fvalue(pv, (function(){
2587 if (typeof x1 !== 'number') throw 'Not a number!';
2589 if (typeof x2 !== 'number') throw 'Not a number!';
2591 })())) : (function(v282){
2594 while(l27.fvalue(pv, l24.fvalue(pv, v281)) !== l3.value){
2595 (v282 = ({car: (function(){
2598 if (typeof x != 'number')
2599 throw 'The value ' + x + ' is not a type number.';
2600 if (typeof y != 'number')
2601 throw 'The value ' + y + ' is not a type number.';
2604 (v281 = l25.fvalue(pv, v281, 10));
2608 return l129.fvalue(values, l72.fvalue(pv, (function (values,v283){
2609 checkArgs(arguments, 2);
2610 return l95.fvalue(values, (function(){
2611 var string = "0123456789";
2613 if (typeof string != 'string')
2614 throw 'The value ' + string + ' is not a type string.';
2615 if (typeof index != 'number')
2616 throw 'The value ' + index + ' is not a type number.';
2617 return string.charCodeAt(index);
2625 var l139 = {name: "JS!BOOL"};
2626 var l140 = {name: "LS-COMPILE"};
2628 (l139).fvalue = (function(v286){
2629 ((v286)["fname"] = "JS!BOOL");
2631 })((function (values,v285){
2632 checkArgs(arguments, 2);
2634 return l127.fvalue(values, "(", v285, "?", l140.fvalue(pv, l4.value), ": ", l140.fvalue(pv, l3.value), ")");
2639 var l141 = {name: "JS!SELFCALL"};
2641 var l142 = {name: "PRIN1-TO-STRING"};
2642 var l143 = {name: "ESCAPE-STRING"};
2644 (l142).fvalue = (function(v292){
2645 ((v292)["fname"] = "PRIN1-TO-STRING");
2647 })((function (values,v287){
2648 checkArgs(arguments, 2);
2650 return (((function(){
2652 return (typeof tmp == 'object' && 'name' in tmp);
2653 })()?l4.value: l3.value) !== l3.value ? ((function(){
2654 var tmp = l121.fvalue(pv, (v287).name, (function(){
2656 var value = symbol.value;
2657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2660 return tmp === l3.value? l3.value: tmp.cdr;
2661 })() !== l3.value ? (v287).name : (function(v288,v289){
2662 return l127.fvalue(values, (l12.fvalue(pv, v288) !== l3.value ? "#" : (((v288 === l108.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l109.fvalue(pv, v288))), ":", v289);
2663 })(l117.fvalue(pv, v287),(v287).name)) : (l78.fvalue(pv, v287) !== l3.value ? l17.fvalue(values, v287) : (((typeof(v287) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v287), "\"") : (((typeof v287 == 'function')?l4.value: l3.value) !== l3.value ? (function(v290){
2664 return (v290 !== l3.value ? l127.fvalue(values, "#<FUNCTION ", v290, ">") : l127.fvalue(values, "#<FUNCTION>"));
2666 var tmp = (v287)["fname"];
2667 return tmp == undefined? l3.value: tmp ;
2668 })()) : (l58.fvalue(pv, v287) !== l3.value ? l127.fvalue(values, "(", l130.fvalue(pv, l72.fvalue(pv, (function(){
2670 var func = symbol.fvalue;
2671 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2673 })(), l84.fvalue(pv, v287)), " "), (function(v291){
2674 return (l12.fvalue(pv, (function(){
2676 return tmp === l3.value? l3.value: tmp.cdr;
2677 })()) !== l3.value ? l142.fvalue(pv, (function(){
2679 return tmp === l3.value? l3.value: tmp.car;
2680 })()) : l127.fvalue(pv, l142.fvalue(pv, (function(){
2682 return tmp === l3.value? l3.value: tmp.car;
2683 })()), " . ", l142.fvalue(pv, (function(){
2685 return tmp === l3.value? l3.value: tmp.cdr;
2687 })(l83.fvalue(pv, v287)), ")") : (((function(){
2689 return typeof x === 'object' && 'length' in x;
2690 })()?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "#", l142.fvalue(pv, l132.fvalue(pv, v287))) : (l107.fvalue(pv, v287) !== l3.value ? l127.fvalue(values, "#<PACKAGE ", l109.fvalue(pv, v287), ">") : l3.value)))))));
2696 (l99).fvalue = (function(v294){
2697 ((v294)["fname"] = "WRITE-LINE");
2699 })((function (values,v293){
2700 checkArgs(arguments, 2);
2704 if (typeof x != 'string')
2705 throw 'The value ' + x + ' is not a type string.';
2706 return lisp.write(x);
2709 var x = (function(){
2711 var value = symbol.value;
2712 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2715 if (typeof x != 'string')
2716 throw 'The value ' + x + ' is not a type string.';
2717 return lisp.write(x);
2724 var l144 = {name: "WARN"};
2726 (l144).fvalue = (function(v296){
2727 ((v296)["fname"] = "WARN");
2729 })((function (values,v295){
2730 checkArgs(arguments, 2);
2733 var x = "WARNING: ";
2734 if (typeof x != 'string')
2735 throw 'The value ' + x + ' is not a type string.';
2736 return lisp.write(x);
2738 return l99.fvalue(values, v295);
2743 var l145 = {name: "PRINT"};
2745 (l145).fvalue = (function(v298){
2746 ((v298)["fname"] = "PRINT");
2748 })((function (values,v297){
2749 checkArgs(arguments, 2);
2751 l99.fvalue(pv, l142.fvalue(pv, v297));
2757 var l146 = {name: "MAKE-STRING-STREAM"};
2759 (l146).fvalue = (function(v300){
2760 ((v300)["fname"] = "MAKE-STRING-STREAM");
2762 })((function (values,v299){
2763 checkArgs(arguments, 2);
2765 return ({car: v299, cdr: 0});
2770 var l147 = {name: "%PEEK-CHAR"};
2772 (l147).fvalue = (function(v302){
2773 ((v302)["fname"] = "%PEEK-CHAR");
2775 })((function (values,v301){
2776 checkArgs(arguments, 2);
2778 return ((function(){
2779 var x1 = (function(){
2781 return tmp === l3.value? l3.value: tmp.cdr;
2783 if (typeof x1 !== 'number') throw 'Not a number!';
2784 var x2 = l70.fvalue(pv, (function(){
2786 return tmp === l3.value? l3.value: tmp.car;
2788 if (typeof x2 !== 'number') throw 'Not a number!';
2789 return (x1<x2?l4.value: l3.value);
2790 })() !== l3.value ? (function(){
2791 var string = (function(){
2793 return tmp === l3.value? l3.value: tmp.car;
2795 var index = (function(){
2797 return tmp === l3.value? l3.value: tmp.cdr;
2799 if (typeof string != 'string')
2800 throw 'The value ' + string + ' is not a type string.';
2801 if (typeof index != 'number')
2802 throw 'The value ' + index + ' is not a type number.';
2803 return string.charCodeAt(index);
2809 var l148 = {name: "%READ-CHAR"};
2811 (l148).fvalue = (function(v305){
2812 ((v305)["fname"] = "%READ-CHAR");
2814 })((function (values,v303){
2815 checkArgs(arguments, 2);
2817 return ((function(){
2818 var x1 = (function(){
2820 return tmp === l3.value? l3.value: tmp.cdr;
2822 if (typeof x1 !== 'number') throw 'Not a number!';
2823 var x2 = l70.fvalue(pv, (function(){
2825 return tmp === l3.value? l3.value: tmp.car;
2827 if (typeof x2 !== 'number') throw 'Not a number!';
2828 return (x1<x2?l4.value: l3.value);
2829 })() !== l3.value ? (function(v304){
2832 if (typeof x != 'object')
2833 throw 'The value ' + x + ' is not a type object.';
2834 return (x.cdr = l22.fvalue(pv, (function(){
2836 return tmp === l3.value? l3.value: tmp.cdr;
2841 var string = (function(){
2843 return tmp === l3.value? l3.value: tmp.car;
2845 var index = (function(){
2847 return tmp === l3.value? l3.value: tmp.cdr;
2849 if (typeof string != 'string')
2850 throw 'The value ' + string + ' is not a type string.';
2851 if (typeof index != 'number')
2852 throw 'The value ' + index + ' is not a type number.';
2853 return string.charCodeAt(index);
2859 var l149 = {name: "WHITESPACEP"};
2861 (l149).fvalue = (function(v309){
2862 ((v309)["fname"] = "WHITESPACEP");
2864 })((function (values,v306){
2865 checkArgs(arguments, 2);
2867 return (function(v307){
2868 return (v307 !== l3.value ? v307 : (function(v308){
2869 return (v308 !== l3.value ? v308 : l77.fvalue(values, v306, 9));
2870 })(l77.fvalue(pv, v306, 10)));
2871 })(l77.fvalue(pv, v306, 32));
2876 var l150 = {name: "SKIP-WHITESPACES"};
2878 (l150).fvalue = (function(v312){
2879 ((v312)["fname"] = "SKIP-WHITESPACES");
2881 })((function (values,v310){
2882 checkArgs(arguments, 2);
2884 return (function(v311){
2885 (v311 = l147.fvalue(pv, v310));
2888 while((v311 !== l3.value ? l149.fvalue(pv, v311) : l3.value) !== l3.value){
2889 l148.fvalue(pv, v310);
2890 (v311 = l147.fvalue(pv, v310));
2899 var l151 = {name: "TERMINALP"};
2901 (l151).fvalue = (function(v317){
2902 ((v317)["fname"] = "TERMINALP");
2904 })((function (values,v313){
2905 checkArgs(arguments, 2);
2907 return (function(v314){
2908 return (v314 !== l3.value ? v314 : (function(v315){
2909 return (v315 !== l3.value ? v315 : (function(v316){
2910 return (v316 !== l3.value ? v316 : l77.fvalue(values, 40, v313));
2911 })(l77.fvalue(pv, 41, v313)));
2912 })(l149.fvalue(pv, v313)));
2913 })(l12.fvalue(pv, v313));
2918 var l152 = {name: "READ-UNTIL"};
2920 (l152).fvalue = (function(v322){
2921 ((v322)["fname"] = "READ-UNTIL");
2923 })((function (values,v318,v319){
2924 checkArgs(arguments, 3);
2926 return (function(v320,v321){
2927 (v321 = l147.fvalue(pv, v318));
2930 while((v321 !== l3.value ? l27.fvalue(pv, (v319)(pv, v321)) : l3.value) !== l3.value){
2931 (v320 = l127.fvalue(pv, v320, l95.fvalue(pv, v321)));
2932 l148.fvalue(pv, v318);
2933 (v321 = l147.fvalue(pv, v318));
2943 var l153 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
2945 (l153).fvalue = (function(v326){
2946 ((v326)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2948 })((function (values,v323){
2949 checkArgs(arguments, 2);
2951 return (function(v324){
2952 l150.fvalue(pv, v323);
2953 (v324 = l147.fvalue(pv, v323));
2956 while((v324 !== l3.value ? l77.fvalue(pv, v324, 59) : l3.value) !== l3.value){
2957 l152.fvalue(pv, v323, (function (values,v325){
2958 checkArgs(arguments, 2);
2959 return l77.fvalue(values, v325, 10);
2961 l150.fvalue(pv, v323);
2962 (v324 = l147.fvalue(pv, v323));
2971 var l154 = {name: "%READ-LIST"};
2972 var l155 = {name: "LS-READ"};
2974 (l154).fvalue = (function(v330){
2975 ((v330)["fname"] = "%READ-LIST");
2977 })((function (values,v327){
2978 checkArgs(arguments, 2);
2980 l153.fvalue(pv, v327);
2981 return (function(v328){
2982 return (l12.fvalue(pv, v328) !== l3.value ? (function(){
2983 throw "Unspected EOF";
2984 })() : (l77.fvalue(pv, v328, 41) !== l3.value ? (function(){
2985 l148.fvalue(pv, v327);
2987 })() : (l77.fvalue(pv, v328, 46) !== l3.value ? (function(){
2988 l148.fvalue(pv, v327);
2989 return (function(v329){
2990 l153.fvalue(pv, v327);
2991 (l77.fvalue(pv, l148.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){
2992 throw "')' was expected.";
2995 })(l155.fvalue(pv, v327));
2996 })() : ({car: l155.fvalue(pv, v327), cdr: l154.fvalue(pv, v327)}))));
2997 })(l147.fvalue(pv, v327));
3002 var l156 = {name: "READ-STRING"};
3004 (l156).fvalue = (function(v334){
3005 ((v334)["fname"] = "READ-STRING");
3007 })((function (values,v331){
3008 checkArgs(arguments, 2);
3010 return (function(v332,v333){
3011 (v333 = l148.fvalue(pv, v331));
3014 while(l27.fvalue(pv, l26.fvalue(pv, v333, 34)) !== l3.value){
3015 (l12.fvalue(pv, v333) !== l3.value ? (function(){
3016 throw "Unexpected EOF";
3018 (l26.fvalue(pv, v333, 92) !== l3.value ? (v333 = l148.fvalue(pv, v331)) : l3.value);
3019 (v332 = l127.fvalue(pv, v332, l95.fvalue(pv, v333)));
3020 (v333 = l148.fvalue(pv, v331));
3030 var l157 = {name: "READ-SHARP"};
3032 (l157).fvalue = (function(v339){
3033 ((v339)["fname"] = "READ-SHARP");
3035 })((function (values,v335){
3036 checkArgs(arguments, 2);
3038 l148.fvalue(pv, v335);
3039 return (function(v336){
3040 return (l26.fvalue(pv, v336, 39) !== l3.value ? l43.fvalue(values, l101, l155.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 40) !== l3.value ? l133.fvalue(values, l154.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 58) !== l3.value ? (function(){
3041 var name = (function(){
3042 var x = l152.fvalue(pv, v335, (function(){
3044 var func = symbol.fvalue;
3045 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3048 if (typeof x != 'string')
3049 throw 'The value ' + x + ' is not a type string.';
3050 return x.toUpperCase();
3052 if (typeof name != 'string')
3053 throw 'The value ' + name + ' is not a type string.';
3054 return ({name: name});
3055 })() : (l26.fvalue(pv, v336, 92) !== l3.value ? (function(v337){
3056 return (l96.fvalue(pv, v337, "space") !== l3.value ? l76.fvalue(values, 32) : (l96.fvalue(pv, v337, "tab") !== l3.value ? l76.fvalue(values, 9) : (l96.fvalue(pv, v337, "newline") !== l3.value ? l76.fvalue(values, 10) : l76.fvalue(values, (function(){
3059 if (typeof string != 'string')
3060 throw 'The value ' + string + ' is not a type string.';
3061 if (typeof index != 'number')
3062 throw 'The value ' + index + ' is not a type number.';
3063 return string.charCodeAt(index);
3065 })(l127.fvalue(pv, l95.fvalue(pv, l148.fvalue(pv, v335)), l152.fvalue(pv, v335, (function(){
3067 var func = symbol.fvalue;
3068 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3070 })()))) : (l26.fvalue(pv, v336, 43) !== l3.value ? (function(v338){
3071 return (l96.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){
3072 l155.fvalue(pv, v335);
3073 return l155.fvalue(values, v335);
3074 })() : (l96.fvalue(pv, v338, "ecmalisp") !== l3.value ? l155.fvalue(values, v335) : (function(){
3075 throw "Unknown reader form.";
3077 })(l152.fvalue(pv, v335, (function(){
3079 var func = symbol.fvalue;
3080 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3082 })())) : (function(){
3083 throw "ECASE expression failed.";
3085 })(l148.fvalue(pv, v335));
3090 var l158 = {name: "READ-SYMBOL"};
3092 (l158).fvalue = (function(v347){
3093 ((v347)["fname"] = "READ-SYMBOL");
3095 })((function (values,v340){
3096 checkArgs(arguments, 2);
3098 return (function(v341,v342,v343,v344,v345){
3104 if (typeof x1 !== 'number') throw 'Not a number!';
3106 if (typeof x2 !== 'number') throw 'Not a number!';
3107 return (x1<x2?l4.value: l3.value);
3108 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
3111 if (typeof string != 'string')
3112 throw 'The value ' + string + ' is not a type string.';
3113 if (typeof index != 'number')
3114 throw 'The value ' + index + ' is not a type number.';
3115 return string.charCodeAt(index);
3116 })(), 58)) : l3.value) !== l3.value){
3117 (v345 = (function(){
3119 if (typeof x1 !== 'number') throw 'Not a number!';
3121 if (typeof x2 !== 'number') throw 'Not a number!';
3129 if (typeof x1 !== 'number') throw 'Not a number!';
3131 if (typeof x2 !== 'number') throw 'Not a number!';
3132 return (x1==x2?l4.value: l3.value);
3133 })() !== l3.value ? (function(){
3135 (v342 = (function(){
3137 var value = symbol.value;
3138 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3141 return (v344 = l4.value);
3143 (l24.fvalue(pv, v345) !== l3.value ? (v342 = "KEYWORD") : (v342 = (function(){
3144 var x = l90.fvalue(pv, v340, 0, v345);
3145 if (typeof x != 'string')
3146 throw 'The value ' + x + ' is not a type string.';
3147 return x.toUpperCase();
3149 (v345 = (function(){
3151 if (typeof x1 !== 'number') throw 'Not a number!';
3153 if (typeof x2 !== 'number') throw 'Not a number!';
3156 (l77.fvalue(pv, (function(){
3159 if (typeof string != 'string')
3160 throw 'The value ' + string + ' is not a type string.';
3161 if (typeof index != 'number')
3162 throw 'The value ' + index + ' is not a type number.';
3163 return string.charCodeAt(index);
3164 })(), 58) !== l3.value ? (function(){
3166 return (v345 = (function(){
3168 if (typeof x1 !== 'number') throw 'Not a number!';
3170 if (typeof x2 !== 'number') throw 'Not a number!';
3174 return (v343 = l90.fvalue(pv, v340, v345));
3176 (v343 = (function(){
3178 if (typeof x != 'string')
3179 throw 'The value ' + x + ' is not a type string.';
3180 return x.toUpperCase();
3182 (v342 = l108.fvalue(pv, v342));
3183 return ((function(v346){
3184 return (v346 !== l3.value ? v346 : ((v342 === l108.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
3185 })(v344) !== l3.value ? l123.fvalue(values, v343, v342) : l122.fvalue(values, v343, v342));
3186 })(l70.fvalue(pv, v340),l3.value,l3.value,l3.value,l3.value);
3191 var l159 = {name: "*EOF*"};
3193 (((l159.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l159).value = l16.fvalue(pv)));
3196 var l160 = {name: "QUOTE"};
3197 var l161 = {name: "BACKQUOTE"};
3198 var l162 = {name: "UNQUOTE-SPLICING"};
3199 var l163 = {name: "UNQUOTE"};
3201 (l155).fvalue = (function(v352){
3202 ((v352)["fname"] = "LS-READ");
3204 })((function (values,v348){
3205 checkArgs(arguments, 2);
3207 l153.fvalue(pv, v348);
3208 return (function(v349){
3209 return ((function(v350){
3210 return (v350 !== l3.value ? v350 : l77.fvalue(pv, v349, 41));
3211 })(l12.fvalue(pv, v349)) !== l3.value ? (function(){
3213 var value = symbol.value;
3214 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3216 })() : (l77.fvalue(pv, v349, 40) !== l3.value ? (function(){
3217 l148.fvalue(pv, v348);
3218 return l154.fvalue(values, v348);
3219 })() : (l77.fvalue(pv, v349, 39) !== l3.value ? (function(){
3220 l148.fvalue(pv, v348);
3221 return l43.fvalue(values, l160, l155.fvalue(pv, v348));
3222 })() : (l77.fvalue(pv, v349, 96) !== l3.value ? (function(){
3223 l148.fvalue(pv, v348);
3224 return l43.fvalue(values, l161, l155.fvalue(pv, v348));
3225 })() : (l77.fvalue(pv, v349, 34) !== l3.value ? (function(){
3226 l148.fvalue(pv, v348);
3227 return l156.fvalue(values, v348);
3228 })() : (l77.fvalue(pv, v349, 44) !== l3.value ? (function(){
3229 l148.fvalue(pv, v348);
3230 return (l26.fvalue(pv, l147.fvalue(pv, v348), 64) !== l3.value ? (function(){
3231 l148.fvalue(pv, v348);
3232 return l43.fvalue(values, l162, l155.fvalue(pv, v348));
3233 })() : l43.fvalue(values, l163, l155.fvalue(pv, v348)));
3234 })() : (l77.fvalue(pv, v349, 35) !== l3.value ? l157.fvalue(values, v348) : (function(v351){
3235 return (l93.fvalue(pv, (function(){
3237 var func = symbol.fvalue;
3238 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3240 })(), v351) !== l3.value ? l91.fvalue(values, v351) : l158.fvalue(values, v351));
3241 })(l152.fvalue(pv, v348, (function(){
3243 var func = symbol.fvalue;
3244 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3247 })(l147.fvalue(pv, v348));
3252 var l164 = {name: "LS-READ-FROM-STRING"};
3254 (l164).fvalue = (function(v354){
3255 ((v354)["fname"] = "LS-READ-FROM-STRING");
3257 })((function (values,v353){
3258 checkArgs(arguments, 2);
3260 return l155.fvalue(values, l146.fvalue(pv, v353));
3265 var l165 = {name: "*MULTIPLE-VALUE-P*"};
3267 (((l165.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l165).value = l3.value));
3270 var l166 = {name: "MAKE-BINDING"};
3272 (l166).fvalue = (function(v359){
3273 ((v359)["fname"] = "MAKE-BINDING");
3275 })((function (values,v355,v356,v357,v358){
3276 checkArgsAtLeast(arguments, 4);
3277 checkArgsAtMost(arguments, 5);
3278 switch(arguments.length-1){
3284 return l43.fvalue(values, v355, v356, v357, v358);
3289 var l167 = {name: "BINDING-NAME"};
3291 (l167).fvalue = (function(v361){
3292 ((v361)["fname"] = "BINDING-NAME");
3294 })((function (values,v360){
3295 checkArgs(arguments, 2);
3297 return l39.fvalue(values, v360);
3302 var l168 = {name: "BINDING-TYPE"};
3304 (l168).fvalue = (function(v363){
3305 ((v363)["fname"] = "BINDING-TYPE");
3307 })((function (values,v362){
3308 checkArgs(arguments, 2);
3310 return l40.fvalue(values, v362);
3315 var l169 = {name: "BINDING-VALUE"};
3317 (l169).fvalue = (function(v365){
3318 ((v365)["fname"] = "BINDING-VALUE");
3320 })((function (values,v364){
3321 checkArgs(arguments, 2);
3323 return l41.fvalue(values, v364);
3328 var l170 = {name: "BINDING-DECLARATIONS"};
3330 (l170).fvalue = (function(v367){
3331 ((v367)["fname"] = "BINDING-DECLARATIONS");
3333 })((function (values,v366){
3334 checkArgs(arguments, 2);
3336 return l42.fvalue(values, v366);
3341 var l171 = {name: "SET-BINDING-VALUE"};
3343 (l171).fvalue = (function(v370){
3344 ((v370)["fname"] = "SET-BINDING-VALUE");
3346 })((function (values,v368,v369){
3347 checkArgs(arguments, 3);
3350 var x = l35.fvalue(pv, v368);
3351 if (typeof x != 'object')
3352 throw 'The value ' + x + ' is not a type object.';
3353 return (x.car = v369, x);
3359 var l172 = {name: "SET-BINDING-DECLARATIONS"};
3361 (l172).fvalue = (function(v373){
3362 ((v373)["fname"] = "SET-BINDING-DECLARATIONS");
3364 })((function (values,v371,v372){
3365 checkArgs(arguments, 3);
3368 var x = l37.fvalue(pv, v371);
3369 if (typeof x != 'object')
3370 throw 'The value ' + x + ' is not a type object.';
3371 return (x.car = v372, x);
3377 var l173 = {name: "PUSH-BINDING-DECLARATION"};
3379 (l173).fvalue = (function(v376){
3380 ((v376)["fname"] = "PUSH-BINDING-DECLARATION");
3382 })((function (values,v374,v375){
3383 checkArgs(arguments, 3);
3385 return l172.fvalue(values, v375, ({car: v374, cdr: l170.fvalue(pv, v375)}));
3390 var l174 = {name: "MAKE-LEXENV"};
3392 (l174).fvalue = (function(v377){
3393 ((v377)["fname"] = "MAKE-LEXENV");
3395 })((function (values){
3396 checkArgsAtMost(arguments, 1);
3398 return l43.fvalue(values, l3.value, l3.value, l3.value, l3.value);
3403 var l175 = {name: "COPY-LEXENV"};
3405 (l175).fvalue = (function(v379){
3406 ((v379)["fname"] = "COPY-LEXENV");
3408 })((function (values,v378){
3409 checkArgs(arguments, 2);
3411 return l74.fvalue(values, v378);
3416 var l176 = {name: "PUSH-TO-LEXENV"};
3417 var l177 = {name: "BLOCK"};
3418 var l178 = {name: "GOTAG"};
3420 (l176).fvalue = (function(v384){
3421 ((v384)["fname"] = "PUSH-TO-LEXENV");
3423 })((function (values,v380,v381,v382){
3424 checkArgs(arguments, 4);
3426 return (function(v383){
3427 return (l26.fvalue(pv, v383, l102) !== l3.value ? (function(){
3429 if (typeof x != 'object')
3430 throw 'The value ' + x + ' is not a type object.';
3431 return (x.car = ({car: v380, cdr: (function(){
3433 return tmp === l3.value? l3.value: tmp.car;
3435 })() : (l26.fvalue(pv, v383, l101) !== l3.value ? (function(){
3436 var x = (function(){
3438 return tmp === l3.value? l3.value: tmp.cdr;
3440 if (typeof x != 'object')
3441 throw 'The value ' + x + ' is not a type object.';
3442 return (x.car = ({car: v380, cdr: l33.fvalue(pv, v381)}), x);
3443 })() : (l26.fvalue(pv, v383, l177) !== l3.value ? (function(){
3444 var x = l35.fvalue(pv, v381);
3445 if (typeof x != 'object')
3446 throw 'The value ' + x + ' is not a type object.';
3447 return (x.car = ({car: v380, cdr: l36.fvalue(pv, v381)}), x);
3448 })() : (l26.fvalue(pv, v383, l178) !== l3.value ? (function(){
3449 var x = l37.fvalue(pv, v381);
3450 if (typeof x != 'object')
3451 throw 'The value ' + x + ' is not a type object.';
3452 return (x.car = ({car: v380, cdr: l38.fvalue(pv, v381)}), x);
3454 throw "ECASE expression failed.";
3461 var l179 = {name: "EXTEND-LEXENV"};
3463 (l179).fvalue = (function(v391){
3464 ((v391)["fname"] = "EXTEND-LEXENV");
3466 })((function (values,v385,v386,v387){
3467 checkArgs(arguments, 4);
3469 return (function(v388){
3471 return (function(v389,v390){
3473 while(v389 !== l3.value){
3474 (v390 = (function(){
3476 return tmp === l3.value? l3.value: tmp.car;
3479 l176.fvalue(pv, v390, v388, v387);
3482 (v389 = (function(){
3484 return tmp === l3.value? l3.value: tmp.cdr;
3489 })(l65.fvalue(pv, v385),l3.value);
3491 })(l175.fvalue(pv, v386));
3496 var l180 = {name: "LOOKUP-IN-LEXENV"};
3498 (l180).fvalue = (function(v396){
3499 ((v396)["fname"] = "LOOKUP-IN-LEXENV");
3501 })((function (values,v392,v393,v394){
3502 checkArgs(arguments, 4);
3504 return l94.fvalue(values, v392, (function(v395){
3505 return (l26.fvalue(pv, v395, l102) !== l3.value ? l39.fvalue(pv, v393) : (l26.fvalue(pv, v395, l101) !== l3.value ? l40.fvalue(pv, v393) : (l26.fvalue(pv, v395, l177) !== l3.value ? l41.fvalue(pv, v393) : (l26.fvalue(pv, v395, l178) !== l3.value ? l42.fvalue(pv, v393) : (function(){
3506 throw "ECASE expression failed.";
3513 var l181 = {name: "*ENVIRONMENT*"};
3515 (((l181.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l181).value = l174.fvalue(pv)));
3518 var l182 = {name: "*VARIABLE-COUNTER*"};
3520 (((l182.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l182).value = 0));
3523 var l183 = {name: "GVARNAME"};
3525 (l183).fvalue = (function(v398){
3526 ((v398)["fname"] = "GVARNAME");
3528 })((function (values,v397){
3529 checkArgs(arguments, 2);
3531 return l127.fvalue(values, "v", l17.fvalue(pv, ((l182).value = (function(){
3532 var x1 = (function(){
3534 var value = symbol.value;
3535 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3538 if (typeof x1 !== 'number') throw 'Not a number!';
3540 if (typeof x2 !== 'number') throw 'Not a number!';
3547 var l184 = {name: "TRANSLATE-VARIABLE"};
3549 (l184).fvalue = (function(v400){
3550 ((v400)["fname"] = "TRANSLATE-VARIABLE");
3552 })((function (values,v399){
3553 checkArgs(arguments, 2);
3555 return l169.fvalue(values, l180.fvalue(pv, v399, (function(){
3557 var value = symbol.value;
3558 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3565 var l185 = {name: "EXTEND-LOCAL-ENV"};
3567 (l185).fvalue = (function(v406){
3568 ((v406)["fname"] = "EXTEND-LOCAL-ENV");
3570 })((function (values,v401){
3571 checkArgs(arguments, 2);
3573 return (function(v402){
3575 return (function(v403,v404){
3577 while(v403 !== l3.value){
3578 (v404 = (function(){
3580 return tmp === l3.value? l3.value: tmp.car;
3584 return l176.fvalue(pv, v405, v402, l102);
3585 })(l166.fvalue(pv, v404, l102, l183.fvalue(pv, v404)));
3588 (v403 = (function(){
3590 return tmp === l3.value? l3.value: tmp.cdr;
3597 })(l175.fvalue(pv, (function(){
3599 var value = symbol.value;
3600 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3607 var l186 = {name: "*TOPLEVEL-COMPILATIONS*"};
3609 (((l186.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l186).value = l3.value));
3612 var l187 = {name: "TOPLEVEL-COMPILATION"};
3614 (l187).fvalue = (function(v408){
3615 ((v408)["fname"] = "TOPLEVEL-COMPILATION");
3617 })((function (values,v407){
3618 checkArgs(arguments, 2);
3620 return ((l186).value = ({car: v407, cdr: (function(){
3622 var value = symbol.value;
3623 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3630 var l188 = {name: "NULL-OR-EMPTY-P"};
3632 (l188).fvalue = (function(v410){
3633 ((v410)["fname"] = "NULL-OR-EMPTY-P");
3635 })((function (values,v409){
3636 checkArgs(arguments, 2);
3638 return l24.fvalue(values, l70.fvalue(pv, v409));
3643 var l189 = {name: "GET-TOPLEVEL-COMPILATIONS"};
3645 (l189).fvalue = (function(v411){
3646 ((v411)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
3648 })((function (values){
3649 checkArgsAtMost(arguments, 1);
3651 return l65.fvalue(values, l87.fvalue(pv, (function(){
3653 var func = symbol.fvalue;
3654 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3658 var value = symbol.value;
3659 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3666 var l190 = {name: "%COMPILE-DEFMACRO"};
3667 var l191 = {name: "MACRO"};
3669 (l190).fvalue = (function(v414){
3670 ((v414)["fname"] = "%COMPILE-DEFMACRO");
3672 })((function (values,v412,v413){
3673 checkArgs(arguments, 3);
3675 l187.fvalue(pv, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v412))));
3676 l176.fvalue(pv, l166.fvalue(pv, v412, l191, v413), (function(){
3678 var value = symbol.value;
3679 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3687 var l192 = {name: "GLOBAL-BINDING"};
3689 (l192).fvalue = (function(v420){
3690 ((v420)["fname"] = "GLOBAL-BINDING");
3692 })((function (values,v415,v416,v417){
3693 checkArgs(arguments, 4);
3695 return (function(v418){
3696 return (v418 !== l3.value ? v418 : (function(v419){
3697 l176.fvalue(pv, v419, (function(){
3699 var value = symbol.value;
3700 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3704 })(l166.fvalue(pv, v415, v416, l3.value)));
3705 })(l180.fvalue(pv, v415, (function(){
3707 var value = symbol.value;
3708 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3715 var l193 = {name: "CLAIMP"};
3717 (l193).fvalue = (function(v425){
3718 ((v425)["fname"] = "CLAIMP");
3720 })((function (values,v421,v422,v423){
3721 checkArgs(arguments, 4);
3723 return (function(v424){
3724 return (v424 !== l3.value ? l85.fvalue(values, v423, l170.fvalue(pv, v424)) : l3.value);
3725 })(l180.fvalue(pv, v421, (function(){
3727 var value = symbol.value;
3728 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3735 var l194 = {name: "!PROCLAIM"};
3736 var l195 = {name: "SPECIAL"};
3737 var l196 = {name: "NOTINLINE"};
3738 var l197 = {name: "CONSTANT"};
3740 (l194).fvalue = (function(v437){
3741 ((v437)["fname"] = "!PROCLAIM");
3743 })((function (values,v426){
3744 checkArgs(arguments, 2);
3746 return (function(v427){
3747 return (l26.fvalue(pv, v427, l195) !== l3.value ? (function(){
3748 return (function(v428,v429){
3750 while(v428 !== l3.value){
3751 (v429 = (function(){
3753 return tmp === l3.value? l3.value: tmp.car;
3757 return l173.fvalue(pv, l195, v430);
3758 })(l192.fvalue(pv, v429, l102, l102));
3761 (v428 = (function(){
3763 return tmp === l3.value? l3.value: tmp.cdr;
3770 return tmp === l3.value? l3.value: tmp.cdr;
3772 })() : (l26.fvalue(pv, v427, l196) !== l3.value ? (function(){
3773 return (function(v431,v432){
3775 while(v431 !== l3.value){
3776 (v432 = (function(){
3778 return tmp === l3.value? l3.value: tmp.car;
3782 return l173.fvalue(pv, l196, v433);
3783 })(l192.fvalue(pv, v432, l101, l101));
3786 (v431 = (function(){
3788 return tmp === l3.value? l3.value: tmp.cdr;
3795 return tmp === l3.value? l3.value: tmp.cdr;
3797 })() : (l26.fvalue(pv, v427, l197) !== l3.value ? (function(){
3798 return (function(v434,v435){
3800 while(v434 !== l3.value){
3801 (v435 = (function(){
3803 return tmp === l3.value? l3.value: tmp.car;
3807 return l173.fvalue(pv, l197, v436);
3808 })(l192.fvalue(pv, v435, l102, l102));
3811 (v434 = (function(){
3813 return tmp === l3.value? l3.value: tmp.cdr;
3820 return tmp === l3.value? l3.value: tmp.cdr;
3825 return tmp === l3.value? l3.value: tmp.car;
3831 var l198 = {name: "PROCLAIM"};
3832 (l198).fvalue = (function(){
3834 var func = symbol.fvalue;
3835 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3838 var l199 = {name: "*COMPILATIONS*"};
3840 (((l199.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l199).value = l3.value));
3843 var l200 = {name: "DEFINE-COMPILATION"};
3845 var l201 = {name: "IF"};
3846 ((l199).value = ({car: l43.fvalue(pv, l201, (function (values,v438,v439,v440){
3847 checkArgs(arguments, 4);
3849 return l127.fvalue(values, "(", l140.fvalue(pv, v438), " !== ", l140.fvalue(pv, l3.value), " ? ", l140.fvalue(pv, v439, (function(){
3851 var value = symbol.value;
3852 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3854 })()), " : ", l140.fvalue(pv, v440, (function(){
3856 var value = symbol.value;
3857 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3861 })), cdr: (function(){
3863 var value = symbol.value;
3864 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3867 var l202 = {name: "*LAMBDA-LIST-KEYWORDS*"};
3868 var l203 = {name: "&OPTIONAL"};
3869 var l204 = {name: "&REST"};
3870 var l205 = QIList(l203,l204,l3);
3872 (((l202.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l202).value = l205));
3875 var l206 = {name: "LIST-UNTIL-KEYWORD"};
3877 (l206).fvalue = (function(v443){
3878 ((v443)["fname"] = "LIST-UNTIL-KEYWORD");
3880 })((function (values,v441){
3881 checkArgs(arguments, 2);
3883 return ((function(v442){
3884 return (v442 !== l3.value ? v442 : l85.fvalue(pv, (function(){
3886 return tmp === l3.value? l3.value: tmp.car;
3889 var value = symbol.value;
3890 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3893 })(l12.fvalue(pv, v441)) !== l3.value ? l3.value : ({car: (function(){
3895 return tmp === l3.value? l3.value: tmp.car;
3896 })(), cdr: l206.fvalue(pv, (function(){
3898 return tmp === l3.value? l3.value: tmp.cdr;
3904 var l207 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
3906 (l207).fvalue = (function(v445){
3907 ((v445)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
3909 })((function (values,v444){
3910 checkArgs(arguments, 2);
3912 return l206.fvalue(values, v444);
3917 var l208 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
3919 (l208).fvalue = (function(v447){
3920 ((v447)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
3922 })((function (values,v446){
3923 checkArgs(arguments, 2);
3925 return l72.fvalue(values, (function(){
3927 var func = symbol.fvalue;
3928 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3930 })(), l206.fvalue(pv, (function(){
3931 var tmp = l85.fvalue(pv, l203, v446);
3932 return tmp === l3.value? l3.value: tmp.cdr;
3938 var l209 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
3940 (l209).fvalue = (function(v449){
3941 ((v449)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
3943 })((function (values,v448){
3944 checkArgs(arguments, 2);
3946 return l72.fvalue(values, (function(){
3948 var func = symbol.fvalue;
3949 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3951 })(), l208.fvalue(pv, v448));
3956 var l210 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
3958 (l210).fvalue = (function(v452){
3959 ((v452)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
3961 })((function (values,v450){
3962 checkArgs(arguments, 2);
3964 return (function(v451){
3967 return tmp === l3.value? l3.value: tmp.cdr;
3968 })() !== l3.value ? (function(){
3969 throw "Bad lambda-list";
3973 return tmp === l3.value? l3.value: tmp.car;
3975 })(l206.fvalue(pv, (function(){
3976 var tmp = l85.fvalue(pv, l204, v450);
3977 return tmp === l3.value? l3.value: tmp.cdr;
3983 var l211 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
3985 (l211).fvalue = (function(v455){
3986 ((v455)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
3988 })((function (values,v454){
3989 checkArgsAtLeast(arguments, 2);
3991 for (var i = arguments.length-1; i>=2; i--)
3992 v453 = {car: arguments[i], cdr:
3995 return (v454 !== l3.value ? l127.fvalue(values, "(function(){", (function(){
3997 var value = symbol.value;
3998 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4000 })(), l138.fvalue(pv, "var func = ", l129.fvalue(pv, v453), ";", (function(){
4002 var value = symbol.value;
4003 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4005 })(), "func.docstring = '", v454, "';", (function(){
4007 var value = symbol.value;
4008 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4010 })(), "return func;", (function(){
4012 var value = symbol.value;
4013 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4015 })()), "})()") : l129.fvalue(values, v453));
4020 var l212 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
4021 var l213 = {name: "N/A"};
4023 (l212).fvalue = (function(v461){
4024 ((v461)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
4026 })((function (values,v456,v457,v458){
4027 checkArgs(arguments, 4);
4029 return (function(v459,v460){
4034 if (typeof x1 !== 'number') throw 'Not a number!';
4036 if (typeof x2 !== 'number') throw 'Not a number!';
4037 return (x1<x2?l4.value: l3.value);
4038 })() !== l3.value ? l26.fvalue(pv, v459, v460) : l3.value) !== l3.value ? (function(){
4040 throw ({type: 'block', id: 177, values: l127.fvalue(values, "checkArgs(arguments, ", l17.fvalue(pv, v459), ");", (function(){
4042 var value = symbol.value;
4043 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4045 })()), message: 'Return from unknown block NIL.'})
4047 return l127.fvalue(values, ((function(){
4049 if (typeof x1 !== 'number') throw 'Not a number!';
4051 if (typeof x2 !== 'number') throw 'Not a number!';
4052 return (x1<x2?l4.value: l3.value);
4053 })() !== l3.value ? l127.fvalue(pv, "checkArgsAtLeast(arguments, ", l17.fvalue(pv, v459), ");", (function(){
4055 var value = symbol.value;
4056 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4058 })()) : ""), (((typeof (v460) == "number")?l4.value: l3.value) !== l3.value ? l127.fvalue(pv, "checkArgsAtMost(arguments, ", l17.fvalue(pv, v460), ");", (function(){
4060 var value = symbol.value;
4061 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4066 if (cf.type == 'block' && cf.id == 177)
4067 return values.apply(this, forcemv(cf.values));
4072 })(l22.fvalue(pv, v456),(v458 !== l3.value ? l213 : (function(){
4074 if (typeof x1 !== 'number') throw 'Not a number!';
4076 if (typeof x2 !== 'number') throw 'Not a number!';
4078 if (typeof x3 !== 'number') throw 'Not a number!';
4085 var l214 = {name: "COMPILE-LAMBDA"};
4086 var l215 = {name: "LS-COMPILE-BLOCK"};
4088 (l214).fvalue = (function(v477){
4089 ((v477)["fname"] = "COMPILE-LAMBDA");
4091 })((function (values,v462,v463){
4092 checkArgs(arguments, 3);
4094 return (function(v464,v465,v466,v467){
4095 ((((typeof((function(){
4097 return tmp === l3.value? l3.value: tmp.car;
4098 })()) == "string")?l4.value: l3.value) !== l3.value ? l27.fvalue(pv, l12.fvalue(pv, (function(){
4100 return tmp === l3.value? l3.value: tmp.cdr;
4101 })())) : l3.value) !== l3.value ? (function(){
4102 (v467 = (function(){
4104 return tmp === l3.value? l3.value: tmp.car;
4106 return (v463 = (function(){
4108 return tmp === l3.value? l3.value: tmp.cdr;
4111 return (function(v468,v469,v470){
4117 return l211.fvalue(values, v467, "(function (", l129.fvalue(pv, ({car: "values", cdr: l72.fvalue(pv, (function(){
4119 var func = symbol.fvalue;
4120 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4122 })(), l63.fvalue(pv, v464, v465))}), ","), "){", (function(){
4124 var value = symbol.value;
4125 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4127 })(), l138.fvalue(pv, l212.fvalue(pv, v468, v469, v466), (v465 !== l3.value ? l127.fvalue(pv, "switch(arguments.length-1){", (function(){
4129 var value = symbol.value;
4130 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4132 })(), (function(v471,v472,v473){
4138 if (typeof x1 !== 'number') throw 'Not a number!';
4140 if (typeof x2 !== 'number') throw 'Not a number!';
4141 return (x1<x2?l4.value: l3.value);
4144 (v472 = ({car: l127.fvalue(pv, "case ", l17.fvalue(pv, (function(){
4146 if (typeof x1 !== 'number') throw 'Not a number!';
4148 if (typeof x2 !== 'number') throw 'Not a number!';
4150 })()), ":", (function(){
4152 var value = symbol.value;
4153 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4155 })(), l184.fvalue(pv, (function(){
4157 return tmp === l3.value? l3.value: tmp.car;
4158 })()), "=", l140.fvalue(pv, l33.fvalue(pv, v474)), ";", (function(){
4160 var value = symbol.value;
4161 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4163 })()), cdr: v472}));
4164 return (v473 = (function(){
4166 if (typeof x1 !== 'number') throw 'Not a number!';
4168 if (typeof x2 !== 'number') throw 'Not a number!';
4171 })(l82.fvalue(pv, v473, v471));
4175 (v472 = ({car: l127.fvalue(pv, "default: break;", (function(){
4177 var value = symbol.value;
4178 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4180 })()), cdr: v472}));
4181 return l129.fvalue(pv, l65.fvalue(pv, v472));
4183 })(l208.fvalue(pv, v462),l3.value,0), "}", (function(){
4185 var value = symbol.value;
4186 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4188 })()) : ""), (v466 !== l3.value ? (function(v475){
4189 return l127.fvalue(pv, "var ", v475, "= ", l140.fvalue(pv, l3.value), ";", (function(){
4191 var value = symbol.value;
4192 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4194 })(), "for (var i = arguments.length-1; i>=", l17.fvalue(pv, (function(){
4196 if (typeof x1 !== 'number') throw 'Not a number!';
4198 if (typeof x2 !== 'number') throw 'Not a number!';
4200 if (typeof x3 !== 'number') throw 'Not a number!';
4202 })()), "; i--)", (function(){
4204 var value = symbol.value;
4205 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4207 })(), l138.fvalue(pv, v475, " = ", "{car: arguments[i], cdr: "), v475, "};", (function(){
4209 var value = symbol.value;
4210 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4213 })(l184.fvalue(pv, v466)) : ""), (function(v476){
4219 return l215.fvalue(pv, v463, l4.value);
4224 })(l4.value)), "})");
4229 })(l70.fvalue(pv, v464),l70.fvalue(pv, v465),l185.fvalue(pv, l63.fvalue(pv, l57.fvalue(pv, v466), v464, v465)));
4230 })(l207.fvalue(pv, v462),l209.fvalue(pv, v462),l210.fvalue(pv, v462),l3.value);
4235 var l216 = {name: "SETQ-PAIR"};
4236 var l217 = {name: "SET"};
4238 (l216).fvalue = (function(v481){
4239 ((v481)["fname"] = "SETQ-PAIR");
4241 })((function (values,v478,v479){
4242 checkArgs(arguments, 3);
4244 return (function(v480){
4245 return ((((l168.fvalue(pv, v480) === l102)?l4.value: l3.value) !== l3.value ? (l27.fvalue(pv, l85.fvalue(pv, l195, l170.fvalue(pv, v480))) !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l197, l170.fvalue(pv, v480))) : l3.value) : l3.value) !== l3.value ? l127.fvalue(values, l169.fvalue(pv, v480), " = ", l140.fvalue(pv, v479)) : l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l217), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v478))), l43.fvalue(pv, v479))));
4246 })(l180.fvalue(pv, v478, (function(){
4248 var value = symbol.value;
4249 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4256 var l218 = {name: "SETQ"};
4257 ((l199).value = ({car: l43.fvalue(pv, l218, (function (values){
4259 for (var i = arguments.length-1; i>=1; i--)
4260 v482 = {car: arguments[i], cdr:
4263 return (function(v483){
4267 while(l4.value !== l3.value){
4268 (l12.fvalue(pv, v482) !== l3.value ? (function(){
4269 throw ({type: 'block', id: 182, values: l3.value, message: 'Return from unknown block NIL.'})
4270 })() : (l12.fvalue(pv, (function(){
4272 return tmp === l3.value? l3.value: tmp.cdr;
4273 })()) !== l3.value ? (function(){
4274 throw "Odd paris in SETQ";
4276 (v483 = l127.fvalue(pv, v483, l127.fvalue(pv, l216.fvalue(pv, (function(){
4278 return tmp === l3.value? l3.value: tmp.car;
4279 })(), l33.fvalue(pv, v482)), (l12.fvalue(pv, l35.fvalue(pv, v482)) !== l3.value ? "" : ", "))));
4280 return (v482 = l35.fvalue(pv, v482));
4286 if (cf.type == 'block' && cf.id == 182)
4292 return l127.fvalue(values, "(", v483, ")");
4295 })), cdr: (function(){
4297 var value = symbol.value;
4298 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4301 var l219 = {name: "JS-VREF"};
4302 ((l199).value = ({car: l43.fvalue(pv, l219, (function (values,v484){
4303 checkArgs(arguments, 2);
4307 })), cdr: (function(){
4309 var value = symbol.value;
4310 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4313 var l220 = {name: "JS-VSET"};
4314 ((l199).value = ({car: l43.fvalue(pv, l220, (function (values,v485,v486){
4315 checkArgs(arguments, 3);
4317 return l127.fvalue(values, "(", v485, " = ", l140.fvalue(pv, v486), ")");
4319 })), cdr: (function(){
4321 var value = symbol.value;
4322 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4326 (l143).fvalue = (function(v493){
4327 ((v493)["fname"] = "ESCAPE-STRING");
4329 })((function (values,v487){
4330 checkArgs(arguments, 2);
4332 return (function(v488,v489,v490){
4337 if (typeof x1 !== 'number') throw 'Not a number!';
4339 if (typeof x2 !== 'number') throw 'Not a number!';
4340 return (x1<x2?l4.value: l3.value);
4344 return (v492 !== l3.value ? v492 : l77.fvalue(pv, v491, 92));
4345 })(l77.fvalue(pv, v491, 34)) !== l3.value ? (v488 = l127.fvalue(pv, v488, "\\")) : l3.value);
4346 (l77.fvalue(pv, v491, 10) !== l3.value ? (function(){
4347 (v488 = l127.fvalue(pv, v488, "\\"));
4348 return (v491 = 110);
4350 return (v488 = l127.fvalue(pv, v488, l95.fvalue(pv, v491)));
4354 if (typeof string != 'string')
4355 throw 'The value ' + string + ' is not a type string.';
4356 if (typeof index != 'number')
4357 throw 'The value ' + index + ' is not a type number.';
4358 return string.charCodeAt(index);
4360 (v489 = (function(){
4362 if (typeof x1 !== 'number') throw 'Not a number!';
4364 if (typeof x2 !== 'number') throw 'Not a number!';
4371 })("",0,l70.fvalue(pv, v487));
4376 var l221 = {name: "*LITERAL-SYMBOLS*"};
4378 (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = l3.value));
4381 var l222 = {name: "*LITERAL-COUNTER*"};
4383 (((l222.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l222).value = 0));
4386 var l223 = {name: "GENLIT"};
4388 (l223).fvalue = (function(v494){
4389 ((v494)["fname"] = "GENLIT");
4391 })((function (values){
4392 checkArgsAtMost(arguments, 1);
4394 return l127.fvalue(values, "l", l17.fvalue(pv, ((l222).value = (function(){
4395 var x1 = (function(){
4397 var value = symbol.value;
4398 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4401 if (typeof x1 !== 'number') throw 'Not a number!';
4403 if (typeof x2 !== 'number') throw 'Not a number!';
4410 var l224 = {name: "LITERAL"};
4412 (l224).fvalue = (function(v509){
4413 ((v509)["fname"] = "LITERAL");
4415 })((function (values,v495,v496){
4416 checkArgsAtLeast(arguments, 2);
4417 checkArgsAtMost(arguments, 3);
4418 switch(arguments.length-1){
4424 return (l78.fvalue(pv, v495) !== l3.value ? l17.fvalue(values, v495) : (((typeof(v495) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v495), "\"") : (((function(){
4426 return (typeof tmp == 'object' && 'name' in tmp);
4427 })()?l4.value: l3.value) !== l3.value ? (function(v497){
4428 return (v497 !== l3.value ? v497 : (function(v499,v500){
4429 ((l221).value = ({car: ({car: v495, cdr: v499}), cdr: (function(){
4431 var value = symbol.value;
4432 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4435 l187.fvalue(pv, l127.fvalue(pv, "var ", v499, " = ", v500));
4437 })(l223.fvalue(pv),(function(v498){
4438 return (l12.fvalue(pv, v498) !== l3.value ? l127.fvalue(pv, "{name: \"", l143.fvalue(pv, (v495).name), "\"}") : l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l123), l43.fvalue(pv, (v495).name), l43.fvalue(pv, l109.fvalue(pv, v498)))));
4439 })(l117.fvalue(pv, v495))));
4441 var tmp = l94.fvalue(pv, v495, (function(){
4443 var value = symbol.value;
4444 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4447 return tmp === l3.value? l3.value: tmp.cdr;
4448 })()) : (((function(){
4450 return (typeof tmp == 'object' && 'car' in tmp);
4451 })()?l4.value: l3.value) !== l3.value ? (function(){
4452 var v501 = l84.fvalue(pv, v495);
4453 var v502 = l83.fvalue(pv, v495);
4454 var v503 = l127.fvalue(pv, "QIList(", l130.fvalue(pv, l72.fvalue(pv, (function (values,v504){
4455 checkArgs(arguments, 2);
4456 return l224.fvalue(values, v504, l4.value);
4457 }), v501), ","), l224.fvalue(pv, (function(){
4459 return tmp === l3.value? l3.value: tmp.car;
4460 })(), l4.value), ",", l224.fvalue(pv, (function(){
4462 return tmp === l3.value? l3.value: tmp.cdr;
4463 })(), l4.value), ")");
4464 return (v496 !== l3.value ? v503 : (function(v505){
4465 l187.fvalue(pv, l127.fvalue(pv, "var ", v505, " = ", v503));
4467 })(l223.fvalue(pv)));
4468 })() : (((function(){
4470 return typeof x === 'object' && 'length' in x;
4471 })()?l4.value: l3.value) !== l3.value ? (function(v506){
4472 return (function(v507){
4473 return (v496 !== l3.value ? v507 : (function(v508){
4474 l187.fvalue(pv, l127.fvalue(pv, "var ", v508, " = ", v507));
4476 })(l223.fvalue(pv)));
4477 })(l127.fvalue(pv, "[", l129.fvalue(pv, l72.fvalue(pv, (function(){
4479 var func = symbol.fvalue;
4480 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4482 })(), v506), ", "), "]"));
4483 })(l132.fvalue(pv, v495)) : l3.value)))));
4488 ((l199).value = ({car: l43.fvalue(pv, l160, (function (values,v510){
4489 checkArgs(arguments, 2);
4491 return l224.fvalue(values, v510);
4493 })), cdr: (function(){
4495 var value = symbol.value;
4496 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4499 var l225 = {name: "%WHILE"};
4500 ((l199).value = ({car: l43.fvalue(pv, l225, (function (values,v512){
4501 checkArgsAtLeast(arguments, 2);
4503 for (var i = arguments.length-1; i>=2; i--)
4504 v511 = {car: arguments[i], cdr:
4507 return l127.fvalue(values, "(function(){", (function(){
4509 var value = symbol.value;
4510 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4512 })(), l138.fvalue(pv, "while(", l140.fvalue(pv, v512), " !== ", l140.fvalue(pv, l3.value), "){", (function(){
4514 var value = symbol.value;
4515 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4517 })(), l138.fvalue(pv, l215.fvalue(pv, v511)), "}", "return ", l140.fvalue(pv, l3.value), ";", (function(){
4519 var value = symbol.value;
4520 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4524 })), cdr: (function(){
4526 var value = symbol.value;
4527 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4530 var l226 = {name: "SYMBOL-FUNCTION"};
4531 ((l199).value = ({car: l43.fvalue(pv, l101, (function (values,v513){
4532 checkArgs(arguments, 2);
4534 return ((l58.fvalue(pv, v513) !== l3.value ? (((function(){
4536 return tmp === l3.value? l3.value: tmp.car;
4537 })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l214.fvalue(values, l33.fvalue(pv, v513), l35.fvalue(pv, v513)) : (((function(){
4539 return (typeof tmp == 'object' && 'name' in tmp);
4540 })()?l4.value: l3.value) !== l3.value ? l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l226), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v513))))) : l3.value));
4542 })), cdr: (function(){
4544 var value = symbol.value;
4545 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4548 var l227 = {name: "*COMPILING-FILE*"};
4550 (((l227.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l227).value = l3.value));
4553 var l228 = {name: "EVAL-WHEN-COMPILE"};
4554 var l229 = {name: "EVAL"};
4555 var l230 = {name: "PROGN"};
4556 ((l199).value = ({car: l43.fvalue(pv, l228, (function (values){
4558 for (var i = arguments.length-1; i>=1; i--)
4559 v514 = {car: arguments[i], cdr:
4562 return ((function(){
4564 var value = symbol.value;
4565 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4567 })() !== l3.value ? (function(){
4568 l229.fvalue(pv, ({car: l230, cdr: v514}));
4570 })() : l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v514)));
4572 })), cdr: (function(){
4574 var value = symbol.value;
4575 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4578 var l231 = {name: "DEFINE-TRANSFORMATION"};
4580 ((l199).value = ({car: l43.fvalue(pv, l230, (function (values){
4582 for (var i = arguments.length-1; i>=1; i--)
4583 v515 = {car: arguments[i], cdr:
4586 return (l12.fvalue(pv, (function(){
4588 return tmp === l3.value? l3.value: tmp.cdr;
4589 })()) !== l3.value ? l140.fvalue(values, (function(){
4591 return tmp === l3.value? l3.value: tmp.car;
4594 var value = symbol.value;
4595 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4597 })()) : l127.fvalue(values, "(function(){", (function(){
4599 var value = symbol.value;
4600 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4602 })(), l138.fvalue(pv, l215.fvalue(pv, v515, l4.value)), "})()"));
4604 })), cdr: (function(){
4606 var value = symbol.value;
4607 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4610 var l232 = {name: "SPECIAL-VARIABLE-P"};
4612 (l232).fvalue = (function(v517){
4613 ((v517)["fname"] = "SPECIAL-VARIABLE-P");
4615 })((function (values,v516){
4616 checkArgs(arguments, 2);
4618 return (l193.fvalue(pv, v516, l102, l195) !== l3.value ? l4.value : l3.value);
4623 var l233 = {name: "LET-BINDING-WRAPPER"};
4625 (l233).fvalue = (function(v524){
4626 ((v524)["fname"] = "LET-BINDING-WRAPPER");
4628 })((function (values,v518,v519){
4629 checkArgs(arguments, 3);
4632 (l12.fvalue(pv, v518) !== l3.value ? (function(){
4634 throw ({type: 'block', id: 195, values: v519, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
4636 return l127.fvalue(values, "try {", (function(){
4638 var value = symbol.value;
4639 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4641 })(), l138.fvalue(pv, "var tmp;", (function(){
4643 var value = symbol.value;
4644 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4646 })(), l131.fvalue(pv, (function (values,v520){
4647 checkArgs(arguments, 2);
4648 return (function(v521){
4649 return l127.fvalue(values, "tmp = ", v521, ".value;", (function(){
4651 var value = symbol.value;
4652 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4654 })(), v521, ".value = ", (function(){
4656 return tmp === l3.value? l3.value: tmp.cdr;
4657 })(), ";", (function(){
4659 var value = symbol.value;
4660 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4664 return tmp === l3.value? l3.value: tmp.cdr;
4665 })(), " = tmp;", (function(){
4667 var value = symbol.value;
4668 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4671 })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4673 return tmp === l3.value? l3.value: tmp.car;
4675 }), v518), v519, (function(){
4677 var value = symbol.value;
4678 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4680 })()), "}", (function(){
4682 var value = symbol.value;
4683 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4685 })(), "finally {", (function(){
4687 var value = symbol.value;
4688 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4690 })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v522){
4691 checkArgs(arguments, 2);
4692 return (function(v523){
4693 return l127.fvalue(values, v523, ".value", " = ", (function(){
4695 return tmp === l3.value? l3.value: tmp.cdr;
4696 })(), ";", (function(){
4698 var value = symbol.value;
4699 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4702 })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4704 return tmp === l3.value? l3.value: tmp.car;
4706 }), v518)), "}", (function(){
4708 var value = symbol.value;
4709 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4714 if (cf.type == 'block' && cf.id == 195)
4715 return values.apply(this, forcemv(cf.values));
4723 var l234 = {name: "LET"};
4724 ((l199).value = ({car: l43.fvalue(pv, l234, (function (values,v526){
4725 checkArgsAtLeast(arguments, 2);
4727 for (var i = arguments.length-1; i>=2; i--)
4728 v525 = {car: arguments[i], cdr:
4733 var v534 = l181.value;
4734 var v527 = l72.fvalue(pv, (function(){
4736 var func = symbol.fvalue;
4737 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4740 var v528 = l72.fvalue(pv, (function(){
4742 var func = symbol.fvalue;
4743 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4746 var v529 = l72.fvalue(pv, (function(){
4748 var func = symbol.fvalue;
4749 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4751 })(), l72.fvalue(pv, (function(){
4753 var func = symbol.fvalue;
4754 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4757 ((l181).value = l185.fvalue(pv, l87.fvalue(pv, (function(){
4759 var func = symbol.fvalue;
4760 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4763 var v530 = l3.value;
4764 return l127.fvalue(values, "(function(", l129.fvalue(pv, l72.fvalue(pv, (function (values,v531){
4765 checkArgs(arguments, 2);
4766 return (l232.fvalue(pv, v531) !== l3.value ? (function(v532){
4767 (v530 = ({car: ({car: v531, cdr: v532}), cdr: v530}));
4769 })(l183.fvalue(pv, v531)) : l184.fvalue(values, v531));
4770 }), v528), ","), "){", (function(){
4772 var value = symbol.value;
4773 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4775 })(), (function(v533){
4776 return l138.fvalue(pv, l233.fvalue(pv, v530, v533));
4777 })(l215.fvalue(pv, v525, l4.value)), "})(", l129.fvalue(pv, v529, ","), ")");
4784 })), cdr: (function(){
4786 var value = symbol.value;
4787 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4790 var l235 = {name: "LET*-INITIALIZE-VALUE"};
4792 (l235).fvalue = (function(v541){
4793 ((v541)["fname"] = "LET*-INITIALIZE-VALUE");
4795 })((function (values,v535){
4796 checkArgs(arguments, 2);
4798 return (function(v536,v537){
4799 return (l232.fvalue(pv, v536) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l218), l43.fvalue(pv, v536), l43.fvalue(pv, v537))), ";", (function(){
4801 var value = symbol.value;
4802 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4804 })()) : (function(){
4805 var v538 = l183.fvalue(pv, v536);
4806 var v539 = l166.fvalue(pv, v536, l102, v538);
4807 return (function(v540){
4808 l176.fvalue(pv, v539, (function(){
4810 var value = symbol.value;
4811 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4815 })(l127.fvalue(pv, "var ", v538, " = ", l140.fvalue(pv, v537), ";", (function(){
4817 var value = symbol.value;
4818 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4822 })(l39.fvalue(pv, v535),l40.fvalue(pv, v535));
4827 var l236 = {name: "LET*-BINDING-WRAPPER"};
4829 (l236).fvalue = (function(v550){
4830 ((v550)["fname"] = "LET*-BINDING-WRAPPER");
4832 })((function (values,v542,v543){
4833 checkArgs(arguments, 3);
4836 (l12.fvalue(pv, v542) !== l3.value ? (function(){
4838 throw ({type: 'block', id: 198, values: v543, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
4840 return (function(v545){
4841 return l127.fvalue(values, "try {", (function(){
4843 var value = symbol.value;
4844 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4846 })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v546){
4847 checkArgs(arguments, 2);
4848 return (function(v547){
4849 return l127.fvalue(values, "var ", (function(){
4851 return tmp === l3.value? l3.value: tmp.cdr;
4852 })(), " = ", v547, ".value;", (function(){
4854 var value = symbol.value;
4855 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4858 })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4860 return tmp === l3.value? l3.value: tmp.car;
4862 }), v545), v543), "}", (function(){
4864 var value = symbol.value;
4865 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4867 })(), "finally {", (function(){
4869 var value = symbol.value;
4870 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4872 })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v548){
4873 checkArgs(arguments, 2);
4874 return (function(v549){
4875 return l127.fvalue(values, v549, ".value", " = ", (function(){
4877 return tmp === l3.value? l3.value: tmp.cdr;
4878 })(), ";", (function(){
4880 var value = symbol.value;
4881 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4884 })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4886 return tmp === l3.value? l3.value: tmp.car;
4888 }), v545)), "}", (function(){
4890 var value = symbol.value;
4891 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4894 })(l72.fvalue(pv, (function (values,v544){
4895 checkArgs(arguments, 2);
4896 return ({car: v544, cdr: l183.fvalue(pv, v544)});
4897 }), l88.fvalue(pv, (function(){
4899 var func = symbol.fvalue;
4900 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4905 if (cf.type == 'block' && cf.id == 198)
4906 return values.apply(this, forcemv(cf.values));
4914 var l237 = {name: "LET*"};
4915 ((l199).value = ({car: l43.fvalue(pv, l237, (function (values,v552){
4916 checkArgsAtLeast(arguments, 2);
4918 for (var i = arguments.length-1; i>=2; i--)
4919 v551 = {car: arguments[i], cdr:
4922 return (function(v553,v554){
4928 return l127.fvalue(values, "(function(){", (function(){
4930 var value = symbol.value;
4931 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4933 })(), l138.fvalue(pv, (function(v555,v556){
4934 return l236.fvalue(pv, v555, v556);
4935 })(l88.fvalue(pv, (function(){
4937 var func = symbol.fvalue;
4938 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4940 })(), l72.fvalue(pv, (function(){
4942 var func = symbol.fvalue;
4943 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4945 })(), v553)),l127.fvalue(pv, l131.fvalue(pv, (function(){
4947 var func = symbol.fvalue;
4948 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4950 })(), v553), l215.fvalue(pv, v551, l4.value)))), "})()");
4955 })(l72.fvalue(pv, (function(){
4957 var func = symbol.fvalue;
4958 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4960 })(), v552),l175.fvalue(pv, (function(){
4962 var value = symbol.value;
4963 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4967 })), cdr: (function(){
4969 var value = symbol.value;
4970 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4973 var l238 = {name: "*BLOCK-COUNTER*"};
4975 (((l238.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l238).value = 0));
4978 var l239 = {name: "MULTIPLE-VALUE"};
4979 var l240 = {name: "USED"};
4980 ((l199).value = ({car: l43.fvalue(pv, l177, (function (values,v558){
4981 checkArgsAtLeast(arguments, 2);
4983 for (var i = arguments.length-1; i>=2; i--)
4984 v557 = {car: arguments[i], cdr:
4988 var v559 = l17.fvalue(pv, ((l238).value = (function(){
4989 var x1 = (function(){
4991 var value = symbol.value;
4992 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4995 if (typeof x1 !== 'number') throw 'Not a number!';
4997 if (typeof x2 !== 'number') throw 'Not a number!';
5000 var v560 = l166.fvalue(pv, v558, l177, v559);
5003 var value = symbol.value;
5004 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5006 })() !== l3.value ? l173.fvalue(pv, l239, v560) : l3.value);
5009 var v562 = l181.value;
5010 ((l181).value = l179.fvalue(pv, l43.fvalue(pv, v560), (function(){
5012 var value = symbol.value;
5013 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5016 var v561 = l215.fvalue(pv, v557, l4.value);
5017 return (l85.fvalue(pv, l240, l170.fvalue(pv, v560)) !== l3.value ? l127.fvalue(values, "(function(){", (function(){
5019 var value = symbol.value;
5020 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5022 })(), l138.fvalue(pv, "try {", (function(){
5024 var value = symbol.value;
5025 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5027 })(), l138.fvalue(pv, v561), "}", (function(){
5029 var value = symbol.value;
5030 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5032 })(), "catch (cf){", (function(){
5034 var value = symbol.value;
5035 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5037 })(), " if (cf.type == 'block' && cf.id == ", v559, ")", (function(){
5039 var value = symbol.value;
5040 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5044 var value = symbol.value;
5045 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5047 })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){
5049 var value = symbol.value;
5050 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5052 })(), " else", (function(){
5054 var value = symbol.value;
5055 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5057 })(), " throw cf;", (function(){
5059 var value = symbol.value;
5060 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5062 })(), "}", (function(){
5064 var value = symbol.value;
5065 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5067 })()), "})()") : l127.fvalue(values, "(function(){", (function(){
5069 var value = symbol.value;
5070 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5072 })(), l138.fvalue(pv, v561), "})()"));
5080 })), cdr: (function(){
5082 var value = symbol.value;
5083 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5086 var l241 = {name: "RETURN-FROM"};
5087 ((l199).value = ({car: l43.fvalue(pv, l241, (function (values,v563,v564){
5088 checkArgsAtLeast(arguments, 2);
5089 checkArgsAtMost(arguments, 3);
5090 switch(arguments.length-1){
5097 var v565 = l180.fvalue(pv, v563, (function(){
5099 var value = symbol.value;
5100 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5103 var v566 = l85.fvalue(pv, l239, l170.fvalue(pv, v565));
5104 (l12.fvalue(pv, v565) !== l3.value ? (function(){
5105 throw l127.fvalue(pv, "Unknown block `", (v563).name, "'.");
5107 l173.fvalue(pv, l240, v565);
5108 return l127.fvalue(values, "(function(){", (function(){
5110 var value = symbol.value;
5111 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5113 })(), l138.fvalue(pv, (v566 !== l3.value ? l127.fvalue(pv, "var values = mv;", (function(){
5115 var value = symbol.value;
5116 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5118 })()) : ""), "throw ({", "type: 'block', ", "id: ", l169.fvalue(pv, v565), ", ", "values: ", l140.fvalue(pv, v564, v566), ", ", "message: 'Return from unknown block ", (v563).name, ".'", "})"), "})()");
5121 })), cdr: (function(){
5123 var value = symbol.value;
5124 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5127 var l242 = {name: "CATCH"};
5128 ((l199).value = ({car: l43.fvalue(pv, l242, (function (values,v568){
5129 checkArgsAtLeast(arguments, 2);
5131 for (var i = arguments.length-1; i>=2; i--)
5132 v567 = {car: arguments[i], cdr:
5135 return l127.fvalue(values, "(function(){", (function(){
5137 var value = symbol.value;
5138 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5140 })(), l138.fvalue(pv, "var id = ", l140.fvalue(pv, v568), ";", (function(){
5142 var value = symbol.value;
5143 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5145 })(), "try {", (function(){
5147 var value = symbol.value;
5148 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5150 })(), l138.fvalue(pv, l215.fvalue(pv, v567, l4.value)), (function(){
5152 var value = symbol.value;
5153 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5155 })(), "}", (function(){
5157 var value = symbol.value;
5158 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5160 })(), "catch (cf){", (function(){
5162 var value = symbol.value;
5163 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5165 })(), " if (cf.type == 'catch' && cf.id == id)", (function(){
5167 var value = symbol.value;
5168 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5172 var value = symbol.value;
5173 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5175 })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){
5177 var value = symbol.value;
5178 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5180 })(), " else", (function(){
5182 var value = symbol.value;
5183 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5185 })(), " throw cf;", (function(){
5187 var value = symbol.value;
5188 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5190 })(), "}", (function(){
5192 var value = symbol.value;
5193 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5197 })), cdr: (function(){
5199 var value = symbol.value;
5200 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5203 var l243 = {name: "THROW"};
5204 ((l199).value = ({car: l43.fvalue(pv, l243, (function (values,v569,v570){
5205 checkArgs(arguments, 3);
5207 return l127.fvalue(values, "(function(){", (function(){
5209 var value = symbol.value;
5210 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5212 })(), l138.fvalue(pv, "var values = mv;", (function(){
5214 var value = symbol.value;
5215 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5217 })(), "throw ({", "type: 'catch', ", "id: ", l140.fvalue(pv, v569), ", ", "values: ", l140.fvalue(pv, v570, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5219 })), cdr: (function(){
5221 var value = symbol.value;
5222 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5225 var l244 = {name: "*TAGBODY-COUNTER*"};
5227 (((l244.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l244).value = 0));
5230 var l245 = {name: "*GO-TAG-COUNTER*"};
5232 (((l245.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l245).value = 0));
5235 var l246 = {name: "GO-TAG-P"};
5237 (l246).fvalue = (function(v573){
5238 ((v573)["fname"] = "GO-TAG-P");
5240 })((function (values,v571){
5241 checkArgs(arguments, 2);
5243 return (function(v572){
5244 return (v572 !== l3.value ? v572 : ((function(){
5246 return (typeof tmp == 'object' && 'name' in tmp);
5247 })()?l4.value: l3.value));
5248 })(l78.fvalue(pv, v571));
5253 var l247 = {name: "DECLARE-TAGBODY-TAGS"};
5255 (l247).fvalue = (function(v579){
5256 ((v579)["fname"] = "DECLARE-TAGBODY-TAGS");
5258 })((function (values,v574,v575){
5259 checkArgs(arguments, 3);
5261 return (function(v578){
5262 return l179.fvalue(values, v578, (function(){
5264 var value = symbol.value;
5265 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5268 })(l72.fvalue(pv, (function (values,v576){
5269 checkArgs(arguments, 2);
5270 return (function(v577){
5271 return l166.fvalue(values, v576, l178, l43.fvalue(pv, v574, v577));
5272 })(l17.fvalue(pv, ((l245).value = (function(){
5273 var x1 = (function(){
5275 var value = symbol.value;
5276 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5279 if (typeof x1 !== 'number') throw 'Not a number!';
5281 if (typeof x2 !== 'number') throw 'Not a number!';
5284 }), l88.fvalue(pv, (function(){
5286 var func = symbol.fvalue;
5287 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5294 var l248 = {name: "TAGBODY"};
5295 ((l199).value = ({car: l43.fvalue(pv, l248, (function (values){
5297 for (var i = arguments.length-1; i>=1; i--)
5298 v580 = {car: arguments[i], cdr:
5302 (l92.fvalue(pv, (function(){
5304 var func = symbol.fvalue;
5305 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5307 })(), v580) !== l3.value ? l3.value : (function(){
5309 throw ({type: 'block', id: 206, values: l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v580, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
5311 (l246.fvalue(pv, (function(){
5313 return tmp === l3.value? l3.value: tmp.car;
5314 })()) !== l3.value ? l3.value : (v580 = ({car: l16.fvalue(pv, "START"), cdr: v580})));
5315 return (function(v581){
5316 return (function(v583,v582){
5323 return (v582 = l40.fvalue(pv, l169.fvalue(pv, v584)));
5324 })(l180.fvalue(pv, l39.fvalue(pv, v580), (function(){
5326 var value = symbol.value;
5327 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5330 return l127.fvalue(values, "(function(){", (function(){
5332 var value = symbol.value;
5333 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5335 })(), l138.fvalue(pv, "var tagbody_", v581, " = ", v582, ";", (function(){
5337 var value = symbol.value;
5338 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5340 })(), "tbloop:", (function(){
5342 var value = symbol.value;
5343 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5345 })(), "while (true) {", (function(){
5347 var value = symbol.value;
5348 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5350 })(), l138.fvalue(pv, "try {", (function(){
5352 var value = symbol.value;
5353 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5355 })(), l138.fvalue(pv, (function(v585){
5356 return l127.fvalue(pv, "switch(tagbody_", v581, "){", (function(){
5358 var value = symbol.value;
5359 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5361 })(), "case ", v582, ":", (function(){
5363 var value = symbol.value;
5364 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5367 return (function(v586,v587){
5369 while(v586 !== l3.value){
5370 (v587 = (function(){
5372 return tmp === l3.value? l3.value: tmp.car;
5375 (v585 = l127.fvalue(pv, v585, (l27.fvalue(pv, l246.fvalue(pv, v587)) !== l3.value ? l138.fvalue(pv, l140.fvalue(pv, v587), ";", (function(){
5377 var value = symbol.value;
5378 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5380 })()) : (function(v588){
5381 return l127.fvalue(pv, "case ", l40.fvalue(pv, l169.fvalue(pv, v588)), ":", (function(){
5383 var value = symbol.value;
5384 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5387 })(l180.fvalue(pv, v587, (function(){
5389 var value = symbol.value;
5390 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5395 (v586 = (function(){
5397 return tmp === l3.value? l3.value: tmp.cdr;
5404 return tmp === l3.value? l3.value: tmp.cdr;
5406 })(), "default:", (function(){
5408 var value = symbol.value;
5409 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5411 })(), " break tbloop;", (function(){
5413 var value = symbol.value;
5414 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5416 })(), "}", (function(){
5418 var value = symbol.value;
5419 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5422 })("")), "}", (function(){
5424 var value = symbol.value;
5425 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5427 })(), "catch (jump) {", (function(){
5429 var value = symbol.value;
5430 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5432 })(), " if (jump.type == 'tagbody' && jump.id == ", v581, ")", (function(){
5434 var value = symbol.value;
5435 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5437 })(), " tagbody_", v581, " = jump.label;", (function(){
5439 var value = symbol.value;
5440 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5442 })(), " else", (function(){
5444 var value = symbol.value;
5445 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5447 })(), " throw(jump);", (function(){
5449 var value = symbol.value;
5450 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5452 })(), "}", (function(){
5454 var value = symbol.value;
5455 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5457 })()), "}", (function(){
5459 var value = symbol.value;
5460 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5462 })(), "return ", l140.fvalue(pv, l3.value), ";", (function(){
5464 var value = symbol.value;
5465 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5472 })(l247.fvalue(pv, v581, v580),l3.value);
5473 })(l17.fvalue(pv, (function(){
5475 var value = symbol.value;
5476 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5481 if (cf.type == 'block' && cf.id == 206)
5482 return values.apply(this, forcemv(cf.values));
5487 })), cdr: (function(){
5489 var value = symbol.value;
5490 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5493 var l249 = {name: "GO"};
5494 ((l199).value = ({car: l43.fvalue(pv, l249, (function (values,v589){
5495 checkArgs(arguments, 2);
5497 return (function(v590,v591){
5498 return (v590 !== l3.value ? l127.fvalue(values, "(function(){", (function(){
5500 var value = symbol.value;
5501 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5503 })(), l138.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l169.fvalue(pv, v590)), ", ", "label: ", l40.fvalue(pv, l169.fvalue(pv, v590)), ", ", "message: 'Attempt to GO to non-existing tag ", v591, "'", "})", (function(){
5505 var value = symbol.value;
5506 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5508 })()), "})()") : (function(){
5509 throw l127.fvalue(pv, "Unknown tag `", v591, "'.");
5511 })(l180.fvalue(pv, v589, (function(){
5513 var value = symbol.value;
5514 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5516 })(), l178),(((function(){
5518 return (typeof tmp == 'object' && 'name' in tmp);
5519 })()?l4.value: l3.value) !== l3.value ? (v589).name : (l78.fvalue(pv, v589) !== l3.value ? l17.fvalue(pv, v589) : l3.value)));
5521 })), cdr: (function(){
5523 var value = symbol.value;
5524 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5527 var l250 = {name: "UNWIND-PROTECT"};
5528 ((l199).value = ({car: l43.fvalue(pv, l250, (function (values,v593){
5529 checkArgsAtLeast(arguments, 2);
5531 for (var i = arguments.length-1; i>=2; i--)
5532 v592 = {car: arguments[i], cdr:
5535 return l127.fvalue(values, "(function(){", (function(){
5537 var value = symbol.value;
5538 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5540 })(), l138.fvalue(pv, "var ret = ", l140.fvalue(pv, l3.value), ";", (function(){
5542 var value = symbol.value;
5543 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5545 })(), "try {", (function(){
5547 var value = symbol.value;
5548 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5550 })(), l138.fvalue(pv, "ret = ", l140.fvalue(pv, v593), ";", (function(){
5552 var value = symbol.value;
5553 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5555 })()), "} finally {", (function(){
5557 var value = symbol.value;
5558 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5560 })(), l138.fvalue(pv, l215.fvalue(pv, v592)), "}", (function(){
5562 var value = symbol.value;
5563 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5565 })(), "return ret;", (function(){
5567 var value = symbol.value;
5568 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5572 })), cdr: (function(){
5574 var value = symbol.value;
5575 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5578 var l251 = {name: "MULTIPLE-VALUE-CALL"};
5579 ((l199).value = ({car: l43.fvalue(pv, l251, (function (values,v595){
5580 checkArgsAtLeast(arguments, 2);
5582 for (var i = arguments.length-1; i>=2; i--)
5583 v594 = {car: arguments[i], cdr:
5586 return l127.fvalue(values, "(function(){", (function(){
5588 var value = symbol.value;
5589 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5591 })(), l138.fvalue(pv, "var func = ", l140.fvalue(pv, v595), ";", (function(){
5593 var value = symbol.value;
5594 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5596 })(), "var args = [", ((function(){
5598 var value = symbol.value;
5599 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5601 })() !== l3.value ? "values" : "pv"), "];", (function(){
5603 var value = symbol.value;
5604 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5606 })(), "return ", l127.fvalue(pv, "(function(){", (function(){
5608 var value = symbol.value;
5609 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5611 })(), l138.fvalue(pv, "var values = mv;", (function(){
5613 var value = symbol.value;
5614 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5616 })(), "var vs;", (function(){
5618 var value = symbol.value;
5619 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5621 })(), l131.fvalue(pv, (function (values,v596){
5622 checkArgs(arguments, 2);
5623 return l127.fvalue(values, "vs = ", l140.fvalue(pv, v596, l4.value), ";", (function(){
5625 var value = symbol.value;
5626 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5628 })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
5630 var value = symbol.value;
5631 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5633 })(), l138.fvalue(pv, "args = args.concat(vs);", (function(){
5635 var value = symbol.value;
5636 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5638 })()), "else", (function(){
5640 var value = symbol.value;
5641 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5643 })(), l138.fvalue(pv, "args.push(vs);", (function(){
5645 var value = symbol.value;
5646 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5649 }), v594), "return func.apply(window, args);", (function(){
5651 var value = symbol.value;
5652 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5654 })()), "})()"), ";", (function(){
5656 var value = symbol.value;
5657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5661 })), cdr: (function(){
5663 var value = symbol.value;
5664 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5667 var l252 = {name: "MULTIPLE-VALUE-PROG1"};
5668 ((l199).value = ({car: l43.fvalue(pv, l252, (function (values,v598){
5669 checkArgsAtLeast(arguments, 2);
5671 for (var i = arguments.length-1; i>=2; i--)
5672 v597 = {car: arguments[i], cdr:
5675 return l127.fvalue(values, "(function(){", (function(){
5677 var value = symbol.value;
5678 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5680 })(), l138.fvalue(pv, "var args = ", l140.fvalue(pv, v598, (function(){
5682 var value = symbol.value;
5683 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5685 })()), ";", (function(){
5687 var value = symbol.value;
5688 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5690 })(), l215.fvalue(pv, v597), "return args;", (function(){
5692 var value = symbol.value;
5693 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5697 })), cdr: (function(){
5699 var value = symbol.value;
5700 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5703 var l253 = {name: "BACKQUOTE-EXPAND-1"};
5705 (l253).fvalue = (function(v601){
5706 ((v601)["fname"] = "BACKQUOTE-EXPAND-1");
5708 })((function (values,v599){
5709 checkArgs(arguments, 2);
5711 return (((function(){
5713 return (typeof tmp == 'object' && 'name' in tmp);
5714 })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l160, v599) : (l44.fvalue(pv, v599) !== l3.value ? v599 : ((((function(){
5716 return tmp === l3.value? l3.value: tmp.car;
5717 })() === l163)?l4.value: l3.value) !== l3.value ? (function(){
5719 return tmp === l3.value? l3.value: tmp.car;
5720 })() : ((((function(){
5722 return tmp === l3.value? l3.value: tmp.car;
5723 })() === l161)?l4.value: l3.value) !== l3.value ? l253.fvalue(values, l253.fvalue(pv, l33.fvalue(pv, v599))) : ({car: l63, cdr: l72.fvalue(pv, (function (values,v600){
5724 checkArgs(arguments, 2);
5725 return ((l58.fvalue(pv, v600) !== l3.value ? (((function(){
5727 return tmp === l3.value? l3.value: tmp.car;
5728 })() === l163)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v600)) : ((l58.fvalue(pv, v600) !== l3.value ? (((function(){
5730 return tmp === l3.value? l3.value: tmp.car;
5731 })() === l162)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v600) : l43.fvalue(values, l43, l253.fvalue(pv, v600))));
5737 var l254 = {name: "BACKQUOTE-EXPAND"};
5739 (l254).fvalue = (function(v603){
5740 ((v603)["fname"] = "BACKQUOTE-EXPAND");
5742 })((function (values,v602){
5743 checkArgs(arguments, 2);
5745 return ((l58.fvalue(pv, v602) !== l3.value ? (((function(){
5747 return tmp === l3.value? l3.value: tmp.car;
5748 })() === l161)?l4.value: l3.value) : l3.value) !== l3.value ? l253.fvalue(values, l33.fvalue(pv, v602)) : v602);
5754 ((l199).value = ({car: l43.fvalue(pv, l161, (function (values,v604){
5755 checkArgs(arguments, 2);
5757 return l140.fvalue(values, l253.fvalue(pv, v604));
5759 })), cdr: (function(){
5761 var value = symbol.value;
5762 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5765 var l255 = {name: "*BUILTINS*"};
5767 (((l255.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l255).value = l3.value));
5770 var l256 = {name: "DEFINE-RAW-BUILTIN"};
5772 var l257 = {name: "DEFINE-BUILTIN"};
5774 var l258 = {name: "TYPE-CHECK"};
5776 var l259 = {name: "VARIABLE-ARITY-CALL"};
5778 (l259).fvalue = (function(v613){
5779 ((v613)["fname"] = "VARIABLE-ARITY-CALL");
5781 })((function (values,v605,v606){
5782 checkArgs(arguments, 3);
5786 return (typeof tmp == 'object' && 'car' in tmp);
5787 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
5788 throw "ARGS must be a non-empty list";
5790 return (function(v607,v608,v609){
5792 return (function(v610,v611){
5794 while(v610 !== l3.value){
5795 (v611 = (function(){
5797 return tmp === l3.value? l3.value: tmp.car;
5801 (v608 = ({car: v612, cdr: v608}));
5802 return (v609 = l127.fvalue(pv, v609, l127.fvalue(pv, "var ", v612, " = ", l140.fvalue(pv, v611), ";", (function(){
5804 var value = symbol.value;
5805 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5807 })(), "if (typeof ", v612, " !== 'number') throw 'Not a number!';", (function(){
5809 var value = symbol.value;
5810 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5813 })(l127.fvalue(pv, "x", l17.fvalue(pv, (v607 = (function(){
5815 if (typeof x1 !== 'number') throw 'Not a number!';
5817 if (typeof x2 !== 'number') throw 'Not a number!';
5822 (v610 = (function(){
5824 return tmp === l3.value? l3.value: tmp.cdr;
5831 return l127.fvalue(values, "(function(){", (function(){
5833 var value = symbol.value;
5834 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5836 })(), l138.fvalue(pv, v609, (v606)(pv, l65.fvalue(pv, v608))), "})()");
5842 var l260 = {name: "VARIABLE-ARITY"};
5844 var l261 = {name: "NUM-OP-NUM"};
5846 (l261).fvalue = (function(v617){
5847 ((v617)["fname"] = "NUM-OP-NUM");
5849 })((function (values,v614,v615,v616){
5850 checkArgs(arguments, 4);
5852 return l127.fvalue(values, "(function(){", (function(){
5854 var value = symbol.value;
5855 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5857 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v614, ";", (function(){
5859 var value = symbol.value;
5860 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5862 })()), l127.fvalue(pv, "var ", "y", " = ", v616, ";", (function(){
5864 var value = symbol.value;
5865 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5867 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
5869 var value = symbol.value;
5870 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5872 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
5874 var value = symbol.value;
5875 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5877 })())), l127.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
5879 var value = symbol.value;
5880 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5882 })(), l138.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
5884 var value = symbol.value;
5885 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5887 })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "x", v615, "y"), ";", (function(){
5889 var value = symbol.value;
5890 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5897 ((l255).value = ({car: l43.fvalue(pv, l60, (function (values){
5899 for (var i = arguments.length-1; i>=1; i--)
5900 v618 = {car: arguments[i], cdr:
5903 return (l12.fvalue(pv, v618) !== l3.value ? "0" : l259.fvalue(values, v618, (function (values,v619){
5904 checkArgs(arguments, 2);
5905 return l127.fvalue(values, "return ", l129.fvalue(pv, v619, "+"), ";", (function(){
5907 var value = symbol.value;
5908 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5913 })), cdr: (function(){
5915 var value = symbol.value;
5916 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5919 ((l255).value = ({car: l43.fvalue(pv, l61, (function (values,v621){
5920 checkArgsAtLeast(arguments, 2);
5922 for (var i = arguments.length-1; i>=2; i--)
5923 v620 = {car: arguments[i], cdr:
5926 return (function(v622){
5927 return l259.fvalue(values, v622, (function (values,v623){
5928 checkArgs(arguments, 2);
5929 return l127.fvalue(values, "return ", (l12.fvalue(pv, v620) !== l3.value ? l127.fvalue(pv, "-", (function(){
5931 return tmp === l3.value? l3.value: tmp.car;
5932 })()) : l129.fvalue(pv, v623, "-")), ";", (function(){
5934 var value = symbol.value;
5935 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5939 })(({car: v621, cdr: v620}));
5941 })), cdr: (function(){
5943 var value = symbol.value;
5944 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5947 ((l255).value = ({car: l43.fvalue(pv, l20, (function (values){
5949 for (var i = arguments.length-1; i>=1; i--)
5950 v624 = {car: arguments[i], cdr:
5953 return (l12.fvalue(pv, v624) !== l3.value ? "1" : l259.fvalue(values, v624, (function (values,v625){
5954 checkArgs(arguments, 2);
5955 return l127.fvalue(values, "return ", l129.fvalue(pv, v625, "*"), ";", (function(){
5957 var value = symbol.value;
5958 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5963 })), cdr: (function(){
5965 var value = symbol.value;
5966 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5969 ((l255).value = ({car: l43.fvalue(pv, l21, (function (values,v627){
5970 checkArgsAtLeast(arguments, 2);
5972 for (var i = arguments.length-1; i>=2; i--)
5973 v626 = {car: arguments[i], cdr:
5976 return (function(v628){
5977 return l259.fvalue(values, v628, (function (values,v629){
5978 checkArgs(arguments, 2);
5979 return l127.fvalue(values, "return ", (l12.fvalue(pv, v626) !== l3.value ? l127.fvalue(pv, "1 /", (function(){
5981 return tmp === l3.value? l3.value: tmp.car;
5982 })()) : l129.fvalue(pv, v629, "/")), ";", (function(){
5984 var value = symbol.value;
5985 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5989 })(({car: v627, cdr: v626}));
5991 })), cdr: (function(){
5993 var value = symbol.value;
5994 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5997 var l262 = {name: "MOD"};
5998 ((l255).value = ({car: l43.fvalue(pv, l262, (function (values,v630,v631){
5999 checkArgs(arguments, 3);
6001 return (function(v632,v633){
6002 return l261.fvalue(values, v632, "%", v633);
6003 })(l140.fvalue(pv, v630),l140.fvalue(pv, v631));
6005 })), cdr: (function(){
6007 var value = symbol.value;
6008 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6011 var l263 = {name: "COMPARISON-CONJUNTION"};
6013 (l263).fvalue = (function(v636){
6014 ((v636)["fname"] = "COMPARISON-CONJUNTION");
6016 })((function (values,v634,v635){
6017 checkArgs(arguments, 3);
6019 return (l12.fvalue(pv, (function(){
6021 return tmp === l3.value? l3.value: tmp.cdr;
6022 })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v634)) !== l3.value ? l127.fvalue(values, (function(){
6024 return tmp === l3.value? l3.value: tmp.car;
6025 })(), v635, l33.fvalue(pv, v634)) : l127.fvalue(values, (function(){
6027 return tmp === l3.value? l3.value: tmp.car;
6028 })(), v635, l33.fvalue(pv, v634), " && ", l263.fvalue(pv, (function(){
6030 return tmp === l3.value? l3.value: tmp.cdr;
6036 var l264 = {name: "DEFINE-BUILTIN-COMPARISON"};
6038 var l265 = {name: ">"};
6039 ((l255).value = ({car: l43.fvalue(pv, l265, (function (values,v638){
6040 checkArgsAtLeast(arguments, 2);
6042 for (var i = arguments.length-1; i>=2; i--)
6043 v637 = {car: arguments[i], cdr:
6046 return (function(v639){
6047 return l259.fvalue(values, v639, (function (values,v640){
6048 checkArgs(arguments, 2);
6049 return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v640, ">")), ";", (function(){
6051 var value = symbol.value;
6052 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6056 })(({car: v638, cdr: v637}));
6058 })), cdr: (function(){
6060 var value = symbol.value;
6061 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6064 var l266 = {name: "<"};
6065 ((l255).value = ({car: l43.fvalue(pv, l266, (function (values,v642){
6066 checkArgsAtLeast(arguments, 2);
6068 for (var i = arguments.length-1; i>=2; i--)
6069 v641 = {car: arguments[i], cdr:
6072 return (function(v643){
6073 return l259.fvalue(values, v643, (function (values,v644){
6074 checkArgs(arguments, 2);
6075 return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v644, "<")), ";", (function(){
6077 var value = symbol.value;
6078 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6082 })(({car: v642, cdr: v641}));
6084 })), cdr: (function(){
6086 var value = symbol.value;
6087 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6090 var l267 = {name: ">="};
6091 ((l255).value = ({car: l43.fvalue(pv, l267, (function (values,v646){
6092 checkArgsAtLeast(arguments, 2);
6094 for (var i = arguments.length-1; i>=2; i--)
6095 v645 = {car: arguments[i], cdr:
6098 return (function(v647){
6099 return l259.fvalue(values, v647, (function (values,v648){
6100 checkArgs(arguments, 2);
6101 return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v648, ">=")), ";", (function(){
6103 var value = symbol.value;
6104 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6108 })(({car: v646, cdr: v645}));
6110 })), cdr: (function(){
6112 var value = symbol.value;
6113 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6116 var l268 = {name: "<="};
6117 ((l255).value = ({car: l43.fvalue(pv, l268, (function (values,v650){
6118 checkArgsAtLeast(arguments, 2);
6120 for (var i = arguments.length-1; i>=2; i--)
6121 v649 = {car: arguments[i], cdr:
6124 return (function(v651){
6125 return l259.fvalue(values, v651, (function (values,v652){
6126 checkArgs(arguments, 2);
6127 return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v652, "<=")), ";", (function(){
6129 var value = symbol.value;
6130 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6134 })(({car: v650, cdr: v649}));
6136 })), cdr: (function(){
6138 var value = symbol.value;
6139 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6142 ((l255).value = ({car: l43.fvalue(pv, l19, (function (values,v654){
6143 checkArgsAtLeast(arguments, 2);
6145 for (var i = arguments.length-1; i>=2; i--)
6146 v653 = {car: arguments[i], cdr:
6149 return (function(v655){
6150 return l259.fvalue(values, v655, (function (values,v656){
6151 checkArgs(arguments, 2);
6152 return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v656, "==")), ";", (function(){
6154 var value = symbol.value;
6155 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6159 })(({car: v654, cdr: v653}));
6161 })), cdr: (function(){
6163 var value = symbol.value;
6164 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6167 var l269 = {name: "NUMBERP"};
6168 ((l255).value = ({car: l43.fvalue(pv, l269, (function (values,v657){
6169 checkArgs(arguments, 2);
6171 return (function(v658){
6172 return l139.fvalue(values, l127.fvalue(pv, "(typeof (", v658, ") == \"number\")"));
6173 })(l140.fvalue(pv, v657));
6175 })), cdr: (function(){
6177 var value = symbol.value;
6178 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6181 var l270 = {name: "FLOOR"};
6182 ((l255).value = ({car: l43.fvalue(pv, l270, (function (values,v659){
6183 checkArgs(arguments, 2);
6185 return (function(v660){
6186 return l127.fvalue(values, "(function(){", (function(){
6188 var value = symbol.value;
6189 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6191 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v660, ";", (function(){
6193 var value = symbol.value;
6194 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6196 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6198 var value = symbol.value;
6199 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6201 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6203 var value = symbol.value;
6204 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6206 })())), l127.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
6208 var value = symbol.value;
6209 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6212 })(l140.fvalue(pv, v659));
6214 })), cdr: (function(){
6216 var value = symbol.value;
6217 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6220 ((l255).value = ({car: l43.fvalue(pv, l28, (function (values,v661,v662){
6221 checkArgs(arguments, 3);
6223 return (function(v663,v664){
6224 return l127.fvalue(values, "({car: ", v663, ", cdr: ", v664, "})");
6225 })(l140.fvalue(pv, v661),l140.fvalue(pv, v662));
6227 })), cdr: (function(){
6229 var value = symbol.value;
6230 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6233 ((l255).value = ({car: l43.fvalue(pv, l29, (function (values,v665){
6234 checkArgs(arguments, 2);
6236 return (function(v666){
6237 return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
6239 var value = symbol.value;
6240 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6242 })(), l138.fvalue(pv, "var tmp = ", v666, ";", (function(){
6244 var value = symbol.value;
6245 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6247 })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
6249 var value = symbol.value;
6250 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6253 })(l140.fvalue(pv, v665));
6255 })), cdr: (function(){
6257 var value = symbol.value;
6258 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6261 ((l255).value = ({car: l43.fvalue(pv, l30, (function (values,v667){
6262 checkArgs(arguments, 2);
6264 return (function(v668){
6265 return l127.fvalue(values, "(function(){", (function(){
6267 var value = symbol.value;
6268 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6270 })(), l138.fvalue(pv, "var tmp = ", v668, ";", (function(){
6272 var value = symbol.value;
6273 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6275 })(), "return tmp === ", l140.fvalue(pv, l3.value), "? ", l140.fvalue(pv, l3.value), ": tmp.car;", (function(){
6277 var value = symbol.value;
6278 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6281 })(l140.fvalue(pv, v667));
6283 })), cdr: (function(){
6285 var value = symbol.value;
6286 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6289 ((l255).value = ({car: l43.fvalue(pv, l31, (function (values,v669){
6290 checkArgs(arguments, 2);
6292 return (function(v670){
6293 return l127.fvalue(values, "(function(){", (function(){
6295 var value = symbol.value;
6296 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6298 })(), l138.fvalue(pv, "var tmp = ", v670, ";", (function(){
6300 var value = symbol.value;
6301 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6303 })(), "return tmp === ", l140.fvalue(pv, l3.value), "? ", l140.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
6305 var value = symbol.value;
6306 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6309 })(l140.fvalue(pv, v669));
6311 })), cdr: (function(){
6313 var value = symbol.value;
6314 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6317 var l271 = {name: "RPLACA"};
6318 ((l255).value = ({car: l43.fvalue(pv, l271, (function (values,v671,v672){
6319 checkArgs(arguments, 3);
6321 return (function(v673,v674){
6322 return l127.fvalue(values, "(function(){", (function(){
6324 var value = symbol.value;
6325 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6327 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v673, ";", (function(){
6329 var value = symbol.value;
6330 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6332 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6334 var value = symbol.value;
6335 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6337 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6339 var value = symbol.value;
6340 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6342 })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.car = ", v674, ", x)"), ";", (function(){
6344 var value = symbol.value;
6345 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6348 })(l140.fvalue(pv, v671),l140.fvalue(pv, v672));
6350 })), cdr: (function(){
6352 var value = symbol.value;
6353 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6356 var l272 = {name: "RPLACD"};
6357 ((l255).value = ({car: l43.fvalue(pv, l272, (function (values,v675,v676){
6358 checkArgs(arguments, 3);
6360 return (function(v677,v678){
6361 return l127.fvalue(values, "(function(){", (function(){
6363 var value = symbol.value;
6364 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6366 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v677, ";", (function(){
6368 var value = symbol.value;
6369 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6371 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6373 var value = symbol.value;
6374 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6376 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6378 var value = symbol.value;
6379 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6381 })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.cdr = ", v678, ", x)"), ";", (function(){
6383 var value = symbol.value;
6384 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6387 })(l140.fvalue(pv, v675),l140.fvalue(pv, v676));
6389 })), cdr: (function(){
6391 var value = symbol.value;
6392 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6395 var l273 = {name: "SYMBOLP"};
6396 ((l255).value = ({car: l43.fvalue(pv, l273, (function (values,v679){
6397 checkArgs(arguments, 2);
6399 return (function(v680){
6400 return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
6402 var value = symbol.value;
6403 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6405 })(), l138.fvalue(pv, "var tmp = ", v680, ";", (function(){
6407 var value = symbol.value;
6408 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6410 })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
6412 var value = symbol.value;
6413 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6416 })(l140.fvalue(pv, v679));
6418 })), cdr: (function(){
6420 var value = symbol.value;
6421 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6424 var l274 = {name: "MAKE-SYMBOL"};
6425 ((l255).value = ({car: l43.fvalue(pv, l274, (function (values,v681){
6426 checkArgs(arguments, 2);
6428 return (function(v682){
6429 return l127.fvalue(values, "(function(){", (function(){
6431 var value = symbol.value;
6432 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6434 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "name", " = ", v682, ";", (function(){
6436 var value = symbol.value;
6437 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6439 })()), l127.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
6441 var value = symbol.value;
6442 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6444 })(), l138.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
6446 var value = symbol.value;
6447 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6449 })())), l127.fvalue(pv, "return ", "({name: name})", ";", (function(){
6451 var value = symbol.value;
6452 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6455 })(l140.fvalue(pv, v681));
6457 })), cdr: (function(){
6459 var value = symbol.value;
6460 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6463 var l275 = {name: "SYMBOL-NAME"};
6464 ((l255).value = ({car: l43.fvalue(pv, l275, (function (values,v683){
6465 checkArgs(arguments, 2);
6467 return (function(v684){
6468 return l127.fvalue(values, "(", v684, ").name");
6469 })(l140.fvalue(pv, v683));
6471 })), cdr: (function(){
6473 var value = symbol.value;
6474 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6477 ((l255).value = ({car: l43.fvalue(pv, l217, (function (values,v685,v686){
6478 checkArgs(arguments, 3);
6480 return (function(v687,v688){
6481 return l127.fvalue(values, "(", v687, ").value = ", v688);
6482 })(l140.fvalue(pv, v685),l140.fvalue(pv, v686));
6484 })), cdr: (function(){
6486 var value = symbol.value;
6487 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6490 var l276 = {name: "FSET"};
6491 ((l255).value = ({car: l43.fvalue(pv, l276, (function (values,v689,v690){
6492 checkArgs(arguments, 3);
6494 return (function(v691,v692){
6495 return l127.fvalue(values, "(", v691, ").fvalue = ", v692);
6496 })(l140.fvalue(pv, v689),l140.fvalue(pv, v690));
6498 })), cdr: (function(){
6500 var value = symbol.value;
6501 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6504 ((l255).value = ({car: l43.fvalue(pv, l18, (function (values,v693){
6505 checkArgs(arguments, 2);
6507 return (function(v694){
6508 return l139.fvalue(values, l127.fvalue(pv, "(", v694, ".value !== undefined)"));
6509 })(l140.fvalue(pv, v693));
6511 })), cdr: (function(){
6513 var value = symbol.value;
6514 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6517 var l277 = {name: "SYMBOL-VALUE"};
6518 ((l255).value = ({car: l43.fvalue(pv, l277, (function (values,v695){
6519 checkArgs(arguments, 2);
6521 return (function(v696){
6522 return l127.fvalue(values, "(function(){", (function(){
6524 var value = symbol.value;
6525 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6527 })(), l138.fvalue(pv, "var symbol = ", v696, ";", (function(){
6529 var value = symbol.value;
6530 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6532 })(), "var value = symbol.value;", (function(){
6534 var value = symbol.value;
6535 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6537 })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
6539 var value = symbol.value;
6540 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6542 })(), "return value;", (function(){
6544 var value = symbol.value;
6545 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6548 })(l140.fvalue(pv, v695));
6550 })), cdr: (function(){
6552 var value = symbol.value;
6553 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6556 ((l255).value = ({car: l43.fvalue(pv, l226, (function (values,v697){
6557 checkArgs(arguments, 2);
6559 return (function(v698){
6560 return l127.fvalue(values, "(function(){", (function(){
6562 var value = symbol.value;
6563 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6565 })(), l138.fvalue(pv, "var symbol = ", v698, ";", (function(){
6567 var value = symbol.value;
6568 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6570 })(), "var func = symbol.fvalue;", (function(){
6572 var value = symbol.value;
6573 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6575 })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
6577 var value = symbol.value;
6578 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6580 })(), "return func;", (function(){
6582 var value = symbol.value;
6583 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6586 })(l140.fvalue(pv, v697));
6588 })), cdr: (function(){
6590 var value = symbol.value;
6591 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6594 var l278 = {name: "SYMBOL-PLIST"};
6595 ((l255).value = ({car: l43.fvalue(pv, l278, (function (values,v699){
6596 checkArgs(arguments, 2);
6598 return (function(v700){
6599 return l127.fvalue(values, "((", v700, ").plist || ", l140.fvalue(pv, l3.value), ")");
6600 })(l140.fvalue(pv, v699));
6602 })), cdr: (function(){
6604 var value = symbol.value;
6605 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6608 var l279 = {name: "LAMBDA-CODE"};
6609 ((l255).value = ({car: l43.fvalue(pv, l279, (function (values,v701){
6610 checkArgs(arguments, 2);
6612 return (function(v702){
6613 return l127.fvalue(values, "(", v702, ").toString()");
6614 })(l140.fvalue(pv, v701));
6616 })), cdr: (function(){
6618 var value = symbol.value;
6619 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6622 var l280 = {name: "EQ"};
6623 ((l255).value = ({car: l43.fvalue(pv, l280, (function (values,v703,v704){
6624 checkArgs(arguments, 3);
6626 return (function(v705,v706){
6627 return l139.fvalue(values, l127.fvalue(pv, "(", v705, " === ", v706, ")"));
6628 })(l140.fvalue(pv, v703),l140.fvalue(pv, v704));
6630 })), cdr: (function(){
6632 var value = symbol.value;
6633 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6636 var l281 = {name: "EQUAL"};
6637 ((l255).value = ({car: l43.fvalue(pv, l281, (function (values,v707,v708){
6638 checkArgs(arguments, 3);
6640 return (function(v709,v710){
6641 return l139.fvalue(values, l127.fvalue(pv, "(", v709, " == ", v710, ")"));
6642 })(l140.fvalue(pv, v707),l140.fvalue(pv, v708));
6644 })), cdr: (function(){
6646 var value = symbol.value;
6647 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6650 var l282 = {name: "CHAR-TO-STRING"};
6651 ((l255).value = ({car: l43.fvalue(pv, l282, (function (values,v711){
6652 checkArgs(arguments, 2);
6654 return (function(v712){
6655 return l127.fvalue(values, "(function(){", (function(){
6657 var value = symbol.value;
6658 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6660 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v712, ";", (function(){
6662 var value = symbol.value;
6663 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6665 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6667 var value = symbol.value;
6668 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6670 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6672 var value = symbol.value;
6673 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6675 })())), l127.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
6677 var value = symbol.value;
6678 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6681 })(l140.fvalue(pv, v711));
6683 })), cdr: (function(){
6685 var value = symbol.value;
6686 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6689 var l283 = {name: "STRINGP"};
6690 ((l255).value = ({car: l43.fvalue(pv, l283, (function (values,v713){
6691 checkArgs(arguments, 2);
6693 return (function(v714){
6694 return l139.fvalue(values, l127.fvalue(pv, "(typeof(", v714, ") == \"string\")"));
6695 })(l140.fvalue(pv, v713));
6697 })), cdr: (function(){
6699 var value = symbol.value;
6700 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6703 var l284 = {name: "STRING-UPCASE"};
6704 ((l255).value = ({car: l43.fvalue(pv, l284, (function (values,v715){
6705 checkArgs(arguments, 2);
6707 return (function(v716){
6708 return l127.fvalue(values, "(function(){", (function(){
6710 var value = symbol.value;
6711 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6713 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v716, ";", (function(){
6715 var value = symbol.value;
6716 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6718 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6720 var value = symbol.value;
6721 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6723 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6725 var value = symbol.value;
6726 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6728 })())), l127.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
6730 var value = symbol.value;
6731 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6734 })(l140.fvalue(pv, v715));
6736 })), cdr: (function(){
6738 var value = symbol.value;
6739 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6742 var l285 = {name: "STRING-LENGTH"};
6743 ((l255).value = ({car: l43.fvalue(pv, l285, (function (values,v717){
6744 checkArgs(arguments, 2);
6746 return (function(v718){
6747 return l127.fvalue(values, "(function(){", (function(){
6749 var value = symbol.value;
6750 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6752 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v718, ";", (function(){
6754 var value = symbol.value;
6755 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6757 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6759 var value = symbol.value;
6760 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6762 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6764 var value = symbol.value;
6765 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6767 })())), l127.fvalue(pv, "return ", "x.length", ";", (function(){
6769 var value = symbol.value;
6770 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6773 })(l140.fvalue(pv, v717));
6775 })), cdr: (function(){
6777 var value = symbol.value;
6778 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6781 var l286 = {name: "SLICE"};
6782 ((l255).value = ({car: l43.fvalue(pv, l286, (function (values,v719,v720,v721){
6783 checkArgsAtLeast(arguments, 3);
6784 checkArgsAtMost(arguments, 4);
6785 switch(arguments.length-1){
6791 return l127.fvalue(values, "(function(){", (function(){
6793 var value = symbol.value;
6794 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6796 })(), l138.fvalue(pv, "var str = ", l140.fvalue(pv, v719), ";", (function(){
6798 var value = symbol.value;
6799 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6801 })(), "var a = ", l140.fvalue(pv, v720), ";", (function(){
6803 var value = symbol.value;
6804 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6806 })(), "var b;", (function(){
6808 var value = symbol.value;
6809 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6811 })(), (v721 !== l3.value ? l127.fvalue(pv, "b = ", l140.fvalue(pv, v721), ";", (function(){
6813 var value = symbol.value;
6814 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6816 })()) : ""), "return str.slice(a,b);", (function(){
6818 var value = symbol.value;
6819 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6823 })), cdr: (function(){
6825 var value = symbol.value;
6826 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6829 var l287 = {name: "CHAR"};
6830 ((l255).value = ({car: l43.fvalue(pv, l287, (function (values,v722,v723){
6831 checkArgs(arguments, 3);
6833 return (function(v724,v725){
6834 return l127.fvalue(values, "(function(){", (function(){
6836 var value = symbol.value;
6837 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6839 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v724, ";", (function(){
6841 var value = symbol.value;
6842 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6844 })()), l127.fvalue(pv, "var ", "index", " = ", v725, ";", (function(){
6846 var value = symbol.value;
6847 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6849 })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6851 var value = symbol.value;
6852 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6854 })(), l138.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
6856 var value = symbol.value;
6857 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6859 })())), l127.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
6861 var value = symbol.value;
6862 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6864 })(), l138.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
6866 var value = symbol.value;
6867 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6869 })())), l127.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
6871 var value = symbol.value;
6872 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6875 })(l140.fvalue(pv, v722),l140.fvalue(pv, v723));
6877 })), cdr: (function(){
6879 var value = symbol.value;
6880 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6883 ((l255).value = ({car: l43.fvalue(pv, l71, (function (values,v726,v727){
6884 checkArgs(arguments, 3);
6886 return (function(v728,v729){
6887 return l127.fvalue(values, "(function(){", (function(){
6889 var value = symbol.value;
6890 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6892 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string1", " = ", v728, ";", (function(){
6894 var value = symbol.value;
6895 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6897 })()), l127.fvalue(pv, "var ", "string2", " = ", v729, ";", (function(){
6899 var value = symbol.value;
6900 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6902 })()), l127.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
6904 var value = symbol.value;
6905 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6907 })(), l138.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
6909 var value = symbol.value;
6910 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6912 })())), l127.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
6914 var value = symbol.value;
6915 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6917 })(), l138.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
6919 var value = symbol.value;
6920 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6922 })())), l127.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
6924 var value = symbol.value;
6925 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6928 })(l140.fvalue(pv, v726),l140.fvalue(pv, v727));
6930 })), cdr: (function(){
6932 var value = symbol.value;
6933 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6936 var l288 = {name: "FUNCALL"};
6937 ((l255).value = ({car: l43.fvalue(pv, l288, (function (values,v731){
6938 checkArgsAtLeast(arguments, 2);
6940 for (var i = arguments.length-1; i>=2; i--)
6941 v730 = {car: arguments[i], cdr:
6944 return l127.fvalue(values, "(", l140.fvalue(pv, v731), ")(", l129.fvalue(pv, ({car: ((function(){
6946 var value = symbol.value;
6947 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6949 })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
6951 var func = symbol.fvalue;
6952 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
6954 })(), v730)}), ", "), ")");
6956 })), cdr: (function(){
6958 var value = symbol.value;
6959 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6962 var l289 = {name: "APPLY"};
6963 ((l255).value = ({car: l43.fvalue(pv, l289, (function (values,v733){
6964 checkArgsAtLeast(arguments, 2);
6966 for (var i = arguments.length-1; i>=2; i--)
6967 v732 = {car: arguments[i], cdr:
6970 return (l12.fvalue(pv, v732) !== l3.value ? l127.fvalue(values, "(", l140.fvalue(pv, v733), ")()") : (function(v734,v735){
6971 return l127.fvalue(values, "(function(){", (function(){
6973 var value = symbol.value;
6974 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6976 })(), l138.fvalue(pv, "var f = ", l140.fvalue(pv, v733), ";", (function(){
6978 var value = symbol.value;
6979 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6981 })(), "var args = [", l129.fvalue(pv, ({car: ((function(){
6983 var value = symbol.value;
6984 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6986 })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
6988 var func = symbol.fvalue;
6989 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
6991 })(), v734)}), ", "), "];", (function(){
6993 var value = symbol.value;
6994 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6996 })(), "var tail = (", l140.fvalue(pv, v735), ");", (function(){
6998 var value = symbol.value;
6999 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7001 })(), "while (tail != ", l140.fvalue(pv, l3.value), "){", (function(){
7003 var value = symbol.value;
7004 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7006 })(), " args.push(tail.car);", (function(){
7008 var value = symbol.value;
7009 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7011 })(), " tail = tail.cdr;", (function(){
7013 var value = symbol.value;
7014 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7016 })(), "}", (function(){
7018 var value = symbol.value;
7019 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7021 })(), "return f.apply(this, args);", (function(){
7023 var value = symbol.value;
7024 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7027 })(l84.fvalue(pv, v732),(function(){
7028 var tmp = l83.fvalue(pv, v732);
7029 return tmp === l3.value? l3.value: tmp.car;
7032 })), cdr: (function(){
7034 var value = symbol.value;
7035 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7038 var l290 = {name: "JS-EVAL"};
7039 ((l255).value = ({car: l43.fvalue(pv, l290, (function (values,v736){
7040 checkArgs(arguments, 2);
7042 return (function(v737){
7043 return l127.fvalue(values, "(function(){", (function(){
7045 var value = symbol.value;
7046 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7048 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v737, ";", (function(){
7050 var value = symbol.value;
7051 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7053 })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
7055 var value = symbol.value;
7056 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7058 })(), l138.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
7060 var value = symbol.value;
7061 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7063 })())), l127.fvalue(pv, "return ", ((function(){
7065 var value = symbol.value;
7066 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7068 })() !== l3.value ? l127.fvalue(pv, "(function(){", (function(){
7070 var value = symbol.value;
7071 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7073 })(), l138.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
7075 var value = symbol.value;
7076 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7078 })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
7080 var value = symbol.value;
7081 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7083 })(), l138.fvalue(pv, "v = [v];", (function(){
7085 var value = symbol.value;
7086 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7088 })(), "v['multiple-value'] = true;", (function(){
7090 var value = symbol.value;
7091 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7093 })()), "}", (function(){
7095 var value = symbol.value;
7096 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7098 })(), "return values.apply(this, v);", (function(){
7100 var value = symbol.value;
7101 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7103 })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
7105 var value = symbol.value;
7106 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7109 })(l140.fvalue(pv, v736));
7111 })), cdr: (function(){
7113 var value = symbol.value;
7114 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7117 var l291 = {name: "ERROR"};
7118 ((l255).value = ({car: l43.fvalue(pv, l291, (function (values,v738){
7119 checkArgs(arguments, 2);
7121 return (function(v739){
7122 return l127.fvalue(values, "(function(){", (function(){
7124 var value = symbol.value;
7125 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7127 })(), l138.fvalue(pv, "throw ", v739, ";", (function(){
7129 var value = symbol.value;
7130 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7133 })(l140.fvalue(pv, v738));
7135 })), cdr: (function(){
7137 var value = symbol.value;
7138 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7141 var l292 = {name: "NEW"};
7142 ((l255).value = ({car: l43.fvalue(pv, l292, (function (values){
7143 checkArgsAtMost(arguments, 1);
7149 })), cdr: (function(){
7151 var value = symbol.value;
7152 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7155 var l293 = {name: "OBJECTP"};
7156 ((l255).value = ({car: l43.fvalue(pv, l293, (function (values,v740){
7157 checkArgs(arguments, 2);
7159 return (function(v741){
7160 return l139.fvalue(values, l127.fvalue(pv, "(typeof (", v741, ") === 'object')"));
7161 })(l140.fvalue(pv, v740));
7163 })), cdr: (function(){
7165 var value = symbol.value;
7166 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7169 var l294 = {name: "OGET"};
7170 ((l255).value = ({car: l43.fvalue(pv, l294, (function (values,v742,v743){
7171 checkArgs(arguments, 3);
7173 return (function(v744,v745){
7174 return l127.fvalue(values, "(function(){", (function(){
7176 var value = symbol.value;
7177 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7179 })(), l138.fvalue(pv, "var tmp = ", "(", v744, ")[", v745, "];", (function(){
7181 var value = symbol.value;
7182 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7184 })(), "return tmp == undefined? ", l140.fvalue(pv, l3.value), ": tmp ;", (function(){
7186 var value = symbol.value;
7187 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7190 })(l140.fvalue(pv, v742),l140.fvalue(pv, v743));
7192 })), cdr: (function(){
7194 var value = symbol.value;
7195 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7198 var l295 = {name: "OSET"};
7199 ((l255).value = ({car: l43.fvalue(pv, l295, (function (values,v746,v747,v748){
7200 checkArgs(arguments, 4);
7202 return (function(v749,v750,v751){
7203 return l127.fvalue(values, "((", v749, ")[", v750, "] = ", v751, ")");
7204 })(l140.fvalue(pv, v746),l140.fvalue(pv, v747),l140.fvalue(pv, v748));
7206 })), cdr: (function(){
7208 var value = symbol.value;
7209 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7212 var l296 = {name: "IN"};
7213 ((l255).value = ({car: l43.fvalue(pv, l296, (function (values,v752,v753){
7214 checkArgs(arguments, 3);
7216 return (function(v754,v755){
7217 return l139.fvalue(values, l127.fvalue(pv, "((", v754, ") in (", v755, "))"));
7218 })(l140.fvalue(pv, v752),l140.fvalue(pv, v753));
7220 })), cdr: (function(){
7222 var value = symbol.value;
7223 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7226 var l297 = {name: "FUNCTIONP"};
7227 ((l255).value = ({car: l43.fvalue(pv, l297, (function (values,v756){
7228 checkArgs(arguments, 2);
7230 return (function(v757){
7231 return l139.fvalue(values, l127.fvalue(pv, "(typeof ", v757, " == 'function')"));
7232 })(l140.fvalue(pv, v756));
7234 })), cdr: (function(){
7236 var value = symbol.value;
7237 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7240 var l298 = {name: "WRITE-STRING"};
7241 ((l255).value = ({car: l43.fvalue(pv, l298, (function (values,v758){
7242 checkArgs(arguments, 2);
7244 return (function(v759){
7245 return l127.fvalue(values, "(function(){", (function(){
7247 var value = symbol.value;
7248 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7250 })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v759, ";", (function(){
7252 var value = symbol.value;
7253 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7255 })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
7257 var value = symbol.value;
7258 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7260 })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
7262 var value = symbol.value;
7263 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7265 })())), l127.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
7267 var value = symbol.value;
7268 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7271 })(l140.fvalue(pv, v758));
7273 })), cdr: (function(){
7275 var value = symbol.value;
7276 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7279 var l299 = {name: "MAKE-ARRAY"};
7280 ((l255).value = ({car: l43.fvalue(pv, l299, (function (values,v760){
7281 checkArgs(arguments, 2);
7283 return (function(v761){
7284 return l127.fvalue(values, "(function(){", (function(){
7286 var value = symbol.value;
7287 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7289 })(), l138.fvalue(pv, "var r = [];", (function(){
7291 var value = symbol.value;
7292 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7294 })(), "for (var i = 0; i < ", v761, "; i++)", (function(){
7296 var value = symbol.value;
7297 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7299 })(), l138.fvalue(pv, "r.push(", l140.fvalue(pv, l3.value), ");", (function(){
7301 var value = symbol.value;
7302 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7304 })()), "return r;", (function(){
7306 var value = symbol.value;
7307 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7310 })(l140.fvalue(pv, v760));
7312 })), cdr: (function(){
7314 var value = symbol.value;
7315 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7318 var l300 = {name: "ARRAYP"};
7319 ((l255).value = ({car: l43.fvalue(pv, l300, (function (values,v762){
7320 checkArgs(arguments, 2);
7322 return (function(v763){
7323 return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
7325 var value = symbol.value;
7326 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7328 })(), l138.fvalue(pv, "var x = ", v763, ";", (function(){
7330 var value = symbol.value;
7331 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7333 })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
7334 })(l140.fvalue(pv, v762));
7336 })), cdr: (function(){
7338 var value = symbol.value;
7339 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7342 var l301 = {name: "AREF"};
7343 ((l255).value = ({car: l43.fvalue(pv, l301, (function (values,v764,v765){
7344 checkArgs(arguments, 3);
7346 return (function(v766,v767){
7347 return l127.fvalue(values, "(function(){", (function(){
7349 var value = symbol.value;
7350 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7352 })(), l138.fvalue(pv, "var x = ", "(", v766, ")[", v767, "];", (function(){
7354 var value = symbol.value;
7355 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7357 })(), "if (x === undefined) throw 'Out of range';", (function(){
7359 var value = symbol.value;
7360 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7362 })(), "return x;", (function(){
7364 var value = symbol.value;
7365 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7368 })(l140.fvalue(pv, v764),l140.fvalue(pv, v765));
7370 })), cdr: (function(){
7372 var value = symbol.value;
7373 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7376 var l302 = {name: "ASET"};
7377 ((l255).value = ({car: l43.fvalue(pv, l302, (function (values,v768,v769,v770){
7378 checkArgs(arguments, 4);
7380 return (function(v771,v772,v773){
7381 return l127.fvalue(values, "(function(){", (function(){
7383 var value = symbol.value;
7384 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7386 })(), l138.fvalue(pv, "var x = ", v771, ";", (function(){
7388 var value = symbol.value;
7389 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7391 })(), "var i = ", v772, ";", (function(){
7393 var value = symbol.value;
7394 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7396 })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
7398 var value = symbol.value;
7399 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7401 })(), "return x[i] = ", v773, ";", (function(){
7403 var value = symbol.value;
7404 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7407 })(l140.fvalue(pv, v768),l140.fvalue(pv, v769),l140.fvalue(pv, v770));
7409 })), cdr: (function(){
7411 var value = symbol.value;
7412 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7415 var l303 = {name: "GET-UNIX-TIME"};
7416 ((l255).value = ({car: l43.fvalue(pv, l303, (function (values){
7417 checkArgsAtMost(arguments, 1);
7420 return l127.fvalue(values, "(Math.round(new Date() / 1000))");
7423 })), cdr: (function(){
7425 var value = symbol.value;
7426 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7429 var l304 = {name: "VALUES-ARRAY"};
7430 ((l255).value = ({car: l43.fvalue(pv, l304, (function (values,v774){
7431 checkArgs(arguments, 2);
7433 return (function(v775){
7434 return ((function(){
7436 var value = symbol.value;
7437 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7439 })() !== l3.value ? l127.fvalue(values, "values.apply(this, ", v775, ")") : l127.fvalue(values, "pv.apply(this, ", v775, ")"));
7440 })(l140.fvalue(pv, v774));
7442 })), cdr: (function(){
7444 var value = symbol.value;
7445 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7448 ((l255).value = ({car: l43.fvalue(pv, l135, (function (values){
7450 for (var i = arguments.length-1; i>=1; i--)
7451 v776 = {car: arguments[i], cdr:
7454 return ((function(){
7456 var value = symbol.value;
7457 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7459 })() !== l3.value ? l127.fvalue(values, "values(", l129.fvalue(pv, l72.fvalue(pv, (function(){
7461 var func = symbol.fvalue;
7462 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7464 })(), v776), ", "), ")") : l127.fvalue(values, "pv(", l129.fvalue(pv, l72.fvalue(pv, (function(){
7466 var func = symbol.fvalue;
7467 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7469 })(), v776), ", "), ")"));
7471 })), cdr: (function(){
7473 var value = symbol.value;
7474 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7478 (l191).fvalue = (function(v779){
7479 ((v779)["fname"] = "MACRO");
7481 })((function (values,v777){
7482 checkArgs(arguments, 2);
7484 return (((function(){
7486 return (typeof tmp == 'object' && 'name' in tmp);
7487 })()?l4.value: l3.value) !== l3.value ? (function(v778){
7488 return (((l168.fvalue(pv, v778) === l191)?l4.value: l3.value) !== l3.value ? v778 : l3.value);
7489 })(l180.fvalue(pv, v777, (function(){
7491 var value = symbol.value;
7492 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7494 })(), l101)) : l3.value);
7499 var l305 = {name: "LS-MACROEXPAND-1"};
7501 (l305).fvalue = (function(v784){
7502 ((v784)["fname"] = "LS-MACROEXPAND-1");
7504 })((function (values,v780){
7505 checkArgs(arguments, 2);
7507 return (function(v781){
7508 return (v781 !== l3.value ? (function(v782){
7509 (l58.fvalue(pv, v782) !== l3.value ? (function(v783){
7510 l171.fvalue(pv, v781, v783);
7511 return (v782 = v783);
7512 })(l229.fvalue(pv, v782)) : l3.value);
7515 var args = [values];
7516 var tail = ((function(){
7518 return tmp === l3.value? l3.value: tmp.cdr;
7520 while (tail != l3.value){
7521 args.push(tail.car);
7524 return f.apply(this, args);
7526 })(l169.fvalue(pv, v781)) : v780);
7527 })(l191.fvalue(pv, (function(){
7529 return tmp === l3.value? l3.value: tmp.car;
7535 var l306 = {name: "COMPILE-FUNCALL"};
7536 var l307 = {name: "G766"};
7538 (l306).fvalue = (function(v788){
7539 ((v788)["fname"] = "COMPILE-FUNCALL");
7541 })((function (values,v785,v786){
7542 checkArgs(arguments, 3);
7544 return (function(v787){
7545 return ((((function(){
7547 return (typeof tmp == 'object' && 'name' in tmp);
7548 })()?l4.value: l3.value) !== l3.value ? (((l117.fvalue(pv, v785) === l108.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){
7550 var value = symbol.value;
7551 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7553 })() : l3.value) : l3.value) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v785))), ".fvalue(", l129.fvalue(pv, ({car: v787, cdr: l72.fvalue(pv, (function(){
7555 var func = symbol.fvalue;
7556 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7558 })(), v786)}), ", "), ")") : l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l101), l43.fvalue(pv, v785))), "(", l129.fvalue(pv, ({car: v787, cdr: l72.fvalue(pv, (function(){
7560 var func = symbol.fvalue;
7561 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7563 })(), v786)}), ", "), ")"));
7566 var value = symbol.value;
7567 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7569 })() !== l3.value ? "values" : "pv"));
7575 (l215).fvalue = (function(v791){
7576 ((v791)["fname"] = "LS-COMPILE-BLOCK");
7578 })((function (values,v789,v790){
7579 checkArgsAtLeast(arguments, 2);
7580 checkArgsAtMost(arguments, 3);
7581 switch(arguments.length-1){
7587 return (v790 !== l3.value ? l127.fvalue(values, l215.fvalue(pv, l84.fvalue(pv, v789)), "return ", l140.fvalue(pv, (function(){
7588 var tmp = l83.fvalue(pv, v789);
7589 return tmp === l3.value? l3.value: tmp.car;
7592 var value = symbol.value;
7593 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7595 })()), ";") : l130.fvalue(values, l87.fvalue(pv, (function(){
7597 var func = symbol.fvalue;
7598 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7600 })(), l72.fvalue(pv, (function(){
7602 var func = symbol.fvalue;
7603 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7605 })(), v789)), l127.fvalue(pv, ";", (function(){
7607 var value = symbol.value;
7608 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7616 (l140).fvalue = (function(v801){
7617 ((v801)["fname"] = "LS-COMPILE");
7619 })((function (values,v792,v793){
7620 checkArgsAtLeast(arguments, 2);
7621 checkArgsAtMost(arguments, 3);
7622 switch(arguments.length-1){
7628 return (function(v794){
7634 return (((function(){
7636 return (typeof tmp == 'object' && 'name' in tmp);
7637 })()?l4.value: l3.value) !== l3.value ? (function(v795){
7638 return ((v795 !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l195, l170.fvalue(pv, v795))) : l3.value) !== l3.value ? l169.fvalue(values, v795) : ((function(v796){
7639 return (v796 !== l3.value ? v796 : l85.fvalue(pv, l197, l170.fvalue(pv, v795)));
7640 })(l116.fvalue(pv, v792)) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v792))), ".value") : l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l277), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v792)))))));
7641 })(l180.fvalue(pv, v792, (function(){
7643 var value = symbol.value;
7644 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7646 })(), l102)) : (l78.fvalue(pv, v792) !== l3.value ? l17.fvalue(values, v792) : (((typeof(v792) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v792), "\"") : (((function(){
7648 return typeof x === 'object' && 'length' in x;
7649 })()?l4.value: l3.value) !== l3.value ? l224.fvalue(values, v792) : (l58.fvalue(pv, v792) !== l3.value ? (function(v797,v798){
7650 return (l94.fvalue(pv, v797, (function(){
7652 var value = symbol.value;
7653 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7655 })()) !== l3.value ? (function(v799){
7658 var args = [values];
7660 while (tail != l3.value){
7661 args.push(tail.car);
7664 return f.apply(this, args);
7666 })(l40.fvalue(pv, l94.fvalue(pv, v797, (function(){
7668 var value = symbol.value;
7669 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7671 })()))) : ((l94.fvalue(pv, v797, (function(){
7673 var value = symbol.value;
7674 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7676 })()) !== l3.value ? l27.fvalue(pv, l193.fvalue(pv, v797, l101, l196)) : l3.value) !== l3.value ? (function(v800){
7679 var args = [values];
7681 while (tail != l3.value){
7682 args.push(tail.car);
7685 return f.apply(this, args);
7687 })(l40.fvalue(pv, l94.fvalue(pv, v797, (function(){
7689 var value = symbol.value;
7690 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7692 })()))) : (l191.fvalue(pv, v797) !== l3.value ? l140.fvalue(values, l305.fvalue(pv, v792), v793) : l306.fvalue(values, v797, v798))));
7695 return tmp === l3.value? l3.value: tmp.car;
7698 return tmp === l3.value? l3.value: tmp.cdr;
7699 })()) : (function(){
7700 throw "How should I compile this?";
7711 var l308 = {name: "LS-COMPILE-TOPLEVEL"};
7713 (l308).fvalue = (function(v808){
7714 ((v808)["fname"] = "LS-COMPILE-TOPLEVEL");
7716 })((function (values,v802,v803){
7717 checkArgsAtLeast(arguments, 2);
7718 checkArgsAtMost(arguments, 3);
7719 switch(arguments.length-1){
7725 return (function(v804){
7731 return ((((function(){
7733 return (typeof tmp == 'object' && 'car' in tmp);
7734 })()?l4.value: l3.value) !== l3.value ? (((function(){
7736 return tmp === l3.value? l3.value: tmp.car;
7737 })() === l230)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v806){
7738 return l129.fvalue(values, l87.fvalue(pv, (function(){
7740 var func = symbol.fvalue;
7741 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7744 })(l72.fvalue(pv, (function (values,v805){
7745 checkArgs(arguments, 2);
7746 return l308.fvalue(values, v805, l4.value);
7749 return tmp === l3.value? l3.value: tmp.cdr;
7750 })())) : (function(v807){
7751 return l127.fvalue(values, l130.fvalue(pv, l189.fvalue(pv), l127.fvalue(pv, ";", (function(){
7753 var value = symbol.value;
7754 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7756 })())), (v807 !== l3.value ? l127.fvalue(pv, v807, ";", (function(){
7758 var value = symbol.value;
7759 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7762 })(l140.fvalue(pv, v802, v803)));
7773 (l229).fvalue = (function(v810){
7774 ((v810)["fname"] = "EVAL");
7776 })((function (values,v809){
7777 checkArgs(arguments, 2);
7780 var string = l308.fvalue(pv, v809, l4.value);
7781 if (typeof string != 'string')
7782 throw 'The value ' + string + ' is not a type string.';
7784 var v = eval.apply(window, [string]);
7785 if (typeof v !== 'object' || !('multiple-value' in v)){
7787 v['multiple-value'] = true;
7789 return values.apply(this, v);
7796 var l309 = {name: "&BODY"};
7797 var l310 = QIList(l204,l203,l309,l20,l15,l118,l60,l61,l21,l22,l23,l266,l268,l19,l19,l265,l267,l53,l63,l289,l301,l300,l302,l94,l44,l177,l18,l18,l84,l32,l38,l36,l33,l30,l30,l51,l242,l34,l37,l35,l31,l31,l287,l76,l77,l75,l50,l28,l29,l74,l46,l2,l9,l11,l1,l8,l89,l98,l67,l68,l100,l48,l49,l52,l280,l26,l281,l291,l229,l93,l124,l97,l108,l122,l39,l42,l276,l288,l101,l297,l16,l125,l249,l73,l201,l119,l45,l78,l78,l123,l116,l5,l83,l70,l234,l237,l104,l43,l58,l299,l105,l274,l72,l85,l80,l262,l136,l251,l137,l252,l3,l27,l82,l81,l12,l269,l54,l109,l111,l107,l79,l142,l145,l198,l55,l56,l230,l66,l47,l160,l86,l87,l88,l13,l241,l64,l65,l271,l272,l40,l217,l218,l92,l284,l95,l96,l283,l90,l226,l275,l117,l278,l277,l273,l4,l248,l41,l243,l25,l7,l250,l135,l134,l102,l144,l6,l99,l298,l24,l3);
7798 l124.fvalue(values, l310);
7799 ((l118).value = (function(){
7801 var value = symbol.value;
7802 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7806 var string = "var lisp";
7807 if (typeof string != 'string')
7808 throw 'The value ' + string + ' is not a type string.';
7810 var v = eval.apply(window, [string]);
7811 if (typeof v !== 'object' || !('multiple-value' in v)){
7813 v['multiple-value'] = true;
7815 return values.apply(this, v);
7819 (lisp.read = (function(){
7821 var func = symbol.fvalue;
7822 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7825 (lisp.print = (function(){
7827 var func = symbol.fvalue;
7828 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7831 (lisp.eval = (function(){
7833 var func = symbol.fvalue;
7834 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7837 (lisp.compile = (function (values,v811){
7838 checkArgs(arguments, 2);
7839 return l308.fvalue(values, v811, l4.value);
7841 (lisp.evalString = (function (values,v812){
7842 checkArgs(arguments, 2);
7843 return l229.fvalue(values, l164.fvalue(pv, v812));
7845 (lisp.compileString = (function (values,v813){
7846 checkArgs(arguments, 2);
7847 return l308.fvalue(values, l164.fvalue(pv, v813), l4.value);
7849 var l311 = QIList(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(l291,"l291"),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(l237,"l237"),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(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"),l3);
7850 var l312 = {name: "OP"};
7851 var l313 = {name: "SYM"};
7852 var l314 = {name: "X"};
7853 var l315 = {name: "ARGS"};
7854 var l316 = {name: "BODY"};
7855 var l317 = {name: "DECLS"};
7856 var l318 = {name: "DECL"};
7857 var l319 = {name: "NAME"};
7858 var l320 = {name: "ARG"};
7859 var l321 = {name: "FORM"};
7860 var l322 = {name: "VALUE-FROM"};
7861 var l323 = {name: "VARIABLES"};
7862 var l324 = {name: "PACKAGE-DESIGNATOR"};
7863 var l325 = {name: "VARLIST"};
7864 var l326 = {name: "ENDLIST"};
7865 var l327 = {name: "V"};
7866 var l328 = {name: "PAIRS"};
7867 var l329 = {name: "ASSIGNMENTS"};
7868 var l330 = {name: "VALUE"};
7869 var l331 = {name: "FORM1"};
7870 var l332 = {name: "RESULT"};
7871 var l333 = {name: "FORMS"};
7872 var l334 = {name: "G"};
7873 var l335 = {name: "CLAUSULES"};
7874 var l336 = {name: "!FORM"};
7875 var l337 = {name: "CLAUSULE"};
7876 var l338 = {name: "ITER"};
7877 var l339 = {name: "G!TO"};
7878 var l340 = {name: "VAR"};
7879 var l341 = {name: "TO"};
7880 var l342 = {name: "G!LIST"};
7881 var l343 = {name: "PLACE"};
7882 var l344 = {name: "DELTA"};
7883 var l345 = {name: "CONDITION"};
7884 var l346 = {name: "DOCSTRING"};
7885 var l347 = QIList(QIList(QIList(l255,l102,l3,QIList(l195,l3),l3),QIList(l245,l102,l3,QIList(l195,l3),l3),QIList(l244,l102,l3,QIList(l195,l3),l3),QIList(l238,l102,l3,QIList(l195,l3),l3),QIList(l227,l102,l3,QIList(l195,l3),l3),QIList(l222,l102,l3,QIList(l195,l3),l3),QIList(l221,l102,l3,QIList(l195,l3),l3),QIList(l202,l102,l3,QIList(l195,l3),l3),QIList(l199,l102,l3,QIList(l195,l3),l3),QIList(l186,l102,l3,QIList(l195,l3),l3),QIList(l182,l102,l3,QIList(l195,l3),l3),QIList(l181,l102,l3,QIList(l195,l3),l3),QIList(l165,l102,l3,QIList(l195,l3),l3),QIList(l159,l102,l3,QIList(l195,l3),l3),QIList(l126,l102,l3,QIList(l195,l3),l3),QIList(l118,l102,l3,QIList(l195,l3),l3),QIList(l115,l102,l3,QIList(l195,l3),l3),QIList(l114,l102,l3,QIList(l195,l3),l3),QIList(l113,l102,l3,QIList(l195,l3),l3),QIList(l103,l102,l3,QIList(l195,l3),l3),QIList(l15,l102,l3,QIList(l195,l3),l3),QIList(l4,l102,l3,QIList(l195,l197,l3),l3),QIList(l3,l102,l3,QIList(l195,l197,l3),l3),l3),QIList(QIList(l264,l191,QIList(l101,QIList(l5,QIList(l312,l313,l3),QIList(l161,QIList(l256,QIList(l163,l312,l3),QIList(l314,l204,l315,l3),QIList(l234,QIList(QIList(l315,QIList(l28,l314,l315,l3),l3),l3),QIList(l260,l315,QIList(l139,QIList(l263,l315,QIList(l163,l313,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l260,l191,QIList(l101,QIList(l5,QIList(l315,l204,l316,l3),QIList(l7,QIList(l273,l315,l3),QIList(l291,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l161,QIList(l259,QIList(l163,l315,l3),QIList(l5,QIList(QIList(l163,l315,l3),l3),QIList(l127,"return ",QIList(l162,l316,l3),";",l126,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l258,l191,QIList(l101,QIList(l5,QIList(l317,l204,l316,l3),QIList(l161,QIList(l141,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"var ",QIList(l163,QIList(l39,l318,l3),l3)," = ",QIList(l163,QIList(l41,l318,l3),l3),";",l126,l3),l3),l3),l317,l3),l3),QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"if (typeof ",QIList(l163,QIList(l39,l318,l3),l3)," != '",QIList(l163,QIList(l40,l318,l3),l3),"')",l126,QIList(l138,"throw 'The value ' + ",QIList(l163,QIList(l39,l318,l3),l3)," + ' is not a type ",QIList(l163,QIList(l40,l318,l3),l3),".';",l126,l3),l3),l3),l3),l317,l3),l3),QIList(l127,"return ",QIList(l230,QIList(l162,l316,l3),l3),";",l126,l3),l3),l3),l3),l3),l3,l3),QIList(l257,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l256,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l320,l3),QIList(l161,QIList(QIList(l163,l320,l3),QIList(l140,QIList(l163,l320,l3),l3),l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l256,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l255,l3),l3),l3),l3),l3,l3),QIList(l161,l191,QIList(l101,QIList(l5,QIList(l321,l3),QIList(l253,l321,l3),l3),l3),l3,l3),QIList(l231,l191,QIList(l101,QIList(l5,QIList(l319,l315,l321,l3),QIList(l161,QIList(l200,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l140,QIList(l163,l321,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l200,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l199,l3),l3),l3),l3),l3,l3),QIList(l141,l191,QIList(l101,QIList(l5,QIList(l204,l316,l3),QIList(l161,QIList(l127,"(function(){",l126,QIList(l138,QIList(l162,l316,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l137,l191,QIList(l101,QIList(l5,QIList(l322,l3),QIList(l161,QIList(l251,QIList(l101,l43,l3),QIList(l163,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l136,l191,QIList(l101,QIList(l5,QIList(l323,l322,l204,l316,l3),QIList(l161,QIList(l251,QIList(l5,QIList(l203,QIList(l162,l323,l3),l204,QIList(l163,QIList(l16,l3),l3),l3),QIList(l162,l316,l3),l3),QIList(l163,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l128,l191,QIList(l101,QIList(l5,QIList(l102,l204,l321,l3),QIList(l161,QIList(l218,QIList(l163,l102,l3),QIList(l127,QIList(l163,l102,l3),QIList(l230,QIList(l162,l321,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l119,l191,QIList(l101,QIList(l5,QIList(l324,l3),QIList(l161,QIList(l228,QIList(l218,l118,QIList(l106,QIList(l163,l324,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l191,QIList(l101,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l237,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l162,QIList(l289,QIList(l101,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l191,QIList(l101,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l66,QIList(l162,QIList(l289,QIList(l101,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l191,QIList(l101,QIList(l5,QIList(l204,l328,l3),QIList(l234,QIList(QIList(l329,QIList(l160,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l328,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l328,l3),l3),QIList(l291,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l234,QIList(QIList(l102,QIList(l30,l328,l3),l3),QIList(l330,QIList(l33,l328,l3),l3),l3),QIList(l47,QIList(l161,QIList(QIList(l163,l102,l3),QIList(l163,QIList(l16,l3),l3),QIList(l163,l330,l3),l3),l3),l329,l3),QIList(l218,l328,QIList(l35,l328,l3),l3),l3),l3),l3),l3),QIList(l218,l329,QIList(l65,l329,l3),l3),QIList(l161,QIList(l234,QIList(l163,QIList(l72,QIList(l101,l31,l3),l329,l3),l3),QIList(l218,QIList(l162,QIList(l59,QIList(l101,l63,l3),QIList(l72,QIList(l101,l84,l3),l329,l3),QIList(l160,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l191,QIList(l101,QIList(l5,QIList(l331,l332,l204,l316,l3),QIList(l161,QIList(l55,QIList(l230,QIList(l163,l331,l3),QIList(l163,l332,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l191,QIList(l101,QIList(l5,QIList(l321,l204,l316,l3),QIList(l234,QIList(QIList(l330,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l330,l3),QIList(l163,l321,l3),l3),l3),QIList(l162,l316,l3),QIList(l163,l330,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l191,QIList(l101,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l3,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l234,QIList(QIList(l334,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l334,l3),QIList(l163,QIList(l30,l333,l3),l3),l3),l3),QIList(l201,QIList(l163,l334,l3),QIList(l163,l334,l3),QIList(l54,QIList(l162,QIList(l31,l333,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l191,QIList(l101,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l4,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l161,QIList(l201,QIList(l163,QIList(l30,l333,l3),l3),QIList(l53,QIList(l162,QIList(l31,l333,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l191,QIList(l101,QIList(l5,QIList(l321,l204,l335,l3),QIList(l161,QIList(l51,QIList(l163,l321,l3),QIList(l162,QIList(l63,l335,QIList(l161,QIList(QIList(l4,QIList(l291,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l191,QIList(l101,QIList(l5,QIList(l321,l204,l335,l3),QIList(l234,QIList(QIList(l336,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l336,l3),QIList(l163,l321,l3),l3),l3),QIList(l50,QIList(l162,QIList(l72,QIList(l5,QIList(l337,l3),QIList(l201,QIList(l280,QIList(l30,l337,l3),l4,l3),l337,QIList(l161,QIList(QIList(l26,QIList(l163,l336,l3),QIList(l160,QIList(l163,QIList(l30,l337,l3),l3),l3),l3),QIList(l162,QIList(l31,l337,l3),l3),l3),l3),l3),l3),l335,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l191,QIList(l101,QIList(l5,QIList(l204,l335,l3),QIList(l201,QIList(l12,l335,l3),l3,QIList(l201,QIList(l280,QIList(l32,l335,l3),l4,l3),QIList(l161,QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),l3),QIList(l161,QIList(l201,QIList(l163,QIList(l32,l335,l3),l3),QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),QIList(l50,QIList(l162,QIList(l31,l335,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l191,QIList(l101,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l339,QIList(l16,l3),l3),QIList(l340,QIList(l39,l338,l3),l3),QIList(l341,QIList(l40,l338,l3),l3),QIList(l332,QIList(l41,l338,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l340,l3),0,l3),QIList(QIList(l163,l339,l3),QIList(l163,l341,l3),l3),l3),QIList(l225,QIList(l266,QIList(l163,l340,l3),QIList(l163,l339,l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l45,QIList(l163,l340,l3),l3),l3),QIList(l163,l332,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l191,QIList(l101,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l340,QIList(l39,l338,l3),l3),QIList(l342,QIList(l16,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l342,l3),QIList(l163,QIList(l40,l338,l3),l3),l3),QIList(QIList(l163,l340,l3),l3,l3),l3),QIList(l225,QIList(l163,l342,l3),QIList(l218,QIList(l163,l340,l3),QIList(l30,QIList(l163,l342,l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l163,l342,l3),QIList(l31,QIList(l163,l342,l3),l3),l3),l3),QIList(l163,QIList(l41,l338,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l191,QIList(l101,QIList(l5,QIList(l314,l343,l3),QIList(l161,QIList(l218,QIList(l163,l343,l3),QIList(l28,QIList(l163,l314,l3),QIList(l163,l343,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l191,QIList(l101,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l61,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l191,QIList(l101,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l60,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l225,QIList(l163,l345,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l191,QIList(l101,QIList(l5,QIList(l203,l330,l3),QIList(l161,QIList(l241,l3,QIList(l163,l330,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l276,QIList(l160,QIList(l163,l319,l3),l3),QIList(l10,QIList(l163,QIList(l275,l319,l3),l3),QIList(l163,l315,l3),QIList(l162,QIList(l201,QIList(l53,QIList(l283,QIList(l30,l316,l3),l3),QIList(l27,QIList(l12,QIList(l31,l316,l3),l3),l3),l3),QIList(l161,QIList(QIList(l163,QIList(l30,l316,l3),l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,QIList(l31,l316,l3),l3),l3),l3),l3),QIList(l161,QIList(QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l234,QIList(QIList(l314,QIList(l16,"FN",l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l314,l3),QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),QIList(l295,QIList(l163,l314,l3),"fname",QIList(l163,l319,l3),l3),QIList(l163,l314,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l191,QIList(l101,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l191,QIList(l101,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l2,QIList(l195,QIList(l163,l319,l3),l3),l3),QIList(l7,QIList(l18,QIList(l160,QIList(l163,l319,l3),l3),l3),QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),l3,QIList(l230,QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),QIList(l230,QIList(l162,l316,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l191,QIList(l101,QIList(l5,QIList(l315,l204,l316,l3),QIList(l161,QIList(l101,QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l191,QIList(l101,QIList(l5,QIList(l204,l317,l3),QIList(l161,QIList(l228,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l194,QIList(l160,QIList(l163,l318,l3),l3),l3),l3),l3),l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l228,QIList(l190,QIList(l160,QIList(l163,l319,l3),l3),QIList(l160,QIList(l101,QIList(l5,QIList(l163,QIList(l72,QIList(l101,QIList(l5,QIList(l314,l3),QIList(l201,QIList(l280,l314,QIList(l160,l309,l3),l3),QIList(l160,l204,l3),l314,l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3);
7887 l120.fvalue(pv, l309);
7888 l120.fvalue(pv, l308);
7889 l120.fvalue(pv, l307);
7890 l120.fvalue(pv, l306);
7891 l120.fvalue(pv, l305);
7892 l120.fvalue(pv, l304);
7893 l120.fvalue(pv, l303);
7894 l120.fvalue(pv, l302);
7895 l120.fvalue(pv, l301);
7896 l120.fvalue(pv, l300);
7897 l120.fvalue(pv, l299);
7898 l120.fvalue(pv, l298);
7899 l120.fvalue(pv, l297);
7900 l120.fvalue(pv, l296);
7901 l120.fvalue(pv, l295);
7902 l120.fvalue(pv, l294);
7903 l120.fvalue(pv, l293);
7904 l120.fvalue(pv, l292);
7905 l120.fvalue(pv, l291);
7906 l120.fvalue(pv, l290);
7907 l120.fvalue(pv, l289);
7908 l120.fvalue(pv, l288);
7909 l120.fvalue(pv, l287);
7910 l120.fvalue(pv, l286);
7911 l120.fvalue(pv, l285);
7912 l120.fvalue(pv, l284);
7913 l120.fvalue(pv, l283);
7914 l120.fvalue(pv, l282);
7915 l120.fvalue(pv, l281);
7916 l120.fvalue(pv, l280);
7917 l120.fvalue(pv, l279);
7918 l120.fvalue(pv, l278);
7919 l120.fvalue(pv, l277);
7920 l120.fvalue(pv, l276);
7921 l120.fvalue(pv, l275);
7922 l120.fvalue(pv, l274);
7923 l120.fvalue(pv, l273);
7924 l120.fvalue(pv, l272);
7925 l120.fvalue(pv, l271);
7926 l120.fvalue(pv, l270);
7927 l120.fvalue(pv, l269);
7928 l120.fvalue(pv, l268);
7929 l120.fvalue(pv, l267);
7930 l120.fvalue(pv, l266);
7931 l120.fvalue(pv, l265);
7932 l120.fvalue(pv, l264);
7933 l120.fvalue(pv, l263);
7934 l120.fvalue(pv, l262);
7935 l120.fvalue(pv, l261);
7936 l120.fvalue(pv, l260);
7937 l120.fvalue(pv, l259);
7938 l120.fvalue(pv, l258);
7939 l120.fvalue(pv, l257);
7940 l120.fvalue(pv, l256);
7941 l120.fvalue(pv, l255);
7942 l120.fvalue(pv, l254);
7943 l120.fvalue(pv, l253);
7944 l120.fvalue(pv, l252);
7945 l120.fvalue(pv, l251);
7946 l120.fvalue(pv, l250);
7947 l120.fvalue(pv, l249);
7948 l120.fvalue(pv, l248);
7949 l120.fvalue(pv, l247);
7950 l120.fvalue(pv, l246);
7951 l120.fvalue(pv, l245);
7952 l120.fvalue(pv, l244);
7953 l120.fvalue(pv, l243);
7954 l120.fvalue(pv, l242);
7955 l120.fvalue(pv, l241);
7956 l120.fvalue(pv, l240);
7957 l120.fvalue(pv, l239);
7958 l120.fvalue(pv, l238);
7959 l120.fvalue(pv, l237);
7960 l120.fvalue(pv, l236);
7961 l120.fvalue(pv, l235);
7962 l120.fvalue(pv, l234);
7963 l120.fvalue(pv, l233);
7964 l120.fvalue(pv, l232);
7965 l120.fvalue(pv, l231);
7966 l120.fvalue(pv, l230);
7967 l120.fvalue(pv, l229);
7968 l120.fvalue(pv, l228);
7969 l120.fvalue(pv, l227);
7970 l120.fvalue(pv, l226);
7971 l120.fvalue(pv, l225);
7972 l120.fvalue(pv, l224);
7973 l120.fvalue(pv, l223);
7974 l120.fvalue(pv, l222);
7975 l120.fvalue(pv, l221);
7976 l120.fvalue(pv, l220);
7977 l120.fvalue(pv, l219);
7978 l120.fvalue(pv, l218);
7979 l120.fvalue(pv, l217);
7980 l120.fvalue(pv, l216);
7981 l120.fvalue(pv, l215);
7982 l120.fvalue(pv, l214);
7983 l120.fvalue(pv, l213);
7984 l120.fvalue(pv, l212);
7985 l120.fvalue(pv, l211);
7986 l120.fvalue(pv, l210);
7987 l120.fvalue(pv, l209);
7988 l120.fvalue(pv, l208);
7989 l120.fvalue(pv, l207);
7990 l120.fvalue(pv, l206);
7991 l120.fvalue(pv, l204);
7992 l120.fvalue(pv, l203);
7993 l120.fvalue(pv, l202);
7994 l120.fvalue(pv, l201);
7995 l120.fvalue(pv, l200);
7996 l120.fvalue(pv, l199);
7997 l120.fvalue(pv, l198);
7998 l120.fvalue(pv, l197);
7999 l120.fvalue(pv, l196);
8000 l120.fvalue(pv, l195);
8001 l120.fvalue(pv, l194);
8002 l120.fvalue(pv, l193);
8003 l120.fvalue(pv, l192);
8004 l120.fvalue(pv, l191);
8005 l120.fvalue(pv, l190);
8006 l120.fvalue(pv, l189);
8007 l120.fvalue(pv, l188);
8008 l120.fvalue(pv, l187);
8009 l120.fvalue(pv, l186);
8010 l120.fvalue(pv, l185);
8011 l120.fvalue(pv, l184);
8012 l120.fvalue(pv, l183);
8013 l120.fvalue(pv, l182);
8014 l120.fvalue(pv, l181);
8015 l120.fvalue(pv, l180);
8016 l120.fvalue(pv, l179);
8017 l120.fvalue(pv, l178);
8018 l120.fvalue(pv, l177);
8019 l120.fvalue(pv, l176);
8020 l120.fvalue(pv, l175);
8021 l120.fvalue(pv, l174);
8022 l120.fvalue(pv, l173);
8023 l120.fvalue(pv, l172);
8024 l120.fvalue(pv, l171);
8025 l120.fvalue(pv, l170);
8026 l120.fvalue(pv, l169);
8027 l120.fvalue(pv, l168);
8028 l120.fvalue(pv, l167);
8029 l120.fvalue(pv, l166);
8030 l120.fvalue(pv, l165);
8031 l120.fvalue(pv, l164);
8032 l120.fvalue(pv, l163);
8033 l120.fvalue(pv, l162);
8034 l120.fvalue(pv, l161);
8035 l120.fvalue(pv, l160);
8036 l120.fvalue(pv, l159);
8037 l120.fvalue(pv, l158);
8038 l120.fvalue(pv, l157);
8039 l120.fvalue(pv, l156);
8040 l120.fvalue(pv, l155);
8041 l120.fvalue(pv, l154);
8042 l120.fvalue(pv, l153);
8043 l120.fvalue(pv, l152);
8044 l120.fvalue(pv, l151);
8045 l120.fvalue(pv, l150);
8046 l120.fvalue(pv, l149);
8047 l120.fvalue(pv, l148);
8048 l120.fvalue(pv, l147);
8049 l120.fvalue(pv, l146);
8050 l120.fvalue(pv, l145);
8051 l120.fvalue(pv, l144);
8052 l120.fvalue(pv, l143);
8053 l120.fvalue(pv, l142);
8054 l120.fvalue(pv, l141);
8055 l120.fvalue(pv, l140);
8056 l120.fvalue(pv, l139);
8057 l120.fvalue(pv, l138);
8058 l120.fvalue(pv, l137);
8059 l120.fvalue(pv, l136);
8060 l120.fvalue(pv, l135);
8061 l120.fvalue(pv, l134);
8062 l120.fvalue(pv, l133);
8063 l120.fvalue(pv, l132);
8064 l120.fvalue(pv, l131);
8065 l120.fvalue(pv, l130);
8066 l120.fvalue(pv, l129);
8067 l120.fvalue(pv, l128);
8068 l120.fvalue(pv, l127);
8069 l120.fvalue(pv, l126);
8070 l120.fvalue(pv, l125);
8071 l120.fvalue(pv, l124);
8072 l120.fvalue(pv, l123);
8073 l120.fvalue(pv, l122);
8074 l120.fvalue(pv, l121);
8075 l120.fvalue(pv, l120);
8076 l120.fvalue(pv, l119);
8077 l120.fvalue(pv, l118);
8078 l120.fvalue(pv, l117);
8079 l120.fvalue(pv, l116);
8080 l120.fvalue(pv, l115);
8081 l120.fvalue(pv, l114);
8082 l120.fvalue(pv, l113);
8083 l120.fvalue(pv, l112);
8084 l120.fvalue(pv, l111);
8085 l120.fvalue(pv, l110);
8086 l120.fvalue(pv, l109);
8087 l120.fvalue(pv, l108);
8088 l120.fvalue(pv, l107);
8089 l120.fvalue(pv, l106);
8090 l120.fvalue(pv, l105);
8091 l120.fvalue(pv, l104);
8092 l120.fvalue(pv, l103);
8093 l120.fvalue(pv, l102);
8094 l120.fvalue(pv, l101);
8095 l120.fvalue(pv, l100);
8096 l120.fvalue(pv, l99);
8097 l120.fvalue(pv, l98);
8098 l120.fvalue(pv, l97);
8099 l120.fvalue(pv, l96);
8100 l120.fvalue(pv, l95);
8101 l120.fvalue(pv, l94);
8102 l120.fvalue(pv, l93);
8103 l120.fvalue(pv, l92);
8104 l120.fvalue(pv, l91);
8105 l120.fvalue(pv, l90);
8106 l120.fvalue(pv, l89);
8107 l120.fvalue(pv, l88);
8108 l120.fvalue(pv, l87);
8109 l120.fvalue(pv, l86);
8110 l120.fvalue(pv, l85);
8111 l120.fvalue(pv, l84);
8112 l120.fvalue(pv, l83);
8113 l120.fvalue(pv, l82);
8114 l120.fvalue(pv, l81);
8115 l120.fvalue(pv, l80);
8116 l120.fvalue(pv, l79);
8117 l120.fvalue(pv, l78);
8118 l120.fvalue(pv, l77);
8119 l120.fvalue(pv, l76);
8120 l120.fvalue(pv, l75);
8121 l120.fvalue(pv, l74);
8122 l120.fvalue(pv, l73);
8123 l120.fvalue(pv, l72);
8124 l120.fvalue(pv, l71);
8125 l120.fvalue(pv, l70);
8126 l120.fvalue(pv, l69);
8127 l120.fvalue(pv, l68);
8128 l120.fvalue(pv, l67);
8129 l120.fvalue(pv, l66);
8130 l120.fvalue(pv, l65);
8131 l120.fvalue(pv, l64);
8132 l120.fvalue(pv, l63);
8133 l120.fvalue(pv, l62);
8134 l120.fvalue(pv, l61);
8135 l120.fvalue(pv, l60);
8136 l120.fvalue(pv, l59);
8137 l120.fvalue(pv, l58);
8138 l120.fvalue(pv, l57);
8139 l120.fvalue(pv, l56);
8140 l120.fvalue(pv, l55);
8141 l120.fvalue(pv, l54);
8142 l120.fvalue(pv, l53);
8143 l120.fvalue(pv, l52);
8144 l120.fvalue(pv, l51);
8145 l120.fvalue(pv, l50);
8146 l120.fvalue(pv, l49);
8147 l120.fvalue(pv, l48);
8148 l120.fvalue(pv, l47);
8149 l120.fvalue(pv, l46);
8150 l120.fvalue(pv, l45);
8151 l120.fvalue(pv, l44);
8152 l120.fvalue(pv, l43);
8153 l120.fvalue(pv, l42);
8154 l120.fvalue(pv, l41);
8155 l120.fvalue(pv, l40);
8156 l120.fvalue(pv, l39);
8157 l120.fvalue(pv, l38);
8158 l120.fvalue(pv, l37);
8159 l120.fvalue(pv, l36);
8160 l120.fvalue(pv, l35);
8161 l120.fvalue(pv, l34);
8162 l120.fvalue(pv, l33);
8163 l120.fvalue(pv, l32);
8164 l120.fvalue(pv, l31);
8165 l120.fvalue(pv, l30);
8166 l120.fvalue(pv, l29);
8167 l120.fvalue(pv, l28);
8168 l120.fvalue(pv, l27);
8169 l120.fvalue(pv, l26);
8170 l120.fvalue(pv, l25);
8171 l120.fvalue(pv, l24);
8172 l120.fvalue(pv, l23);
8173 l120.fvalue(pv, l22);
8174 l120.fvalue(pv, l21);
8175 l120.fvalue(pv, l20);
8176 l120.fvalue(pv, l19);
8177 l120.fvalue(pv, l18);
8178 l120.fvalue(pv, l17);
8179 l120.fvalue(pv, l16);
8180 l120.fvalue(pv, l15);
8181 l120.fvalue(pv, l14);
8182 l120.fvalue(pv, l13);
8183 l120.fvalue(pv, l12);
8184 l120.fvalue(pv, l11);
8185 l120.fvalue(pv, l10);
8186 l120.fvalue(pv, l9);
8187 l120.fvalue(pv, l8);
8188 l120.fvalue(pv, l7);
8189 l120.fvalue(pv, l6);
8190 l120.fvalue(pv, l5);
8191 l120.fvalue(pv, l4);
8192 l120.fvalue(pv, l3);
8193 l120.fvalue(pv, l2);
8194 l120.fvalue(pv, l1);
8195 ((l221).value = l311);
8196 ((l181).value = l347);
8197 ((l182).value = 813);
8198 ((l15).value = 207);
8199 return ((l238).value = 280);
8201 ((l222).value = 347);