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: "SOME"};
1375 (l91).fvalue = (function(v157){
1376 ((v157)["fname"] = "SOME");
1378 })((function (values,v151,v152){
1379 checkArgs(arguments, 3);
1382 return (((typeof(v152) == "string")?l4.value: l3.value) !== l3.value ? (function(v153,v154){
1387 if (typeof x1 !== 'number') throw 'Not a number!';
1389 if (typeof x2 !== 'number') throw 'Not a number!';
1390 return (x1<x2?l4.value: l3.value);
1392 ((v151)(pv, (function(){
1395 if (typeof string != 'string')
1396 throw 'The value ' + string + ' is not a type string.';
1397 if (typeof index != 'number')
1398 throw 'The value ' + index + ' is not a type number.';
1399 return string.charCodeAt(index);
1400 })()) !== l3.value ? (function(){
1402 throw ({type: 'block', id: 68, values: l4.value, message: 'Return from unknown block SOME.'})
1404 (v153 = (function(){
1406 if (typeof x1 !== 'number') throw 'Not a number!';
1408 if (typeof x2 !== 'number') throw 'Not a number!';
1415 })(0,l70.fvalue(pv, v152)) : (l58.fvalue(pv, v152) !== l3.value ? (function(){
1417 return (function(v155,v156){
1419 while(v155 !== l3.value){
1420 (v156 = (function(){
1422 return tmp === l3.value? l3.value: tmp.car;
1425 ((v151)(pv, v156) !== l3.value ? (function(){
1427 throw ({type: 'block', id: 70, values: l4.value, message: 'Return from unknown block NIL.'})
1431 (v155 = (function(){
1433 return tmp === l3.value? l3.value: tmp.cdr;
1441 if (cf.type == 'block' && cf.id == 70)
1442 return values.apply(this, forcemv(cf.values));
1447 throw "Unknown sequence.";
1451 if (cf.type == 'block' && cf.id == 68)
1452 return values.apply(this, forcemv(cf.values));
1460 var l92 = {name: "EVERY"};
1462 (l92).fvalue = (function(v164){
1463 ((v164)["fname"] = "EVERY");
1465 })((function (values,v158,v159){
1466 checkArgs(arguments, 3);
1469 return (((typeof(v159) == "string")?l4.value: l3.value) !== l3.value ? (function(v160,v161){
1474 if (typeof x1 !== 'number') throw 'Not a number!';
1476 if (typeof x2 !== 'number') throw 'Not a number!';
1477 return (x1<x2?l4.value: l3.value);
1479 ((v158)(pv, (function(){
1482 if (typeof string != 'string')
1483 throw 'The value ' + string + ' is not a type string.';
1484 if (typeof index != 'number')
1485 throw 'The value ' + index + ' is not a type number.';
1486 return string.charCodeAt(index);
1487 })()) !== l3.value ? l3.value : (function(){
1489 throw ({type: 'block', id: 71, values: l3.value, message: 'Return from unknown block EVERY.'})
1491 (v160 = (function(){
1493 if (typeof x1 !== 'number') throw 'Not a number!';
1495 if (typeof x2 !== 'number') throw 'Not a number!';
1502 })(0,l70.fvalue(pv, v159)) : (l58.fvalue(pv, v159) !== l3.value ? (function(){
1504 return (function(v162,v163){
1506 while(v162 !== l3.value){
1507 (v163 = (function(){
1509 return tmp === l3.value? l3.value: tmp.car;
1512 ((v158)(pv, v163) !== l3.value ? l3.value : (function(){
1514 throw ({type: 'block', id: 73, values: l3.value, message: 'Return from unknown block NIL.'})
1518 (v162 = (function(){
1520 return tmp === l3.value? l3.value: tmp.cdr;
1528 if (cf.type == 'block' && cf.id == 73)
1529 return values.apply(this, forcemv(cf.values));
1534 throw "Unknown sequence.";
1538 if (cf.type == 'block' && cf.id == 71)
1539 return values.apply(this, forcemv(cf.values));
1547 var l93 = {name: "ASSOC"};
1549 (l93).fvalue = (function(v167){
1550 ((v167)["fname"] = "ASSOC");
1552 })((function (values,v165,v166){
1553 checkArgs(arguments, 3);
1558 while(v166 !== l3.value){
1559 (l26.fvalue(pv, v165, l32.fvalue(pv, v166)) !== l3.value ? (function(){
1560 throw ({type: 'block', id: 75, values: l3.value, message: 'Return from unknown block NIL.'})
1561 })() : (v166 = (function(){
1563 return tmp === l3.value? l3.value: tmp.cdr;
1569 if (cf.type == 'block' && cf.id == 75)
1577 return tmp === l3.value? l3.value: tmp.car;
1583 var l94 = {name: "STRING"};
1585 (l94).fvalue = (function(v169){
1586 ((v169)["fname"] = "STRING");
1588 })((function (values,v168){
1589 checkArgs(arguments, 2);
1591 return (((typeof(v168) == "string")?l4.value: l3.value) !== l3.value ? v168 : (((function(){
1593 return (typeof tmp == 'object' && 'name' in tmp);
1594 })()?l4.value: l3.value) !== l3.value ? (v168).name : (function(){
1596 if (typeof x != 'number')
1597 throw 'The value ' + x + ' is not a type number.';
1598 return String.fromCharCode(x);
1604 var l95 = {name: "STRING="};
1606 (l95).fvalue = (function(v172){
1607 ((v172)["fname"] = "STRING=");
1609 })((function (values,v170,v171){
1610 checkArgs(arguments, 3);
1612 return ((v170 == v171)?l4.value: l3.value);
1617 var l96 = {name: "FDEFINITION"};
1619 (l96).fvalue = (function(v174){
1620 ((v174)["fname"] = "FDEFINITION");
1622 })((function (values,v173){
1623 checkArgs(arguments, 2);
1625 return (((typeof v173 == 'function')?l4.value: l3.value) !== l3.value ? v173 : (((function(){
1627 return (typeof tmp == 'object' && 'name' in tmp);
1628 })()?l4.value: l3.value) !== l3.value ? (function(){
1630 var func = symbol.fvalue;
1631 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1634 throw "Invalid function";
1640 var l97 = {name: "DISASSEMBLE"};
1641 var l98 = {name: "WRITE-LINE"};
1643 (l97).fvalue = (function(v176){
1644 ((v176)["fname"] = "DISASSEMBLE");
1646 })((function (values,v175){
1647 checkArgs(arguments, 2);
1649 l98.fvalue(pv, (l96.fvalue(pv, v175)).toString());
1655 var l99 = {name: "DOCUMENTATION"};
1656 var l100 = {name: "FUNCTION"};
1657 var l101 = {name: "VARIABLE"};
1659 (l99).fvalue = (function(v181){
1660 ((v181)["fname"] = "DOCUMENTATION");
1663 var func = (function (values,v177,v178){
1664 checkArgs(arguments, 3);
1666 return (function(v179){
1667 return (l26.fvalue(pv, v179, l100) !== l3.value ? (function(v180){
1669 var tmp = (v180)["docstring"];
1670 return tmp == undefined? l3.value: tmp ;
1672 })(l96.fvalue(pv, v177)) : (l26.fvalue(pv, v179, l101) !== l3.value ? (function(){
1675 return (typeof tmp == 'object' && 'name' in tmp);
1676 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
1677 throw "Wrong argument type! it should be a symbol";
1680 var tmp = (v177)["vardoc"];
1681 return tmp == undefined? l3.value: tmp ;
1684 throw "ECASE expression failed.";
1689 func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
1694 var l102 = {name: "*PACKAGE-LIST*"};
1696 (((l102.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l102).value = l3.value));
1699 var l103 = {name: "LIST-ALL-PACKAGES"};
1701 (l103).fvalue = (function(v182){
1702 ((v182)["fname"] = "LIST-ALL-PACKAGES");
1704 })((function (values){
1705 checkArgsAtMost(arguments, 1);
1709 var value = symbol.value;
1710 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1717 var l104 = {name: "MAKE-PACKAGE"};
1718 var l105 = {name: "FIND-PACKAGE-OR-FAIL"};
1720 (l104).fvalue = (function(v187){
1721 ((v187)["fname"] = "MAKE-PACKAGE");
1723 })((function (values,v183,v184){
1724 checkArgsAtLeast(arguments, 2);
1725 checkArgsAtMost(arguments, 3);
1726 switch(arguments.length-1){
1732 return (function(v185,v186){
1733 ((v185)["packageName"] = v183);
1734 ((v185)["symbols"] = {});
1735 ((v185)["exports"] = {});
1736 ((v185)["use"] = v186);
1737 ((l102).value = ({car: v185, cdr: (function(){
1739 var value = symbol.value;
1740 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1744 })({},l72.fvalue(pv, (function(){
1746 var func = symbol.fvalue;
1747 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1754 var l106 = {name: "PACKAGEP"};
1756 (l106).fvalue = (function(v189){
1757 ((v189)["fname"] = "PACKAGEP");
1759 })((function (values,v188){
1760 checkArgs(arguments, 2);
1762 return (((typeof (v188) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v188))?l4.value: l3.value) : l3.value);
1767 var l107 = {name: "FIND-PACKAGE"};
1768 var l108 = {name: "PACKAGE-NAME"};
1770 (l107).fvalue = (function(v194){
1771 ((v194)["fname"] = "FIND-PACKAGE");
1773 })((function (values,v190){
1774 checkArgs(arguments, 2);
1777 (l106.fvalue(pv, v190) !== l3.value ? (function(){
1779 throw ({type: 'block', id: 84, values: v190, message: 'Return from unknown block FIND-PACKAGE.'})
1781 return (function(v191){
1784 return (function(v192,v193){
1786 while(v192 !== l3.value){
1787 (v193 = (function(){
1789 return tmp === l3.value? l3.value: tmp.car;
1792 (l95.fvalue(pv, l108.fvalue(pv, v193), v191) !== l3.value ? (function(){
1794 throw ({type: 'block', id: 85, values: v193, message: 'Return from unknown block NIL.'})
1798 (v192 = (function(){
1800 return tmp === l3.value? l3.value: tmp.cdr;
1807 var value = symbol.value;
1808 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1813 if (cf.type == 'block' && cf.id == 85)
1814 return values.apply(this, forcemv(cf.values));
1819 })(l94.fvalue(pv, v190));
1822 if (cf.type == 'block' && cf.id == 84)
1823 return values.apply(this, forcemv(cf.values));
1832 (l105).fvalue = (function(v197){
1833 ((v197)["fname"] = "FIND-PACKAGE-OR-FAIL");
1835 })((function (values,v195){
1836 checkArgs(arguments, 2);
1838 return (function(v196){
1839 return (v196 !== l3.value ? v196 : (function(){
1840 throw "Package unknown.";
1842 })(l107.fvalue(pv, v195));
1848 (l108).fvalue = (function(v200){
1849 ((v200)["fname"] = "PACKAGE-NAME");
1851 })((function (values,v198){
1852 checkArgs(arguments, 2);
1854 return (function(v199){
1856 var tmp = (v199)["packageName"];
1857 return tmp == undefined? l3.value: tmp ;
1859 })(l105.fvalue(pv, v198));
1864 var l109 = {name: "%PACKAGE-SYMBOLS"};
1866 (l109).fvalue = (function(v203){
1867 ((v203)["fname"] = "%PACKAGE-SYMBOLS");
1869 })((function (values,v201){
1870 checkArgs(arguments, 2);
1872 return (function(v202){
1874 var tmp = (v202)["symbols"];
1875 return tmp == undefined? l3.value: tmp ;
1877 })(l105.fvalue(pv, v201));
1882 var l110 = {name: "PACKAGE-USE-LIST"};
1884 (l110).fvalue = (function(v206){
1885 ((v206)["fname"] = "PACKAGE-USE-LIST");
1887 })((function (values,v204){
1888 checkArgs(arguments, 2);
1890 return (function(v205){
1892 var tmp = (v205)["use"];
1893 return tmp == undefined? l3.value: tmp ;
1895 })(l105.fvalue(pv, v204));
1900 var l111 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
1902 (l111).fvalue = (function(v209){
1903 ((v209)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
1905 })((function (values,v207){
1906 checkArgs(arguments, 2);
1908 return (function(v208){
1910 var tmp = (v208)["exports"];
1911 return tmp == undefined? l3.value: tmp ;
1913 })(l105.fvalue(pv, v207));
1918 var l112 = {name: "*COMMON-LISP-PACKAGE*"};
1920 (((l112.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l112).value = l104.fvalue(pv, "CL")));
1923 var l113 = {name: "*USER-PACKAGE*"};
1925 (((l113.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l113).value = l104.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){
1927 var value = symbol.value;
1928 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1933 var l114 = {name: "*KEYWORD-PACKAGE*"};
1935 (((l114.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l114).value = l104.fvalue(pv, "KEYWORD")));
1938 var l115 = {name: "KEYWORDP"};
1939 var l116 = {name: "SYMBOL-PACKAGE"};
1941 (l115).fvalue = (function(v211){
1942 ((v211)["fname"] = "KEYWORDP");
1944 })((function (values,v210){
1945 checkArgs(arguments, 2);
1947 return (((function(){
1949 return (typeof tmp == 'object' && 'name' in tmp);
1950 })()?l4.value: l3.value) !== l3.value ? ((l116.fvalue(pv, v210) === (function(){
1952 var value = symbol.value;
1953 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1955 })())?l4.value: l3.value) : l3.value);
1960 var l117 = {name: "*PACKAGE*"};
1962 (((l117.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l117).value = (function(){
1964 var value = symbol.value;
1965 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1970 var l118 = {name: "IN-PACKAGE"};
1972 var l119 = {name: "%INTERN-SYMBOL"};
1974 (l119).fvalue = (function(v214){
1975 ((v214)["fname"] = "%INTERN-SYMBOL");
1977 })((function (values,v212){
1978 checkArgs(arguments, 2);
1980 return (function(v213){
1981 ((v212)["package"] = (function(){
1983 var value = symbol.value;
1984 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1987 return ((v213)[(v212).name] = v212);
1988 })(l109.fvalue(pv, (function(){
1990 var value = symbol.value;
1991 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1998 var l120 = {name: "%FIND-SYMBOL"};
2000 (l120).fvalue = (function(v222){
2001 ((v222)["fname"] = "%FIND-SYMBOL");
2003 })((function (values,v215,v216){
2004 checkArgs(arguments, 3);
2007 return (function(v217){
2008 return (function(v218){
2009 return ((((v215) in (v218))?l4.value: l3.value) !== l3.value ? ({car: (function(){
2010 var tmp = (v218)[v215];
2011 return tmp == undefined? l3.value: tmp ;
2012 })(), cdr: l4.value}) : (function(){
2013 return (function(v219,v220){
2015 while(v219 !== l3.value){
2016 (v220 = (function(){
2018 return tmp === l3.value? l3.value: tmp.car;
2022 return ((((v215) in (v221))?l4.value: l3.value) !== l3.value ? (function(){
2024 throw ({type: 'block', id: 93, values: ({car: (function(){
2025 var tmp = (v221)[v215];
2026 return tmp == undefined? l3.value: tmp ;
2027 })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'})
2029 })(l111.fvalue(pv, v220));
2032 (v219 = (function(){
2034 return tmp === l3.value? l3.value: tmp.cdr;
2038 return ({car: l3.value, cdr: l3.value});
2039 })(l110.fvalue(pv, v217),l3.value);
2041 })(l109.fvalue(pv, v217));
2042 })(l105.fvalue(pv, v216));
2045 if (cf.type == 'block' && cf.id == 93)
2046 return values.apply(this, forcemv(cf.values));
2054 var l121 = {name: "FIND-SYMBOL"};
2056 (l121).fvalue = (function(v225){
2057 ((v225)["fname"] = "FIND-SYMBOL");
2059 })((function (values,v223,v224){
2060 checkArgsAtLeast(arguments, 2);
2061 checkArgsAtMost(arguments, 3);
2062 switch(arguments.length-1){
2066 var value = symbol.value;
2067 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2074 var tmp = l120.fvalue(pv, v223, v224);
2075 return tmp === l3.value? l3.value: tmp.car;
2081 var l122 = {name: "INTERN"};
2082 var l123 = {name: "EXPORT"};
2084 (l122).fvalue = (function(v232){
2085 ((v232)["fname"] = "INTERN");
2087 })((function (values,v226,v227){
2088 checkArgsAtLeast(arguments, 2);
2089 checkArgsAtMost(arguments, 3);
2090 switch(arguments.length-1){
2094 var value = symbol.value;
2095 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2101 return (function(v228){
2102 return (function(v229){
2103 return ((function(){
2105 return tmp === l3.value? l3.value: tmp.cdr;
2106 })() !== l3.value ? (function(){
2108 return tmp === l3.value? l3.value: tmp.car;
2109 })() : (function(v230){
2111 var tmp = (v230)[v226];
2112 return tmp == undefined? l3.value: tmp ;
2114 return (function(v231){
2115 ((v231)["package"] = v228);
2116 (((v228 === (function(){
2118 var value = symbol.value;
2119 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2121 })())?l4.value: l3.value) !== l3.value ? (function(){
2122 ((v231)["value"] = v231);
2123 return l123.fvalue(pv, l43.fvalue(pv, v231), v228);
2125 return ((v230)[v226] = v231);
2128 if (typeof name != 'string')
2129 throw 'The value ' + name + ' is not a type string.';
2130 return ({name: name});
2132 })(l109.fvalue(pv, v228)));
2133 })(l120.fvalue(pv, v226, v228));
2134 })(l105.fvalue(pv, v227));
2140 (l116).fvalue = (function(v234){
2141 ((v234)["fname"] = "SYMBOL-PACKAGE");
2143 })((function (values,v233){
2144 checkArgs(arguments, 2);
2148 return (typeof tmp == 'object' && 'name' in tmp);
2149 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
2150 throw "it is not a symbol";
2153 var tmp = (v233)["package"];
2154 return tmp == undefined? l3.value: tmp ;
2161 (l123).fvalue = (function(v240){
2162 ((v240)["fname"] = "EXPORT");
2164 })((function (values,v235,v236){
2165 checkArgsAtLeast(arguments, 2);
2166 checkArgsAtMost(arguments, 3);
2167 switch(arguments.length-1){
2171 var value = symbol.value;
2172 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2178 return (function(v237){
2180 return (function(v238,v239){
2182 while(v238 !== l3.value){
2183 (v239 = (function(){
2185 return tmp === l3.value? l3.value: tmp.car;
2188 ((v237)[(v239).name] = v239);
2191 (v238 = (function(){
2193 return tmp === l3.value? l3.value: tmp.cdr;
2200 })(l111.fvalue(pv, v236));
2205 var l124 = {name: "GET-UNIVERSAL-TIME"};
2207 (l124).fvalue = (function(v241){
2208 ((v241)["fname"] = "GET-UNIVERSAL-TIME");
2210 })((function (values){
2211 checkArgsAtMost(arguments, 1);
2214 var x1 = (Math.round(new Date() / 1000));
2215 if (typeof x1 !== 'number') throw 'Not a number!';
2216 var x2 = 2208988800;
2217 if (typeof x2 !== 'number') throw 'Not a number!';
2224 var l125 = {name: "*NEWLINE*"};
2226 (((l125.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l125).value = l94.fvalue(pv, l75.fvalue(pv, 10))));
2229 var l126 = {name: "CONCAT"};
2231 (l126).fvalue = (function(v243){
2232 ((v243)["fname"] = "CONCAT");
2234 })((function (values){
2236 for (var i = arguments.length-1; i>=1; i--)
2237 v242 = {car: arguments[i], cdr:
2240 return l59.fvalue(values, (function(){
2242 var func = symbol.fvalue;
2243 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2250 var l127 = {name: "CONCATF"};
2252 var l128 = {name: "JOIN"};
2254 (l128).fvalue = (function(v246){
2255 ((v246)["fname"] = "JOIN");
2257 })((function (values,v244,v245){
2258 checkArgsAtLeast(arguments, 2);
2259 checkArgsAtMost(arguments, 3);
2260 switch(arguments.length-1){
2266 return (l12.fvalue(pv, v244) !== l3.value ? "" : (l12.fvalue(pv, (function(){
2268 return tmp === l3.value? l3.value: tmp.cdr;
2269 })()) !== l3.value ? (function(){
2271 return tmp === l3.value? l3.value: tmp.car;
2272 })() : l126.fvalue(values, (function(){
2274 return tmp === l3.value? l3.value: tmp.car;
2275 })(), v245, l128.fvalue(pv, (function(){
2277 return tmp === l3.value? l3.value: tmp.cdr;
2283 var l129 = {name: "JOIN-TRAILING"};
2285 (l129).fvalue = (function(v249){
2286 ((v249)["fname"] = "JOIN-TRAILING");
2288 })((function (values,v247,v248){
2289 checkArgsAtLeast(arguments, 2);
2290 checkArgsAtMost(arguments, 3);
2291 switch(arguments.length-1){
2297 return (l12.fvalue(pv, v247) !== l3.value ? "" : l126.fvalue(values, (function(){
2299 return tmp === l3.value? l3.value: tmp.car;
2300 })(), v248, l129.fvalue(pv, (function(){
2302 return tmp === l3.value? l3.value: tmp.cdr;
2308 var l130 = {name: "MAPCONCAT"};
2310 (l130).fvalue = (function(v252){
2311 ((v252)["fname"] = "MAPCONCAT");
2313 })((function (values,v250,v251){
2314 checkArgs(arguments, 3);
2316 return l128.fvalue(values, l72.fvalue(pv, v250, v251));
2321 var l131 = {name: "VECTOR-TO-LIST"};
2323 (l131).fvalue = (function(v258){
2324 ((v258)["fname"] = "VECTOR-TO-LIST");
2326 })((function (values,v253){
2327 checkArgs(arguments, 2);
2329 return (function(v254,v255){
2331 return (function(v256,v257){
2335 if (typeof x1 !== 'number') throw 'Not a number!';
2337 if (typeof x2 !== 'number') throw 'Not a number!';
2338 return (x1<x2?l4.value: l3.value);
2341 (v254 = ({car: (function(){
2342 var x = (v253)[v256];
2343 if (x === undefined) throw 'Out of range';
2348 (v256 = (function(){
2350 if (typeof x1 !== 'number') throw 'Not a number!';
2352 if (typeof x2 !== 'number') throw 'Not a number!';
2357 return l65.fvalue(values, v254);
2360 })(l3.value,l70.fvalue(pv, v253));
2365 var l132 = {name: "LIST-TO-VECTOR"};
2367 (l132).fvalue = (function(v264){
2368 ((v264)["fname"] = "LIST-TO-VECTOR");
2370 })((function (values,v259){
2371 checkArgs(arguments, 2);
2373 return (function(v260,v261){
2375 return (function(v262,v263){
2377 while(v262 !== l3.value){
2378 (v263 = (function(){
2380 return tmp === l3.value? l3.value: tmp.car;
2386 if (i < 0 || i >= x.length) throw 'Out of range';
2389 (v261 = (function(){
2391 if (typeof x1 !== 'number') throw 'Not a number!';
2393 if (typeof x2 !== 'number') throw 'Not a number!';
2398 (v262 = (function(){
2400 return tmp === l3.value? l3.value: tmp.cdr;
2409 for (var i = 0; i < l70.fvalue(pv, v259); i++)
2417 var l133 = {name: "VALUES-LIST"};
2419 (l133).fvalue = (function(v266){
2420 ((v266)["fname"] = "VALUES-LIST");
2422 })((function (values,v265){
2423 checkArgs(arguments, 2);
2425 return values.apply(this, l132.fvalue(pv, v265));
2430 var l134 = {name: "VALUES"};
2432 (l134).fvalue = (function(v268){
2433 ((v268)["fname"] = "VALUES");
2435 })((function (values){
2437 for (var i = arguments.length-1; i>=1; i--)
2438 v267 = {car: arguments[i], cdr:
2441 return l133.fvalue(values, v267);
2446 var l135 = {name: "MULTIPLE-VALUE-BIND"};
2448 var l136 = {name: "MULTIPLE-VALUE-LIST"};
2450 var l137 = {name: "INDENT"};
2452 (l137).fvalue = (function(v275){
2453 ((v275)["fname"] = "INDENT");
2455 })((function (values){
2457 for (var i = arguments.length-1; i>=1; i--)
2458 v269 = {car: arguments[i], cdr:
2461 return (function(v270){
2462 return (function(v271,v272,v273){
2463 (l79.fvalue(pv, l70.fvalue(pv, v270)) !== l3.value ? (v271 = l126.fvalue(pv, v271, " ")) : l3.value);
2468 if (typeof x1 !== 'number') throw 'Not a number!';
2470 if (typeof x2 !== 'number') throw 'Not a number!';
2471 return (x1<x2?l4.value: l3.value);
2474 return (v271 = l126.fvalue(pv, v271, v274));
2475 })(((l77.fvalue(pv, (function(){
2478 if (typeof string != 'string')
2479 throw 'The value ' + string + ' is not a type string.';
2480 if (typeof index != 'number')
2481 throw 'The value ' + index + ' is not a type number.';
2482 return string.charCodeAt(index);
2483 })(), 10) !== l3.value ? ((function(){
2485 if (typeof x1 !== 'number') throw 'Not a number!';
2486 var x2 = l23.fvalue(pv, v273);
2487 if (typeof x2 !== 'number') throw 'Not a number!';
2488 return (x1<x2?l4.value: l3.value);
2489 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
2491 var index = l22.fvalue(pv, v272);
2492 if (typeof string != 'string')
2493 throw 'The value ' + string + ' is not a type string.';
2494 if (typeof index != 'number')
2495 throw 'The value ' + index + ' is not a type number.';
2496 return string.charCodeAt(index);
2497 })(), 10)) : l3.value) : l3.value) !== l3.value ? l126.fvalue(pv, l94.fvalue(pv, 10), " ") : l94.fvalue(pv, (function(){
2500 if (typeof string != 'string')
2501 throw 'The value ' + string + ' is not a type string.';
2502 if (typeof index != 'number')
2503 throw 'The value ' + index + ' is not a type number.';
2504 return string.charCodeAt(index);
2506 (v272 = (function(){
2508 if (typeof x1 !== 'number') throw 'Not a number!';
2510 if (typeof x2 !== 'number') throw 'Not a number!';
2517 })("",0,l70.fvalue(pv, v270));
2518 })(l128.fvalue(pv, v269));
2524 (l17).fvalue = (function(v279){
2525 ((v279)["fname"] = "INTEGER-TO-STRING");
2527 })((function (values,v276){
2528 checkArgs(arguments, 2);
2530 return (l24.fvalue(pv, v276) !== l3.value ? "0" : (l80.fvalue(pv, v276) !== l3.value ? l126.fvalue(values, "-", l17.fvalue(pv, (function(){
2532 if (typeof x1 !== 'number') throw 'Not a number!';
2534 if (typeof x2 !== 'number') throw 'Not a number!';
2536 })())) : (function(v277){
2539 while(l27.fvalue(pv, l24.fvalue(pv, v276)) !== l3.value){
2540 (v277 = ({car: (function(){
2543 if (typeof x != 'number')
2544 throw 'The value ' + x + ' is not a type number.';
2545 if (typeof y != 'number')
2546 throw 'The value ' + y + ' is not a type number.';
2549 (v276 = l25.fvalue(pv, v276, 10));
2553 return l128.fvalue(values, l72.fvalue(pv, (function (values,v278){
2554 checkArgs(arguments, 2);
2555 return l94.fvalue(values, (function(){
2556 var string = "0123456789";
2558 if (typeof string != 'string')
2559 throw 'The value ' + string + ' is not a type string.';
2560 if (typeof index != 'number')
2561 throw 'The value ' + index + ' is not a type number.';
2562 return string.charCodeAt(index);
2570 var l138 = {name: "JS!BOOL"};
2571 var l139 = {name: "LS-COMPILE"};
2573 (l138).fvalue = (function(v281){
2574 ((v281)["fname"] = "JS!BOOL");
2576 })((function (values,v280){
2577 checkArgs(arguments, 2);
2579 return l126.fvalue(values, "(", v280, "?", l139.fvalue(pv, l4.value), ": ", l139.fvalue(pv, l3.value), ")");
2584 var l140 = {name: "JS!SELFCALL"};
2586 var l141 = {name: "PRIN1-TO-STRING"};
2587 var l142 = {name: "ESCAPE-STRING"};
2589 (l141).fvalue = (function(v287){
2590 ((v287)["fname"] = "PRIN1-TO-STRING");
2592 })((function (values,v282){
2593 checkArgs(arguments, 2);
2595 return (((function(){
2597 return (typeof tmp == 'object' && 'name' in tmp);
2598 })()?l4.value: l3.value) !== l3.value ? ((function(){
2599 var tmp = l120.fvalue(pv, (v282).name, (function(){
2601 var value = symbol.value;
2602 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2605 return tmp === l3.value? l3.value: tmp.cdr;
2606 })() !== l3.value ? (v282).name : (function(v283,v284){
2607 return l126.fvalue(values, (l12.fvalue(pv, v283) !== l3.value ? "#" : (((v283 === l107.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l108.fvalue(pv, v283))), ":", v284);
2608 })(l116.fvalue(pv, v282),(v282).name)) : (l78.fvalue(pv, v282) !== l3.value ? l17.fvalue(values, v282) : (((typeof(v282) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v282), "\"") : (((typeof v282 == 'function')?l4.value: l3.value) !== l3.value ? (function(v285){
2609 return (v285 !== l3.value ? l126.fvalue(values, "#<FUNCTION ", v285, ">") : l126.fvalue(values, "#<FUNCTION>"));
2611 var tmp = (v282)["fname"];
2612 return tmp == undefined? l3.value: tmp ;
2613 })()) : (l58.fvalue(pv, v282) !== l3.value ? l126.fvalue(values, "(", l129.fvalue(pv, l72.fvalue(pv, (function(){
2615 var func = symbol.fvalue;
2616 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2618 })(), l84.fvalue(pv, v282)), " "), (function(v286){
2619 return (l12.fvalue(pv, (function(){
2621 return tmp === l3.value? l3.value: tmp.cdr;
2622 })()) !== l3.value ? l141.fvalue(pv, (function(){
2624 return tmp === l3.value? l3.value: tmp.car;
2625 })()) : l126.fvalue(pv, l141.fvalue(pv, (function(){
2627 return tmp === l3.value? l3.value: tmp.car;
2628 })()), " . ", l141.fvalue(pv, (function(){
2630 return tmp === l3.value? l3.value: tmp.cdr;
2632 })(l83.fvalue(pv, v282)), ")") : (((function(){
2634 return typeof x === 'object' && 'length' in x;
2635 })()?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "#", l141.fvalue(pv, l131.fvalue(pv, v282))) : (l106.fvalue(pv, v282) !== l3.value ? l126.fvalue(values, "#<PACKAGE ", l108.fvalue(pv, v282), ">") : l3.value)))))));
2641 (l98).fvalue = (function(v289){
2642 ((v289)["fname"] = "WRITE-LINE");
2644 })((function (values,v288){
2645 checkArgs(arguments, 2);
2649 if (typeof x != 'string')
2650 throw 'The value ' + x + ' is not a type string.';
2651 return lisp.write(x);
2654 var x = (function(){
2656 var value = symbol.value;
2657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2660 if (typeof x != 'string')
2661 throw 'The value ' + x + ' is not a type string.';
2662 return lisp.write(x);
2669 var l143 = {name: "WARN"};
2671 (l143).fvalue = (function(v291){
2672 ((v291)["fname"] = "WARN");
2674 })((function (values,v290){
2675 checkArgs(arguments, 2);
2678 var x = "WARNING: ";
2679 if (typeof x != 'string')
2680 throw 'The value ' + x + ' is not a type string.';
2681 return lisp.write(x);
2683 return l98.fvalue(values, v290);
2688 var l144 = {name: "PRINT"};
2690 (l144).fvalue = (function(v293){
2691 ((v293)["fname"] = "PRINT");
2693 })((function (values,v292){
2694 checkArgs(arguments, 2);
2696 l98.fvalue(pv, l141.fvalue(pv, v292));
2702 var l145 = {name: "MAKE-STRING-STREAM"};
2704 (l145).fvalue = (function(v295){
2705 ((v295)["fname"] = "MAKE-STRING-STREAM");
2707 })((function (values,v294){
2708 checkArgs(arguments, 2);
2710 return ({car: v294, cdr: 0});
2715 var l146 = {name: "%PEEK-CHAR"};
2717 (l146).fvalue = (function(v297){
2718 ((v297)["fname"] = "%PEEK-CHAR");
2720 })((function (values,v296){
2721 checkArgs(arguments, 2);
2723 return ((function(){
2724 var x1 = (function(){
2726 return tmp === l3.value? l3.value: tmp.cdr;
2728 if (typeof x1 !== 'number') throw 'Not a number!';
2729 var x2 = l70.fvalue(pv, (function(){
2731 return tmp === l3.value? l3.value: tmp.car;
2733 if (typeof x2 !== 'number') throw 'Not a number!';
2734 return (x1<x2?l4.value: l3.value);
2735 })() !== l3.value ? (function(){
2736 var string = (function(){
2738 return tmp === l3.value? l3.value: tmp.car;
2740 var index = (function(){
2742 return tmp === l3.value? l3.value: tmp.cdr;
2744 if (typeof string != 'string')
2745 throw 'The value ' + string + ' is not a type string.';
2746 if (typeof index != 'number')
2747 throw 'The value ' + index + ' is not a type number.';
2748 return string.charCodeAt(index);
2754 var l147 = {name: "%READ-CHAR"};
2756 (l147).fvalue = (function(v300){
2757 ((v300)["fname"] = "%READ-CHAR");
2759 })((function (values,v298){
2760 checkArgs(arguments, 2);
2762 return ((function(){
2763 var x1 = (function(){
2765 return tmp === l3.value? l3.value: tmp.cdr;
2767 if (typeof x1 !== 'number') throw 'Not a number!';
2768 var x2 = l70.fvalue(pv, (function(){
2770 return tmp === l3.value? l3.value: tmp.car;
2772 if (typeof x2 !== 'number') throw 'Not a number!';
2773 return (x1<x2?l4.value: l3.value);
2774 })() !== l3.value ? (function(v299){
2777 if (typeof x != 'object')
2778 throw 'The value ' + x + ' is not a type object.';
2779 return (x.cdr = l22.fvalue(pv, (function(){
2781 return tmp === l3.value? l3.value: tmp.cdr;
2786 var string = (function(){
2788 return tmp === l3.value? l3.value: tmp.car;
2790 var index = (function(){
2792 return tmp === l3.value? l3.value: tmp.cdr;
2794 if (typeof string != 'string')
2795 throw 'The value ' + string + ' is not a type string.';
2796 if (typeof index != 'number')
2797 throw 'The value ' + index + ' is not a type number.';
2798 return string.charCodeAt(index);
2804 var l148 = {name: "WHITESPACEP"};
2806 (l148).fvalue = (function(v304){
2807 ((v304)["fname"] = "WHITESPACEP");
2809 })((function (values,v301){
2810 checkArgs(arguments, 2);
2812 return (function(v302){
2813 return (v302 !== l3.value ? v302 : (function(v303){
2814 return (v303 !== l3.value ? v303 : l77.fvalue(values, v301, 9));
2815 })(l77.fvalue(pv, v301, 10)));
2816 })(l77.fvalue(pv, v301, 32));
2821 var l149 = {name: "SKIP-WHITESPACES"};
2823 (l149).fvalue = (function(v307){
2824 ((v307)["fname"] = "SKIP-WHITESPACES");
2826 })((function (values,v305){
2827 checkArgs(arguments, 2);
2829 return (function(v306){
2830 (v306 = l146.fvalue(pv, v305));
2833 while((v306 !== l3.value ? l148.fvalue(pv, v306) : l3.value) !== l3.value){
2834 l147.fvalue(pv, v305);
2835 (v306 = l146.fvalue(pv, v305));
2844 var l150 = {name: "TERMINALP"};
2846 (l150).fvalue = (function(v312){
2847 ((v312)["fname"] = "TERMINALP");
2849 })((function (values,v308){
2850 checkArgs(arguments, 2);
2852 return (function(v309){
2853 return (v309 !== l3.value ? v309 : (function(v310){
2854 return (v310 !== l3.value ? v310 : (function(v311){
2855 return (v311 !== l3.value ? v311 : l77.fvalue(values, 40, v308));
2856 })(l77.fvalue(pv, 41, v308)));
2857 })(l148.fvalue(pv, v308)));
2858 })(l12.fvalue(pv, v308));
2863 var l151 = {name: "READ-UNTIL"};
2865 (l151).fvalue = (function(v317){
2866 ((v317)["fname"] = "READ-UNTIL");
2868 })((function (values,v313,v314){
2869 checkArgs(arguments, 3);
2871 return (function(v315,v316){
2872 (v316 = l146.fvalue(pv, v313));
2875 while((v316 !== l3.value ? l27.fvalue(pv, (v314)(pv, v316)) : l3.value) !== l3.value){
2876 (v315 = l126.fvalue(pv, v315, l94.fvalue(pv, v316)));
2877 l147.fvalue(pv, v313);
2878 (v316 = l146.fvalue(pv, v313));
2888 var l152 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
2890 (l152).fvalue = (function(v321){
2891 ((v321)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2893 })((function (values,v318){
2894 checkArgs(arguments, 2);
2896 return (function(v319){
2897 l149.fvalue(pv, v318);
2898 (v319 = l146.fvalue(pv, v318));
2901 while((v319 !== l3.value ? l77.fvalue(pv, v319, 59) : l3.value) !== l3.value){
2902 l151.fvalue(pv, v318, (function (values,v320){
2903 checkArgs(arguments, 2);
2904 return l77.fvalue(values, v320, 10);
2906 l149.fvalue(pv, v318);
2907 (v319 = l146.fvalue(pv, v318));
2916 var l153 = {name: "%READ-LIST"};
2917 var l154 = {name: "LS-READ"};
2919 (l153).fvalue = (function(v325){
2920 ((v325)["fname"] = "%READ-LIST");
2922 })((function (values,v322){
2923 checkArgs(arguments, 2);
2925 l152.fvalue(pv, v322);
2926 return (function(v323){
2927 return (l12.fvalue(pv, v323) !== l3.value ? (function(){
2928 throw "Unspected EOF";
2929 })() : (l77.fvalue(pv, v323, 41) !== l3.value ? (function(){
2930 l147.fvalue(pv, v322);
2932 })() : (l77.fvalue(pv, v323, 46) !== l3.value ? (function(){
2933 l147.fvalue(pv, v322);
2934 return (function(v324){
2935 l152.fvalue(pv, v322);
2936 (l77.fvalue(pv, l147.fvalue(pv, v322), 41) !== l3.value ? l3.value : (function(){
2937 throw "')' was expected.";
2940 })(l154.fvalue(pv, v322));
2941 })() : ({car: l154.fvalue(pv, v322), cdr: l153.fvalue(pv, v322)}))));
2942 })(l146.fvalue(pv, v322));
2947 var l155 = {name: "READ-STRING"};
2949 (l155).fvalue = (function(v329){
2950 ((v329)["fname"] = "READ-STRING");
2952 })((function (values,v326){
2953 checkArgs(arguments, 2);
2955 return (function(v327,v328){
2956 (v328 = l147.fvalue(pv, v326));
2959 while(l27.fvalue(pv, l26.fvalue(pv, v328, 34)) !== l3.value){
2960 (l12.fvalue(pv, v328) !== l3.value ? (function(){
2961 throw "Unexpected EOF";
2963 (l26.fvalue(pv, v328, 92) !== l3.value ? (v328 = l147.fvalue(pv, v326)) : l3.value);
2964 (v327 = l126.fvalue(pv, v327, l94.fvalue(pv, v328)));
2965 (v328 = l147.fvalue(pv, v326));
2975 var l156 = {name: "READ-SHARP"};
2977 (l156).fvalue = (function(v334){
2978 ((v334)["fname"] = "READ-SHARP");
2980 })((function (values,v330){
2981 checkArgs(arguments, 2);
2983 l147.fvalue(pv, v330);
2984 return (function(v331){
2985 return (l26.fvalue(pv, v331, 39) !== l3.value ? l43.fvalue(values, l100, l154.fvalue(pv, v330)) : (l26.fvalue(pv, v331, 40) !== l3.value ? l132.fvalue(values, l153.fvalue(pv, v330)) : (l26.fvalue(pv, v331, 58) !== l3.value ? (function(){
2986 var name = (function(){
2987 var x = l151.fvalue(pv, v330, (function(){
2989 var func = symbol.fvalue;
2990 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2993 if (typeof x != 'string')
2994 throw 'The value ' + x + ' is not a type string.';
2995 return x.toUpperCase();
2997 if (typeof name != 'string')
2998 throw 'The value ' + name + ' is not a type string.';
2999 return ({name: name});
3000 })() : (l26.fvalue(pv, v331, 92) !== l3.value ? (function(v332){
3001 return (l95.fvalue(pv, v332, "space") !== l3.value ? l76.fvalue(values, 32) : (l95.fvalue(pv, v332, "tab") !== l3.value ? l76.fvalue(values, 9) : (l95.fvalue(pv, v332, "newline") !== l3.value ? l76.fvalue(values, 10) : l76.fvalue(values, (function(){
3004 if (typeof string != 'string')
3005 throw 'The value ' + string + ' is not a type string.';
3006 if (typeof index != 'number')
3007 throw 'The value ' + index + ' is not a type number.';
3008 return string.charCodeAt(index);
3010 })(l126.fvalue(pv, l94.fvalue(pv, l147.fvalue(pv, v330)), l151.fvalue(pv, v330, (function(){
3012 var func = symbol.fvalue;
3013 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3015 })()))) : (l26.fvalue(pv, v331, 43) !== l3.value ? (function(v333){
3016 return (l95.fvalue(pv, v333, "common-lisp") !== l3.value ? (function(){
3017 l154.fvalue(pv, v330);
3018 return l154.fvalue(values, v330);
3019 })() : (l95.fvalue(pv, v333, "ecmalisp") !== l3.value ? l154.fvalue(values, v330) : (function(){
3020 throw "Unknown reader form.";
3022 })(l151.fvalue(pv, v330, (function(){
3024 var func = symbol.fvalue;
3025 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3027 })())) : (function(){
3028 throw "ECASE expression failed.";
3030 })(l147.fvalue(pv, v330));
3035 var l157 = {name: "READ-SYMBOL"};
3037 (l157).fvalue = (function(v342){
3038 ((v342)["fname"] = "READ-SYMBOL");
3040 })((function (values,v335){
3041 checkArgs(arguments, 2);
3043 return (function(v336,v337,v338,v339,v340){
3049 if (typeof x1 !== 'number') throw 'Not a number!';
3051 if (typeof x2 !== 'number') throw 'Not a number!';
3052 return (x1<x2?l4.value: l3.value);
3053 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
3056 if (typeof string != 'string')
3057 throw 'The value ' + string + ' is not a type string.';
3058 if (typeof index != 'number')
3059 throw 'The value ' + index + ' is not a type number.';
3060 return string.charCodeAt(index);
3061 })(), 58)) : l3.value) !== l3.value){
3062 (v340 = (function(){
3064 if (typeof x1 !== 'number') throw 'Not a number!';
3066 if (typeof x2 !== 'number') throw 'Not a number!';
3074 if (typeof x1 !== 'number') throw 'Not a number!';
3076 if (typeof x2 !== 'number') throw 'Not a number!';
3077 return (x1==x2?l4.value: l3.value);
3078 })() !== l3.value ? (function(){
3080 (v337 = (function(){
3082 var value = symbol.value;
3083 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3086 return (v339 = l4.value);
3088 (l24.fvalue(pv, v340) !== l3.value ? (v337 = "KEYWORD") : (v337 = (function(){
3089 var x = l90.fvalue(pv, v335, 0, v340);
3090 if (typeof x != 'string')
3091 throw 'The value ' + x + ' is not a type string.';
3092 return x.toUpperCase();
3094 (v340 = (function(){
3096 if (typeof x1 !== 'number') throw 'Not a number!';
3098 if (typeof x2 !== 'number') throw 'Not a number!';
3101 (l77.fvalue(pv, (function(){
3104 if (typeof string != 'string')
3105 throw 'The value ' + string + ' is not a type string.';
3106 if (typeof index != 'number')
3107 throw 'The value ' + index + ' is not a type number.';
3108 return string.charCodeAt(index);
3109 })(), 58) !== l3.value ? (function(){
3111 return (v340 = (function(){
3113 if (typeof x1 !== 'number') throw 'Not a number!';
3115 if (typeof x2 !== 'number') throw 'Not a number!';
3119 return (v338 = l90.fvalue(pv, v335, v340));
3121 (v338 = (function(){
3123 if (typeof x != 'string')
3124 throw 'The value ' + x + ' is not a type string.';
3125 return x.toUpperCase();
3127 (v337 = l107.fvalue(pv, v337));
3128 return ((function(v341){
3129 return (v341 !== l3.value ? v341 : ((v337 === l107.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
3130 })(v339) !== l3.value ? l122.fvalue(values, v338, v337) : l121.fvalue(values, v338, v337));
3131 })(l70.fvalue(pv, v335),l3.value,l3.value,l3.value,l3.value);
3136 var l158 = {name: "!PARSE-INTEGER"};
3138 (l158).fvalue = (function(v353){
3139 ((v353)["fname"] = "!PARSE-INTEGER");
3141 })((function (values,v343,v344){
3142 checkArgs(arguments, 3);
3146 return (function(v345,v346,v347,v348){
3147 (l24.fvalue(pv, v347) !== l3.value ? (function(){
3149 throw ({type: 'block', id: 138, values: values(l3.value, 0), message: 'Return from unknown block NIL.'})
3152 return (l26.fvalue(pv, v349, 43) !== l3.value ? (v346 = (function(){
3154 if (typeof x1 !== 'number') throw 'Not a number!';
3156 if (typeof x2 !== 'number') throw 'Not a number!';
3158 })()) : (l26.fvalue(pv, v349, 45) !== l3.value ? (function(){
3160 return (v346 = (function(){
3162 if (typeof x1 !== 'number') throw 'Not a number!';
3164 if (typeof x2 !== 'number') throw 'Not a number!';
3171 if (typeof string != 'string')
3172 throw 'The value ' + string + ' is not a type string.';
3173 if (typeof index != 'number')
3174 throw 'The value ' + index + ' is not a type number.';
3175 return string.charCodeAt(index);
3179 if (typeof x1 !== 'number') throw 'Not a number!';
3181 if (typeof x2 !== 'number') throw 'Not a number!';
3182 return (x1<x2?l4.value: l3.value);
3183 })() !== l3.value ? (v345 = l89.fvalue(pv, (function(){
3186 if (typeof string != 'string')
3187 throw 'The value ' + string + ' is not a type string.';
3188 if (typeof index != 'number')
3189 throw 'The value ' + index + ' is not a type number.';
3190 return string.charCodeAt(index);
3191 })())) : l3.value) !== l3.value ? l3.value : (function(){
3193 throw ({type: 'block', id: 138, values: values(l3.value, v346), message: 'Return from unknown block NIL.'})
3195 (v346 = (function(){
3197 if (typeof x1 !== 'number') throw 'Not a number!';
3199 if (typeof x2 !== 'number') throw 'Not a number!';
3207 if (typeof x1 !== 'number') throw 'Not a number!';
3209 if (typeof x2 !== 'number') throw 'Not a number!';
3210 return (x1<x2?l4.value: l3.value);
3213 (v350 !== l3.value ? l3.value : (function(){
3214 throw ({type: 'block', id: 139, values: l3.value, message: 'Return from unknown block NIL.'})
3216 (v345 = (function(){
3217 var x1 = (function(){
3219 if (typeof x1 !== 'number') throw 'Not a number!';
3221 if (typeof x2 !== 'number') throw 'Not a number!';
3224 if (typeof x1 !== 'number') throw 'Not a number!';
3226 if (typeof x2 !== 'number') throw 'Not a number!';
3229 return (v346 = (function(){
3231 if (typeof x1 !== 'number') throw 'Not a number!';
3233 if (typeof x2 !== 'number') throw 'Not a number!';
3236 })(l89.fvalue(pv, (function(){
3239 if (typeof string != 'string')
3240 throw 'The value ' + string + ' is not a type string.';
3241 if (typeof index != 'number')
3242 throw 'The value ' + index + ' is not a type number.';
3243 return string.charCodeAt(index);
3249 if (cf.type == 'block' && cf.id == 139)
3255 return ((function(v351){
3256 return (v351 !== l3.value ? v351 : (function(v352){
3257 return (v352 !== l3.value ? v352 : l77.fvalue(pv, (function(){
3260 if (typeof string != 'string')
3261 throw 'The value ' + string + ' is not a type string.';
3262 if (typeof index != 'number')
3263 throw 'The value ' + index + ' is not a type number.';
3264 return string.charCodeAt(index);
3268 if (typeof x1 !== 'number') throw 'Not a number!';
3270 if (typeof x2 !== 'number') throw 'Not a number!';
3271 return (x1==x2?l4.value: l3.value);
3273 })(v344) !== l3.value ? values((function(){
3275 if (typeof x1 !== 'number') throw 'Not a number!';
3277 if (typeof x2 !== 'number') throw 'Not a number!';
3279 })(), v346) : values(l3.value, v346));
3280 })(0,0,l70.fvalue(pv, v343),1);
3283 if (cf.type == 'block' && cf.id == 138)
3284 return values.apply(this, forcemv(cf.values));
3293 var l159 = {name: "PARSE-INTEGER"};
3295 (l159).fvalue = (function(v355){
3296 ((v355)["fname"] = "PARSE-INTEGER");
3298 })((function (values,v354){
3299 checkArgs(arguments, 2);
3301 return l158.fvalue(values, v354, l3.value);
3306 var l160 = {name: "*EOF*"};
3308 (((l160.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l160).value = l16.fvalue(pv)));
3311 var l161 = {name: "QUOTE"};
3312 var l162 = {name: "BACKQUOTE"};
3313 var l163 = {name: "UNQUOTE-SPLICING"};
3314 var l164 = {name: "UNQUOTE"};
3316 (l154).fvalue = (function(v361){
3317 ((v361)["fname"] = "LS-READ");
3319 })((function (values,v356){
3320 checkArgs(arguments, 2);
3322 l152.fvalue(pv, v356);
3323 return (function(v357){
3324 return ((function(v358){
3325 return (v358 !== l3.value ? v358 : l77.fvalue(pv, v357, 41));
3326 })(l12.fvalue(pv, v357)) !== l3.value ? (function(){
3328 var value = symbol.value;
3329 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3331 })() : (l77.fvalue(pv, v357, 40) !== l3.value ? (function(){
3332 l147.fvalue(pv, v356);
3333 return l153.fvalue(values, v356);
3334 })() : (l77.fvalue(pv, v357, 39) !== l3.value ? (function(){
3335 l147.fvalue(pv, v356);
3336 return l43.fvalue(values, l161, l154.fvalue(pv, v356));
3337 })() : (l77.fvalue(pv, v357, 96) !== l3.value ? (function(){
3338 l147.fvalue(pv, v356);
3339 return l43.fvalue(values, l162, l154.fvalue(pv, v356));
3340 })() : (l77.fvalue(pv, v357, 34) !== l3.value ? (function(){
3341 l147.fvalue(pv, v356);
3342 return l155.fvalue(values, v356);
3343 })() : (l77.fvalue(pv, v357, 44) !== l3.value ? (function(){
3344 l147.fvalue(pv, v356);
3345 return (l26.fvalue(pv, l146.fvalue(pv, v356), 64) !== l3.value ? (function(){
3346 l147.fvalue(pv, v356);
3347 return l43.fvalue(values, l163, l154.fvalue(pv, v356));
3348 })() : l43.fvalue(values, l164, l154.fvalue(pv, v356)));
3349 })() : (l77.fvalue(pv, v357, 35) !== l3.value ? l156.fvalue(values, v356) : (function(v359){
3350 return (function(v360){
3351 return (v360 !== l3.value ? v360 : l157.fvalue(values, v359));
3352 })(pv(l158.fvalue(pv, v359, l3.value)));
3353 })(l151.fvalue(pv, v356, (function(){
3355 var func = symbol.fvalue;
3356 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3359 })(l146.fvalue(pv, v356));
3364 var l165 = {name: "LS-READ-FROM-STRING"};
3366 (l165).fvalue = (function(v363){
3367 ((v363)["fname"] = "LS-READ-FROM-STRING");
3369 })((function (values,v362){
3370 checkArgs(arguments, 2);
3372 return l154.fvalue(values, l145.fvalue(pv, v362));
3377 var l166 = {name: "*MULTIPLE-VALUE-P*"};
3379 (((l166.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l166).value = l3.value));
3382 var l167 = {name: "MAKE-BINDING"};
3384 (l167).fvalue = (function(v368){
3385 ((v368)["fname"] = "MAKE-BINDING");
3387 })((function (values,v364,v365,v366,v367){
3388 checkArgsAtLeast(arguments, 4);
3389 checkArgsAtMost(arguments, 5);
3390 switch(arguments.length-1){
3396 return l43.fvalue(values, v364, v365, v366, v367);
3401 var l168 = {name: "BINDING-NAME"};
3403 (l168).fvalue = (function(v370){
3404 ((v370)["fname"] = "BINDING-NAME");
3406 })((function (values,v369){
3407 checkArgs(arguments, 2);
3409 return l39.fvalue(values, v369);
3414 var l169 = {name: "BINDING-TYPE"};
3416 (l169).fvalue = (function(v372){
3417 ((v372)["fname"] = "BINDING-TYPE");
3419 })((function (values,v371){
3420 checkArgs(arguments, 2);
3422 return l40.fvalue(values, v371);
3427 var l170 = {name: "BINDING-VALUE"};
3429 (l170).fvalue = (function(v374){
3430 ((v374)["fname"] = "BINDING-VALUE");
3432 })((function (values,v373){
3433 checkArgs(arguments, 2);
3435 return l41.fvalue(values, v373);
3440 var l171 = {name: "BINDING-DECLARATIONS"};
3442 (l171).fvalue = (function(v376){
3443 ((v376)["fname"] = "BINDING-DECLARATIONS");
3445 })((function (values,v375){
3446 checkArgs(arguments, 2);
3448 return l42.fvalue(values, v375);
3453 var l172 = {name: "SET-BINDING-VALUE"};
3455 (l172).fvalue = (function(v379){
3456 ((v379)["fname"] = "SET-BINDING-VALUE");
3458 })((function (values,v377,v378){
3459 checkArgs(arguments, 3);
3462 var x = l35.fvalue(pv, v377);
3463 if (typeof x != 'object')
3464 throw 'The value ' + x + ' is not a type object.';
3465 return (x.car = v378, x);
3471 var l173 = {name: "SET-BINDING-DECLARATIONS"};
3473 (l173).fvalue = (function(v382){
3474 ((v382)["fname"] = "SET-BINDING-DECLARATIONS");
3476 })((function (values,v380,v381){
3477 checkArgs(arguments, 3);
3480 var x = l37.fvalue(pv, v380);
3481 if (typeof x != 'object')
3482 throw 'The value ' + x + ' is not a type object.';
3483 return (x.car = v381, x);
3489 var l174 = {name: "PUSH-BINDING-DECLARATION"};
3491 (l174).fvalue = (function(v385){
3492 ((v385)["fname"] = "PUSH-BINDING-DECLARATION");
3494 })((function (values,v383,v384){
3495 checkArgs(arguments, 3);
3497 return l173.fvalue(values, v384, ({car: v383, cdr: l171.fvalue(pv, v384)}));
3502 var l175 = {name: "MAKE-LEXENV"};
3504 (l175).fvalue = (function(v386){
3505 ((v386)["fname"] = "MAKE-LEXENV");
3507 })((function (values){
3508 checkArgsAtMost(arguments, 1);
3510 return l43.fvalue(values, l3.value, l3.value, l3.value, l3.value);
3515 var l176 = {name: "COPY-LEXENV"};
3517 (l176).fvalue = (function(v388){
3518 ((v388)["fname"] = "COPY-LEXENV");
3520 })((function (values,v387){
3521 checkArgs(arguments, 2);
3523 return l74.fvalue(values, v387);
3528 var l177 = {name: "PUSH-TO-LEXENV"};
3529 var l178 = {name: "BLOCK"};
3530 var l179 = {name: "GOTAG"};
3532 (l177).fvalue = (function(v393){
3533 ((v393)["fname"] = "PUSH-TO-LEXENV");
3535 })((function (values,v389,v390,v391){
3536 checkArgs(arguments, 4);
3538 return (function(v392){
3539 return (l26.fvalue(pv, v392, l101) !== l3.value ? (function(){
3541 if (typeof x != 'object')
3542 throw 'The value ' + x + ' is not a type object.';
3543 return (x.car = ({car: v389, cdr: (function(){
3545 return tmp === l3.value? l3.value: tmp.car;
3547 })() : (l26.fvalue(pv, v392, l100) !== l3.value ? (function(){
3548 var x = (function(){
3550 return tmp === l3.value? l3.value: tmp.cdr;
3552 if (typeof x != 'object')
3553 throw 'The value ' + x + ' is not a type object.';
3554 return (x.car = ({car: v389, cdr: l33.fvalue(pv, v390)}), x);
3555 })() : (l26.fvalue(pv, v392, l178) !== l3.value ? (function(){
3556 var x = l35.fvalue(pv, v390);
3557 if (typeof x != 'object')
3558 throw 'The value ' + x + ' is not a type object.';
3559 return (x.car = ({car: v389, cdr: l36.fvalue(pv, v390)}), x);
3560 })() : (l26.fvalue(pv, v392, l179) !== l3.value ? (function(){
3561 var x = l37.fvalue(pv, v390);
3562 if (typeof x != 'object')
3563 throw 'The value ' + x + ' is not a type object.';
3564 return (x.car = ({car: v389, cdr: l38.fvalue(pv, v390)}), x);
3566 throw "ECASE expression failed.";
3573 var l180 = {name: "EXTEND-LEXENV"};
3575 (l180).fvalue = (function(v400){
3576 ((v400)["fname"] = "EXTEND-LEXENV");
3578 })((function (values,v394,v395,v396){
3579 checkArgs(arguments, 4);
3581 return (function(v397){
3583 return (function(v398,v399){
3585 while(v398 !== l3.value){
3586 (v399 = (function(){
3588 return tmp === l3.value? l3.value: tmp.car;
3591 l177.fvalue(pv, v399, v397, v396);
3594 (v398 = (function(){
3596 return tmp === l3.value? l3.value: tmp.cdr;
3601 })(l65.fvalue(pv, v394),l3.value);
3603 })(l176.fvalue(pv, v395));
3608 var l181 = {name: "LOOKUP-IN-LEXENV"};
3610 (l181).fvalue = (function(v405){
3611 ((v405)["fname"] = "LOOKUP-IN-LEXENV");
3613 })((function (values,v401,v402,v403){
3614 checkArgs(arguments, 4);
3616 return l93.fvalue(values, v401, (function(v404){
3617 return (l26.fvalue(pv, v404, l101) !== l3.value ? l39.fvalue(pv, v402) : (l26.fvalue(pv, v404, l100) !== l3.value ? l40.fvalue(pv, v402) : (l26.fvalue(pv, v404, l178) !== l3.value ? l41.fvalue(pv, v402) : (l26.fvalue(pv, v404, l179) !== l3.value ? l42.fvalue(pv, v402) : (function(){
3618 throw "ECASE expression failed.";
3625 var l182 = {name: "*ENVIRONMENT*"};
3627 (((l182.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l182).value = l175.fvalue(pv)));
3630 var l183 = {name: "*VARIABLE-COUNTER*"};
3632 (((l183.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l183).value = 0));
3635 var l184 = {name: "GVARNAME"};
3637 (l184).fvalue = (function(v407){
3638 ((v407)["fname"] = "GVARNAME");
3640 })((function (values,v406){
3641 checkArgs(arguments, 2);
3643 return l126.fvalue(values, "v", l17.fvalue(pv, ((l183).value = (function(){
3644 var x1 = (function(){
3646 var value = symbol.value;
3647 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3650 if (typeof x1 !== 'number') throw 'Not a number!';
3652 if (typeof x2 !== 'number') throw 'Not a number!';
3659 var l185 = {name: "TRANSLATE-VARIABLE"};
3661 (l185).fvalue = (function(v409){
3662 ((v409)["fname"] = "TRANSLATE-VARIABLE");
3664 })((function (values,v408){
3665 checkArgs(arguments, 2);
3667 return l170.fvalue(values, l181.fvalue(pv, v408, (function(){
3669 var value = symbol.value;
3670 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3677 var l186 = {name: "EXTEND-LOCAL-ENV"};
3679 (l186).fvalue = (function(v415){
3680 ((v415)["fname"] = "EXTEND-LOCAL-ENV");
3682 })((function (values,v410){
3683 checkArgs(arguments, 2);
3685 return (function(v411){
3687 return (function(v412,v413){
3689 while(v412 !== l3.value){
3690 (v413 = (function(){
3692 return tmp === l3.value? l3.value: tmp.car;
3696 return l177.fvalue(pv, v414, v411, l101);
3697 })(l167.fvalue(pv, v413, l101, l184.fvalue(pv, v413)));
3700 (v412 = (function(){
3702 return tmp === l3.value? l3.value: tmp.cdr;
3709 })(l176.fvalue(pv, (function(){
3711 var value = symbol.value;
3712 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3719 var l187 = {name: "*TOPLEVEL-COMPILATIONS*"};
3721 (((l187.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l187).value = l3.value));
3724 var l188 = {name: "TOPLEVEL-COMPILATION"};
3726 (l188).fvalue = (function(v417){
3727 ((v417)["fname"] = "TOPLEVEL-COMPILATION");
3729 })((function (values,v416){
3730 checkArgs(arguments, 2);
3732 return ((l187).value = ({car: v416, cdr: (function(){
3734 var value = symbol.value;
3735 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3742 var l189 = {name: "NULL-OR-EMPTY-P"};
3744 (l189).fvalue = (function(v419){
3745 ((v419)["fname"] = "NULL-OR-EMPTY-P");
3747 })((function (values,v418){
3748 checkArgs(arguments, 2);
3750 return l24.fvalue(values, l70.fvalue(pv, v418));
3755 var l190 = {name: "GET-TOPLEVEL-COMPILATIONS"};
3757 (l190).fvalue = (function(v420){
3758 ((v420)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
3760 })((function (values){
3761 checkArgsAtMost(arguments, 1);
3763 return l65.fvalue(values, l87.fvalue(pv, (function(){
3765 var func = symbol.fvalue;
3766 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3770 var value = symbol.value;
3771 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3778 var l191 = {name: "%COMPILE-DEFMACRO"};
3779 var l192 = {name: "MACRO"};
3781 (l191).fvalue = (function(v423){
3782 ((v423)["fname"] = "%COMPILE-DEFMACRO");
3784 })((function (values,v421,v422){
3785 checkArgs(arguments, 3);
3787 l188.fvalue(pv, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v421))));
3788 l177.fvalue(pv, l167.fvalue(pv, v421, l192, v422), (function(){
3790 var value = symbol.value;
3791 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3799 var l193 = {name: "GLOBAL-BINDING"};
3801 (l193).fvalue = (function(v429){
3802 ((v429)["fname"] = "GLOBAL-BINDING");
3804 })((function (values,v424,v425,v426){
3805 checkArgs(arguments, 4);
3807 return (function(v427){
3808 return (v427 !== l3.value ? v427 : (function(v428){
3809 l177.fvalue(pv, v428, (function(){
3811 var value = symbol.value;
3812 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3816 })(l167.fvalue(pv, v424, v425, l3.value)));
3817 })(l181.fvalue(pv, v424, (function(){
3819 var value = symbol.value;
3820 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3827 var l194 = {name: "CLAIMP"};
3829 (l194).fvalue = (function(v434){
3830 ((v434)["fname"] = "CLAIMP");
3832 })((function (values,v430,v431,v432){
3833 checkArgs(arguments, 4);
3835 return (function(v433){
3836 return (v433 !== l3.value ? l85.fvalue(values, v432, l171.fvalue(pv, v433)) : l3.value);
3837 })(l181.fvalue(pv, v430, (function(){
3839 var value = symbol.value;
3840 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3847 var l195 = {name: "!PROCLAIM"};
3848 var l196 = {name: "SPECIAL"};
3849 var l197 = {name: "NOTINLINE"};
3850 var l198 = {name: "CONSTANT"};
3852 (l195).fvalue = (function(v446){
3853 ((v446)["fname"] = "!PROCLAIM");
3855 })((function (values,v435){
3856 checkArgs(arguments, 2);
3858 return (function(v436){
3859 return (l26.fvalue(pv, v436, l196) !== l3.value ? (function(){
3860 return (function(v437,v438){
3862 while(v437 !== l3.value){
3863 (v438 = (function(){
3865 return tmp === l3.value? l3.value: tmp.car;
3869 return l174.fvalue(pv, l196, v439);
3870 })(l193.fvalue(pv, v438, l101, l101));
3873 (v437 = (function(){
3875 return tmp === l3.value? l3.value: tmp.cdr;
3882 return tmp === l3.value? l3.value: tmp.cdr;
3884 })() : (l26.fvalue(pv, v436, l197) !== l3.value ? (function(){
3885 return (function(v440,v441){
3887 while(v440 !== l3.value){
3888 (v441 = (function(){
3890 return tmp === l3.value? l3.value: tmp.car;
3894 return l174.fvalue(pv, l197, v442);
3895 })(l193.fvalue(pv, v441, l100, l100));
3898 (v440 = (function(){
3900 return tmp === l3.value? l3.value: tmp.cdr;
3907 return tmp === l3.value? l3.value: tmp.cdr;
3909 })() : (l26.fvalue(pv, v436, l198) !== l3.value ? (function(){
3910 return (function(v443,v444){
3912 while(v443 !== l3.value){
3913 (v444 = (function(){
3915 return tmp === l3.value? l3.value: tmp.car;
3919 return l174.fvalue(pv, l198, v445);
3920 })(l193.fvalue(pv, v444, l101, l101));
3923 (v443 = (function(){
3925 return tmp === l3.value? l3.value: tmp.cdr;
3932 return tmp === l3.value? l3.value: tmp.cdr;
3937 return tmp === l3.value? l3.value: tmp.car;
3943 var l199 = {name: "PROCLAIM"};
3944 (l199).fvalue = (function(){
3946 var func = symbol.fvalue;
3947 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3950 var l200 = {name: "*COMPILATIONS*"};
3952 (((l200.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l200).value = l3.value));
3955 var l201 = {name: "DEFINE-COMPILATION"};
3957 var l202 = {name: "IF"};
3958 ((l200).value = ({car: l43.fvalue(pv, l202, (function (values,v447,v448,v449){
3959 checkArgs(arguments, 4);
3961 return l126.fvalue(values, "(", l139.fvalue(pv, v447), " !== ", l139.fvalue(pv, l3.value), " ? ", l139.fvalue(pv, v448, (function(){
3963 var value = symbol.value;
3964 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3966 })()), " : ", l139.fvalue(pv, v449, (function(){
3968 var value = symbol.value;
3969 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3973 })), cdr: (function(){
3975 var value = symbol.value;
3976 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3979 var l203 = {name: "*LAMBDA-LIST-KEYWORDS*"};
3980 var l204 = {name: "&OPTIONAL"};
3981 var l205 = {name: "&REST"};
3982 var l206 = QIList(l204,l205,l3);
3984 (((l203.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l203).value = l206));
3987 var l207 = {name: "LIST-UNTIL-KEYWORD"};
3989 (l207).fvalue = (function(v452){
3990 ((v452)["fname"] = "LIST-UNTIL-KEYWORD");
3992 })((function (values,v450){
3993 checkArgs(arguments, 2);
3995 return ((function(v451){
3996 return (v451 !== l3.value ? v451 : l85.fvalue(pv, (function(){
3998 return tmp === l3.value? l3.value: tmp.car;
4001 var value = symbol.value;
4002 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4005 })(l12.fvalue(pv, v450)) !== l3.value ? l3.value : ({car: (function(){
4007 return tmp === l3.value? l3.value: tmp.car;
4008 })(), cdr: l207.fvalue(pv, (function(){
4010 return tmp === l3.value? l3.value: tmp.cdr;
4016 var l208 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
4018 (l208).fvalue = (function(v454){
4019 ((v454)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4021 })((function (values,v453){
4022 checkArgs(arguments, 2);
4024 return l207.fvalue(values, v453);
4029 var l209 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
4031 (l209).fvalue = (function(v456){
4032 ((v456)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4034 })((function (values,v455){
4035 checkArgs(arguments, 2);
4037 return l72.fvalue(values, (function(){
4039 var func = symbol.fvalue;
4040 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4042 })(), l207.fvalue(pv, (function(){
4043 var tmp = l85.fvalue(pv, l204, v455);
4044 return tmp === l3.value? l3.value: tmp.cdr;
4050 var l210 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
4052 (l210).fvalue = (function(v458){
4053 ((v458)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4055 })((function (values,v457){
4056 checkArgs(arguments, 2);
4058 return l72.fvalue(values, (function(){
4060 var func = symbol.fvalue;
4061 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4063 })(), l209.fvalue(pv, v457));
4068 var l211 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
4070 (l211).fvalue = (function(v461){
4071 ((v461)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4073 })((function (values,v459){
4074 checkArgs(arguments, 2);
4076 return (function(v460){
4079 return tmp === l3.value? l3.value: tmp.cdr;
4080 })() !== l3.value ? (function(){
4081 throw "Bad lambda-list";
4085 return tmp === l3.value? l3.value: tmp.car;
4087 })(l207.fvalue(pv, (function(){
4088 var tmp = l85.fvalue(pv, l205, v459);
4089 return tmp === l3.value? l3.value: tmp.cdr;
4095 var l212 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
4097 (l212).fvalue = (function(v464){
4098 ((v464)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
4100 })((function (values,v463){
4101 checkArgsAtLeast(arguments, 2);
4103 for (var i = arguments.length-1; i>=2; i--)
4104 v462 = {car: arguments[i], cdr:
4107 return (v463 !== l3.value ? l126.fvalue(values, "(function(){", (function(){
4109 var value = symbol.value;
4110 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4112 })(), l137.fvalue(pv, "var func = ", l128.fvalue(pv, v462), ";", (function(){
4114 var value = symbol.value;
4115 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4117 })(), "func.docstring = '", v463, "';", (function(){
4119 var value = symbol.value;
4120 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4122 })(), "return func;", (function(){
4124 var value = symbol.value;
4125 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4127 })()), "})()") : l128.fvalue(values, v462));
4132 var l213 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
4133 var l214 = {name: "N/A"};
4135 (l213).fvalue = (function(v470){
4136 ((v470)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
4138 })((function (values,v465,v466,v467){
4139 checkArgs(arguments, 4);
4141 return (function(v468,v469){
4146 if (typeof x1 !== 'number') throw 'Not a number!';
4148 if (typeof x2 !== 'number') throw 'Not a number!';
4149 return (x1<x2?l4.value: l3.value);
4150 })() !== l3.value ? l26.fvalue(pv, v468, v469) : l3.value) !== l3.value ? (function(){
4152 throw ({type: 'block', id: 179, values: l126.fvalue(values, "checkArgs(arguments, ", l17.fvalue(pv, v468), ");", (function(){
4154 var value = symbol.value;
4155 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4157 })()), message: 'Return from unknown block NIL.'})
4159 return l126.fvalue(values, ((function(){
4161 if (typeof x1 !== 'number') throw 'Not a number!';
4163 if (typeof x2 !== 'number') throw 'Not a number!';
4164 return (x1<x2?l4.value: l3.value);
4165 })() !== l3.value ? l126.fvalue(pv, "checkArgsAtLeast(arguments, ", l17.fvalue(pv, v468), ");", (function(){
4167 var value = symbol.value;
4168 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4170 })()) : ""), (((typeof (v469) == "number")?l4.value: l3.value) !== l3.value ? l126.fvalue(pv, "checkArgsAtMost(arguments, ", l17.fvalue(pv, v469), ");", (function(){
4172 var value = symbol.value;
4173 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4178 if (cf.type == 'block' && cf.id == 179)
4179 return values.apply(this, forcemv(cf.values));
4184 })(l22.fvalue(pv, v465),(v467 !== l3.value ? l214 : (function(){
4186 if (typeof x1 !== 'number') throw 'Not a number!';
4188 if (typeof x2 !== 'number') throw 'Not a number!';
4190 if (typeof x3 !== 'number') throw 'Not a number!';
4197 var l215 = {name: "COMPILE-LAMBDA"};
4198 var l216 = {name: "LS-COMPILE-BLOCK"};
4200 (l215).fvalue = (function(v486){
4201 ((v486)["fname"] = "COMPILE-LAMBDA");
4203 })((function (values,v471,v472){
4204 checkArgs(arguments, 3);
4206 return (function(v473,v474,v475,v476){
4207 ((((typeof((function(){
4209 return tmp === l3.value? l3.value: tmp.car;
4210 })()) == "string")?l4.value: l3.value) !== l3.value ? l27.fvalue(pv, l12.fvalue(pv, (function(){
4212 return tmp === l3.value? l3.value: tmp.cdr;
4213 })())) : l3.value) !== l3.value ? (function(){
4214 (v476 = (function(){
4216 return tmp === l3.value? l3.value: tmp.car;
4218 return (v472 = (function(){
4220 return tmp === l3.value? l3.value: tmp.cdr;
4223 return (function(v477,v478,v479){
4229 return l212.fvalue(values, v476, "(function (", l128.fvalue(pv, ({car: "values", cdr: l72.fvalue(pv, (function(){
4231 var func = symbol.fvalue;
4232 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4234 })(), l63.fvalue(pv, v473, v474))}), ","), "){", (function(){
4236 var value = symbol.value;
4237 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4239 })(), l137.fvalue(pv, l213.fvalue(pv, v477, v478, v475), (v474 !== l3.value ? l126.fvalue(pv, "switch(arguments.length-1){", (function(){
4241 var value = symbol.value;
4242 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4244 })(), (function(v480,v481,v482){
4250 if (typeof x1 !== 'number') throw 'Not a number!';
4252 if (typeof x2 !== 'number') throw 'Not a number!';
4253 return (x1<x2?l4.value: l3.value);
4256 (v481 = ({car: l126.fvalue(pv, "case ", l17.fvalue(pv, (function(){
4258 if (typeof x1 !== 'number') throw 'Not a number!';
4260 if (typeof x2 !== 'number') throw 'Not a number!';
4262 })()), ":", (function(){
4264 var value = symbol.value;
4265 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4267 })(), l185.fvalue(pv, (function(){
4269 return tmp === l3.value? l3.value: tmp.car;
4270 })()), "=", l139.fvalue(pv, l33.fvalue(pv, v483)), ";", (function(){
4272 var value = symbol.value;
4273 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4275 })()), cdr: v481}));
4276 return (v482 = (function(){
4278 if (typeof x1 !== 'number') throw 'Not a number!';
4280 if (typeof x2 !== 'number') throw 'Not a number!';
4283 })(l82.fvalue(pv, v482, v480));
4287 (v481 = ({car: l126.fvalue(pv, "default: break;", (function(){
4289 var value = symbol.value;
4290 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4292 })()), cdr: v481}));
4293 return l128.fvalue(pv, l65.fvalue(pv, v481));
4295 })(l209.fvalue(pv, v471),l3.value,0), "}", (function(){
4297 var value = symbol.value;
4298 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4300 })()) : ""), (v475 !== l3.value ? (function(v484){
4301 return l126.fvalue(pv, "var ", v484, "= ", l139.fvalue(pv, l3.value), ";", (function(){
4303 var value = symbol.value;
4304 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4306 })(), "for (var i = arguments.length-1; i>=", l17.fvalue(pv, (function(){
4308 if (typeof x1 !== 'number') throw 'Not a number!';
4310 if (typeof x2 !== 'number') throw 'Not a number!';
4312 if (typeof x3 !== 'number') throw 'Not a number!';
4314 })()), "; i--)", (function(){
4316 var value = symbol.value;
4317 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4319 })(), l137.fvalue(pv, v484, " = ", "{car: arguments[i], cdr: "), v484, "};", (function(){
4321 var value = symbol.value;
4322 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4325 })(l185.fvalue(pv, v475)) : ""), (function(v485){
4331 return l216.fvalue(pv, v472, l4.value);
4336 })(l4.value)), "})");
4341 })(l70.fvalue(pv, v473),l70.fvalue(pv, v474),l186.fvalue(pv, l63.fvalue(pv, l57.fvalue(pv, v475), v473, v474)));
4342 })(l208.fvalue(pv, v471),l210.fvalue(pv, v471),l211.fvalue(pv, v471),l3.value);
4347 var l217 = {name: "SETQ-PAIR"};
4348 var l218 = {name: "SET"};
4350 (l217).fvalue = (function(v490){
4351 ((v490)["fname"] = "SETQ-PAIR");
4353 })((function (values,v487,v488){
4354 checkArgs(arguments, 3);
4356 return (function(v489){
4357 return ((((l169.fvalue(pv, v489) === l101)?l4.value: l3.value) !== l3.value ? (l27.fvalue(pv, l85.fvalue(pv, l196, l171.fvalue(pv, v489))) !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l198, l171.fvalue(pv, v489))) : l3.value) : l3.value) !== l3.value ? l126.fvalue(values, l170.fvalue(pv, v489), " = ", l139.fvalue(pv, v488)) : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l218), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v487))), l43.fvalue(pv, v488))));
4358 })(l181.fvalue(pv, v487, (function(){
4360 var value = symbol.value;
4361 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4368 var l219 = {name: "SETQ"};
4369 ((l200).value = ({car: l43.fvalue(pv, l219, (function (values){
4371 for (var i = arguments.length-1; i>=1; i--)
4372 v491 = {car: arguments[i], cdr:
4375 return (function(v492){
4379 while(l4.value !== l3.value){
4380 (l12.fvalue(pv, v491) !== l3.value ? (function(){
4381 throw ({type: 'block', id: 184, values: l3.value, message: 'Return from unknown block NIL.'})
4382 })() : (l12.fvalue(pv, (function(){
4384 return tmp === l3.value? l3.value: tmp.cdr;
4385 })()) !== l3.value ? (function(){
4386 throw "Odd paris in SETQ";
4388 (v492 = l126.fvalue(pv, v492, l126.fvalue(pv, l217.fvalue(pv, (function(){
4390 return tmp === l3.value? l3.value: tmp.car;
4391 })(), l33.fvalue(pv, v491)), (l12.fvalue(pv, l35.fvalue(pv, v491)) !== l3.value ? "" : ", "))));
4392 return (v491 = l35.fvalue(pv, v491));
4398 if (cf.type == 'block' && cf.id == 184)
4404 return l126.fvalue(values, "(", v492, ")");
4407 })), cdr: (function(){
4409 var value = symbol.value;
4410 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4413 var l220 = {name: "JS-VREF"};
4414 ((l200).value = ({car: l43.fvalue(pv, l220, (function (values,v493){
4415 checkArgs(arguments, 2);
4419 })), cdr: (function(){
4421 var value = symbol.value;
4422 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4425 var l221 = {name: "JS-VSET"};
4426 ((l200).value = ({car: l43.fvalue(pv, l221, (function (values,v494,v495){
4427 checkArgs(arguments, 3);
4429 return l126.fvalue(values, "(", v494, " = ", l139.fvalue(pv, v495), ")");
4431 })), cdr: (function(){
4433 var value = symbol.value;
4434 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4438 (l142).fvalue = (function(v502){
4439 ((v502)["fname"] = "ESCAPE-STRING");
4441 })((function (values,v496){
4442 checkArgs(arguments, 2);
4444 return (function(v497,v498,v499){
4449 if (typeof x1 !== 'number') throw 'Not a number!';
4451 if (typeof x2 !== 'number') throw 'Not a number!';
4452 return (x1<x2?l4.value: l3.value);
4456 return (v501 !== l3.value ? v501 : l77.fvalue(pv, v500, 92));
4457 })(l77.fvalue(pv, v500, 34)) !== l3.value ? (v497 = l126.fvalue(pv, v497, "\\")) : l3.value);
4458 (l77.fvalue(pv, v500, 10) !== l3.value ? (function(){
4459 (v497 = l126.fvalue(pv, v497, "\\"));
4460 return (v500 = 110);
4462 return (v497 = l126.fvalue(pv, v497, l94.fvalue(pv, v500)));
4466 if (typeof string != 'string')
4467 throw 'The value ' + string + ' is not a type string.';
4468 if (typeof index != 'number')
4469 throw 'The value ' + index + ' is not a type number.';
4470 return string.charCodeAt(index);
4472 (v498 = (function(){
4474 if (typeof x1 !== 'number') throw 'Not a number!';
4476 if (typeof x2 !== 'number') throw 'Not a number!';
4483 })("",0,l70.fvalue(pv, v496));
4488 var l222 = {name: "*LITERAL-SYMBOLS*"};
4490 (((l222.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l222).value = l3.value));
4493 var l223 = {name: "*LITERAL-COUNTER*"};
4495 (((l223.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l223).value = 0));
4498 var l224 = {name: "GENLIT"};
4500 (l224).fvalue = (function(v503){
4501 ((v503)["fname"] = "GENLIT");
4503 })((function (values){
4504 checkArgsAtMost(arguments, 1);
4506 return l126.fvalue(values, "l", l17.fvalue(pv, ((l223).value = (function(){
4507 var x1 = (function(){
4509 var value = symbol.value;
4510 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4513 if (typeof x1 !== 'number') throw 'Not a number!';
4515 if (typeof x2 !== 'number') throw 'Not a number!';
4522 var l225 = {name: "LITERAL"};
4524 (l225).fvalue = (function(v518){
4525 ((v518)["fname"] = "LITERAL");
4527 })((function (values,v504,v505){
4528 checkArgsAtLeast(arguments, 2);
4529 checkArgsAtMost(arguments, 3);
4530 switch(arguments.length-1){
4536 return (l78.fvalue(pv, v504) !== l3.value ? l17.fvalue(values, v504) : (((typeof(v504) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v504), "\"") : (((function(){
4538 return (typeof tmp == 'object' && 'name' in tmp);
4539 })()?l4.value: l3.value) !== l3.value ? (function(v506){
4540 return (v506 !== l3.value ? v506 : (function(v508,v509){
4541 ((l222).value = ({car: ({car: v504, cdr: v508}), cdr: (function(){
4543 var value = symbol.value;
4544 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4547 l188.fvalue(pv, l126.fvalue(pv, "var ", v508, " = ", v509));
4549 })(l224.fvalue(pv),(function(v507){
4550 return (l12.fvalue(pv, v507) !== l3.value ? l126.fvalue(pv, "{name: \"", l142.fvalue(pv, (v504).name), "\"}") : l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l122), l43.fvalue(pv, (v504).name), l43.fvalue(pv, l108.fvalue(pv, v507)))));
4551 })(l116.fvalue(pv, v504))));
4553 var tmp = l93.fvalue(pv, v504, (function(){
4555 var value = symbol.value;
4556 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4559 return tmp === l3.value? l3.value: tmp.cdr;
4560 })()) : (((function(){
4562 return (typeof tmp == 'object' && 'car' in tmp);
4563 })()?l4.value: l3.value) !== l3.value ? (function(){
4564 var v510 = l84.fvalue(pv, v504);
4565 var v511 = l83.fvalue(pv, v504);
4566 var v512 = l126.fvalue(pv, "QIList(", l129.fvalue(pv, l72.fvalue(pv, (function (values,v513){
4567 checkArgs(arguments, 2);
4568 return l225.fvalue(values, v513, l4.value);
4569 }), v510), ","), l225.fvalue(pv, (function(){
4571 return tmp === l3.value? l3.value: tmp.car;
4572 })(), l4.value), ",", l225.fvalue(pv, (function(){
4574 return tmp === l3.value? l3.value: tmp.cdr;
4575 })(), l4.value), ")");
4576 return (v505 !== l3.value ? v512 : (function(v514){
4577 l188.fvalue(pv, l126.fvalue(pv, "var ", v514, " = ", v512));
4579 })(l224.fvalue(pv)));
4580 })() : (((function(){
4582 return typeof x === 'object' && 'length' in x;
4583 })()?l4.value: l3.value) !== l3.value ? (function(v515){
4584 return (function(v516){
4585 return (v505 !== l3.value ? v516 : (function(v517){
4586 l188.fvalue(pv, l126.fvalue(pv, "var ", v517, " = ", v516));
4588 })(l224.fvalue(pv)));
4589 })(l126.fvalue(pv, "[", l128.fvalue(pv, l72.fvalue(pv, (function(){
4591 var func = symbol.fvalue;
4592 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4594 })(), v515), ", "), "]"));
4595 })(l131.fvalue(pv, v504)) : l3.value)))));
4600 ((l200).value = ({car: l43.fvalue(pv, l161, (function (values,v519){
4601 checkArgs(arguments, 2);
4603 return l225.fvalue(values, v519);
4605 })), cdr: (function(){
4607 var value = symbol.value;
4608 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4611 var l226 = {name: "%WHILE"};
4612 ((l200).value = ({car: l43.fvalue(pv, l226, (function (values,v521){
4613 checkArgsAtLeast(arguments, 2);
4615 for (var i = arguments.length-1; i>=2; i--)
4616 v520 = {car: arguments[i], cdr:
4619 return l126.fvalue(values, "(function(){", (function(){
4621 var value = symbol.value;
4622 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4624 })(), l137.fvalue(pv, "while(", l139.fvalue(pv, v521), " !== ", l139.fvalue(pv, l3.value), "){", (function(){
4626 var value = symbol.value;
4627 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4629 })(), l137.fvalue(pv, l216.fvalue(pv, v520)), "}", "return ", l139.fvalue(pv, l3.value), ";", (function(){
4631 var value = symbol.value;
4632 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4636 })), cdr: (function(){
4638 var value = symbol.value;
4639 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4642 var l227 = {name: "SYMBOL-FUNCTION"};
4643 ((l200).value = ({car: l43.fvalue(pv, l100, (function (values,v522){
4644 checkArgs(arguments, 2);
4646 return ((l58.fvalue(pv, v522) !== l3.value ? (((function(){
4648 return tmp === l3.value? l3.value: tmp.car;
4649 })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l215.fvalue(values, l33.fvalue(pv, v522), l35.fvalue(pv, v522)) : (((function(){
4651 return (typeof tmp == 'object' && 'name' in tmp);
4652 })()?l4.value: l3.value) !== l3.value ? l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l227), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v522))))) : l3.value));
4654 })), cdr: (function(){
4656 var value = symbol.value;
4657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4660 var l228 = {name: "*COMPILING-FILE*"};
4662 (((l228.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l228).value = l3.value));
4665 var l229 = {name: "EVAL-WHEN-COMPILE"};
4666 var l230 = {name: "EVAL"};
4667 var l231 = {name: "PROGN"};
4668 ((l200).value = ({car: l43.fvalue(pv, l229, (function (values){
4670 for (var i = arguments.length-1; i>=1; i--)
4671 v523 = {car: arguments[i], cdr:
4674 return ((function(){
4676 var value = symbol.value;
4677 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4679 })() !== l3.value ? (function(){
4680 l230.fvalue(pv, ({car: l231, cdr: v523}));
4682 })() : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l231), v523)));
4684 })), cdr: (function(){
4686 var value = symbol.value;
4687 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4690 var l232 = {name: "DEFINE-TRANSFORMATION"};
4692 ((l200).value = ({car: l43.fvalue(pv, l231, (function (values){
4694 for (var i = arguments.length-1; i>=1; i--)
4695 v524 = {car: arguments[i], cdr:
4698 return (l12.fvalue(pv, (function(){
4700 return tmp === l3.value? l3.value: tmp.cdr;
4701 })()) !== l3.value ? l139.fvalue(values, (function(){
4703 return tmp === l3.value? l3.value: tmp.car;
4706 var value = symbol.value;
4707 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4709 })()) : l126.fvalue(values, "(function(){", (function(){
4711 var value = symbol.value;
4712 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4714 })(), l137.fvalue(pv, l216.fvalue(pv, v524, l4.value)), "})()"));
4716 })), cdr: (function(){
4718 var value = symbol.value;
4719 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4722 var l233 = {name: "SPECIAL-VARIABLE-P"};
4724 (l233).fvalue = (function(v526){
4725 ((v526)["fname"] = "SPECIAL-VARIABLE-P");
4727 })((function (values,v525){
4728 checkArgs(arguments, 2);
4730 return (l194.fvalue(pv, v525, l101, l196) !== l3.value ? l4.value : l3.value);
4735 var l234 = {name: "LET-BINDING-WRAPPER"};
4737 (l234).fvalue = (function(v533){
4738 ((v533)["fname"] = "LET-BINDING-WRAPPER");
4740 })((function (values,v527,v528){
4741 checkArgs(arguments, 3);
4744 (l12.fvalue(pv, v527) !== l3.value ? (function(){
4746 throw ({type: 'block', id: 197, values: v528, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
4748 return l126.fvalue(values, "try {", (function(){
4750 var value = symbol.value;
4751 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4753 })(), l137.fvalue(pv, "var tmp;", (function(){
4755 var value = symbol.value;
4756 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4758 })(), l130.fvalue(pv, (function (values,v529){
4759 checkArgs(arguments, 2);
4760 return (function(v530){
4761 return l126.fvalue(values, "tmp = ", v530, ".value;", (function(){
4763 var value = symbol.value;
4764 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4766 })(), v530, ".value = ", (function(){
4768 return tmp === l3.value? l3.value: tmp.cdr;
4769 })(), ";", (function(){
4771 var value = symbol.value;
4772 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4776 return tmp === l3.value? l3.value: tmp.cdr;
4777 })(), " = tmp;", (function(){
4779 var value = symbol.value;
4780 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4783 })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4785 return tmp === l3.value? l3.value: tmp.car;
4787 }), v527), v528, (function(){
4789 var value = symbol.value;
4790 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4792 })()), "}", (function(){
4794 var value = symbol.value;
4795 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4797 })(), "finally {", (function(){
4799 var value = symbol.value;
4800 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4802 })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v531){
4803 checkArgs(arguments, 2);
4804 return (function(v532){
4805 return l126.fvalue(values, v532, ".value", " = ", (function(){
4807 return tmp === l3.value? l3.value: tmp.cdr;
4808 })(), ";", (function(){
4810 var value = symbol.value;
4811 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4814 })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4816 return tmp === l3.value? l3.value: tmp.car;
4818 }), v527)), "}", (function(){
4820 var value = symbol.value;
4821 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4826 if (cf.type == 'block' && cf.id == 197)
4827 return values.apply(this, forcemv(cf.values));
4835 var l235 = {name: "LET"};
4836 ((l200).value = ({car: l43.fvalue(pv, l235, (function (values,v535){
4837 checkArgsAtLeast(arguments, 2);
4839 for (var i = arguments.length-1; i>=2; i--)
4840 v534 = {car: arguments[i], cdr:
4845 var v543 = l182.value;
4846 var v536 = l72.fvalue(pv, (function(){
4848 var func = symbol.fvalue;
4849 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4852 var v537 = l72.fvalue(pv, (function(){
4854 var func = symbol.fvalue;
4855 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4858 var v538 = l72.fvalue(pv, (function(){
4860 var func = symbol.fvalue;
4861 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4863 })(), l72.fvalue(pv, (function(){
4865 var func = symbol.fvalue;
4866 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4869 ((l182).value = l186.fvalue(pv, l87.fvalue(pv, (function(){
4871 var func = symbol.fvalue;
4872 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4875 var v539 = l3.value;
4876 return l126.fvalue(values, "(function(", l128.fvalue(pv, l72.fvalue(pv, (function (values,v540){
4877 checkArgs(arguments, 2);
4878 return (l233.fvalue(pv, v540) !== l3.value ? (function(v541){
4879 (v539 = ({car: ({car: v540, cdr: v541}), cdr: v539}));
4881 })(l184.fvalue(pv, v540)) : l185.fvalue(values, v540));
4882 }), v537), ","), "){", (function(){
4884 var value = symbol.value;
4885 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4887 })(), (function(v542){
4888 return l137.fvalue(pv, l234.fvalue(pv, v539, v542));
4889 })(l216.fvalue(pv, v534, l4.value)), "})(", l128.fvalue(pv, v538, ","), ")");
4896 })), cdr: (function(){
4898 var value = symbol.value;
4899 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4902 var l236 = {name: "LET*-INITIALIZE-VALUE"};
4904 (l236).fvalue = (function(v550){
4905 ((v550)["fname"] = "LET*-INITIALIZE-VALUE");
4907 })((function (values,v544){
4908 checkArgs(arguments, 2);
4910 return (function(v545,v546){
4911 return (l233.fvalue(pv, v545) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l219), l43.fvalue(pv, v545), l43.fvalue(pv, v546))), ";", (function(){
4913 var value = symbol.value;
4914 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4916 })()) : (function(){
4917 var v547 = l184.fvalue(pv, v545);
4918 var v548 = l167.fvalue(pv, v545, l101, v547);
4919 return (function(v549){
4920 l177.fvalue(pv, v548, (function(){
4922 var value = symbol.value;
4923 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4927 })(l126.fvalue(pv, "var ", v547, " = ", l139.fvalue(pv, v546), ";", (function(){
4929 var value = symbol.value;
4930 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4934 })(l39.fvalue(pv, v544),l40.fvalue(pv, v544));
4939 var l237 = {name: "LET*-BINDING-WRAPPER"};
4941 (l237).fvalue = (function(v559){
4942 ((v559)["fname"] = "LET*-BINDING-WRAPPER");
4944 })((function (values,v551,v552){
4945 checkArgs(arguments, 3);
4948 (l12.fvalue(pv, v551) !== l3.value ? (function(){
4950 throw ({type: 'block', id: 200, values: v552, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
4952 return (function(v554){
4953 return l126.fvalue(values, "try {", (function(){
4955 var value = symbol.value;
4956 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4958 })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v555){
4959 checkArgs(arguments, 2);
4960 return (function(v556){
4961 return l126.fvalue(values, "var ", (function(){
4963 return tmp === l3.value? l3.value: tmp.cdr;
4964 })(), " = ", v556, ".value;", (function(){
4966 var value = symbol.value;
4967 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4970 })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4972 return tmp === l3.value? l3.value: tmp.car;
4974 }), v554), v552), "}", (function(){
4976 var value = symbol.value;
4977 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4979 })(), "finally {", (function(){
4981 var value = symbol.value;
4982 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4984 })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v557){
4985 checkArgs(arguments, 2);
4986 return (function(v558){
4987 return l126.fvalue(values, v558, ".value", " = ", (function(){
4989 return tmp === l3.value? l3.value: tmp.cdr;
4990 })(), ";", (function(){
4992 var value = symbol.value;
4993 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4996 })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4998 return tmp === l3.value? l3.value: tmp.car;
5000 }), v554)), "}", (function(){
5002 var value = symbol.value;
5003 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5006 })(l72.fvalue(pv, (function (values,v553){
5007 checkArgs(arguments, 2);
5008 return ({car: v553, cdr: l184.fvalue(pv, v553)});
5009 }), l88.fvalue(pv, (function(){
5011 var func = symbol.fvalue;
5012 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5017 if (cf.type == 'block' && cf.id == 200)
5018 return values.apply(this, forcemv(cf.values));
5026 var l238 = {name: "LET*"};
5027 ((l200).value = ({car: l43.fvalue(pv, l238, (function (values,v561){
5028 checkArgsAtLeast(arguments, 2);
5030 for (var i = arguments.length-1; i>=2; i--)
5031 v560 = {car: arguments[i], cdr:
5034 return (function(v562,v563){
5040 return l126.fvalue(values, "(function(){", (function(){
5042 var value = symbol.value;
5043 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5045 })(), l137.fvalue(pv, (function(v564,v565){
5046 return l237.fvalue(pv, v564, v565);
5047 })(l88.fvalue(pv, (function(){
5049 var func = symbol.fvalue;
5050 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5052 })(), l72.fvalue(pv, (function(){
5054 var func = symbol.fvalue;
5055 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5057 })(), v562)),l126.fvalue(pv, l130.fvalue(pv, (function(){
5059 var func = symbol.fvalue;
5060 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5062 })(), v562), l216.fvalue(pv, v560, l4.value)))), "})()");
5067 })(l72.fvalue(pv, (function(){
5069 var func = symbol.fvalue;
5070 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5072 })(), v561),l176.fvalue(pv, (function(){
5074 var value = symbol.value;
5075 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5079 })), cdr: (function(){
5081 var value = symbol.value;
5082 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5085 var l239 = {name: "*BLOCK-COUNTER*"};
5087 (((l239.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l239).value = 0));
5090 var l240 = {name: "MULTIPLE-VALUE"};
5091 var l241 = {name: "USED"};
5092 ((l200).value = ({car: l43.fvalue(pv, l178, (function (values,v567){
5093 checkArgsAtLeast(arguments, 2);
5095 for (var i = arguments.length-1; i>=2; i--)
5096 v566 = {car: arguments[i], cdr:
5100 var v568 = l17.fvalue(pv, ((l239).value = (function(){
5101 var x1 = (function(){
5103 var value = symbol.value;
5104 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5107 if (typeof x1 !== 'number') throw 'Not a number!';
5109 if (typeof x2 !== 'number') throw 'Not a number!';
5112 var v569 = l167.fvalue(pv, v567, l178, v568);
5115 var value = symbol.value;
5116 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5118 })() !== l3.value ? l174.fvalue(pv, l240, v569) : l3.value);
5121 var v571 = l182.value;
5122 ((l182).value = l180.fvalue(pv, l43.fvalue(pv, v569), (function(){
5124 var value = symbol.value;
5125 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5128 var v570 = l216.fvalue(pv, v566, l4.value);
5129 return (l85.fvalue(pv, l241, l171.fvalue(pv, v569)) !== l3.value ? l126.fvalue(values, "(function(){", (function(){
5131 var value = symbol.value;
5132 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5134 })(), l137.fvalue(pv, "try {", (function(){
5136 var value = symbol.value;
5137 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5139 })(), l137.fvalue(pv, v570), "}", (function(){
5141 var value = symbol.value;
5142 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5144 })(), "catch (cf){", (function(){
5146 var value = symbol.value;
5147 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5149 })(), " if (cf.type == 'block' && cf.id == ", v568, ")", (function(){
5151 var value = symbol.value;
5152 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5156 var value = symbol.value;
5157 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5159 })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){
5161 var value = symbol.value;
5162 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5164 })(), " else", (function(){
5166 var value = symbol.value;
5167 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5169 })(), " throw cf;", (function(){
5171 var value = symbol.value;
5172 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5174 })(), "}", (function(){
5176 var value = symbol.value;
5177 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5179 })()), "})()") : l126.fvalue(values, "(function(){", (function(){
5181 var value = symbol.value;
5182 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5184 })(), l137.fvalue(pv, v570), "})()"));
5192 })), cdr: (function(){
5194 var value = symbol.value;
5195 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5198 var l242 = {name: "RETURN-FROM"};
5199 ((l200).value = ({car: l43.fvalue(pv, l242, (function (values,v572,v573){
5200 checkArgsAtLeast(arguments, 2);
5201 checkArgsAtMost(arguments, 3);
5202 switch(arguments.length-1){
5209 var v574 = l181.fvalue(pv, v572, (function(){
5211 var value = symbol.value;
5212 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5215 var v575 = l85.fvalue(pv, l240, l171.fvalue(pv, v574));
5216 (l12.fvalue(pv, v574) !== l3.value ? (function(){
5217 throw l126.fvalue(pv, "Unknown block `", (v572).name, "'.");
5219 l174.fvalue(pv, l241, v574);
5220 return l126.fvalue(values, "(function(){", (function(){
5222 var value = symbol.value;
5223 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5225 })(), l137.fvalue(pv, (v575 !== l3.value ? l126.fvalue(pv, "var values = mv;", (function(){
5227 var value = symbol.value;
5228 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5230 })()) : ""), "throw ({", "type: 'block', ", "id: ", l170.fvalue(pv, v574), ", ", "values: ", l139.fvalue(pv, v573, v575), ", ", "message: 'Return from unknown block ", (v572).name, ".'", "})"), "})()");
5233 })), cdr: (function(){
5235 var value = symbol.value;
5236 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5239 var l243 = {name: "CATCH"};
5240 ((l200).value = ({car: l43.fvalue(pv, l243, (function (values,v577){
5241 checkArgsAtLeast(arguments, 2);
5243 for (var i = arguments.length-1; i>=2; i--)
5244 v576 = {car: arguments[i], cdr:
5247 return l126.fvalue(values, "(function(){", (function(){
5249 var value = symbol.value;
5250 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5252 })(), l137.fvalue(pv, "var id = ", l139.fvalue(pv, v577), ";", (function(){
5254 var value = symbol.value;
5255 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5257 })(), "try {", (function(){
5259 var value = symbol.value;
5260 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5262 })(), l137.fvalue(pv, l216.fvalue(pv, v576, l4.value)), (function(){
5264 var value = symbol.value;
5265 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5267 })(), "}", (function(){
5269 var value = symbol.value;
5270 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5272 })(), "catch (cf){", (function(){
5274 var value = symbol.value;
5275 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5277 })(), " if (cf.type == 'catch' && cf.id == id)", (function(){
5279 var value = symbol.value;
5280 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5284 var value = symbol.value;
5285 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5287 })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){
5289 var value = symbol.value;
5290 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5292 })(), " else", (function(){
5294 var value = symbol.value;
5295 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5297 })(), " throw cf;", (function(){
5299 var value = symbol.value;
5300 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5302 })(), "}", (function(){
5304 var value = symbol.value;
5305 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5309 })), cdr: (function(){
5311 var value = symbol.value;
5312 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5315 var l244 = {name: "THROW"};
5316 ((l200).value = ({car: l43.fvalue(pv, l244, (function (values,v578,v579){
5317 checkArgs(arguments, 3);
5319 return l126.fvalue(values, "(function(){", (function(){
5321 var value = symbol.value;
5322 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5324 })(), l137.fvalue(pv, "var values = mv;", (function(){
5326 var value = symbol.value;
5327 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5329 })(), "throw ({", "type: 'catch', ", "id: ", l139.fvalue(pv, v578), ", ", "values: ", l139.fvalue(pv, v579, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5331 })), cdr: (function(){
5333 var value = symbol.value;
5334 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5337 var l245 = {name: "*TAGBODY-COUNTER*"};
5339 (((l245.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l245).value = 0));
5342 var l246 = {name: "*GO-TAG-COUNTER*"};
5344 (((l246.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l246).value = 0));
5347 var l247 = {name: "GO-TAG-P"};
5349 (l247).fvalue = (function(v582){
5350 ((v582)["fname"] = "GO-TAG-P");
5352 })((function (values,v580){
5353 checkArgs(arguments, 2);
5355 return (function(v581){
5356 return (v581 !== l3.value ? v581 : ((function(){
5358 return (typeof tmp == 'object' && 'name' in tmp);
5359 })()?l4.value: l3.value));
5360 })(l78.fvalue(pv, v580));
5365 var l248 = {name: "DECLARE-TAGBODY-TAGS"};
5367 (l248).fvalue = (function(v588){
5368 ((v588)["fname"] = "DECLARE-TAGBODY-TAGS");
5370 })((function (values,v583,v584){
5371 checkArgs(arguments, 3);
5373 return (function(v587){
5374 return l180.fvalue(values, v587, (function(){
5376 var value = symbol.value;
5377 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5380 })(l72.fvalue(pv, (function (values,v585){
5381 checkArgs(arguments, 2);
5382 return (function(v586){
5383 return l167.fvalue(values, v585, l179, l43.fvalue(pv, v583, v586));
5384 })(l17.fvalue(pv, ((l246).value = (function(){
5385 var x1 = (function(){
5387 var value = symbol.value;
5388 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5391 if (typeof x1 !== 'number') throw 'Not a number!';
5393 if (typeof x2 !== 'number') throw 'Not a number!';
5396 }), l88.fvalue(pv, (function(){
5398 var func = symbol.fvalue;
5399 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5406 var l249 = {name: "TAGBODY"};
5407 ((l200).value = ({car: l43.fvalue(pv, l249, (function (values){
5409 for (var i = arguments.length-1; i>=1; i--)
5410 v589 = {car: arguments[i], cdr:
5414 (l91.fvalue(pv, (function(){
5416 var func = symbol.fvalue;
5417 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5419 })(), v589) !== l3.value ? l3.value : (function(){
5421 throw ({type: 'block', id: 208, values: l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l231), v589, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
5423 (l247.fvalue(pv, (function(){
5425 return tmp === l3.value? l3.value: tmp.car;
5426 })()) !== l3.value ? l3.value : (v589 = ({car: l16.fvalue(pv, "START"), cdr: v589})));
5427 return (function(v590){
5428 return (function(v592,v591){
5435 return (v591 = l40.fvalue(pv, l170.fvalue(pv, v593)));
5436 })(l181.fvalue(pv, l39.fvalue(pv, v589), (function(){
5438 var value = symbol.value;
5439 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5442 return l126.fvalue(values, "(function(){", (function(){
5444 var value = symbol.value;
5445 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5447 })(), l137.fvalue(pv, "var tagbody_", v590, " = ", v591, ";", (function(){
5449 var value = symbol.value;
5450 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5452 })(), "tbloop:", (function(){
5454 var value = symbol.value;
5455 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5457 })(), "while (true) {", (function(){
5459 var value = symbol.value;
5460 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5462 })(), l137.fvalue(pv, "try {", (function(){
5464 var value = symbol.value;
5465 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5467 })(), l137.fvalue(pv, (function(v594){
5468 return l126.fvalue(pv, "switch(tagbody_", v590, "){", (function(){
5470 var value = symbol.value;
5471 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5473 })(), "case ", v591, ":", (function(){
5475 var value = symbol.value;
5476 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5479 return (function(v595,v596){
5481 while(v595 !== l3.value){
5482 (v596 = (function(){
5484 return tmp === l3.value? l3.value: tmp.car;
5487 (v594 = l126.fvalue(pv, v594, (l27.fvalue(pv, l247.fvalue(pv, v596)) !== l3.value ? l137.fvalue(pv, l139.fvalue(pv, v596), ";", (function(){
5489 var value = symbol.value;
5490 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5492 })()) : (function(v597){
5493 return l126.fvalue(pv, "case ", l40.fvalue(pv, l170.fvalue(pv, v597)), ":", (function(){
5495 var value = symbol.value;
5496 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5499 })(l181.fvalue(pv, v596, (function(){
5501 var value = symbol.value;
5502 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5507 (v595 = (function(){
5509 return tmp === l3.value? l3.value: tmp.cdr;
5516 return tmp === l3.value? l3.value: tmp.cdr;
5518 })(), "default:", (function(){
5520 var value = symbol.value;
5521 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5523 })(), " break tbloop;", (function(){
5525 var value = symbol.value;
5526 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5528 })(), "}", (function(){
5530 var value = symbol.value;
5531 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5534 })("")), "}", (function(){
5536 var value = symbol.value;
5537 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5539 })(), "catch (jump) {", (function(){
5541 var value = symbol.value;
5542 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5544 })(), " if (jump.type == 'tagbody' && jump.id == ", v590, ")", (function(){
5546 var value = symbol.value;
5547 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5549 })(), " tagbody_", v590, " = jump.label;", (function(){
5551 var value = symbol.value;
5552 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5554 })(), " else", (function(){
5556 var value = symbol.value;
5557 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5559 })(), " throw(jump);", (function(){
5561 var value = symbol.value;
5562 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5564 })(), "}", (function(){
5566 var value = symbol.value;
5567 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5569 })()), "}", (function(){
5571 var value = symbol.value;
5572 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5574 })(), "return ", l139.fvalue(pv, l3.value), ";", (function(){
5576 var value = symbol.value;
5577 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5584 })(l248.fvalue(pv, v590, v589),l3.value);
5585 })(l17.fvalue(pv, (function(){
5587 var value = symbol.value;
5588 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5593 if (cf.type == 'block' && cf.id == 208)
5594 return values.apply(this, forcemv(cf.values));
5599 })), cdr: (function(){
5601 var value = symbol.value;
5602 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5605 var l250 = {name: "GO"};
5606 ((l200).value = ({car: l43.fvalue(pv, l250, (function (values,v598){
5607 checkArgs(arguments, 2);
5609 return (function(v599,v600){
5610 return (v599 !== l3.value ? l126.fvalue(values, "(function(){", (function(){
5612 var value = symbol.value;
5613 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5615 })(), l137.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l170.fvalue(pv, v599)), ", ", "label: ", l40.fvalue(pv, l170.fvalue(pv, v599)), ", ", "message: 'Attempt to GO to non-existing tag ", v600, "'", "})", (function(){
5617 var value = symbol.value;
5618 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5620 })()), "})()") : (function(){
5621 throw l126.fvalue(pv, "Unknown tag `", v600, "'.");
5623 })(l181.fvalue(pv, v598, (function(){
5625 var value = symbol.value;
5626 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5628 })(), l179),(((function(){
5630 return (typeof tmp == 'object' && 'name' in tmp);
5631 })()?l4.value: l3.value) !== l3.value ? (v598).name : (l78.fvalue(pv, v598) !== l3.value ? l17.fvalue(pv, v598) : l3.value)));
5633 })), cdr: (function(){
5635 var value = symbol.value;
5636 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5639 var l251 = {name: "UNWIND-PROTECT"};
5640 ((l200).value = ({car: l43.fvalue(pv, l251, (function (values,v602){
5641 checkArgsAtLeast(arguments, 2);
5643 for (var i = arguments.length-1; i>=2; i--)
5644 v601 = {car: arguments[i], cdr:
5647 return l126.fvalue(values, "(function(){", (function(){
5649 var value = symbol.value;
5650 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5652 })(), l137.fvalue(pv, "var ret = ", l139.fvalue(pv, l3.value), ";", (function(){
5654 var value = symbol.value;
5655 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5657 })(), "try {", (function(){
5659 var value = symbol.value;
5660 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5662 })(), l137.fvalue(pv, "ret = ", l139.fvalue(pv, v602), ";", (function(){
5664 var value = symbol.value;
5665 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5667 })()), "} finally {", (function(){
5669 var value = symbol.value;
5670 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5672 })(), l137.fvalue(pv, l216.fvalue(pv, v601)), "}", (function(){
5674 var value = symbol.value;
5675 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5677 })(), "return ret;", (function(){
5679 var value = symbol.value;
5680 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5684 })), cdr: (function(){
5686 var value = symbol.value;
5687 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5690 var l252 = {name: "MULTIPLE-VALUE-CALL"};
5691 ((l200).value = ({car: l43.fvalue(pv, l252, (function (values,v604){
5692 checkArgsAtLeast(arguments, 2);
5694 for (var i = arguments.length-1; i>=2; i--)
5695 v603 = {car: arguments[i], cdr:
5698 return l126.fvalue(values, "(function(){", (function(){
5700 var value = symbol.value;
5701 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5703 })(), l137.fvalue(pv, "var func = ", l139.fvalue(pv, v604), ";", (function(){
5705 var value = symbol.value;
5706 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5708 })(), "var args = [", ((function(){
5710 var value = symbol.value;
5711 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5713 })() !== l3.value ? "values" : "pv"), "];", (function(){
5715 var value = symbol.value;
5716 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5718 })(), "return ", l126.fvalue(pv, "(function(){", (function(){
5720 var value = symbol.value;
5721 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5723 })(), l137.fvalue(pv, "var values = mv;", (function(){
5725 var value = symbol.value;
5726 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5728 })(), "var vs;", (function(){
5730 var value = symbol.value;
5731 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5733 })(), l130.fvalue(pv, (function (values,v605){
5734 checkArgs(arguments, 2);
5735 return l126.fvalue(values, "vs = ", l139.fvalue(pv, v605, l4.value), ";", (function(){
5737 var value = symbol.value;
5738 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5740 })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
5742 var value = symbol.value;
5743 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5745 })(), l137.fvalue(pv, "args = args.concat(vs);", (function(){
5747 var value = symbol.value;
5748 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5750 })()), "else", (function(){
5752 var value = symbol.value;
5753 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5755 })(), l137.fvalue(pv, "args.push(vs);", (function(){
5757 var value = symbol.value;
5758 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5761 }), v603), "return func.apply(window, args);", (function(){
5763 var value = symbol.value;
5764 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5766 })()), "})()"), ";", (function(){
5768 var value = symbol.value;
5769 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5773 })), cdr: (function(){
5775 var value = symbol.value;
5776 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5779 var l253 = {name: "MULTIPLE-VALUE-PROG1"};
5780 ((l200).value = ({car: l43.fvalue(pv, l253, (function (values,v607){
5781 checkArgsAtLeast(arguments, 2);
5783 for (var i = arguments.length-1; i>=2; i--)
5784 v606 = {car: arguments[i], cdr:
5787 return l126.fvalue(values, "(function(){", (function(){
5789 var value = symbol.value;
5790 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5792 })(), l137.fvalue(pv, "var args = ", l139.fvalue(pv, v607, (function(){
5794 var value = symbol.value;
5795 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5797 })()), ";", (function(){
5799 var value = symbol.value;
5800 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5802 })(), l216.fvalue(pv, v606), "return args;", (function(){
5804 var value = symbol.value;
5805 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5809 })), cdr: (function(){
5811 var value = symbol.value;
5812 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5815 var l254 = {name: "BACKQUOTE-EXPAND-1"};
5817 (l254).fvalue = (function(v610){
5818 ((v610)["fname"] = "BACKQUOTE-EXPAND-1");
5820 })((function (values,v608){
5821 checkArgs(arguments, 2);
5823 return (((function(){
5825 return (typeof tmp == 'object' && 'name' in tmp);
5826 })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l161, v608) : (l44.fvalue(pv, v608) !== l3.value ? v608 : ((((function(){
5828 return tmp === l3.value? l3.value: tmp.car;
5829 })() === l164)?l4.value: l3.value) !== l3.value ? (function(){
5831 return tmp === l3.value? l3.value: tmp.car;
5832 })() : ((((function(){
5834 return tmp === l3.value? l3.value: tmp.car;
5835 })() === l162)?l4.value: l3.value) !== l3.value ? l254.fvalue(values, l254.fvalue(pv, l33.fvalue(pv, v608))) : ({car: l63, cdr: l72.fvalue(pv, (function (values,v609){
5836 checkArgs(arguments, 2);
5837 return ((l58.fvalue(pv, v609) !== l3.value ? (((function(){
5839 return tmp === l3.value? l3.value: tmp.car;
5840 })() === l164)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v609)) : ((l58.fvalue(pv, v609) !== l3.value ? (((function(){
5842 return tmp === l3.value? l3.value: tmp.car;
5843 })() === l163)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v609) : l43.fvalue(values, l43, l254.fvalue(pv, v609))));
5849 var l255 = {name: "BACKQUOTE-EXPAND"};
5851 (l255).fvalue = (function(v612){
5852 ((v612)["fname"] = "BACKQUOTE-EXPAND");
5854 })((function (values,v611){
5855 checkArgs(arguments, 2);
5857 return ((l58.fvalue(pv, v611) !== l3.value ? (((function(){
5859 return tmp === l3.value? l3.value: tmp.car;
5860 })() === l162)?l4.value: l3.value) : l3.value) !== l3.value ? l254.fvalue(values, l33.fvalue(pv, v611)) : v611);
5866 ((l200).value = ({car: l43.fvalue(pv, l162, (function (values,v613){
5867 checkArgs(arguments, 2);
5869 return l139.fvalue(values, l254.fvalue(pv, v613));
5871 })), cdr: (function(){
5873 var value = symbol.value;
5874 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5877 var l256 = {name: "*BUILTINS*"};
5879 (((l256.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l256).value = l3.value));
5882 var l257 = {name: "DEFINE-RAW-BUILTIN"};
5884 var l258 = {name: "DEFINE-BUILTIN"};
5886 var l259 = {name: "TYPE-CHECK"};
5888 var l260 = {name: "VARIABLE-ARITY-CALL"};
5890 (l260).fvalue = (function(v622){
5891 ((v622)["fname"] = "VARIABLE-ARITY-CALL");
5893 })((function (values,v614,v615){
5894 checkArgs(arguments, 3);
5898 return (typeof tmp == 'object' && 'car' in tmp);
5899 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
5900 throw "ARGS must be a non-empty list";
5902 return (function(v616,v617,v618){
5904 return (function(v619,v620){
5906 while(v619 !== l3.value){
5907 (v620 = (function(){
5909 return tmp === l3.value? l3.value: tmp.car;
5913 (v617 = ({car: v621, cdr: v617}));
5914 return (v618 = l126.fvalue(pv, v618, l126.fvalue(pv, "var ", v621, " = ", l139.fvalue(pv, v620), ";", (function(){
5916 var value = symbol.value;
5917 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5919 })(), "if (typeof ", v621, " !== 'number') throw 'Not a number!';", (function(){
5921 var value = symbol.value;
5922 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5925 })(l126.fvalue(pv, "x", l17.fvalue(pv, (v616 = (function(){
5927 if (typeof x1 !== 'number') throw 'Not a number!';
5929 if (typeof x2 !== 'number') throw 'Not a number!';
5934 (v619 = (function(){
5936 return tmp === l3.value? l3.value: tmp.cdr;
5943 return l126.fvalue(values, "(function(){", (function(){
5945 var value = symbol.value;
5946 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5948 })(), l137.fvalue(pv, v618, (v615)(pv, l65.fvalue(pv, v617))), "})()");
5954 var l261 = {name: "VARIABLE-ARITY"};
5956 var l262 = {name: "NUM-OP-NUM"};
5958 (l262).fvalue = (function(v626){
5959 ((v626)["fname"] = "NUM-OP-NUM");
5961 })((function (values,v623,v624,v625){
5962 checkArgs(arguments, 4);
5964 return l126.fvalue(values, "(function(){", (function(){
5966 var value = symbol.value;
5967 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5969 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v623, ";", (function(){
5971 var value = symbol.value;
5972 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5974 })()), l126.fvalue(pv, "var ", "y", " = ", v625, ";", (function(){
5976 var value = symbol.value;
5977 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5979 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
5981 var value = symbol.value;
5982 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5984 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
5986 var value = symbol.value;
5987 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5989 })())), l126.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
5991 var value = symbol.value;
5992 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5994 })(), l137.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
5996 var value = symbol.value;
5997 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5999 })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "x", v624, "y"), ";", (function(){
6001 var value = symbol.value;
6002 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6009 ((l256).value = ({car: l43.fvalue(pv, l60, (function (values){
6011 for (var i = arguments.length-1; i>=1; i--)
6012 v627 = {car: arguments[i], cdr:
6015 return (l12.fvalue(pv, v627) !== l3.value ? "0" : l260.fvalue(values, v627, (function (values,v628){
6016 checkArgs(arguments, 2);
6017 return l126.fvalue(values, "return ", l128.fvalue(pv, v628, "+"), ";", (function(){
6019 var value = symbol.value;
6020 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6025 })), cdr: (function(){
6027 var value = symbol.value;
6028 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6031 ((l256).value = ({car: l43.fvalue(pv, l61, (function (values,v630){
6032 checkArgsAtLeast(arguments, 2);
6034 for (var i = arguments.length-1; i>=2; i--)
6035 v629 = {car: arguments[i], cdr:
6038 return (function(v631){
6039 return l260.fvalue(values, v631, (function (values,v632){
6040 checkArgs(arguments, 2);
6041 return l126.fvalue(values, "return ", (l12.fvalue(pv, v629) !== l3.value ? l126.fvalue(pv, "-", (function(){
6043 return tmp === l3.value? l3.value: tmp.car;
6044 })()) : l128.fvalue(pv, v632, "-")), ";", (function(){
6046 var value = symbol.value;
6047 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6051 })(({car: v630, cdr: v629}));
6053 })), cdr: (function(){
6055 var value = symbol.value;
6056 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6059 ((l256).value = ({car: l43.fvalue(pv, l20, (function (values){
6061 for (var i = arguments.length-1; i>=1; i--)
6062 v633 = {car: arguments[i], cdr:
6065 return (l12.fvalue(pv, v633) !== l3.value ? "1" : l260.fvalue(values, v633, (function (values,v634){
6066 checkArgs(arguments, 2);
6067 return l126.fvalue(values, "return ", l128.fvalue(pv, v634, "*"), ";", (function(){
6069 var value = symbol.value;
6070 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6075 })), cdr: (function(){
6077 var value = symbol.value;
6078 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6081 ((l256).value = ({car: l43.fvalue(pv, l21, (function (values,v636){
6082 checkArgsAtLeast(arguments, 2);
6084 for (var i = arguments.length-1; i>=2; i--)
6085 v635 = {car: arguments[i], cdr:
6088 return (function(v637){
6089 return l260.fvalue(values, v637, (function (values,v638){
6090 checkArgs(arguments, 2);
6091 return l126.fvalue(values, "return ", (l12.fvalue(pv, v635) !== l3.value ? l126.fvalue(pv, "1 /", (function(){
6093 return tmp === l3.value? l3.value: tmp.car;
6094 })()) : l128.fvalue(pv, v638, "/")), ";", (function(){
6096 var value = symbol.value;
6097 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6101 })(({car: v636, cdr: v635}));
6103 })), cdr: (function(){
6105 var value = symbol.value;
6106 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6109 var l263 = {name: "MOD"};
6110 ((l256).value = ({car: l43.fvalue(pv, l263, (function (values,v639,v640){
6111 checkArgs(arguments, 3);
6113 return (function(v641,v642){
6114 return l262.fvalue(values, v641, "%", v642);
6115 })(l139.fvalue(pv, v639),l139.fvalue(pv, v640));
6117 })), cdr: (function(){
6119 var value = symbol.value;
6120 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6123 var l264 = {name: "COMPARISON-CONJUNTION"};
6125 (l264).fvalue = (function(v645){
6126 ((v645)["fname"] = "COMPARISON-CONJUNTION");
6128 })((function (values,v643,v644){
6129 checkArgs(arguments, 3);
6131 return (l12.fvalue(pv, (function(){
6133 return tmp === l3.value? l3.value: tmp.cdr;
6134 })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v643)) !== l3.value ? l126.fvalue(values, (function(){
6136 return tmp === l3.value? l3.value: tmp.car;
6137 })(), v644, l33.fvalue(pv, v643)) : l126.fvalue(values, (function(){
6139 return tmp === l3.value? l3.value: tmp.car;
6140 })(), v644, l33.fvalue(pv, v643), " && ", l264.fvalue(pv, (function(){
6142 return tmp === l3.value? l3.value: tmp.cdr;
6148 var l265 = {name: "DEFINE-BUILTIN-COMPARISON"};
6150 var l266 = {name: ">"};
6151 ((l256).value = ({car: l43.fvalue(pv, l266, (function (values,v647){
6152 checkArgsAtLeast(arguments, 2);
6154 for (var i = arguments.length-1; i>=2; i--)
6155 v646 = {car: arguments[i], cdr:
6158 return (function(v648){
6159 return l260.fvalue(values, v648, (function (values,v649){
6160 checkArgs(arguments, 2);
6161 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v649, ">")), ";", (function(){
6163 var value = symbol.value;
6164 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6168 })(({car: v647, cdr: v646}));
6170 })), cdr: (function(){
6172 var value = symbol.value;
6173 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6176 var l267 = {name: "<"};
6177 ((l256).value = ({car: l43.fvalue(pv, l267, (function (values,v651){
6178 checkArgsAtLeast(arguments, 2);
6180 for (var i = arguments.length-1; i>=2; i--)
6181 v650 = {car: arguments[i], cdr:
6184 return (function(v652){
6185 return l260.fvalue(values, v652, (function (values,v653){
6186 checkArgs(arguments, 2);
6187 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v653, "<")), ";", (function(){
6189 var value = symbol.value;
6190 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6194 })(({car: v651, cdr: v650}));
6196 })), cdr: (function(){
6198 var value = symbol.value;
6199 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6202 var l268 = {name: ">="};
6203 ((l256).value = ({car: l43.fvalue(pv, l268, (function (values,v655){
6204 checkArgsAtLeast(arguments, 2);
6206 for (var i = arguments.length-1; i>=2; i--)
6207 v654 = {car: arguments[i], cdr:
6210 return (function(v656){
6211 return l260.fvalue(values, v656, (function (values,v657){
6212 checkArgs(arguments, 2);
6213 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v657, ">=")), ";", (function(){
6215 var value = symbol.value;
6216 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6220 })(({car: v655, cdr: v654}));
6222 })), cdr: (function(){
6224 var value = symbol.value;
6225 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6228 var l269 = {name: "<="};
6229 ((l256).value = ({car: l43.fvalue(pv, l269, (function (values,v659){
6230 checkArgsAtLeast(arguments, 2);
6232 for (var i = arguments.length-1; i>=2; i--)
6233 v658 = {car: arguments[i], cdr:
6236 return (function(v660){
6237 return l260.fvalue(values, v660, (function (values,v661){
6238 checkArgs(arguments, 2);
6239 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v661, "<=")), ";", (function(){
6241 var value = symbol.value;
6242 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6246 })(({car: v659, cdr: v658}));
6248 })), cdr: (function(){
6250 var value = symbol.value;
6251 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6254 ((l256).value = ({car: l43.fvalue(pv, l19, (function (values,v663){
6255 checkArgsAtLeast(arguments, 2);
6257 for (var i = arguments.length-1; i>=2; i--)
6258 v662 = {car: arguments[i], cdr:
6261 return (function(v664){
6262 return l260.fvalue(values, v664, (function (values,v665){
6263 checkArgs(arguments, 2);
6264 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v665, "==")), ";", (function(){
6266 var value = symbol.value;
6267 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6271 })(({car: v663, cdr: v662}));
6273 })), cdr: (function(){
6275 var value = symbol.value;
6276 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6279 var l270 = {name: "NUMBERP"};
6280 ((l256).value = ({car: l43.fvalue(pv, l270, (function (values,v666){
6281 checkArgs(arguments, 2);
6283 return (function(v667){
6284 return l138.fvalue(values, l126.fvalue(pv, "(typeof (", v667, ") == \"number\")"));
6285 })(l139.fvalue(pv, v666));
6287 })), cdr: (function(){
6289 var value = symbol.value;
6290 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6293 var l271 = {name: "FLOOR"};
6294 ((l256).value = ({car: l43.fvalue(pv, l271, (function (values,v668){
6295 checkArgs(arguments, 2);
6297 return (function(v669){
6298 return l126.fvalue(values, "(function(){", (function(){
6300 var value = symbol.value;
6301 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6303 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v669, ";", (function(){
6305 var value = symbol.value;
6306 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6308 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6310 var value = symbol.value;
6311 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6313 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6315 var value = symbol.value;
6316 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6318 })())), l126.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
6320 var value = symbol.value;
6321 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6324 })(l139.fvalue(pv, v668));
6326 })), cdr: (function(){
6328 var value = symbol.value;
6329 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6332 ((l256).value = ({car: l43.fvalue(pv, l28, (function (values,v670,v671){
6333 checkArgs(arguments, 3);
6335 return (function(v672,v673){
6336 return l126.fvalue(values, "({car: ", v672, ", cdr: ", v673, "})");
6337 })(l139.fvalue(pv, v670),l139.fvalue(pv, v671));
6339 })), cdr: (function(){
6341 var value = symbol.value;
6342 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6345 ((l256).value = ({car: l43.fvalue(pv, l29, (function (values,v674){
6346 checkArgs(arguments, 2);
6348 return (function(v675){
6349 return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
6351 var value = symbol.value;
6352 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6354 })(), l137.fvalue(pv, "var tmp = ", v675, ";", (function(){
6356 var value = symbol.value;
6357 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6359 })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
6361 var value = symbol.value;
6362 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6365 })(l139.fvalue(pv, v674));
6367 })), cdr: (function(){
6369 var value = symbol.value;
6370 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6373 ((l256).value = ({car: l43.fvalue(pv, l30, (function (values,v676){
6374 checkArgs(arguments, 2);
6376 return (function(v677){
6377 return l126.fvalue(values, "(function(){", (function(){
6379 var value = symbol.value;
6380 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6382 })(), l137.fvalue(pv, "var tmp = ", v677, ";", (function(){
6384 var value = symbol.value;
6385 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6387 })(), "return tmp === ", l139.fvalue(pv, l3.value), "? ", l139.fvalue(pv, l3.value), ": tmp.car;", (function(){
6389 var value = symbol.value;
6390 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6393 })(l139.fvalue(pv, v676));
6395 })), cdr: (function(){
6397 var value = symbol.value;
6398 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6401 ((l256).value = ({car: l43.fvalue(pv, l31, (function (values,v678){
6402 checkArgs(arguments, 2);
6404 return (function(v679){
6405 return l126.fvalue(values, "(function(){", (function(){
6407 var value = symbol.value;
6408 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6410 })(), l137.fvalue(pv, "var tmp = ", v679, ";", (function(){
6412 var value = symbol.value;
6413 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6415 })(), "return tmp === ", l139.fvalue(pv, l3.value), "? ", l139.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
6417 var value = symbol.value;
6418 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6421 })(l139.fvalue(pv, v678));
6423 })), cdr: (function(){
6425 var value = symbol.value;
6426 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6429 var l272 = {name: "RPLACA"};
6430 ((l256).value = ({car: l43.fvalue(pv, l272, (function (values,v680,v681){
6431 checkArgs(arguments, 3);
6433 return (function(v682,v683){
6434 return l126.fvalue(values, "(function(){", (function(){
6436 var value = symbol.value;
6437 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6439 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v682, ";", (function(){
6441 var value = symbol.value;
6442 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6444 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6446 var value = symbol.value;
6447 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6449 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6451 var value = symbol.value;
6452 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6454 })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "(x.car = ", v683, ", x)"), ";", (function(){
6456 var value = symbol.value;
6457 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6460 })(l139.fvalue(pv, v680),l139.fvalue(pv, v681));
6462 })), cdr: (function(){
6464 var value = symbol.value;
6465 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6468 var l273 = {name: "RPLACD"};
6469 ((l256).value = ({car: l43.fvalue(pv, l273, (function (values,v684,v685){
6470 checkArgs(arguments, 3);
6472 return (function(v686,v687){
6473 return l126.fvalue(values, "(function(){", (function(){
6475 var value = symbol.value;
6476 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6478 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v686, ";", (function(){
6480 var value = symbol.value;
6481 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6483 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6485 var value = symbol.value;
6486 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6488 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6490 var value = symbol.value;
6491 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6493 })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "(x.cdr = ", v687, ", x)"), ";", (function(){
6495 var value = symbol.value;
6496 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6499 })(l139.fvalue(pv, v684),l139.fvalue(pv, v685));
6501 })), cdr: (function(){
6503 var value = symbol.value;
6504 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6507 var l274 = {name: "SYMBOLP"};
6508 ((l256).value = ({car: l43.fvalue(pv, l274, (function (values,v688){
6509 checkArgs(arguments, 2);
6511 return (function(v689){
6512 return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
6514 var value = symbol.value;
6515 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6517 })(), l137.fvalue(pv, "var tmp = ", v689, ";", (function(){
6519 var value = symbol.value;
6520 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6522 })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
6524 var value = symbol.value;
6525 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6528 })(l139.fvalue(pv, v688));
6530 })), cdr: (function(){
6532 var value = symbol.value;
6533 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6536 var l275 = {name: "MAKE-SYMBOL"};
6537 ((l256).value = ({car: l43.fvalue(pv, l275, (function (values,v690){
6538 checkArgs(arguments, 2);
6540 return (function(v691){
6541 return l126.fvalue(values, "(function(){", (function(){
6543 var value = symbol.value;
6544 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6546 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "name", " = ", v691, ";", (function(){
6548 var value = symbol.value;
6549 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6551 })()), l126.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
6553 var value = symbol.value;
6554 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6556 })(), l137.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
6558 var value = symbol.value;
6559 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6561 })())), l126.fvalue(pv, "return ", "({name: name})", ";", (function(){
6563 var value = symbol.value;
6564 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6567 })(l139.fvalue(pv, v690));
6569 })), cdr: (function(){
6571 var value = symbol.value;
6572 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6575 var l276 = {name: "SYMBOL-NAME"};
6576 ((l256).value = ({car: l43.fvalue(pv, l276, (function (values,v692){
6577 checkArgs(arguments, 2);
6579 return (function(v693){
6580 return l126.fvalue(values, "(", v693, ").name");
6581 })(l139.fvalue(pv, v692));
6583 })), cdr: (function(){
6585 var value = symbol.value;
6586 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6589 ((l256).value = ({car: l43.fvalue(pv, l218, (function (values,v694,v695){
6590 checkArgs(arguments, 3);
6592 return (function(v696,v697){
6593 return l126.fvalue(values, "(", v696, ").value = ", v697);
6594 })(l139.fvalue(pv, v694),l139.fvalue(pv, v695));
6596 })), cdr: (function(){
6598 var value = symbol.value;
6599 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6602 var l277 = {name: "FSET"};
6603 ((l256).value = ({car: l43.fvalue(pv, l277, (function (values,v698,v699){
6604 checkArgs(arguments, 3);
6606 return (function(v700,v701){
6607 return l126.fvalue(values, "(", v700, ").fvalue = ", v701);
6608 })(l139.fvalue(pv, v698),l139.fvalue(pv, v699));
6610 })), cdr: (function(){
6612 var value = symbol.value;
6613 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6616 ((l256).value = ({car: l43.fvalue(pv, l18, (function (values,v702){
6617 checkArgs(arguments, 2);
6619 return (function(v703){
6620 return l138.fvalue(values, l126.fvalue(pv, "(", v703, ".value !== undefined)"));
6621 })(l139.fvalue(pv, v702));
6623 })), cdr: (function(){
6625 var value = symbol.value;
6626 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6629 var l278 = {name: "SYMBOL-VALUE"};
6630 ((l256).value = ({car: l43.fvalue(pv, l278, (function (values,v704){
6631 checkArgs(arguments, 2);
6633 return (function(v705){
6634 return l126.fvalue(values, "(function(){", (function(){
6636 var value = symbol.value;
6637 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6639 })(), l137.fvalue(pv, "var symbol = ", v705, ";", (function(){
6641 var value = symbol.value;
6642 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6644 })(), "var value = symbol.value;", (function(){
6646 var value = symbol.value;
6647 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6649 })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
6651 var value = symbol.value;
6652 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6654 })(), "return value;", (function(){
6656 var value = symbol.value;
6657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6660 })(l139.fvalue(pv, v704));
6662 })), cdr: (function(){
6664 var value = symbol.value;
6665 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6668 ((l256).value = ({car: l43.fvalue(pv, l227, (function (values,v706){
6669 checkArgs(arguments, 2);
6671 return (function(v707){
6672 return l126.fvalue(values, "(function(){", (function(){
6674 var value = symbol.value;
6675 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6677 })(), l137.fvalue(pv, "var symbol = ", v707, ";", (function(){
6679 var value = symbol.value;
6680 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6682 })(), "var func = symbol.fvalue;", (function(){
6684 var value = symbol.value;
6685 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6687 })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
6689 var value = symbol.value;
6690 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6692 })(), "return func;", (function(){
6694 var value = symbol.value;
6695 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6698 })(l139.fvalue(pv, v706));
6700 })), cdr: (function(){
6702 var value = symbol.value;
6703 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6706 var l279 = {name: "SYMBOL-PLIST"};
6707 ((l256).value = ({car: l43.fvalue(pv, l279, (function (values,v708){
6708 checkArgs(arguments, 2);
6710 return (function(v709){
6711 return l126.fvalue(values, "((", v709, ").plist || ", l139.fvalue(pv, l3.value), ")");
6712 })(l139.fvalue(pv, v708));
6714 })), cdr: (function(){
6716 var value = symbol.value;
6717 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6720 var l280 = {name: "LAMBDA-CODE"};
6721 ((l256).value = ({car: l43.fvalue(pv, l280, (function (values,v710){
6722 checkArgs(arguments, 2);
6724 return (function(v711){
6725 return l126.fvalue(values, "(", v711, ").toString()");
6726 })(l139.fvalue(pv, v710));
6728 })), cdr: (function(){
6730 var value = symbol.value;
6731 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6734 var l281 = {name: "EQ"};
6735 ((l256).value = ({car: l43.fvalue(pv, l281, (function (values,v712,v713){
6736 checkArgs(arguments, 3);
6738 return (function(v714,v715){
6739 return l138.fvalue(values, l126.fvalue(pv, "(", v714, " === ", v715, ")"));
6740 })(l139.fvalue(pv, v712),l139.fvalue(pv, v713));
6742 })), cdr: (function(){
6744 var value = symbol.value;
6745 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6748 var l282 = {name: "EQUAL"};
6749 ((l256).value = ({car: l43.fvalue(pv, l282, (function (values,v716,v717){
6750 checkArgs(arguments, 3);
6752 return (function(v718,v719){
6753 return l138.fvalue(values, l126.fvalue(pv, "(", v718, " == ", v719, ")"));
6754 })(l139.fvalue(pv, v716),l139.fvalue(pv, v717));
6756 })), cdr: (function(){
6758 var value = symbol.value;
6759 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6762 var l283 = {name: "CHAR-TO-STRING"};
6763 ((l256).value = ({car: l43.fvalue(pv, l283, (function (values,v720){
6764 checkArgs(arguments, 2);
6766 return (function(v721){
6767 return l126.fvalue(values, "(function(){", (function(){
6769 var value = symbol.value;
6770 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6772 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v721, ";", (function(){
6774 var value = symbol.value;
6775 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6777 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6779 var value = symbol.value;
6780 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6782 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6784 var value = symbol.value;
6785 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6787 })())), l126.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
6789 var value = symbol.value;
6790 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6793 })(l139.fvalue(pv, v720));
6795 })), cdr: (function(){
6797 var value = symbol.value;
6798 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6801 var l284 = {name: "STRINGP"};
6802 ((l256).value = ({car: l43.fvalue(pv, l284, (function (values,v722){
6803 checkArgs(arguments, 2);
6805 return (function(v723){
6806 return l138.fvalue(values, l126.fvalue(pv, "(typeof(", v723, ") == \"string\")"));
6807 })(l139.fvalue(pv, v722));
6809 })), cdr: (function(){
6811 var value = symbol.value;
6812 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6815 var l285 = {name: "STRING-UPCASE"};
6816 ((l256).value = ({car: l43.fvalue(pv, l285, (function (values,v724){
6817 checkArgs(arguments, 2);
6819 return (function(v725){
6820 return l126.fvalue(values, "(function(){", (function(){
6822 var value = symbol.value;
6823 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6825 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v725, ";", (function(){
6827 var value = symbol.value;
6828 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6830 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6832 var value = symbol.value;
6833 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6835 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6837 var value = symbol.value;
6838 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6840 })())), l126.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
6842 var value = symbol.value;
6843 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6846 })(l139.fvalue(pv, v724));
6848 })), cdr: (function(){
6850 var value = symbol.value;
6851 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6854 var l286 = {name: "STRING-LENGTH"};
6855 ((l256).value = ({car: l43.fvalue(pv, l286, (function (values,v726){
6856 checkArgs(arguments, 2);
6858 return (function(v727){
6859 return l126.fvalue(values, "(function(){", (function(){
6861 var value = symbol.value;
6862 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6864 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v727, ";", (function(){
6866 var value = symbol.value;
6867 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6869 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6871 var value = symbol.value;
6872 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6874 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6876 var value = symbol.value;
6877 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6879 })())), l126.fvalue(pv, "return ", "x.length", ";", (function(){
6881 var value = symbol.value;
6882 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6885 })(l139.fvalue(pv, v726));
6887 })), cdr: (function(){
6889 var value = symbol.value;
6890 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6893 var l287 = {name: "SLICE"};
6894 ((l256).value = ({car: l43.fvalue(pv, l287, (function (values,v728,v729,v730){
6895 checkArgsAtLeast(arguments, 3);
6896 checkArgsAtMost(arguments, 4);
6897 switch(arguments.length-1){
6903 return l126.fvalue(values, "(function(){", (function(){
6905 var value = symbol.value;
6906 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6908 })(), l137.fvalue(pv, "var str = ", l139.fvalue(pv, v728), ";", (function(){
6910 var value = symbol.value;
6911 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6913 })(), "var a = ", l139.fvalue(pv, v729), ";", (function(){
6915 var value = symbol.value;
6916 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6918 })(), "var b;", (function(){
6920 var value = symbol.value;
6921 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6923 })(), (v730 !== l3.value ? l126.fvalue(pv, "b = ", l139.fvalue(pv, v730), ";", (function(){
6925 var value = symbol.value;
6926 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6928 })()) : ""), "return str.slice(a,b);", (function(){
6930 var value = symbol.value;
6931 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6935 })), cdr: (function(){
6937 var value = symbol.value;
6938 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6941 var l288 = {name: "CHAR"};
6942 ((l256).value = ({car: l43.fvalue(pv, l288, (function (values,v731,v732){
6943 checkArgs(arguments, 3);
6945 return (function(v733,v734){
6946 return l126.fvalue(values, "(function(){", (function(){
6948 var value = symbol.value;
6949 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6951 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string", " = ", v733, ";", (function(){
6953 var value = symbol.value;
6954 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6956 })()), l126.fvalue(pv, "var ", "index", " = ", v734, ";", (function(){
6958 var value = symbol.value;
6959 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6961 })()), l126.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6963 var value = symbol.value;
6964 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6966 })(), l137.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
6968 var value = symbol.value;
6969 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6971 })())), l126.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
6973 var value = symbol.value;
6974 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6976 })(), l137.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
6978 var value = symbol.value;
6979 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6981 })())), l126.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
6983 var value = symbol.value;
6984 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6987 })(l139.fvalue(pv, v731),l139.fvalue(pv, v732));
6989 })), cdr: (function(){
6991 var value = symbol.value;
6992 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6995 ((l256).value = ({car: l43.fvalue(pv, l71, (function (values,v735,v736){
6996 checkArgs(arguments, 3);
6998 return (function(v737,v738){
6999 return l126.fvalue(values, "(function(){", (function(){
7001 var value = symbol.value;
7002 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7004 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string1", " = ", v737, ";", (function(){
7006 var value = symbol.value;
7007 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7009 })()), l126.fvalue(pv, "var ", "string2", " = ", v738, ";", (function(){
7011 var value = symbol.value;
7012 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7014 })()), l126.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
7016 var value = symbol.value;
7017 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7019 })(), l137.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
7021 var value = symbol.value;
7022 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7024 })())), l126.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
7026 var value = symbol.value;
7027 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7029 })(), l137.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
7031 var value = symbol.value;
7032 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7034 })())), l126.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
7036 var value = symbol.value;
7037 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7040 })(l139.fvalue(pv, v735),l139.fvalue(pv, v736));
7042 })), cdr: (function(){
7044 var value = symbol.value;
7045 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7048 var l289 = {name: "FUNCALL"};
7049 ((l256).value = ({car: l43.fvalue(pv, l289, (function (values,v740){
7050 checkArgsAtLeast(arguments, 2);
7052 for (var i = arguments.length-1; i>=2; i--)
7053 v739 = {car: arguments[i], cdr:
7056 return l126.fvalue(values, "(", l139.fvalue(pv, v740), ")(", l128.fvalue(pv, ({car: ((function(){
7058 var value = symbol.value;
7059 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7061 })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7063 var func = symbol.fvalue;
7064 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7066 })(), v739)}), ", "), ")");
7068 })), cdr: (function(){
7070 var value = symbol.value;
7071 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7074 var l290 = {name: "APPLY"};
7075 ((l256).value = ({car: l43.fvalue(pv, l290, (function (values,v742){
7076 checkArgsAtLeast(arguments, 2);
7078 for (var i = arguments.length-1; i>=2; i--)
7079 v741 = {car: arguments[i], cdr:
7082 return (l12.fvalue(pv, v741) !== l3.value ? l126.fvalue(values, "(", l139.fvalue(pv, v742), ")()") : (function(v743,v744){
7083 return l126.fvalue(values, "(function(){", (function(){
7085 var value = symbol.value;
7086 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7088 })(), l137.fvalue(pv, "var f = ", l139.fvalue(pv, v742), ";", (function(){
7090 var value = symbol.value;
7091 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7093 })(), "var args = [", l128.fvalue(pv, ({car: ((function(){
7095 var value = symbol.value;
7096 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7098 })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7100 var func = symbol.fvalue;
7101 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7103 })(), v743)}), ", "), "];", (function(){
7105 var value = symbol.value;
7106 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7108 })(), "var tail = (", l139.fvalue(pv, v744), ");", (function(){
7110 var value = symbol.value;
7111 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7113 })(), "while (tail != ", l139.fvalue(pv, l3.value), "){", (function(){
7115 var value = symbol.value;
7116 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7118 })(), " args.push(tail.car);", (function(){
7120 var value = symbol.value;
7121 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7123 })(), " tail = tail.cdr;", (function(){
7125 var value = symbol.value;
7126 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7128 })(), "}", (function(){
7130 var value = symbol.value;
7131 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7133 })(), "return f.apply(this, args);", (function(){
7135 var value = symbol.value;
7136 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7139 })(l84.fvalue(pv, v741),(function(){
7140 var tmp = l83.fvalue(pv, v741);
7141 return tmp === l3.value? l3.value: tmp.car;
7144 })), cdr: (function(){
7146 var value = symbol.value;
7147 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7150 var l291 = {name: "JS-EVAL"};
7151 ((l256).value = ({car: l43.fvalue(pv, l291, (function (values,v745){
7152 checkArgs(arguments, 2);
7154 return (function(v746){
7155 return l126.fvalue(values, "(function(){", (function(){
7157 var value = symbol.value;
7158 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7160 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string", " = ", v746, ";", (function(){
7162 var value = symbol.value;
7163 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7165 })()), l126.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
7167 var value = symbol.value;
7168 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7170 })(), l137.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
7172 var value = symbol.value;
7173 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7175 })())), l126.fvalue(pv, "return ", ((function(){
7177 var value = symbol.value;
7178 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7180 })() !== l3.value ? l126.fvalue(pv, "(function(){", (function(){
7182 var value = symbol.value;
7183 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7185 })(), l137.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
7187 var value = symbol.value;
7188 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7190 })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
7192 var value = symbol.value;
7193 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7195 })(), l137.fvalue(pv, "v = [v];", (function(){
7197 var value = symbol.value;
7198 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7200 })(), "v['multiple-value'] = true;", (function(){
7202 var value = symbol.value;
7203 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7205 })()), "}", (function(){
7207 var value = symbol.value;
7208 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7210 })(), "return values.apply(this, v);", (function(){
7212 var value = symbol.value;
7213 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7215 })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
7217 var value = symbol.value;
7218 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7221 })(l139.fvalue(pv, v745));
7223 })), cdr: (function(){
7225 var value = symbol.value;
7226 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7229 var l292 = {name: "ERROR"};
7230 ((l256).value = ({car: l43.fvalue(pv, l292, (function (values,v747){
7231 checkArgs(arguments, 2);
7233 return (function(v748){
7234 return l126.fvalue(values, "(function(){", (function(){
7236 var value = symbol.value;
7237 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7239 })(), l137.fvalue(pv, "throw ", v748, ";", (function(){
7241 var value = symbol.value;
7242 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7245 })(l139.fvalue(pv, v747));
7247 })), cdr: (function(){
7249 var value = symbol.value;
7250 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7253 var l293 = {name: "NEW"};
7254 ((l256).value = ({car: l43.fvalue(pv, l293, (function (values){
7255 checkArgsAtMost(arguments, 1);
7261 })), cdr: (function(){
7263 var value = symbol.value;
7264 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7267 var l294 = {name: "OBJECTP"};
7268 ((l256).value = ({car: l43.fvalue(pv, l294, (function (values,v749){
7269 checkArgs(arguments, 2);
7271 return (function(v750){
7272 return l138.fvalue(values, l126.fvalue(pv, "(typeof (", v750, ") === 'object')"));
7273 })(l139.fvalue(pv, v749));
7275 })), cdr: (function(){
7277 var value = symbol.value;
7278 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7281 var l295 = {name: "OGET"};
7282 ((l256).value = ({car: l43.fvalue(pv, l295, (function (values,v751,v752){
7283 checkArgs(arguments, 3);
7285 return (function(v753,v754){
7286 return l126.fvalue(values, "(function(){", (function(){
7288 var value = symbol.value;
7289 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7291 })(), l137.fvalue(pv, "var tmp = ", "(", v753, ")[", v754, "];", (function(){
7293 var value = symbol.value;
7294 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7296 })(), "return tmp == undefined? ", l139.fvalue(pv, l3.value), ": tmp ;", (function(){
7298 var value = symbol.value;
7299 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7302 })(l139.fvalue(pv, v751),l139.fvalue(pv, v752));
7304 })), cdr: (function(){
7306 var value = symbol.value;
7307 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7310 var l296 = {name: "OSET"};
7311 ((l256).value = ({car: l43.fvalue(pv, l296, (function (values,v755,v756,v757){
7312 checkArgs(arguments, 4);
7314 return (function(v758,v759,v760){
7315 return l126.fvalue(values, "((", v758, ")[", v759, "] = ", v760, ")");
7316 })(l139.fvalue(pv, v755),l139.fvalue(pv, v756),l139.fvalue(pv, v757));
7318 })), cdr: (function(){
7320 var value = symbol.value;
7321 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7324 var l297 = {name: "IN"};
7325 ((l256).value = ({car: l43.fvalue(pv, l297, (function (values,v761,v762){
7326 checkArgs(arguments, 3);
7328 return (function(v763,v764){
7329 return l138.fvalue(values, l126.fvalue(pv, "((", v763, ") in (", v764, "))"));
7330 })(l139.fvalue(pv, v761),l139.fvalue(pv, v762));
7332 })), cdr: (function(){
7334 var value = symbol.value;
7335 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7338 var l298 = {name: "FUNCTIONP"};
7339 ((l256).value = ({car: l43.fvalue(pv, l298, (function (values,v765){
7340 checkArgs(arguments, 2);
7342 return (function(v766){
7343 return l138.fvalue(values, l126.fvalue(pv, "(typeof ", v766, " == 'function')"));
7344 })(l139.fvalue(pv, v765));
7346 })), cdr: (function(){
7348 var value = symbol.value;
7349 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7352 var l299 = {name: "WRITE-STRING"};
7353 ((l256).value = ({car: l43.fvalue(pv, l299, (function (values,v767){
7354 checkArgs(arguments, 2);
7356 return (function(v768){
7357 return l126.fvalue(values, "(function(){", (function(){
7359 var value = symbol.value;
7360 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7362 })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v768, ";", (function(){
7364 var value = symbol.value;
7365 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7367 })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
7369 var value = symbol.value;
7370 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7372 })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
7374 var value = symbol.value;
7375 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7377 })())), l126.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
7379 var value = symbol.value;
7380 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7383 })(l139.fvalue(pv, v767));
7385 })), cdr: (function(){
7387 var value = symbol.value;
7388 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7391 var l300 = {name: "MAKE-ARRAY"};
7392 ((l256).value = ({car: l43.fvalue(pv, l300, (function (values,v769){
7393 checkArgs(arguments, 2);
7395 return (function(v770){
7396 return l126.fvalue(values, "(function(){", (function(){
7398 var value = symbol.value;
7399 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7401 })(), l137.fvalue(pv, "var r = [];", (function(){
7403 var value = symbol.value;
7404 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7406 })(), "for (var i = 0; i < ", v770, "; i++)", (function(){
7408 var value = symbol.value;
7409 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7411 })(), l137.fvalue(pv, "r.push(", l139.fvalue(pv, l3.value), ");", (function(){
7413 var value = symbol.value;
7414 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7416 })()), "return r;", (function(){
7418 var value = symbol.value;
7419 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7422 })(l139.fvalue(pv, v769));
7424 })), cdr: (function(){
7426 var value = symbol.value;
7427 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7430 var l301 = {name: "ARRAYP"};
7431 ((l256).value = ({car: l43.fvalue(pv, l301, (function (values,v771){
7432 checkArgs(arguments, 2);
7434 return (function(v772){
7435 return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
7437 var value = symbol.value;
7438 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7440 })(), l137.fvalue(pv, "var x = ", v772, ";", (function(){
7442 var value = symbol.value;
7443 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7445 })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
7446 })(l139.fvalue(pv, v771));
7448 })), cdr: (function(){
7450 var value = symbol.value;
7451 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7454 var l302 = {name: "AREF"};
7455 ((l256).value = ({car: l43.fvalue(pv, l302, (function (values,v773,v774){
7456 checkArgs(arguments, 3);
7458 return (function(v775,v776){
7459 return l126.fvalue(values, "(function(){", (function(){
7461 var value = symbol.value;
7462 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7464 })(), l137.fvalue(pv, "var x = ", "(", v775, ")[", v776, "];", (function(){
7466 var value = symbol.value;
7467 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7469 })(), "if (x === undefined) throw 'Out of range';", (function(){
7471 var value = symbol.value;
7472 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7474 })(), "return x;", (function(){
7476 var value = symbol.value;
7477 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7480 })(l139.fvalue(pv, v773),l139.fvalue(pv, v774));
7482 })), cdr: (function(){
7484 var value = symbol.value;
7485 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7488 var l303 = {name: "ASET"};
7489 ((l256).value = ({car: l43.fvalue(pv, l303, (function (values,v777,v778,v779){
7490 checkArgs(arguments, 4);
7492 return (function(v780,v781,v782){
7493 return l126.fvalue(values, "(function(){", (function(){
7495 var value = symbol.value;
7496 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7498 })(), l137.fvalue(pv, "var x = ", v780, ";", (function(){
7500 var value = symbol.value;
7501 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7503 })(), "var i = ", v781, ";", (function(){
7505 var value = symbol.value;
7506 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7508 })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
7510 var value = symbol.value;
7511 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7513 })(), "return x[i] = ", v782, ";", (function(){
7515 var value = symbol.value;
7516 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7519 })(l139.fvalue(pv, v777),l139.fvalue(pv, v778),l139.fvalue(pv, v779));
7521 })), cdr: (function(){
7523 var value = symbol.value;
7524 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7527 var l304 = {name: "GET-UNIX-TIME"};
7528 ((l256).value = ({car: l43.fvalue(pv, l304, (function (values){
7529 checkArgsAtMost(arguments, 1);
7532 return l126.fvalue(values, "(Math.round(new Date() / 1000))");
7535 })), cdr: (function(){
7537 var value = symbol.value;
7538 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7541 var l305 = {name: "VALUES-ARRAY"};
7542 ((l256).value = ({car: l43.fvalue(pv, l305, (function (values,v783){
7543 checkArgs(arguments, 2);
7545 return (function(v784){
7546 return ((function(){
7548 var value = symbol.value;
7549 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7551 })() !== l3.value ? l126.fvalue(values, "values.apply(this, ", v784, ")") : l126.fvalue(values, "pv.apply(this, ", v784, ")"));
7552 })(l139.fvalue(pv, v783));
7554 })), cdr: (function(){
7556 var value = symbol.value;
7557 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7560 ((l256).value = ({car: l43.fvalue(pv, l134, (function (values){
7562 for (var i = arguments.length-1; i>=1; i--)
7563 v785 = {car: arguments[i], cdr:
7566 return ((function(){
7568 var value = symbol.value;
7569 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7571 })() !== l3.value ? l126.fvalue(values, "values(", l128.fvalue(pv, l72.fvalue(pv, (function(){
7573 var func = symbol.fvalue;
7574 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7576 })(), v785), ", "), ")") : l126.fvalue(values, "pv(", l128.fvalue(pv, l72.fvalue(pv, (function(){
7578 var func = symbol.fvalue;
7579 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7581 })(), v785), ", "), ")"));
7583 })), cdr: (function(){
7585 var value = symbol.value;
7586 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7590 (l192).fvalue = (function(v788){
7591 ((v788)["fname"] = "MACRO");
7593 })((function (values,v786){
7594 checkArgs(arguments, 2);
7596 return (((function(){
7598 return (typeof tmp == 'object' && 'name' in tmp);
7599 })()?l4.value: l3.value) !== l3.value ? (function(v787){
7600 return (((l169.fvalue(pv, v787) === l192)?l4.value: l3.value) !== l3.value ? v787 : l3.value);
7601 })(l181.fvalue(pv, v786, (function(){
7603 var value = symbol.value;
7604 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7606 })(), l100)) : l3.value);
7611 var l306 = {name: "LS-MACROEXPAND-1"};
7613 (l306).fvalue = (function(v793){
7614 ((v793)["fname"] = "LS-MACROEXPAND-1");
7616 })((function (values,v789){
7617 checkArgs(arguments, 2);
7619 return (function(v790){
7620 return (v790 !== l3.value ? (function(v791){
7621 (l58.fvalue(pv, v791) !== l3.value ? (function(v792){
7622 l172.fvalue(pv, v790, v792);
7623 return (v791 = v792);
7624 })(l230.fvalue(pv, v791)) : l3.value);
7627 var args = [values];
7628 var tail = ((function(){
7630 return tmp === l3.value? l3.value: tmp.cdr;
7632 while (tail != l3.value){
7633 args.push(tail.car);
7636 return f.apply(this, args);
7638 })(l170.fvalue(pv, v790)) : v789);
7639 })(l192.fvalue(pv, (function(){
7641 return tmp === l3.value? l3.value: tmp.car;
7647 var l307 = {name: "COMPILE-FUNCALL"};
7648 var l308 = {name: "G878"};
7650 (l307).fvalue = (function(v797){
7651 ((v797)["fname"] = "COMPILE-FUNCALL");
7653 })((function (values,v794,v795){
7654 checkArgs(arguments, 3);
7656 return (function(v796){
7657 return ((((function(){
7659 return (typeof tmp == 'object' && 'name' in tmp);
7660 })()?l4.value: l3.value) !== l3.value ? (((l116.fvalue(pv, v794) === l107.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){
7662 var value = symbol.value;
7663 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7665 })() : l3.value) : l3.value) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v794))), ".fvalue(", l128.fvalue(pv, ({car: v796, cdr: l72.fvalue(pv, (function(){
7667 var func = symbol.fvalue;
7668 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7670 })(), v795)}), ", "), ")") : l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l100), l43.fvalue(pv, v794))), "(", l128.fvalue(pv, ({car: v796, cdr: l72.fvalue(pv, (function(){
7672 var func = symbol.fvalue;
7673 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7675 })(), v795)}), ", "), ")"));
7678 var value = symbol.value;
7679 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7681 })() !== l3.value ? "values" : "pv"));
7687 (l216).fvalue = (function(v800){
7688 ((v800)["fname"] = "LS-COMPILE-BLOCK");
7690 })((function (values,v798,v799){
7691 checkArgsAtLeast(arguments, 2);
7692 checkArgsAtMost(arguments, 3);
7693 switch(arguments.length-1){
7699 return (v799 !== l3.value ? l126.fvalue(values, l216.fvalue(pv, l84.fvalue(pv, v798)), "return ", l139.fvalue(pv, (function(){
7700 var tmp = l83.fvalue(pv, v798);
7701 return tmp === l3.value? l3.value: tmp.car;
7704 var value = symbol.value;
7705 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7707 })()), ";") : l129.fvalue(values, l87.fvalue(pv, (function(){
7709 var func = symbol.fvalue;
7710 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7712 })(), l72.fvalue(pv, (function(){
7714 var func = symbol.fvalue;
7715 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7717 })(), v798)), l126.fvalue(pv, ";", (function(){
7719 var value = symbol.value;
7720 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7728 (l139).fvalue = (function(v810){
7729 ((v810)["fname"] = "LS-COMPILE");
7731 })((function (values,v801,v802){
7732 checkArgsAtLeast(arguments, 2);
7733 checkArgsAtMost(arguments, 3);
7734 switch(arguments.length-1){
7740 return (function(v803){
7746 return (((function(){
7748 return (typeof tmp == 'object' && 'name' in tmp);
7749 })()?l4.value: l3.value) !== l3.value ? (function(v804){
7750 return ((v804 !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l196, l171.fvalue(pv, v804))) : l3.value) !== l3.value ? l170.fvalue(values, v804) : ((function(v805){
7751 return (v805 !== l3.value ? v805 : l85.fvalue(pv, l198, l171.fvalue(pv, v804)));
7752 })(l115.fvalue(pv, v801)) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v801))), ".value") : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l278), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v801)))))));
7753 })(l181.fvalue(pv, v801, (function(){
7755 var value = symbol.value;
7756 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7758 })(), l101)) : (l78.fvalue(pv, v801) !== l3.value ? l17.fvalue(values, v801) : (((typeof(v801) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v801), "\"") : (((function(){
7760 return typeof x === 'object' && 'length' in x;
7761 })()?l4.value: l3.value) !== l3.value ? l225.fvalue(values, v801) : (l58.fvalue(pv, v801) !== l3.value ? (function(v806,v807){
7762 return (l93.fvalue(pv, v806, (function(){
7764 var value = symbol.value;
7765 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7767 })()) !== l3.value ? (function(v808){
7770 var args = [values];
7772 while (tail != l3.value){
7773 args.push(tail.car);
7776 return f.apply(this, args);
7778 })(l40.fvalue(pv, l93.fvalue(pv, v806, (function(){
7780 var value = symbol.value;
7781 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7783 })()))) : ((l93.fvalue(pv, v806, (function(){
7785 var value = symbol.value;
7786 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7788 })()) !== l3.value ? l27.fvalue(pv, l194.fvalue(pv, v806, l100, l197)) : l3.value) !== l3.value ? (function(v809){
7791 var args = [values];
7793 while (tail != l3.value){
7794 args.push(tail.car);
7797 return f.apply(this, args);
7799 })(l40.fvalue(pv, l93.fvalue(pv, v806, (function(){
7801 var value = symbol.value;
7802 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7804 })()))) : (l192.fvalue(pv, v806) !== l3.value ? l139.fvalue(values, l306.fvalue(pv, v801), v802) : l307.fvalue(values, v806, v807))));
7807 return tmp === l3.value? l3.value: tmp.car;
7810 return tmp === l3.value? l3.value: tmp.cdr;
7811 })()) : (function(){
7812 throw "How should I compile this?";
7823 var l309 = {name: "LS-COMPILE-TOPLEVEL"};
7825 (l309).fvalue = (function(v817){
7826 ((v817)["fname"] = "LS-COMPILE-TOPLEVEL");
7828 })((function (values,v811,v812){
7829 checkArgsAtLeast(arguments, 2);
7830 checkArgsAtMost(arguments, 3);
7831 switch(arguments.length-1){
7837 return (function(v813){
7843 return ((((function(){
7845 return (typeof tmp == 'object' && 'car' in tmp);
7846 })()?l4.value: l3.value) !== l3.value ? (((function(){
7848 return tmp === l3.value? l3.value: tmp.car;
7849 })() === l231)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v815){
7850 return l128.fvalue(values, l87.fvalue(pv, (function(){
7852 var func = symbol.fvalue;
7853 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7856 })(l72.fvalue(pv, (function (values,v814){
7857 checkArgs(arguments, 2);
7858 return l309.fvalue(values, v814, l4.value);
7861 return tmp === l3.value? l3.value: tmp.cdr;
7862 })())) : (function(v816){
7863 return l126.fvalue(values, l129.fvalue(pv, l190.fvalue(pv), l126.fvalue(pv, ";", (function(){
7865 var value = symbol.value;
7866 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7868 })())), (v816 !== l3.value ? l126.fvalue(pv, v816, ";", (function(){
7870 var value = symbol.value;
7871 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7874 })(l139.fvalue(pv, v811, v812)));
7885 (l230).fvalue = (function(v819){
7886 ((v819)["fname"] = "EVAL");
7888 })((function (values,v818){
7889 checkArgs(arguments, 2);
7892 var string = l309.fvalue(pv, v818, l4.value);
7893 if (typeof string != 'string')
7894 throw 'The value ' + string + ' is not a type string.';
7896 var v = eval.apply(window, [string]);
7897 if (typeof v !== 'object' || !('multiple-value' in v)){
7899 v['multiple-value'] = true;
7901 return values.apply(this, v);
7908 var l310 = {name: "&BODY"};
7909 var l311 = QIList(l205,l204,l310,l20,l15,l117,l60,l61,l21,l22,l23,l267,l269,l19,l19,l266,l268,l53,l63,l290,l302,l301,l303,l93,l44,l178,l18,l18,l84,l32,l38,l36,l33,l30,l30,l51,l243,l34,l37,l35,l31,l31,l288,l76,l77,l75,l50,l28,l29,l74,l46,l2,l9,l11,l1,l8,l89,l97,l67,l68,l99,l48,l49,l52,l281,l26,l282,l292,l230,l92,l123,l96,l107,l121,l39,l42,l277,l289,l100,l298,l16,l124,l250,l73,l202,l118,l45,l78,l78,l122,l115,l5,l83,l70,l235,l238,l103,l43,l58,l300,l104,l275,l72,l85,l80,l263,l135,l252,l136,l253,l3,l27,l82,l81,l12,l270,l54,l108,l110,l106,l159,l79,l141,l144,l199,l55,l56,l231,l66,l47,l161,l86,l87,l88,l13,l242,l64,l65,l272,l273,l40,l218,l219,l91,l285,l94,l95,l284,l90,l227,l276,l116,l279,l278,l274,l4,l249,l41,l244,l25,l7,l251,l134,l133,l101,l143,l6,l98,l299,l24,l3);
7910 l123.fvalue(values, l311);
7911 ((l117).value = (function(){
7913 var value = symbol.value;
7914 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7918 var string = "var lisp";
7919 if (typeof string != 'string')
7920 throw 'The value ' + string + ' is not a type string.';
7922 var v = eval.apply(window, [string]);
7923 if (typeof v !== 'object' || !('multiple-value' in v)){
7925 v['multiple-value'] = true;
7927 return values.apply(this, v);
7931 (lisp.read = (function(){
7933 var func = symbol.fvalue;
7934 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7937 (lisp.print = (function(){
7939 var func = symbol.fvalue;
7940 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7943 (lisp.eval = (function(){
7945 var func = symbol.fvalue;
7946 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7949 (lisp.compile = (function (values,v820){
7950 checkArgs(arguments, 2);
7951 return l309.fvalue(values, v820, l4.value);
7953 (lisp.evalString = (function (values,v821){
7954 checkArgs(arguments, 2);
7955 return l230.fvalue(values, l165.fvalue(pv, v821));
7957 (lisp.compileString = (function (values,v822){
7958 checkArgs(arguments, 2);
7959 return l309.fvalue(values, l165.fvalue(pv, v822), l4.value);
7961 var l312 = QIList(QIList(l310,"l310"),QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(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(l205,"l205"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3);
7962 var l313 = {name: "OP"};
7963 var l314 = {name: "SYM"};
7964 var l315 = {name: "X"};
7965 var l316 = {name: "ARGS"};
7966 var l317 = {name: "BODY"};
7967 var l318 = {name: "DECLS"};
7968 var l319 = {name: "DECL"};
7969 var l320 = {name: "NAME"};
7970 var l321 = {name: "ARG"};
7971 var l322 = {name: "FORM"};
7972 var l323 = {name: "VALUE-FROM"};
7973 var l324 = {name: "VARIABLES"};
7974 var l325 = {name: "PACKAGE-DESIGNATOR"};
7975 var l326 = {name: "VARLIST"};
7976 var l327 = {name: "ENDLIST"};
7977 var l328 = {name: "V"};
7978 var l329 = {name: "PAIRS"};
7979 var l330 = {name: "ASSIGNMENTS"};
7980 var l331 = {name: "VALUE"};
7981 var l332 = {name: "FORM1"};
7982 var l333 = {name: "RESULT"};
7983 var l334 = {name: "FORMS"};
7984 var l335 = {name: "G"};
7985 var l336 = {name: "CLAUSULES"};
7986 var l337 = {name: "!FORM"};
7987 var l338 = {name: "CLAUSULE"};
7988 var l339 = {name: "ITER"};
7989 var l340 = {name: "G!TO"};
7990 var l341 = {name: "VAR"};
7991 var l342 = {name: "TO"};
7992 var l343 = {name: "G!LIST"};
7993 var l344 = {name: "PLACE"};
7994 var l345 = {name: "DELTA"};
7995 var l346 = {name: "CONDITION"};
7996 var l347 = {name: "DOCSTRING"};
7997 var l348 = QIList(QIList(QIList(l256,l101,l3,QIList(l196,l3),l3),QIList(l246,l101,l3,QIList(l196,l3),l3),QIList(l245,l101,l3,QIList(l196,l3),l3),QIList(l239,l101,l3,QIList(l196,l3),l3),QIList(l228,l101,l3,QIList(l196,l3),l3),QIList(l223,l101,l3,QIList(l196,l3),l3),QIList(l222,l101,l3,QIList(l196,l3),l3),QIList(l203,l101,l3,QIList(l196,l3),l3),QIList(l200,l101,l3,QIList(l196,l3),l3),QIList(l187,l101,l3,QIList(l196,l3),l3),QIList(l183,l101,l3,QIList(l196,l3),l3),QIList(l182,l101,l3,QIList(l196,l3),l3),QIList(l166,l101,l3,QIList(l196,l3),l3),QIList(l160,l101,l3,QIList(l196,l3),l3),QIList(l125,l101,l3,QIList(l196,l3),l3),QIList(l117,l101,l3,QIList(l196,l3),l3),QIList(l114,l101,l3,QIList(l196,l3),l3),QIList(l113,l101,l3,QIList(l196,l3),l3),QIList(l112,l101,l3,QIList(l196,l3),l3),QIList(l102,l101,l3,QIList(l196,l3),l3),QIList(l15,l101,l3,QIList(l196,l3),l3),QIList(l4,l101,l3,QIList(l196,l198,l3),l3),QIList(l3,l101,l3,QIList(l196,l198,l3),l3),l3),QIList(QIList(l265,l192,QIList(l100,QIList(l5,QIList(l313,l314,l3),QIList(l162,QIList(l257,QIList(l164,l313,l3),QIList(l315,l205,l316,l3),QIList(l235,QIList(QIList(l316,QIList(l28,l315,l316,l3),l3),l3),QIList(l261,l316,QIList(l138,QIList(l264,l316,QIList(l164,l314,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l261,l192,QIList(l100,QIList(l5,QIList(l316,l205,l317,l3),QIList(l7,QIList(l274,l316,l3),QIList(l292,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l162,QIList(l260,QIList(l164,l316,l3),QIList(l5,QIList(QIList(l164,l316,l3),l3),QIList(l126,"return ",QIList(l163,l317,l3),";",l125,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l259,l192,QIList(l100,QIList(l5,QIList(l318,l205,l317,l3),QIList(l162,QIList(l140,QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l126,"var ",QIList(l164,QIList(l39,l319,l3),l3)," = ",QIList(l164,QIList(l41,l319,l3),l3),";",l125,l3),l3),l3),l318,l3),l3),QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l126,"if (typeof ",QIList(l164,QIList(l39,l319,l3),l3)," != '",QIList(l164,QIList(l40,l319,l3),l3),"')",l125,QIList(l137,"throw 'The value ' + ",QIList(l164,QIList(l39,l319,l3),l3)," + ' is not a type ",QIList(l164,QIList(l40,l319,l3),l3),".';",l125,l3),l3),l3),l3),l318,l3),l3),QIList(l126,"return ",QIList(l231,QIList(l163,l317,l3),l3),";",l125,l3),l3),l3),l3),l3),l3,l3),QIList(l258,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l231,QIList(l257,QIList(l164,l320,l3),QIList(l164,l316,l3),QIList(l235,QIList(l164,QIList(l72,QIList(l5,QIList(l321,l3),QIList(l162,QIList(QIList(l164,l321,l3),QIList(l139,QIList(l164,l321,l3),l3),l3),l3),l3),l316,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l257,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l47,QIList(l43,QIList(l161,QIList(l164,l320,l3),l3),QIList(l5,QIList(l164,l316,l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l256,l3),l3),l3),l3),l3,l3),QIList(l162,l192,QIList(l100,QIList(l5,QIList(l322,l3),QIList(l254,l322,l3),l3),l3),l3,l3),QIList(l232,l192,QIList(l100,QIList(l5,QIList(l320,l316,l322,l3),QIList(l162,QIList(l201,QIList(l164,l320,l3),QIList(l164,l316,l3),QIList(l139,QIList(l164,l322,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l201,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l47,QIList(l43,QIList(l161,QIList(l164,l320,l3),l3),QIList(l5,QIList(l164,l316,l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l200,l3),l3),l3),l3),l3,l3),QIList(l140,l192,QIList(l100,QIList(l5,QIList(l205,l317,l3),QIList(l162,QIList(l126,"(function(){",l125,QIList(l137,QIList(l163,l317,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l136,l192,QIList(l100,QIList(l5,QIList(l323,l3),QIList(l162,QIList(l252,QIList(l100,l43,l3),QIList(l164,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l135,l192,QIList(l100,QIList(l5,QIList(l324,l323,l205,l317,l3),QIList(l162,QIList(l252,QIList(l5,QIList(l204,QIList(l163,l324,l3),l205,QIList(l164,QIList(l16,l3),l3),l3),QIList(l163,l317,l3),l3),QIList(l164,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l127,l192,QIList(l100,QIList(l5,QIList(l101,l205,l322,l3),QIList(l162,QIList(l219,QIList(l164,l101,l3),QIList(l126,QIList(l164,l101,l3),QIList(l231,QIList(l163,l322,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l118,l192,QIList(l100,QIList(l5,QIList(l325,l3),QIList(l162,QIList(l229,QIList(l219,l117,QIList(l105,QIList(l164,l325,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l192,QIList(l100,QIList(l5,QIList(l326,l327,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l238,QIList(l164,QIList(l72,QIList(l5,QIList(l315,l3),QIList(l43,QIList(l39,l315,l3),QIList(l40,l315,l3),l3),l3),l326,l3),l3),QIList(l14,l4,QIList(l6,QIList(l164,QIList(l30,l327,l3),l3),QIList(l13,QIList(l231,QIList(l164,QIList(l31,l327,l3),l3),l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l219,QIList(l163,QIList(l290,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l328,l3),QIList(l53,QIList(l29,QIList(l35,l328,l3),l3),QIList(l43,QIList(l39,l328,l3),QIList(l41,l328,l3),l3),l3),l3),l326,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l192,QIList(l100,QIList(l5,QIList(l326,l327,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(l164,QIList(l72,QIList(l5,QIList(l315,l3),QIList(l43,QIList(l39,l315,l3),QIList(l40,l315,l3),l3),l3),l326,l3),l3),QIList(l14,l4,QIList(l6,QIList(l164,QIList(l30,l327,l3),l3),QIList(l13,QIList(l231,QIList(l164,QIList(l31,l327,l3),l3),l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l66,QIList(l163,QIList(l290,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l328,l3),QIList(l53,QIList(l29,QIList(l35,l328,l3),l3),QIList(l43,QIList(l39,l328,l3),QIList(l41,l328,l3),l3),l3),l3),l326,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l192,QIList(l100,QIList(l5,QIList(l205,l329,l3),QIList(l235,QIList(QIList(l330,QIList(l161,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l329,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l329,l3),l3),QIList(l292,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l235,QIList(QIList(l101,QIList(l30,l329,l3),l3),QIList(l331,QIList(l33,l329,l3),l3),l3),QIList(l47,QIList(l162,QIList(QIList(l164,l101,l3),QIList(l164,QIList(l16,l3),l3),QIList(l164,l331,l3),l3),l3),l330,l3),QIList(l219,l329,QIList(l35,l329,l3),l3),l3),l3),l3),l3),QIList(l219,l330,QIList(l65,l330,l3),l3),QIList(l162,QIList(l235,QIList(l164,QIList(l72,QIList(l100,l31,l3),l330,l3),l3),QIList(l219,QIList(l163,QIList(l59,QIList(l100,l63,l3),QIList(l72,QIList(l100,l84,l3),l330,l3),QIList(l161,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l192,QIList(l100,QIList(l5,QIList(l332,l333,l205,l317,l3),QIList(l162,QIList(l55,QIList(l231,QIList(l164,l332,l3),QIList(l164,l333,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l192,QIList(l100,QIList(l5,QIList(l322,l205,l317,l3),QIList(l235,QIList(QIList(l331,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l331,l3),QIList(l164,l322,l3),l3),l3),QIList(l163,l317,l3),QIList(l164,l331,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l192,QIList(l100,QIList(l5,QIList(l205,l334,l3),QIList(l50,QIList(QIList(l12,l334,l3),l3,l3),QIList(QIList(l12,QIList(l31,l334,l3),l3),QIList(l30,l334,l3),l3),QIList(l4,QIList(l235,QIList(QIList(l335,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l335,l3),QIList(l164,QIList(l30,l334,l3),l3),l3),l3),QIList(l202,QIList(l164,l335,l3),QIList(l164,l335,l3),QIList(l54,QIList(l163,QIList(l31,l334,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l192,QIList(l100,QIList(l5,QIList(l205,l334,l3),QIList(l50,QIList(QIList(l12,l334,l3),l4,l3),QIList(QIList(l12,QIList(l31,l334,l3),l3),QIList(l30,l334,l3),l3),QIList(l4,QIList(l162,QIList(l202,QIList(l164,QIList(l30,l334,l3),l3),QIList(l53,QIList(l163,QIList(l31,l334,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l192,QIList(l100,QIList(l5,QIList(l322,l205,l336,l3),QIList(l162,QIList(l51,QIList(l164,l322,l3),QIList(l163,QIList(l63,l336,QIList(l162,QIList(QIList(l4,QIList(l292,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l192,QIList(l100,QIList(l5,QIList(l322,l205,l336,l3),QIList(l235,QIList(QIList(l337,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l337,l3),QIList(l164,l322,l3),l3),l3),QIList(l50,QIList(l163,QIList(l72,QIList(l5,QIList(l338,l3),QIList(l202,QIList(l281,QIList(l30,l338,l3),l4,l3),l338,QIList(l162,QIList(QIList(l26,QIList(l164,l337,l3),QIList(l161,QIList(l164,QIList(l30,l338,l3),l3),l3),l3),QIList(l163,QIList(l31,l338,l3),l3),l3),l3),l3),l3),l336,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l192,QIList(l100,QIList(l5,QIList(l205,l336,l3),QIList(l202,QIList(l12,l336,l3),l3,QIList(l202,QIList(l281,QIList(l32,l336,l3),l4,l3),QIList(l162,QIList(l231,QIList(l163,QIList(l34,l336,l3),l3),l3),l3),QIList(l162,QIList(l202,QIList(l164,QIList(l32,l336,l3),l3),QIList(l231,QIList(l163,QIList(l34,l336,l3),l3),l3),QIList(l50,QIList(l163,QIList(l31,l336,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l192,QIList(l100,QIList(l5,QIList(l339,l205,l317,l3),QIList(l235,QIList(QIList(l340,QIList(l16,l3),l3),QIList(l341,QIList(l39,l339,l3),l3),QIList(l342,QIList(l40,l339,l3),l3),QIList(l333,QIList(l41,l339,l3),l3),l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(QIList(QIList(l164,l341,l3),0,l3),QIList(QIList(l164,l340,l3),QIList(l164,l342,l3),l3),l3),QIList(l226,QIList(l267,QIList(l164,l341,l3),QIList(l164,l340,l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l45,QIList(l164,l341,l3),l3),l3),QIList(l164,l333,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l192,QIList(l100,QIList(l5,QIList(l339,l205,l317,l3),QIList(l235,QIList(QIList(l341,QIList(l39,l339,l3),l3),QIList(l343,QIList(l16,l3),l3),l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(QIList(QIList(l164,l343,l3),QIList(l164,QIList(l40,l339,l3),l3),l3),QIList(QIList(l164,l341,l3),l3,l3),l3),QIList(l226,QIList(l164,l343,l3),QIList(l219,QIList(l164,l341,l3),QIList(l30,QIList(l164,l343,l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l219,QIList(l164,l343,l3),QIList(l31,QIList(l164,l343,l3),l3),l3),l3),QIList(l164,QIList(l41,l339,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l192,QIList(l100,QIList(l5,QIList(l315,l344,l3),QIList(l162,QIList(l219,QIList(l164,l344,l3),QIList(l28,QIList(l164,l315,l3),QIList(l164,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l192,QIList(l100,QIList(l5,QIList(l315,l204,QIList(l345,1,l3),l3),QIList(l162,QIList(l219,QIList(l164,l315,l3),QIList(l61,QIList(l164,l315,l3),QIList(l164,l345,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l192,QIList(l100,QIList(l5,QIList(l315,l204,QIList(l345,1,l3),l3),QIList(l162,QIList(l219,QIList(l164,l315,l3),QIList(l60,QIList(l164,l315,l3),QIList(l164,l345,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l226,QIList(l164,l346,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l192,QIList(l100,QIList(l5,QIList(l204,l331,l3),QIList(l162,QIList(l242,l3,QIList(l164,l331,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l231,QIList(l277,QIList(l161,QIList(l164,l320,l3),l3),QIList(l10,QIList(l164,QIList(l276,l320,l3),l3),QIList(l164,l316,l3),QIList(l163,QIList(l202,QIList(l53,QIList(l284,QIList(l30,l317,l3),l3),QIList(l27,QIList(l12,QIList(l31,l317,l3),l3),l3),l3),QIList(l162,QIList(QIList(l164,QIList(l30,l317,l3),l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,QIList(l31,l317,l3),l3),l3),l3),l3),QIList(l162,QIList(QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l235,QIList(QIList(l315,QIList(l16,"FN",l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l315,l3),QIList(l5,QIList(l164,l316,l3),QIList(l163,l317,l3),l3),l3),l3),QIList(l296,QIList(l164,l315,l3),"fname",QIList(l164,l320,l3),l3),QIList(l164,l315,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l192,QIList(l100,QIList(l5,QIList(l320,l331,l204,l347,l3),QIList(l162,QIList(l231,QIList(l219,QIList(l164,l320,l3),QIList(l164,l331,l3),l3),QIList(l163,QIList(l6,QIList(l284,l347,l3),QIList(l162,QIList(QIList(l296,QIList(l161,QIList(l164,l320,l3),l3),"vardoc",QIList(l164,l347,l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l192,QIList(l100,QIList(l5,QIList(l320,l331,l204,l347,l3),QIList(l162,QIList(l231,QIList(l2,QIList(l196,QIList(l164,l320,l3),l3),l3),QIList(l7,QIList(l18,QIList(l161,QIList(l164,l320,l3),l3),l3),QIList(l219,QIList(l164,l320,l3),QIList(l164,l331,l3),l3),l3),QIList(l163,QIList(l6,QIList(l284,l347,l3),QIList(l162,QIList(QIList(l296,QIList(l161,QIList(l164,l320,l3),l3),"vardoc",QIList(l164,l347,l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l202,QIList(l164,l346,l3),l3,QIList(l231,QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l202,QIList(l164,l346,l3),QIList(l231,QIList(l163,l317,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l192,QIList(l100,QIList(l5,QIList(l316,l205,l317,l3),QIList(l162,QIList(l100,QIList(l5,QIList(l164,l316,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l192,QIList(l100,QIList(l5,QIList(l205,l318,l3),QIList(l162,QIList(l229,QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l195,QIList(l161,QIList(l164,l319,l3),l3),l3),l3),l3),l318,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l229,QIList(l191,QIList(l161,QIList(l164,l320,l3),l3),QIList(l161,QIList(l100,QIList(l5,QIList(l164,QIList(l72,QIList(l100,QIList(l5,QIList(l315,l3),QIList(l202,QIList(l281,l315,QIList(l161,l310,l3),l3),QIList(l161,l205,l3),l315,l3),l3),l3),l316,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3);
7999 l119.fvalue(pv, l310);
8000 l119.fvalue(pv, l309);
8001 l119.fvalue(pv, l308);
8002 l119.fvalue(pv, l307);
8003 l119.fvalue(pv, l306);
8004 l119.fvalue(pv, l305);
8005 l119.fvalue(pv, l304);
8006 l119.fvalue(pv, l303);
8007 l119.fvalue(pv, l302);
8008 l119.fvalue(pv, l301);
8009 l119.fvalue(pv, l300);
8010 l119.fvalue(pv, l299);
8011 l119.fvalue(pv, l298);
8012 l119.fvalue(pv, l297);
8013 l119.fvalue(pv, l296);
8014 l119.fvalue(pv, l295);
8015 l119.fvalue(pv, l294);
8016 l119.fvalue(pv, l293);
8017 l119.fvalue(pv, l292);
8018 l119.fvalue(pv, l291);
8019 l119.fvalue(pv, l290);
8020 l119.fvalue(pv, l289);
8021 l119.fvalue(pv, l288);
8022 l119.fvalue(pv, l287);
8023 l119.fvalue(pv, l286);
8024 l119.fvalue(pv, l285);
8025 l119.fvalue(pv, l284);
8026 l119.fvalue(pv, l283);
8027 l119.fvalue(pv, l282);
8028 l119.fvalue(pv, l281);
8029 l119.fvalue(pv, l280);
8030 l119.fvalue(pv, l279);
8031 l119.fvalue(pv, l278);
8032 l119.fvalue(pv, l277);
8033 l119.fvalue(pv, l276);
8034 l119.fvalue(pv, l275);
8035 l119.fvalue(pv, l274);
8036 l119.fvalue(pv, l273);
8037 l119.fvalue(pv, l272);
8038 l119.fvalue(pv, l271);
8039 l119.fvalue(pv, l270);
8040 l119.fvalue(pv, l269);
8041 l119.fvalue(pv, l268);
8042 l119.fvalue(pv, l267);
8043 l119.fvalue(pv, l266);
8044 l119.fvalue(pv, l265);
8045 l119.fvalue(pv, l264);
8046 l119.fvalue(pv, l263);
8047 l119.fvalue(pv, l262);
8048 l119.fvalue(pv, l261);
8049 l119.fvalue(pv, l260);
8050 l119.fvalue(pv, l259);
8051 l119.fvalue(pv, l258);
8052 l119.fvalue(pv, l257);
8053 l119.fvalue(pv, l256);
8054 l119.fvalue(pv, l255);
8055 l119.fvalue(pv, l254);
8056 l119.fvalue(pv, l253);
8057 l119.fvalue(pv, l252);
8058 l119.fvalue(pv, l251);
8059 l119.fvalue(pv, l250);
8060 l119.fvalue(pv, l249);
8061 l119.fvalue(pv, l248);
8062 l119.fvalue(pv, l247);
8063 l119.fvalue(pv, l246);
8064 l119.fvalue(pv, l245);
8065 l119.fvalue(pv, l244);
8066 l119.fvalue(pv, l243);
8067 l119.fvalue(pv, l242);
8068 l119.fvalue(pv, l241);
8069 l119.fvalue(pv, l240);
8070 l119.fvalue(pv, l239);
8071 l119.fvalue(pv, l238);
8072 l119.fvalue(pv, l237);
8073 l119.fvalue(pv, l236);
8074 l119.fvalue(pv, l235);
8075 l119.fvalue(pv, l234);
8076 l119.fvalue(pv, l233);
8077 l119.fvalue(pv, l232);
8078 l119.fvalue(pv, l231);
8079 l119.fvalue(pv, l230);
8080 l119.fvalue(pv, l229);
8081 l119.fvalue(pv, l228);
8082 l119.fvalue(pv, l227);
8083 l119.fvalue(pv, l226);
8084 l119.fvalue(pv, l225);
8085 l119.fvalue(pv, l224);
8086 l119.fvalue(pv, l223);
8087 l119.fvalue(pv, l222);
8088 l119.fvalue(pv, l221);
8089 l119.fvalue(pv, l220);
8090 l119.fvalue(pv, l219);
8091 l119.fvalue(pv, l218);
8092 l119.fvalue(pv, l217);
8093 l119.fvalue(pv, l216);
8094 l119.fvalue(pv, l215);
8095 l119.fvalue(pv, l214);
8096 l119.fvalue(pv, l213);
8097 l119.fvalue(pv, l212);
8098 l119.fvalue(pv, l211);
8099 l119.fvalue(pv, l210);
8100 l119.fvalue(pv, l209);
8101 l119.fvalue(pv, l208);
8102 l119.fvalue(pv, l207);
8103 l119.fvalue(pv, l205);
8104 l119.fvalue(pv, l204);
8105 l119.fvalue(pv, l203);
8106 l119.fvalue(pv, l202);
8107 l119.fvalue(pv, l201);
8108 l119.fvalue(pv, l200);
8109 l119.fvalue(pv, l199);
8110 l119.fvalue(pv, l198);
8111 l119.fvalue(pv, l197);
8112 l119.fvalue(pv, l196);
8113 l119.fvalue(pv, l195);
8114 l119.fvalue(pv, l194);
8115 l119.fvalue(pv, l193);
8116 l119.fvalue(pv, l192);
8117 l119.fvalue(pv, l191);
8118 l119.fvalue(pv, l190);
8119 l119.fvalue(pv, l189);
8120 l119.fvalue(pv, l188);
8121 l119.fvalue(pv, l187);
8122 l119.fvalue(pv, l186);
8123 l119.fvalue(pv, l185);
8124 l119.fvalue(pv, l184);
8125 l119.fvalue(pv, l183);
8126 l119.fvalue(pv, l182);
8127 l119.fvalue(pv, l181);
8128 l119.fvalue(pv, l180);
8129 l119.fvalue(pv, l179);
8130 l119.fvalue(pv, l178);
8131 l119.fvalue(pv, l177);
8132 l119.fvalue(pv, l176);
8133 l119.fvalue(pv, l175);
8134 l119.fvalue(pv, l174);
8135 l119.fvalue(pv, l173);
8136 l119.fvalue(pv, l172);
8137 l119.fvalue(pv, l171);
8138 l119.fvalue(pv, l170);
8139 l119.fvalue(pv, l169);
8140 l119.fvalue(pv, l168);
8141 l119.fvalue(pv, l167);
8142 l119.fvalue(pv, l166);
8143 l119.fvalue(pv, l165);
8144 l119.fvalue(pv, l164);
8145 l119.fvalue(pv, l163);
8146 l119.fvalue(pv, l162);
8147 l119.fvalue(pv, l161);
8148 l119.fvalue(pv, l160);
8149 l119.fvalue(pv, l159);
8150 l119.fvalue(pv, l158);
8151 l119.fvalue(pv, l157);
8152 l119.fvalue(pv, l156);
8153 l119.fvalue(pv, l155);
8154 l119.fvalue(pv, l154);
8155 l119.fvalue(pv, l153);
8156 l119.fvalue(pv, l152);
8157 l119.fvalue(pv, l151);
8158 l119.fvalue(pv, l150);
8159 l119.fvalue(pv, l149);
8160 l119.fvalue(pv, l148);
8161 l119.fvalue(pv, l147);
8162 l119.fvalue(pv, l146);
8163 l119.fvalue(pv, l145);
8164 l119.fvalue(pv, l144);
8165 l119.fvalue(pv, l143);
8166 l119.fvalue(pv, l142);
8167 l119.fvalue(pv, l141);
8168 l119.fvalue(pv, l140);
8169 l119.fvalue(pv, l139);
8170 l119.fvalue(pv, l138);
8171 l119.fvalue(pv, l137);
8172 l119.fvalue(pv, l136);
8173 l119.fvalue(pv, l135);
8174 l119.fvalue(pv, l134);
8175 l119.fvalue(pv, l133);
8176 l119.fvalue(pv, l132);
8177 l119.fvalue(pv, l131);
8178 l119.fvalue(pv, l130);
8179 l119.fvalue(pv, l129);
8180 l119.fvalue(pv, l128);
8181 l119.fvalue(pv, l127);
8182 l119.fvalue(pv, l126);
8183 l119.fvalue(pv, l125);
8184 l119.fvalue(pv, l124);
8185 l119.fvalue(pv, l123);
8186 l119.fvalue(pv, l122);
8187 l119.fvalue(pv, l121);
8188 l119.fvalue(pv, l120);
8189 l119.fvalue(pv, l119);
8190 l119.fvalue(pv, l118);
8191 l119.fvalue(pv, l117);
8192 l119.fvalue(pv, l116);
8193 l119.fvalue(pv, l115);
8194 l119.fvalue(pv, l114);
8195 l119.fvalue(pv, l113);
8196 l119.fvalue(pv, l112);
8197 l119.fvalue(pv, l111);
8198 l119.fvalue(pv, l110);
8199 l119.fvalue(pv, l109);
8200 l119.fvalue(pv, l108);
8201 l119.fvalue(pv, l107);
8202 l119.fvalue(pv, l106);
8203 l119.fvalue(pv, l105);
8204 l119.fvalue(pv, l104);
8205 l119.fvalue(pv, l103);
8206 l119.fvalue(pv, l102);
8207 l119.fvalue(pv, l101);
8208 l119.fvalue(pv, l100);
8209 l119.fvalue(pv, l99);
8210 l119.fvalue(pv, l98);
8211 l119.fvalue(pv, l97);
8212 l119.fvalue(pv, l96);
8213 l119.fvalue(pv, l95);
8214 l119.fvalue(pv, l94);
8215 l119.fvalue(pv, l93);
8216 l119.fvalue(pv, l92);
8217 l119.fvalue(pv, l91);
8218 l119.fvalue(pv, l90);
8219 l119.fvalue(pv, l89);
8220 l119.fvalue(pv, l88);
8221 l119.fvalue(pv, l87);
8222 l119.fvalue(pv, l86);
8223 l119.fvalue(pv, l85);
8224 l119.fvalue(pv, l84);
8225 l119.fvalue(pv, l83);
8226 l119.fvalue(pv, l82);
8227 l119.fvalue(pv, l81);
8228 l119.fvalue(pv, l80);
8229 l119.fvalue(pv, l79);
8230 l119.fvalue(pv, l78);
8231 l119.fvalue(pv, l77);
8232 l119.fvalue(pv, l76);
8233 l119.fvalue(pv, l75);
8234 l119.fvalue(pv, l74);
8235 l119.fvalue(pv, l73);
8236 l119.fvalue(pv, l72);
8237 l119.fvalue(pv, l71);
8238 l119.fvalue(pv, l70);
8239 l119.fvalue(pv, l69);
8240 l119.fvalue(pv, l68);
8241 l119.fvalue(pv, l67);
8242 l119.fvalue(pv, l66);
8243 l119.fvalue(pv, l65);
8244 l119.fvalue(pv, l64);
8245 l119.fvalue(pv, l63);
8246 l119.fvalue(pv, l62);
8247 l119.fvalue(pv, l61);
8248 l119.fvalue(pv, l60);
8249 l119.fvalue(pv, l59);
8250 l119.fvalue(pv, l58);
8251 l119.fvalue(pv, l57);
8252 l119.fvalue(pv, l56);
8253 l119.fvalue(pv, l55);
8254 l119.fvalue(pv, l54);
8255 l119.fvalue(pv, l53);
8256 l119.fvalue(pv, l52);
8257 l119.fvalue(pv, l51);
8258 l119.fvalue(pv, l50);
8259 l119.fvalue(pv, l49);
8260 l119.fvalue(pv, l48);
8261 l119.fvalue(pv, l47);
8262 l119.fvalue(pv, l46);
8263 l119.fvalue(pv, l45);
8264 l119.fvalue(pv, l44);
8265 l119.fvalue(pv, l43);
8266 l119.fvalue(pv, l42);
8267 l119.fvalue(pv, l41);
8268 l119.fvalue(pv, l40);
8269 l119.fvalue(pv, l39);
8270 l119.fvalue(pv, l38);
8271 l119.fvalue(pv, l37);
8272 l119.fvalue(pv, l36);
8273 l119.fvalue(pv, l35);
8274 l119.fvalue(pv, l34);
8275 l119.fvalue(pv, l33);
8276 l119.fvalue(pv, l32);
8277 l119.fvalue(pv, l31);
8278 l119.fvalue(pv, l30);
8279 l119.fvalue(pv, l29);
8280 l119.fvalue(pv, l28);
8281 l119.fvalue(pv, l27);
8282 l119.fvalue(pv, l26);
8283 l119.fvalue(pv, l25);
8284 l119.fvalue(pv, l24);
8285 l119.fvalue(pv, l23);
8286 l119.fvalue(pv, l22);
8287 l119.fvalue(pv, l21);
8288 l119.fvalue(pv, l20);
8289 l119.fvalue(pv, l19);
8290 l119.fvalue(pv, l18);
8291 l119.fvalue(pv, l17);
8292 l119.fvalue(pv, l16);
8293 l119.fvalue(pv, l15);
8294 l119.fvalue(pv, l14);
8295 l119.fvalue(pv, l13);
8296 l119.fvalue(pv, l12);
8297 l119.fvalue(pv, l11);
8298 l119.fvalue(pv, l10);
8299 l119.fvalue(pv, l9);
8300 l119.fvalue(pv, l8);
8301 l119.fvalue(pv, l7);
8302 l119.fvalue(pv, l6);
8303 l119.fvalue(pv, l5);
8304 l119.fvalue(pv, l4);
8305 l119.fvalue(pv, l3);
8306 l119.fvalue(pv, l2);
8307 l119.fvalue(pv, l1);
8308 ((l222).value = l312);
8309 ((l182).value = l348);
8310 ((l183).value = 822);
8311 ((l15).value = 212);
8312 return ((l239).value = 282);
8314 ((l223).value = 348);