Skip to content

Commit 0ba9fa7

Browse files
davazpdavazp
committed
Deploying to master from @ jscl-project/jscl@c976004 🚀
1 parent 32842a4 commit 0ba9fa7

5 files changed

Lines changed: 45141 additions & 43780 deletions

File tree

‎jscl-node.js‎

Lines changed: 85 additions & 86 deletions
Original file line numberDiff line numberDiff line change
@@ -16,42 +16,41 @@ var l9=internals.intern('NSUBSTITUTE');
1616
var l10=internals.intern('%SEXPR-INCOMPLETE','JSCL');
1717
var l11=internals.intern('NIL');
1818
var l12=internals.intern('*ROOT*','JSCL');
19-
var l13=internals.intern('MAKE-NEW','JSCL');
20-
var l14=internals.intern('*ERROR-OUTPUT*');
21-
var l15=internals.intern('FORMAT-ERROR','JSCL');
22-
var l16=internals.intern('COMPLAINT','KEYWORD');
23-
l16.value=l16;
24-
var l17=internals.make_lisp_string('Required argument missing');
25-
var l18=internals.intern('CONTROL-STRING','KEYWORD');
26-
l18.value=l18;
27-
var l19=internals.make_lisp_string('ERROR[!]: ~a~%~A~%');
28-
var l20=internals.intern('OFFSET','KEYWORD');
29-
l20.value=l20;
30-
var l21=internals.intern('ERROR');
31-
var l22=internals.make_lisp_string('ERROR[!]: ');
32-
var l23=internals.intern('WRITE-STRING');
33-
var l24=internals.intern('PRINC');
34-
var l25=internals.intern('TERPRI');
35-
var l26=internals.intern('CALL-FORMATTER','JSCL');
36-
var l27=internals.intern('*HANDLER-BINDINGS*','JSCL');
37-
var l28=internals.intern('SERIOUS-CONDITION');
38-
var l29=internals.make_lisp_string('~A: ~A~%');
39-
var l30=internals.make_lisp_string(': ');
40-
var l31=internals.intern('CLASS-OF');
41-
var l32=internals.intern('CLASS-NAME');
42-
var l33=internals.intern('*TRACE-OUTPUT*');
43-
var l34=internals.intern('FROM','KEYWORD');
44-
l34.value=l34;
45-
var l35=internals.intern('SIGNAL');
46-
var l36=internals.intern('FORMAT-BACKTRACE','JSCL');
47-
var l37=internals.intern('T');
48-
var l38=internals.intern('%%ERROR','JSCL');
49-
var l39=internals.intern('LIST');
50-
var l40=internals.intern('EVAL-INTERACTIVE-INPUT','JSCL');
51-
var l41=internals.intern('FRESH-LINE');
52-
var l42=internals.intern('PRIN1');
53-
var l43=internals.make_lisp_string('');
54-
var l44=internals.intern('CONSTANTLY');
19+
var l13=internals.intern('*ERROR-OUTPUT*');
20+
var l14=internals.intern('FORMAT-ERROR','JSCL');
21+
var l15=internals.intern('COMPLAINT','KEYWORD');
22+
l15.value=l15;
23+
var l16=internals.make_lisp_string('Required argument missing');
24+
var l17=internals.intern('CONTROL-STRING','KEYWORD');
25+
l17.value=l17;
26+
var l18=internals.make_lisp_string('ERROR[!]: ~a~%~A~%');
27+
var l19=internals.intern('OFFSET','KEYWORD');
28+
l19.value=l19;
29+
var l20=internals.intern('ERROR');
30+
var l21=internals.make_lisp_string('ERROR[!]: ');
31+
var l22=internals.intern('WRITE-STRING');
32+
var l23=internals.intern('PRINC');
33+
var l24=internals.intern('TERPRI');
34+
var l25=internals.intern('CALL-FORMATTER','JSCL');
35+
var l26=internals.intern('*HANDLER-BINDINGS*','JSCL');
36+
var l27=internals.intern('SERIOUS-CONDITION');
37+
var l28=internals.make_lisp_string('~A: ~A~%');
38+
var l29=internals.make_lisp_string(': ');
39+
var l30=internals.intern('CLASS-OF');
40+
var l31=internals.intern('CLASS-NAME');
41+
var l32=internals.intern('*TRACE-OUTPUT*');
42+
var l33=internals.intern('FROM','KEYWORD');
43+
l33.value=l33;
44+
var l34=internals.intern('SIGNAL');
45+
var l35=internals.intern('FORMAT-BACKTRACE','JSCL');
46+
var l36=internals.intern('T');
47+
var l37=internals.intern('%%ERROR','JSCL');
48+
var l38=internals.intern('LIST');
49+
var l39=internals.intern('EVAL-INTERACTIVE-INPUT','JSCL');
50+
var l40=internals.intern('FRESH-LINE');
51+
var l41=internals.intern('PRIN1');
52+
var l42=internals.make_lisp_string('');
53+
var l43=internals.intern('CONSTANTLY');
5554
l3.fvalue=(function(){var FUNC=(function JSCL_USER_STARTREPL(values){internals.checkArgsAtMost(arguments.length-1,0);
5655
var v1=this;
5756
return (function(){l4.fvalue(internals.pv);
@@ -64,86 +63,86 @@ var v4=(function JSCL_USER_NIL(values,v7,v8,v9,v10){internals.checkArgs(argument
6463
var v11=this;
6564
return (function(){v7=l9.fvalue(internals.pv,internals.char_from_codepoint(10),internals.char_from_codepoint(13),v7);
6665
return l10.fvalue(internals.pv,v7)!==l11.value?(function(){var F=v10;
67-
return (typeof F==='function'?F:F.fvalue)(values,l13.fvalue(internals.pv,internals.js_to_lisp((function(){var TMP=internals.symbolValue(l12)['repl'];
66+
return (typeof F==='function'?F:F.fvalue)(values,internals.newInstance(null,internals.js_to_lisp((function(){var TMP=internals.symbolValue(l12)['repl'];
6867
if (TMP===undefined) return l11.value;
6968
TMP=TMP['Recoverable'];
7069
return TMP===undefined?l11.value:TMP;
7170
})())));
7271
})():((function(){try{return (function(){try{var v22=[];
73-
return (function(v23){return internals.bindSpecialBindings([l27],[v23],(function(){(function(){var v25=new internals.Cons(l28,(function JSCL_USER_NIL(values,v26){internals.checkArgs(arguments.length-1,1);
72+
return (function(v23){return internals.bindSpecialBindings([l26],[v23],(function(){(function(){var v25=new internals.Cons(l27,(function JSCL_USER_NIL(values,v26){internals.checkArgs(arguments.length-1,1);
7473
var v27=this;
75-
l26.fvalue(internals.pv,internals.symbolValue(l14),(function JSCL_USER_NIL(values,v29,v30,v31){internals.checkArgsAtLeast(arguments.length-1,1);
76-
switch(arguments.length-1){case 1:v30=l21.fvalue(internals.pv,l15,l16.value,l17,l18.value,l29,l20.value,1);
74+
l25.fvalue(internals.pv,internals.symbolValue(l13),(function JSCL_USER_NIL(values,v29,v30,v31){internals.checkArgsAtLeast(arguments.length-1,1);
75+
switch(arguments.length-1){case 1:v30=l20.fvalue(internals.pv,l14,l15.value,l16,l17.value,l28,l19.value,1);
7776
;
78-
case 2:v31=l21.fvalue(internals.pv,l15,l16.value,l17,l18.value,l29,l20.value,5);
77+
case 2:v31=l20.fvalue(internals.pv,l14,l15.value,l16,l17.value,l28,l19.value,5);
7978
;
8079
default:break;
8180
}var v28=l11.value;
8281
var I;
8382
for (I=arguments.length-1-1;I>=3;I--)v28=new internals.Cons(arguments[I+1],v28);
8483
var v32=this;
85-
(function(){l24.fvalue(internals.pv,v30,v29);
86-
l23.fvalue(internals.pv,l30,v29);
87-
l24.fvalue(internals.pv,v31,v29);
88-
return l25.fvalue(internals.pv,v29);
84+
(function(){l23.fvalue(internals.pv,v30,v29);
85+
l22.fvalue(internals.pv,l29,v29);
86+
l23.fvalue(internals.pv,v31,v29);
87+
return l24.fvalue(internals.pv,v29);
8988
})();
9089
return v28;
91-
}),l32.fvalue(internals.pv,l31.fvalue(internals.pv,v26)),v26);
92-
l36.fvalue(internals.pv,internals.symbolValue(l33),l34.value,internals.symbolFunction(l35));
90+
}),l31.fvalue(internals.pv,l30.fvalue(internals.pv,v26)),v26);
91+
l35.fvalue(internals.pv,internals.symbolValue(l32),l33.value,internals.symbolFunction(l34));
9392
return (function(){throw new internals.BlockNLX(v22,l11.value,'BAIL-OUT');
9493
})();
9594
}));
96-
var v34=new internals.Cons(v25,internals.symbolValue(l27));
97-
return l27.value=v34;
95+
var v34=new internals.Cons(v25,internals.symbolValue(l26));
96+
return l26.value=v34;
9897
})();
9998
return (function(){try{return (function(){return (function(v38,v39){(function(){while (v38!==l11.value){v39=v38.$$jscl_car;
100-
l41.fvalue(internals.pv);
101-
l42.fvalue(internals.pv,v39);
102-
l25.fvalue(internals.pv);
99+
l40.fvalue(internals.pv);
100+
l41.fvalue(internals.pv,v39);
101+
l24.fvalue(internals.pv);
103102
l11.value;
104103
v38=v38.$$jscl_cdr;
105104
}return l11.value;
106105
})();
107106
return l11.value;
108-
})((function(){var FUNC=internals.symbolFunction(l39);
107+
})((function(){var FUNC=internals.symbolFunction(l38);
109108
var ARGS=[internals.pv];
110109
return (function(){var values=internals.mv;
111110
var VS;
112-
VS=l40.fvalue(values,v7);
111+
VS=l39.fvalue(values,v7);
113112
if (typeof VS==='object'&&VS&&'multiple-value' in VS) ARGS=ARGS.concat(VS);
114113
else ARGS.push(VS);
115114
return FUNC.apply(null,ARGS);
116115
})();
117116
})(),l11.value);
118117
})();
119118
}catch (v35){v35=internals.js_to_lisp(v35);
120-
return (internals.isNLX(v35)?l37.value:l11.value)!==l11.value?(function(){throw v35;
121-
})():l38.fvalue(internals.pv,(function(v36){return v36!==l11.value?v36:v35;
119+
return (internals.isNLX(v35)?l36.value:l11.value)!==l11.value?(function(){throw v35;
120+
})():l37.fvalue(internals.pv,(function(v36){return v36!==l11.value?v36:v35;
122121
})(internals.js_to_lisp((function(){var TMP=v35['message'];
123122
return TMP===undefined?l11.value:TMP;
124123
})())));
125124
}})();
126125
}));
127-
})(internals.symbolValue(l27));
126+
})(internals.symbolValue(l26));
128127
}catch (CF){if (CF instanceof internals.BlockNLX&&CF.id==v22) return CF.values;
129128
else throw CF;
130129
}})();
131130
}catch (v13){v13=internals.js_to_lisp(v13);
132-
return (function(v15){return l26.fvalue(internals.pv,internals.symbolValue(l14),(function JSCL_USER_NIL(values,v17,v18,v19){internals.checkArgsAtLeast(arguments.length-1,1);
133-
switch(arguments.length-1){case 1:v18=l21.fvalue(internals.pv,l15,l16.value,l17,l18.value,l19,l20.value,11);
131+
return (function(v15){return l25.fvalue(internals.pv,internals.symbolValue(l13),(function JSCL_USER_NIL(values,v17,v18,v19){internals.checkArgsAtLeast(arguments.length-1,1);
132+
switch(arguments.length-1){case 1:v18=l20.fvalue(internals.pv,l14,l15.value,l16,l17.value,l18,l19.value,11);
134133
;
135-
case 2:v19=l21.fvalue(internals.pv,l15,l16.value,l17,l18.value,l19,l20.value,15);
134+
case 2:v19=l20.fvalue(internals.pv,l14,l15.value,l16,l17.value,l18,l19.value,15);
136135
;
137136
default:break;
138137
}var v16=l11.value;
139138
var I;
140139
for (I=arguments.length-1-1;I>=3;I--)v16=new internals.Cons(arguments[I+1],v16);
141140
var v20=this;
142-
(function(){l23.fvalue(internals.pv,l22,v17);
143-
l24.fvalue(internals.pv,v18,v17);
144-
l25.fvalue(internals.pv,v17);
145-
l24.fvalue(internals.pv,v19,v17);
146-
return l25.fvalue(internals.pv,v17);
141+
(function(){l22.fvalue(internals.pv,l21,v17);
142+
l23.fvalue(internals.pv,v18,v17);
143+
l24.fvalue(internals.pv,v17);
144+
l23.fvalue(internals.pv,v19,v17);
145+
return l24.fvalue(internals.pv,v17);
147146
})();
148147
return v16;
149148
}),v15,internals.js_to_lisp((function(){var TMP=v13['stack'];
@@ -166,43 +165,43 @@ return TMP===undefined?l11.value:TMP;
166165
if (TMP===undefined) return l11.value;
167166
TMP=TMP['stdout'];
168167
return TMP===undefined?l11.value:TMP;
169-
})())),eval: internals.lisp_to_js(v4),writer: internals.lisp_to_js(l44.fvalue(internals.pv,l43)),prompt: internals.lisp_to_js(v3(internals.pv))})));
168+
})())),eval: internals.lisp_to_js(v4),writer: internals.lisp_to_js(l43.fvalue(internals.pv,l42)),prompt: internals.lisp_to_js(v3(internals.pv))})));
170169
})();
171170
})();
172171
});
173172
FUNC.fname='START-REPL';
174173
return FUNC;
175174
})();
176175
l3;
177-
var l45=internals.intern('NODE-INIT','JSCL');
178-
var l46=internals.intern('*STANDARD-OUTPUT*');
179-
var l47=internals.intern('WRITE-FN','KEYWORD');
180-
l47.value=l47;
181-
var l48=internals.intern('MAKE-STREAM','JSCL');
182-
var l49=internals.intern('JS-TO-LISP','JSCL');
183-
var l50=internals.intern('SUBSEQ');
184-
var l51=internals.intern('VECTOR-TO-LIST','JSCL');
185-
var l52=internals.intern('MAPCAR');
186-
var l53=internals.intern('NULL');
187-
var l54=internals.intern('LOAD');
188-
l45.fvalue=(function(){var FUNC=(function JSCL_USER_NODEINIT(values){internals.checkArgsAtMost(arguments.length-1,0);
176+
var l44=internals.intern('NODE-INIT','JSCL');
177+
var l45=internals.intern('*STANDARD-OUTPUT*');
178+
var l46=internals.intern('WRITE-FN','KEYWORD');
179+
l46.value=l46;
180+
var l47=internals.intern('MAKE-STREAM','JSCL');
181+
var l48=internals.intern('JS-TO-LISP','JSCL');
182+
var l49=internals.intern('SUBSEQ');
183+
var l50=internals.intern('VECTOR-TO-LIST','JSCL');
184+
var l51=internals.intern('MAPCAR');
185+
var l52=internals.intern('NULL');
186+
var l53=internals.intern('LOAD');
187+
l44.fvalue=(function(){var FUNC=(function JSCL_USER_NODEINIT(values){internals.checkArgsAtMost(arguments.length-1,0);
189188
var v40=this;
190-
return (function(){l46.value=l48.fvalue(internals.pv,l47.value,(function JSCL_USER_NIL(values,v42){internals.checkArgs(arguments.length-1,1);
189+
return (function(){l45.value=l47.fvalue(internals.pv,l46.value,(function JSCL_USER_NIL(values,v42){internals.checkArgs(arguments.length-1,1);
191190
var v43=this;
192191
return internals.js_to_lisp(internals.symbolValue(l12)['process']['stdout']['write'](internals.lisp_to_js(v42)));
193192
}));
194-
l14.value=internals.symbolValue(l46);
195-
l33.value=internals.symbolValue(l46);
196-
return (function(v44){return l53.fvalue(internals.pv,v44)!==l11.value?l3.fvalue(values):(function(){return (function(v46,v47){(function(){while (v46!==l11.value){v47=v46.$$jscl_car;
197-
l54.fvalue(internals.pv,v47);
193+
l13.value=internals.symbolValue(l45);
194+
l32.value=internals.symbolValue(l45);
195+
return (function(v44){return l52.fvalue(internals.pv,v44)!==l11.value?l3.fvalue(values):(function(){return (function(v46,v47){(function(){while (v46!==l11.value){v47=v46.$$jscl_car;
196+
l53.fvalue(internals.pv,v47);
198197
l11.value;
199198
v46=v46.$$jscl_cdr;
200199
}return l11.value;
201200
})();
202201
return l11.value;
203202
})(v44,l11.value);
204203
})();
205-
})(l52.fvalue(internals.pv,internals.symbolFunction(l49),l51.fvalue(internals.pv,l50.fvalue(internals.pv,internals.js_to_lisp((function(){var TMP=internals.symbolValue(l12)['process'];
204+
})(l51.fvalue(internals.pv,internals.symbolFunction(l48),l50.fvalue(internals.pv,l49.fvalue(internals.pv,internals.js_to_lisp((function(){var TMP=internals.symbolValue(l12)['process'];
206205
if (TMP===undefined) return l11.value;
207206
TMP=TMP['argv'];
208207
return TMP===undefined?l11.value:TMP;
@@ -212,8 +211,8 @@ return TMP===undefined?l11.value:TMP;
212211
FUNC.fname='NODE-INIT';
213212
return FUNC;
214213
})();
215-
l45;
216-
l45.fvalue(internals.pv);
214+
l44;
215+
l44.fvalue(internals.pv);
217216
})(jscl.internals.pv, jscl.internals);
218217
})( typeof require !== 'undefined'? require('./jscl'):
219218
typeof window !== 'undefined'? window.jscl: self.jscl )

0 commit comments

Comments
 (0)