Deploying to master from @ jscl-project/jscl@52e1533 🚀

Author: davazp

jscl.js

@@ -26637,7 +26637,7 @@ return FUNC;
 })();
 l2405;
 var l2407=internals.intern('LISP-IMPLEMENTATION-VERSION');
-var l2408=internals.make_lisp_string('3141e99');
+var l2408=internals.make_lisp_string('0.9.0-alpha.0');
 l2407.fvalue=(function(){var FUNC=(function JSCL_USER_LISPIMPLEMENTATIONVERSION(values){internals.checkArgsAtMost(arguments.length-1,0);
 var v7752=this;
 return (function(){return l2408;
@@ -46433,10 +46433,10 @@ return FUNC;
 })();
 l4636;
 var l4638=internals.intern('A-FORMAT-DIRECTIVE-EXPANDER','JSCL');
-var l4639=new internals.Symbol('G64642');
-var l4640=new internals.Symbol('G64643');
-var l4641=new internals.Symbol('G64644');
-var l4642=new internals.Symbol('G64645');
+var l4639=new internals.Symbol('G64643');
+var l4640=new internals.Symbol('G64644');
+var l4641=new internals.Symbol('G64645');
+var l4642=new internals.Symbol('G64646');
 var l4643=internals.QIList(l162,l3179,l3);
 var l4644=internals.make_lisp_string('Too many parameters, expected no more than ~D');
 var l4646=internals.make_lisp_string('()');
@@ -46576,10 +46576,10 @@ return FUNC;
 })();
 l4648;
 var l4650=internals.intern('S-FORMAT-DIRECTIVE-EXPANDER','JSCL');
-var l4651=new internals.Symbol('G64765');
-var l4652=new internals.Symbol('G64766');
-var l4653=new internals.Symbol('G64767');
-var l4654=new internals.Symbol('G64768');
+var l4651=new internals.Symbol('G64766');
+var l4652=new internals.Symbol('G64767');
+var l4653=new internals.Symbol('G64768');
+var l4654=new internals.Symbol('G64769');
 var l4657=internals.QIList(l2399,l2846,l71,l3);
 var l4659=internals.make_lisp_string('()');
 var l4658=internals.QIList(l2400,l4659,l71,l3);
@@ -46874,10 +46874,10 @@ return FUNC;
 })();
 l4680;
 var l4683=internals.intern('EXPAND-FORMAT-INTEGER','JSCL');
-var l4684=new internals.Symbol('G65202');
-var l4685=new internals.Symbol('G65203');
-var l4686=new internals.Symbol('G65204');
-var l4687=new internals.Symbol('G65205');
+var l4684=new internals.Symbol('G65203');
+var l4685=new internals.Symbol('G65204');
+var l4686=new internals.Symbol('G65205');
+var l4687=new internals.Symbol('G65206');
 var l4688=internals.QIList(l2396,l3,l2394,l3,l3);
 l4683.fvalue=(function(){var FUNC=(function JSCL_USER_EXPANDFORMATINTEGER(values,v14317,v14318,v14319,v14320){internals.checkArgs(arguments.length-1,4);
 var v14321=this;
@@ -47049,11 +47049,11 @@ return FUNC;
 l4692;
 l4633.fvalue(internals.pv,'X',internals.symbolFunction(l4692));
 var l4693=internals.intern('R-FORMAT-DIRECTIVE-EXPANDER','JSCL');
-var l4694=new internals.Symbol('G65375');
-var l4695=new internals.Symbol('G65376');
-var l4696=new internals.Symbol('G65377');
-var l4697=new internals.Symbol('G65378');
-var l4698=new internals.Symbol('G65379');
+var l4694=new internals.Symbol('G65376');
+var l4695=new internals.Symbol('G65377');
+var l4696=new internals.Symbol('G65378');
+var l4697=new internals.Symbol('G65379');
+var l4698=new internals.Symbol('G65380');
 var l4699=internals.make_lisp_string('R-ARG-');
 var l4700=internals.intern('FORMAT-PRINT-CARDINAL','JSCL');
 var l4701=internals.intern('FORMAT-PRINT-OLD-ROMAN','JSCL');
@@ -48656,11 +48656,11 @@ return FUNC;
 l5805;
 var l5806=internals.intern('F-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5807=internals.make_lisp_string('Cannot specify the colon modifier with this directive.');
-var l5808=new internals.Symbol('G67265');
-var l5809=new internals.Symbol('G67266');
-var l5810=new internals.Symbol('G67267');
-var l5811=new internals.Symbol('G67268');
-var l5812=new internals.Symbol('G67269');
+var l5808=new internals.Symbol('G67266');
+var l5809=new internals.Symbol('G67267');
+var l5810=new internals.Symbol('G67268');
+var l5811=new internals.Symbol('G67269');
+var l5812=new internals.Symbol('G67270');
 var l5813=internals.intern('FORMAT-FIXED','JSCL');
 l5806.fvalue=(function(){var FUNC=(function JSCL_USER_FFORMATDIRECTIVEEXPANDER(values,v14582,v14583){internals.checkArgs(arguments.length-1,2);
 var v14584=this;
@@ -48864,13 +48864,13 @@ return FUNC;
 l5814;
 var l5815=internals.intern('E-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5816=internals.make_lisp_string('Cannot specify the colon modifier with this directive.');
-var l5817=new internals.Symbol('G67479');
-var l5818=new internals.Symbol('G67480');
-var l5819=new internals.Symbol('G67481');
-var l5820=new internals.Symbol('G67482');
-var l5821=new internals.Symbol('G67483');
-var l5822=new internals.Symbol('G67484');
-var l5823=new internals.Symbol('G67485');
+var l5817=new internals.Symbol('G67480');
+var l5818=new internals.Symbol('G67481');
+var l5819=new internals.Symbol('G67482');
+var l5820=new internals.Symbol('G67483');
+var l5821=new internals.Symbol('G67484');
+var l5822=new internals.Symbol('G67485');
+var l5823=new internals.Symbol('G67486');
 var l5824=internals.intern('FORMAT-EXPONENTIAL','JSCL');
 l5815.fvalue=(function(){var FUNC=(function JSCL_USER_EFORMATDIRECTIVEEXPANDER(values,v14679,v14680){internals.checkArgs(arguments.length-1,2);
 var v14681=this;
@@ -49128,13 +49128,13 @@ return FUNC;
 l5825;
 var l5826=internals.intern('G-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5827=internals.make_lisp_string('Cannot specify the colon modifier with this directive.');
-var l5828=new internals.Symbol('G67710');
-var l5829=new internals.Symbol('G67711');
-var l5830=new internals.Symbol('G67712');
-var l5831=new internals.Symbol('G67713');
-var l5832=new internals.Symbol('G67714');
-var l5833=new internals.Symbol('G67715');
-var l5834=new internals.Symbol('G67716');
+var l5828=new internals.Symbol('G67711');
+var l5829=new internals.Symbol('G67712');
+var l5830=new internals.Symbol('G67713');
+var l5831=new internals.Symbol('G67714');
+var l5832=new internals.Symbol('G67715');
+var l5833=new internals.Symbol('G67716');
+var l5834=new internals.Symbol('G67717');
 var l5835=internals.intern('FORMAT-GENERAL','JSCL');
 l5826.fvalue=(function(){var FUNC=(function JSCL_USER_GFORMATDIRECTIVEEXPANDER(values,v14805,v14806){internals.checkArgs(arguments.length-1,2);
 var v14807=this;
@@ -49348,10 +49348,10 @@ return FUNC;
 })();
 l5835;
 var l5836=internals.intern('$-FORMAT-DIRECTIVE-EXPANDER','JSCL');
-var l5837=new internals.Symbol('G67826');
-var l5838=new internals.Symbol('G67827');
-var l5839=new internals.Symbol('G67828');
-var l5840=new internals.Symbol('G67829');
+var l5837=new internals.Symbol('G67827');
+var l5838=new internals.Symbol('G67828');
+var l5839=new internals.Symbol('G67829');
+var l5840=new internals.Symbol('G67830');
 var l5841=internals.intern('FORMAT-DOLLARS','JSCL');
 l5836.fvalue=(function(){var FUNC=(function JSCL_USER_FORMATDIRECTIVEEXPANDER(values,v14916,v14917){internals.checkArgs(arguments.length-1,2);
 var v14918=this;
@@ -49487,7 +49487,7 @@ return FUNC;
 l5841;
 var l5844=internals.intern('%-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5845=internals.make_lisp_string('Cannot specify either colon or atsign for this directive.');
-var l5846=new internals.Symbol('G67928');
+var l5846=new internals.Symbol('G67929');
 var l5847=internals.intern('DOTIMES');
 var l5849=internals.QIList(l2402,l71,l3);
 var l5848=internals.QIList(l5849,l3);
@@ -49535,7 +49535,7 @@ l5844;
 l4633.fvalue(internals.pv,'%',internals.symbolFunction(l5844));
 var l5851=internals.intern('&-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5852=internals.make_lisp_string('Cannot specify either colon or atsign for this directive.');
-var l5853=new internals.Symbol('G67988');
+var l5853=new internals.Symbol('G67989');
 var l5854=internals.QIList(l2398,l71,l3);
 var l5856=internals.QIList(l2402,l71,l3);
 var l5855=internals.QIList(l5856,l3);
@@ -49583,7 +49583,7 @@ l5851;
 l4633.fvalue(internals.pv,'&',internals.symbolFunction(l5851));
 var l5858=internals.intern('|-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5859=internals.make_lisp_string('Cannot specify either colon or atsign for this directive.');
-var l5860=new internals.Symbol('G68038');
+var l5860=new internals.Symbol('G68039');
 var l5862=internals.QIList(l2298,'p',l71,l3);
 var l5861=internals.QIList(l5862,l3);
 var l5863=internals.QIList(l2298,'p',l71,l3);
@@ -49630,7 +49630,7 @@ l5858;
 l4633.fvalue(internals.pv,'|',internals.symbolFunction(l5858));
 var l5864=internals.intern('~-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5865=internals.make_lisp_string('Cannot specify either colon or atsign for this directive.');
-var l5866=new internals.Symbol('G68088');
+var l5866=new internals.Symbol('G68089');
 var l5868=internals.QIList(l2298,'~',l71,l3);
 var l5867=internals.QIList(l5868,l3);
 var l5869=internals.QIList(l2298,'~',l71,l3);
@@ -49776,7 +49776,7 @@ l5878;
 l4633.fvalue(internals.pv,'_',internals.symbolFunction(l5878));
 var l5885=internals.intern('I-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5886=internals.make_lisp_string('Cannot specify the at-sign modifier.');
-var l5887=new internals.Symbol('G68576');
+var l5887=new internals.Symbol('G68577');
 var l5888=internals.intern('PPRINT-INDENT');
 var l5889=internals.intern('CURRENT','KEYWORD');
 l5889.value=l5889;
@@ -49823,15 +49823,15 @@ l5885;
 l4633.fvalue(internals.pv,'I',internals.symbolFunction(l5885));
 var l5891=internals.intern('*-FORMAT-DIRECTIVE-EXPANDER','JSCL');
 var l5892=internals.make_lisp_string('Cannot specify both colon and at-sign.');
-var l5893=new internals.Symbol('G68750');
+var l5893=new internals.Symbol('G68751');
 var l5895=internals.QIList(l162,l4621,l3);
 var l5894=internals.QIList(l5895,l3);
 var l5896=internals.QIList(l4621,l3);
 var l5897=internals.QIList(l135,l4568,l3);
 var l5898=internals.make_lisp_string('Index ~D out of bounds.  Should have been ~\n				    between 0 and ~D.');
 var l5900=internals.QIList(l162,l4621,l3);
 var l5899=internals.QIList(l5900,l3);
-var l5901=new internals.Symbol('G68757');
+var l5901=new internals.Symbol('G68758');
 var l5904=internals.intern('CUR-POSN','JSCL');
 var l5905=internals.QIList(l164,l5904,l3);
 var l5903=internals.QIList(l5904,0,l5905,l3);
@@ -49848,7 +49848,7 @@ var l5914=internals.QIList(l135,l4568,l3);
 var l5915=internals.make_lisp_string('Index ~D out of bounds.  Should have been ~\n				between 0 and ~D.');
 var l5917=internals.QIList(l162,l4621,l3);
 var l5916=internals.QIList(l113,l5909,l5917,l3);
-var l5918=new internals.Symbol('G68764');
+var l5918=new internals.Symbol('G68765');
 l5891.fvalue=(function(){var FUNC=(function JSCL_USER_FORMATDIRECTIVEEXPANDER(values,v15129,v15130){internals.checkArgs(arguments.length-1,2);
 var v15131=this;
 return (function(){return (function(v15133,v15134,v15135,v15136){return values(v15134!==l3.value?v15133!==l3.value?l36.fvalue(internals.pv,l4568,l4571.value,l5892):(function(v15137){return (function(v15138){return l16.fvalue(internals.pv,l137,l113.fvalue(internals.pv,l113.fvalue(internals.pv,l5893,(function(){var v15140=(function(){var v15142=v15137;
@@ -50111,7 +50111,7 @@ var l5942=internals.intern('EXPAND-MAYBE-CONDITIONAL','JSCL');
 var l5943=internals.make_lisp_string('~~:; directive not effective in ~~:[');
 var l5944=internals.intern('EXPAND-TRUE-FALSE-CONDITIONAL','JSCL');
 var l5945=internals.make_lisp_string('Must specify exactly two sections.');
-var l5946=new internals.Symbol('G69197');
+var l5946=new internals.Symbol('G69198');
 l5939.fvalue=(function(){var FUNC=(function JSCL_USER_FORMATDIRECTIVEEXPANDER(values,v15232,v15233){internals.checkArgs(arguments.length-1,2);
 var v15234=this;
 return (function(){return (function(v15236,v15237,v15238){return (function(){var FUNC=(function JSCL_USER_NIL(values,v15240,v15241,v15242){switch(arguments.length-1){case 0:v15240=l3.value;
@@ -50465,16 +50465,16 @@ var l5957=internals.make_lisp_string('Attempt to use ~~:^ outside a ~~:{...~~} c
 var l5959=internals.intern('OUTSIDE-ARGS','JSCL');
 var l5958=internals.QIList(l59,l5959,l3);
 var l5960=internals.QIList(l59,l3179,l3);
-var l5961=new internals.Symbol('G69651');
+var l5961=new internals.Symbol('G69652');
 var l5962=internals.QIList(0,l3);
 var l5963=internals.QIList(l59,l5959,l3);
 var l5964=internals.QIList(l59,l3179,l3);
-var l5965=new internals.Symbol('G69660');
-var l5966=new internals.Symbol('G69661');
+var l5965=new internals.Symbol('G69661');
+var l5966=new internals.Symbol('G69662');
 var l5967=internals.QIList(0,l3);
-var l5968=new internals.Symbol('G69673');
-var l5969=new internals.Symbol('G69674');
-var l5970=new internals.Symbol('G69675');
+var l5968=new internals.Symbol('G69674');
+var l5969=new internals.Symbol('G69675');
+var l5970=new internals.Symbol('G69676');
 var l5971=internals.QIList(0,l3);
 var l5973=internals.intern('OUTSIDE-LOOP','JSCL');
 var l5972=internals.QIList(l1822,l5973,l3,l3);
@@ -50725,7 +50725,7 @@ var l6002=internals.QIList(l3179,l4621,l3);
 var l6001=internals.QIList(l6002,l3);
 var l6004=internals.QIList(l434,l4621,l3179,l3);
 var l6003=internals.QIList(l433,l6004,l3);
-var l6005=new internals.Symbol('G70015');
+var l6005=new internals.Symbol('G70016');
 l5975.fvalue=(function(){var FUNC=(function JSCL_USER_FORMATDIRECTIVEEXPANDER(values,v15447,v15448){internals.checkArgs(arguments.length-1,2);
 var v15449=this;
 return (function(){return (function(v15451,v15452,v15453,v15454,v15455){return (function(v15456){if (v15456!==l3.value) l3.value;
@@ -51033,10 +51033,10 @@ FUNC.fname='PARSE-FORMAT-JUSTIFICATION';
 return FUNC;
 })();
 l6032;
-var l6034=new internals.Symbol('G70437');
-var l6035=new internals.Symbol('G70438');
-var l6036=new internals.Symbol('G70439');
-var l6037=new internals.Symbol('G70440');
+var l6034=new internals.Symbol('G70438');
+var l6035=new internals.Symbol('G70439');
+var l6036=new internals.Symbol('G70440');
+var l6037=new internals.Symbol('G70441');
 var l6039=internals.intern('SEGMENTS','JSCL');
 var l6038=internals.QIList(l6039,l3,l3);
 var l6042=internals.intern('NEWLINE-SEGMENT','JSCL');
@@ -51048,8 +51048,8 @@ var l6045=internals.QIList(l6046,72,l3);
 var l6040=internals.QIList(l6041,l6043,l6045,l3);
 var l6047=internals.intern('WITH-OUTPUT-TO-STRING');
 var l6048=internals.QIList(l71,l3);
-var l6049=new internals.Symbol('G70464');
-var l6050=new internals.Symbol('G70465');
+var l6049=new internals.Symbol('G70465');
+var l6050=new internals.Symbol('G70466');
 var l6051=internals.QIList(l1266,72,l3);
 var l6052=internals.intern('PUSH');
 var l6053=internals.QIList(l71,l3);
@@ -52389,7 +52389,7 @@ var v16070=new internals.Cons(v16067,internals.symbolValue(l4271));
 return l4271.value=v16070;
 })();
 return (function(){try{return (function(){var values=internals.mv;
-throw new internals.BlockNLX(v16061,internals.js_to_lisp(internals.symbolValue(l259)['String'](internals.lisp_to_js(v16058))),'G72575');
+throw new internals.BlockNLX(v16061,internals.js_to_lisp(internals.symbolValue(l259)['String'](internals.lisp_to_js(v16058))),'G72576');
 })();
 }catch (v16071){v16071=internals.js_to_lisp(v16071);
 return (internals.isNLX(v16071)?l2.value:l3.value)!==l3.value?(function(){throw v16071;
@@ -52402,7 +52402,7 @@ return TMP===undefined?l3.value:TMP;
 })(internals.symbolValue(l4271));
 case 2:(function(){var values=internals.mv;
 throw new internals.BlockNLX(v16061,(function(v16073){return l6130;
-})(v16062),'G72575');
+})(v16062),'G72576');
 })();
 default:break TBLOOP;
 }}catch (JUMP){if (JUMP instanceof internals.TagNLX&&JUMP.id==v16064) v16063=JUMP.label;
@@ -59263,15 +59263,15 @@ return l113.fvalue(values,l3067,l7904,l113.fvalue(internals.pv,l2910,l113.fvalue
 });
 var l7902={dt_Name: l265,structDescriptors: l2856,NAME0: l7730,TYPE1: l2911,VALUE2: l7903,DECLARATIONS3: l3};
 var l7111=internals.QIList(l7112,l7114,l7118,l7142,l7146,l7152,l7162,l7167,l7170,l7174,l7176,l7180,l7184,l7187,l7191,l7197,l7201,l7206,l7222,l7224,l7227,l7230,l7234,l7238,l7240,l7255,l7258,l7262,l7265,l7269,l7277,l7286,l7289,l7292,l7295,l7299,l7302,l7306,l7309,l7312,l7315,l7317,l7330,l7333,l7336,l7338,l7347,l7352,l7355,l7360,l7363,l7365,l7367,l7370,l7379,l7381,l7384,l7387,l7390,l7392,l7397,l7401,l7403,l7406,l7410,l7413,l7416,l7419,l7422,l7466,l7470,l7481,l7513,l7562,l7624,l7629,l7636,l7650,l7665,l7673,l7675,l7678,l7686,l7689,l7692,l7704,l7714,l7716,l7720,l7722,l7724,l7726,l7732,l7735,l7740,l7745,l7748,l7753,l7756,l7776,l7781,l7785,l7788,l7792,l7800,l7804,l7806,l7809,l7812,l7814,l7819,l7821,l7825,l7827,l7829,l7831,l7835,l7837,l7839,l7842,l7844,l7846,l7849,l7852,l7854,l7856,l7859,l7862,l7867,l7869,l7871,l7874,l7880,l7885,l7887,l7890,l7892,l7897,l7900,l7902,l3);
-var l7910=new internals.Symbol('G63686');
-var l7911=new internals.Symbol('G63687');
+var l7910=new internals.Symbol('G63687');
+var l7911=new internals.Symbol('G63688');
 var l7909=internals.QIList(l7910,l7911,l3);
 var l7913=internals.QIList(l436,l7911,l3);
 var l7912=internals.QIList(l433,l7913,l3);
 var l7918=internals.intern('FORM','JSCL');
 var l7917=internals.QIList(l7918,l7910,l3);
 var l7916=internals.QIList(l7917,l3);
-var l7922=new internals.Symbol('G63688');
+var l7922=new internals.Symbol('G63689');
 var l7924=internals.QIList(l431,l7910,l3);
 var l7923=internals.QIList(l189,l7924,2,l3);
 var l7921=internals.QIList(l7922,l7923,l3);
@@ -59430,7 +59430,7 @@ var l6775={dt_Name: l265,structDescriptors: l2874,VARIABLE0: l6776,FUNCTION1: l7
 l188.value=l6775;
 l177.value=internals.symbolValue(l188);
 l2902.value=18770;
-l4.value=74835;
+l4.value=74836;
 l3035.value=8067;
 var l8068=internals.make_lisp_string('loading toplevel.lisp!');
 console.log(internals.xstring(l8068));