@@ -124,12 +124,25 @@ var l48=internals.make_lisp_string('jqconsole-error');
124124l47 . value = l48 ;
125125l47 ;
126126var l49 = internals . intern ( 'DISPLAY-CONDITION' ) ;
127- var l50 = internals . make_lisp_string ( '~A: ~A' ) ;
128- var l51 = internals . intern ( 'CLASS-OF' , 'COMMON-LISP' ) ;
129- var l52 = internals . intern ( 'CLASS-NAME' , 'COMMON-LISP' ) ;
130- var l53 = internals . intern ( 'FORMAT' , 'COMMON-LISP' ) ;
131- var l54 = internals . make_lisp_string ( 'jqconsole' ) ;
132- var l55 = internals . make_lisp_string ( 'Write' ) ;
127+ var l50 = internals . intern ( 'FORMAT-ERROR' ) ;
128+ var l51 = internals . intern ( 'COMPLAINT' , 'KEYWORD' ) ;
129+ l51 . value = l51 ;
130+ var l52 = internals . make_lisp_string ( 'Required argument missing' ) ;
131+ var l53 = internals . intern ( 'CONTROL-STRING' , 'KEYWORD' ) ;
132+ l53 . value = l53 ;
133+ var l54 = internals . make_lisp_string ( '~A: ~A' ) ;
134+ var l55 = internals . intern ( 'OFFSET' , 'KEYWORD' ) ;
135+ l55 . value = l55 ;
136+ var l56 = internals . intern ( 'ERROR' , 'COMMON-LISP' ) ;
137+ var l57 = internals . intern ( 'PRINC' , 'COMMON-LISP' ) ;
138+ var l58 = internals . make_lisp_string ( ': ' ) ;
139+ var l59 = internals . intern ( 'WRITE-STRING' , 'COMMON-LISP' ) ;
140+ var l60 = internals . intern ( 'CLASS-OF' , 'COMMON-LISP' ) ;
141+ var l61 = internals . intern ( 'CLASS-NAME' , 'COMMON-LISP' ) ;
142+ var l62 = internals . intern ( 'CALL-FORMATTER' ) ;
143+ var l63 = internals . make_lisp_string ( 'jqconsole' ) ;
144+ var l64 = internals . make_lisp_string ( 'Write' ) ;
145+ var l65 = internals . make_lisp_string ( ': ' ) ;
133146l49 . fvalue = ( function ( ) { var FUNC = ( function JSCL_USER_DISPLAYCONDITION ( values , v22 , v23 , v24 ) { internals . checkArgsAtLeast ( arguments . length - 1 , 1 ) ;
134147internals . checkArgsAtMost ( arguments . length - 1 , 3 ) ;
135148switch ( arguments . length - 1 ) { case 1 :v23 = internals . symbolValue ( l47 ) ;
@@ -138,179 +151,235 @@ case 2:v24=l3.value;
138151;
139152default :break ;
140153} var v25 = this ;
141- return ( function ( ) { internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l54 ) ] [ internals . xstring ( l55 ) ] ( internals . lisp_to_js ( l53 . fvalue ( internals . pv , l7 . value , l50 , l52 . fvalue ( internals . pv , l51 . fvalue ( internals . pv , v22 ) ) , v22 ) ) , internals . lisp_to_js ( v23 ) ) ) ;
154+ return ( function ( ) { internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l63 ) ] [ internals . xstring ( l64 ) ] ( internals . lisp_to_js ( l62 . fvalue ( internals . pv , l7 . value , ( function JSCL_USER_NIL ( values , v34 , v35 , v36 ) { internals . checkArgsAtLeast ( arguments . length - 1 , 1 ) ;
155+ switch ( arguments . length - 1 ) { case 1 :v35 = l56 . fvalue ( internals . pv , l50 , l51 . value , l52 , l53 . value , l54 , l55 . value , 1 ) ;
156+ ;
157+ case 2 :v36 = l56 . fvalue ( internals . pv , l50 , l51 . value , l52 , l53 . value , l54 , l55 . value , 5 ) ;
158+ ;
159+ default :break ;
160+ } var v33 = l7 . value ;
161+ var I ;
162+ for ( I = arguments . length - 1 - 1 ; I >= 3 ; I -- ) v33 = new internals . Cons ( arguments [ I + 1 ] , v33 ) ;
163+ var v37 = this ;
164+ ( function ( ) { l57 . fvalue ( internals . pv , v35 , v34 ) ;
165+ l59 . fvalue ( internals . pv , l65 , v34 ) ;
166+ return l57 . fvalue ( internals . pv , v36 , v34 ) ;
167+ } ) ( ) ;
168+ return v33 ;
169+ } ) , l61 . fvalue ( internals . pv , l60 . fvalue ( internals . pv , v22 ) ) , v22 ) ) , internals . lisp_to_js ( v23 ) ) ) ;
142170return v24 !== l7 . value ?l37 . fvalue ( values ) :l7 . value ;
143171} ) ( ) ;
144172} ) ;
145173FUNC . fname = 'DISPLAY-CONDITION' ;
146174return FUNC ;
147175} ) ( ) ;
148176l49 ;
149- var l56 = internals . intern ( 'TOPLEVEL' ) ;
150- var l57 = internals . make_lisp_string ( '(' ) ;
151- var l58 = internals . make_lisp_string ( ')' ) ;
152- var l59 = internals . make_lisp_string ( 'parents' ) ;
153- var l60 = internals . make_lisp_string ( 'jqconsole' ) ;
154- var l61 = internals . make_lisp_string ( 'RegisterMatching' ) ;
155- var l62 = internals . make_lisp_string ( '~a> ' ) ;
156- var l63 = internals . intern ( '*PACKAGE*' , 'COMMON-LISP' ) ;
157- var l64 = internals . intern ( 'PACKAGE-NAME-FOR-PROMPT' ) ;
158- var l65 = internals . make_lisp_string ( 'jqconsole-prompt' ) ;
159- var l66 = internals . make_lisp_string ( 'jqconsole' ) ;
160- var l67 = internals . make_lisp_string ( 'Write' ) ;
161- var l68 = internals . make_lisp_string ( 'console' ) ;
162- var l69 = internals . make_lisp_string ( 'log' ) ;
163- var l70 = internals . make_lisp_string ( 'message' ) ;
164- var l71 = internals . make_lisp_string ( 'ERROR[!]: ~a~%' ) ;
165- var l72 = internals . make_lisp_string ( 'jqconsole-error' ) ;
166- var l73 = internals . make_lisp_string ( 'jqconsole' ) ;
167- var l74 = internals . make_lisp_string ( 'Write' ) ;
168- var l75 = internals . intern ( '*HANDLER-BINDINGS*' ) ;
169- var l76 = internals . intern ( 'ERROR' , 'COMMON-LISP' ) ;
170- var l77 = internals . make_lisp_string ( 'message' ) ;
171- var l78 = internals . intern ( '%%ERROR' ) ;
172- var l79 = internals . intern ( 'LENGTH' , 'COMMON-LISP' ) ;
173- var l80 = internals . intern ( 'READ-FROM-STRING' , 'COMMON-LISP' ) ;
174- var l81 = internals . intern ( 'EVAL-INTERACTIVE' ) ;
175- var l82 = internals . make_lisp_string ( 'jqconsole' ) ;
176- var l83 = internals . make_lisp_string ( 'GetColumn' ) ;
177- var l84 = internals . intern ( 'ZEROP' , 'COMMON-LISP' ) ;
178- var l85 = internals . make_lisp_string ( 'jqconsole-return' ) ;
177+ var l66 = internals . intern ( 'TOPLEVEL' ) ;
178+ var l67 = internals . make_lisp_string ( '(' ) ;
179+ var l68 = internals . make_lisp_string ( ')' ) ;
180+ var l69 = internals . make_lisp_string ( 'parents' ) ;
181+ var l70 = internals . make_lisp_string ( 'jqconsole' ) ;
182+ var l71 = internals . make_lisp_string ( 'RegisterMatching' ) ;
183+ var l72 = internals . make_lisp_string ( '~a> ' ) ;
184+ var l73 = internals . make_lisp_string ( '> ' ) ;
185+ var l74 = internals . intern ( '*PACKAGE*' , 'COMMON-LISP' ) ;
186+ var l75 = internals . intern ( 'PACKAGE-NAME-FOR-PROMPT' ) ;
187+ var l76 = internals . make_lisp_string ( 'jqconsole-prompt' ) ;
188+ var l77 = internals . make_lisp_string ( 'jqconsole' ) ;
189+ var l78 = internals . make_lisp_string ( 'Write' ) ;
190+ var l79 = internals . make_lisp_string ( 'console' ) ;
191+ var l80 = internals . make_lisp_string ( 'log' ) ;
192+ var l81 = internals . make_lisp_string ( 'message' ) ;
193+ var l82 = internals . make_lisp_string ( 'ERROR[!]: ~a~%' ) ;
194+ var l83 = internals . make_lisp_string ( 'ERROR[!]: ' ) ;
195+ var l84 = internals . intern ( 'TERPRI' , 'COMMON-LISP' ) ;
196+ var l85 = internals . make_lisp_string ( 'jqconsole-error' ) ;
179197var l86 = internals . make_lisp_string ( 'jqconsole' ) ;
180198var l87 = internals . make_lisp_string ( 'Write' ) ;
181- var l88 = internals . make_lisp_string ( '~S~%' ) ;
182- var l89 = internals . make_lisp_string ( 'jqconsole-return' ) ;
183- var l90 = internals . make_lisp_string ( 'jqconsole' ) ;
184- var l91 = internals . make_lisp_string ( 'Write' ) ;
185- var l92 = internals . intern ( '%SEXPR-INCOMPLETE' ) ;
186- var l93 = internals . make_lisp_string ( 'jqconsole' ) ;
187- var l94 = internals . make_lisp_string ( 'Prompt' ) ;
188- l56 . fvalue = ( function ( ) { var FUNC = ( function JSCL_USER_TOPLEVEL ( values ) { internals . checkArgsAtMost ( arguments . length - 1 , 0 ) ;
189- var v27 = this ;
190- return ( function ( ) { internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l60 ) ] [ internals . xstring ( l61 ) ] ( internals . lisp_to_js ( l57 ) , internals . lisp_to_js ( l58 ) , internals . lisp_to_js ( l59 ) ) ) ;
191- ( function ( v29 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l66 ) ] [ internals . xstring ( l67 ) ] ( internals . lisp_to_js ( v29 ) , internals . lisp_to_js ( l65 ) ) ) ;
192- } ) ( l53 . fvalue ( internals . pv , l7 . value , l62 , l64 . fvalue ( internals . pv , internals . symbolValue ( l63 ) ) ) ) ;
193- return ( function ( v56 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l93 ) ] [ internals . xstring ( l94 ) ] ( internals . lisp_to_js ( l3 . value ) , internals . lisp_to_js ( v56 ) , internals . lisp_to_js ( internals . symbolFunction ( l92 ) ) ) ) ;
194- } ) ( ( function JSCL_USER_NIL ( values , v30 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
195- var v31 = this ;
196- return ( function ( ) { ( function ( ) { try { return ( function ( ) { try { var v37 = [ ] ;
197- return ( function ( v38 ) { return ( function ( ) { var v39 = 1 ;
198- var v40 = [ ] ;
199- TBLOOP:while ( true ) { try { switch ( v39 ) { case 1 :( function ( v41 ) { return internals . bindSpecialBindings ( [ l75 ] , [ v41 ] , ( function ( ) { ( function ( ) { var v43 = new internals . Cons ( l76 , ( function JSCL_USER_NIL ( values , v44 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
200- var v45 = this ;
201- v38 = v44 ;
202- return ( function ( ) { throw new internals . TagNLX ( v40 , 2 ) ;
199+ var l88 = internals . make_lisp_string ( 'ERROR[!]: ' ) ;
200+ var l89 = internals . intern ( '*HANDLER-BINDINGS*' ) ;
201+ var l90 = internals . make_lisp_string ( 'message' ) ;
202+ var l91 = internals . intern ( '%%ERROR' ) ;
203+ var l92 = internals . intern ( 'LENGTH' , 'COMMON-LISP' ) ;
204+ var l93 = internals . intern ( 'READ-FROM-STRING' , 'COMMON-LISP' ) ;
205+ var l94 = internals . intern ( 'EVAL-INTERACTIVE' ) ;
206+ var l95 = internals . make_lisp_string ( 'jqconsole' ) ;
207+ var l96 = internals . make_lisp_string ( 'GetColumn' ) ;
208+ var l97 = internals . intern ( 'ZEROP' , 'COMMON-LISP' ) ;
209+ var l98 = internals . make_lisp_string ( 'jqconsole-return' ) ;
210+ var l99 = internals . make_lisp_string ( 'jqconsole' ) ;
211+ var l100 = internals . make_lisp_string ( 'Write' ) ;
212+ var l101 = internals . make_lisp_string ( '~S~%' ) ;
213+ var l102 = internals . intern ( 'PRIN1' , 'COMMON-LISP' ) ;
214+ var l103 = internals . make_lisp_string ( 'jqconsole-return' ) ;
215+ var l104 = internals . make_lisp_string ( 'jqconsole' ) ;
216+ var l105 = internals . make_lisp_string ( 'Write' ) ;
217+ var l106 = internals . intern ( '%SEXPR-INCOMPLETE' ) ;
218+ var l107 = internals . make_lisp_string ( 'jqconsole' ) ;
219+ var l108 = internals . make_lisp_string ( 'Prompt' ) ;
220+ l66 . fvalue = ( function ( ) { var FUNC = ( function JSCL_USER_TOPLEVEL ( values ) { internals . checkArgsAtMost ( arguments . length - 1 , 0 ) ;
221+ var v39 = this ;
222+ return ( function ( ) { internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l70 ) ] [ internals . xstring ( l71 ) ] ( internals . lisp_to_js ( l67 ) , internals . lisp_to_js ( l68 ) , internals . lisp_to_js ( l69 ) ) ) ;
223+ ( function ( v46 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l77 ) ] [ internals . xstring ( l78 ) ] ( internals . lisp_to_js ( v46 ) , internals . lisp_to_js ( l76 ) ) ) ;
224+ } ) ( l62 . fvalue ( internals . pv , l7 . value , ( function JSCL_USER_NIL ( values , v42 , v43 ) { internals . checkArgsAtLeast ( arguments . length - 1 , 1 ) ;
225+ switch ( arguments . length - 1 ) { case 1 :v43 = l56 . fvalue ( internals . pv , l50 , l51 . value , l52 , l53 . value , l72 , l55 . value , 1 ) ;
226+ ;
227+ default :break ;
228+ } var v41 = l7 . value ;
229+ var I ;
230+ for ( I = arguments . length - 1 - 1 ; I >= 2 ; I -- ) v41 = new internals . Cons ( arguments [ I + 1 ] , v41 ) ;
231+ var v44 = this ;
232+ ( function ( ) { l57 . fvalue ( internals . pv , v43 , v42 ) ;
233+ return l59 . fvalue ( internals . pv , l73 , v42 ) ;
234+ } ) ( ) ;
235+ return v41 ;
236+ } ) , l75 . fvalue ( internals . pv , internals . symbolValue ( l74 ) ) ) ) ;
237+ return ( function ( v93 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l107 ) ] [ internals . xstring ( l108 ) ] ( internals . lisp_to_js ( l3 . value ) , internals . lisp_to_js ( v93 ) , internals . lisp_to_js ( internals . symbolFunction ( l106 ) ) ) ) ;
238+ } ) ( ( function JSCL_USER_NIL ( values , v47 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
239+ var v48 = this ;
240+ return ( function ( ) { ( function ( ) { try { return ( function ( ) { try { var v64 = [ ] ;
241+ return ( function ( v65 ) { return ( function ( ) { var v66 = 1 ;
242+ var v67 = [ ] ;
243+ TBLOOP:while ( true ) { try { switch ( v66 ) { case 1 :( function ( v68 ) { return internals . bindSpecialBindings ( [ l89 ] , [ v68 ] , ( function ( ) { ( function ( ) { var v70 = new internals . Cons ( l56 , ( function JSCL_USER_NIL ( values , v71 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
244+ var v72 = this ;
245+ v65 = v71 ;
246+ return ( function ( ) { throw new internals . TagNLX ( v67 , 2 ) ;
203247} ) ( ) ;
204248} ) ) ;
205- var v46 = new internals . Cons ( v43 , internals . symbolValue ( l75 ) ) ;
206- return l75 . value = v46 ;
249+ var v73 = new internals . Cons ( v70 , internals . symbolValue ( l89 ) ) ;
250+ return l89 . value = v73 ;
207251} ) ( ) ;
208- return ( function ( ) { try { return ( function ( ) { throw new internals . BlockNLX ( v37 , ( function ( ) { var x1 = l79 . fvalue ( internals . pv , v30 ) ;
252+ return ( function ( ) { try { return ( function ( ) { throw new internals . BlockNLX ( v64 , ( function ( ) { var x1 = l92 . fvalue ( internals . pv , v47 ) ;
209253if ( typeof x1 != 'number' ) throw 'Not a number!' ;
210254return x1 > 0 ?l3 . value :l7 . value ;
211- } ) ( ) !== l7 . value ?( function ( ) { var v50 = l80 . fvalue ( internals . pv , v30 ) ;
212- var v51 = ( function ( ) { var FUNC = internals . symbolFunction ( l32 ) ;
255+ } ) ( ) !== l7 . value ?( function ( ) { var v77 = l93 . fvalue ( internals . pv , v47 ) ;
256+ var v78 = ( function ( ) { var FUNC = internals . symbolFunction ( l32 ) ;
213257var ARGS = [ internals . pv ] ;
214258return ( function ( ) { var values = internals . mv ;
215259var VS ;
216- VS = l81 . fvalue ( values , v50 ) ;
260+ VS = l94 . fvalue ( values , v77 ) ;
217261if ( typeof VS === 'object' && VS && 'multiple-value' in VS ) ARGS = ARGS . concat ( VS ) ;
218262 else ARGS . push ( VS ) ;
219263return FUNC . apply ( null , ARGS ) ;
220264} ) ( ) ;
221265} ) ( ) ;
222- return ( function ( ) { return ( function ( v53 , v54 ) { ( function ( ) { while ( v53 !== l7 . value ) { v54 = internals . car ( v53 ) ;
223- if ( l84 . fvalue ( internals . pv , internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l82 ) ] [ internals . xstring ( l83 ) ] ( ) ) ) !== l7 . value ) l7 . value ;
224- else internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l86 ) ] [ internals . xstring ( l87 ) ] ( internals . lisp_to_js ( '\n' ) , internals . lisp_to_js ( l85 ) ) ) ;
225- internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l90 ) ] [ internals . xstring ( l91 ) ] ( internals . lisp_to_js ( l53 . fvalue ( internals . pv , l7 . value , l88 , v54 ) ) , internals . lisp_to_js ( l89 ) ) ) ;
266+ return ( function ( ) { return ( function ( v80 , v81 ) { ( function ( ) { while ( v80 !== l7 . value ) { v81 = internals . car ( v80 ) ;
267+ if ( l97 . fvalue ( internals . pv , internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l95 ) ] [ internals . xstring ( l96 ) ] ( ) ) ) !== l7 . value ) l7 . value ;
268+ else internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l99 ) ] [ internals . xstring ( l100 ) ] ( internals . lisp_to_js ( '\n' ) , internals . lisp_to_js ( l98 ) ) ) ;
269+ internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l104 ) ] [ internals . xstring ( l105 ) ] ( internals . lisp_to_js ( l62 . fvalue ( internals . pv , l7 . value , ( function JSCL_USER_NIL ( values , v88 , v89 ) { internals . checkArgsAtLeast ( arguments . length - 1 , 1 ) ;
270+ switch ( arguments . length - 1 ) { case 1 :v89 = l56 . fvalue ( internals . pv , l50 , l51 . value , l52 , l53 . value , l101 , l55 . value , 1 ) ;
271+ ;
272+ default :break ;
273+ } var v87 = l7 . value ;
274+ var I ;
275+ for ( I = arguments . length - 1 - 1 ; I >= 2 ; I -- ) v87 = new internals . Cons ( arguments [ I + 1 ] , v87 ) ;
276+ var v90 = this ;
277+ ( function ( ) { l102 . fvalue ( internals . pv , v89 , v88 ) ;
278+ return l84 . fvalue ( internals . pv , v88 ) ;
279+ } ) ( ) ;
280+ return v87 ;
281+ } ) , v81 ) ) , internals . lisp_to_js ( l103 ) ) ) ;
226282l7 . value ;
227- v53 = internals . cdr ( v53 ) ;
283+ v80 = internals . cdr ( v80 ) ;
228284} return l7 . value ;
229285} ) ( ) ;
230286return l7 . value ;
231- } ) ( v51 , l7 . value ) ;
287+ } ) ( v78 , l7 . value ) ;
232288} ) ( ) ;
233- } ) ( ) :l7 . value , 'G272 ' ) ;
289+ } ) ( ) :l7 . value , 'G279 ' ) ;
234290} ) ( ) ;
235- } catch ( v47 ) { v47 = internals . js_to_lisp ( v47 ) ;
236- return ( internals . isNLX ( v47 ) ?l3 . value :l7 . value ) !== l7 . value ?( function ( ) { throw v47 ;
237- } ) ( ) :l78 . fvalue ( internals . pv , ( function ( v48 ) { return v48 !== l7 . value ?v48 : v47 ;
238- } ) ( internals . js_to_lisp ( ( function ( ) { var TMP = v47 [ internals . xstring ( l77 ) ] ;
291+ } catch ( v74 ) { v74 = internals . js_to_lisp ( v74 ) ;
292+ return ( internals . isNLX ( v74 ) ?l3 . value :l7 . value ) !== l7 . value ?( function ( ) { throw v74 ;
293+ } ) ( ) :l91 . fvalue ( internals . pv , ( function ( v75 ) { return v75 !== l7 . value ?v75 : v74 ;
294+ } ) ( internals . js_to_lisp ( ( function ( ) { var TMP = v74 [ internals . xstring ( l90 ) ] ;
239295return TMP === undefined ?l7 . value :TMP ;
240296} ) ( ) ) ) ) ;
241297} } ) ( ) ;
242298} ) ) ;
243- } ) ( internals . symbolValue ( l75 ) ) ;
244- case 2 :( function ( ) { throw new internals . BlockNLX ( v37 , ( function ( v55 ) { return l49 . fvalue ( internals . pv , v55 ) ;
245- } ) ( v38 ) , 'G272 ' ) ;
299+ } ) ( internals . symbolValue ( l89 ) ) ;
300+ case 2 :( function ( ) { throw new internals . BlockNLX ( v64 , ( function ( v92 ) { return l49 . fvalue ( internals . pv , v92 ) ;
301+ } ) ( v65 ) , 'G279 ' ) ;
246302} ) ( ) ;
247303default :break TBLOOP;
248- } } catch ( JUMP ) { if ( JUMP instanceof internals . TagNLX && JUMP . id == v40 ) v39 = JUMP . label ;
304+ } } catch ( JUMP ) { if ( JUMP instanceof internals . TagNLX && JUMP . id == v67 ) v66 = JUMP . label ;
249305 else throw JUMP ;
250306} } return l7 . value ;
251307} ) ( ) ;
252308} ) ( l7 . value ) ;
253- } catch ( CF ) { if ( CF instanceof internals . BlockNLX && CF . id == v37 ) return CF . values ;
309+ } catch ( CF ) { if ( CF instanceof internals . BlockNLX && CF . id == v64 ) return CF . values ;
254310 else throw CF ;
255311} } ) ( ) ;
256- } catch ( v33 ) { v33 = internals . js_to_lisp ( v33 ) ;
257- internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l68 ) ] [ internals . xstring ( l69 ) ] ( internals . lisp_to_js ( v33 ) ) ) ;
258- return ( function ( v36 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l73 ) ] [ internals . xstring ( l74 ) ] ( internals . lisp_to_js ( l53 . fvalue ( internals . pv , l7 . value , l71 , v36 ) ) , internals . lisp_to_js ( l72 ) ) ) ;
259- } ) ( ( function ( v34 ) { return v34 !== l7 . value ?v34 :( function ( v35 ) { return v35 !== l7 . value ?v35 :v33 ;
260- } ) ( l31 . fvalue ( internals . pv , v33 ) ) ;
261- } ) ( internals . js_to_lisp ( ( function ( ) { var TMP = v33 [ internals . xstring ( l70 ) ] ;
312+ } catch ( v50 ) { v50 = internals . js_to_lisp ( v50 ) ;
313+ internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l79 ) ] [ internals . xstring ( l80 ) ] ( internals . lisp_to_js ( v50 ) ) ) ;
314+ return ( function ( v53 ) { return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l86 ) ] [ internals . xstring ( l87 ) ] ( internals . lisp_to_js ( l62 . fvalue ( internals . pv , l7 . value , ( function JSCL_USER_NIL ( values , v60 , v61 ) { internals . checkArgsAtLeast ( arguments . length - 1 , 1 ) ;
315+ switch ( arguments . length - 1 ) { case 1 :v61 = l56 . fvalue ( internals . pv , l50 , l51 . value , l52 , l53 . value , l82 , l55 . value , 11 ) ;
316+ ;
317+ default :break ;
318+ } var v59 = l7 . value ;
319+ var I ;
320+ for ( I = arguments . length - 1 - 1 ; I >= 2 ; I -- ) v59 = new internals . Cons ( arguments [ I + 1 ] , v59 ) ;
321+ var v62 = this ;
322+ ( function ( ) { l59 . fvalue ( internals . pv , l88 , v60 ) ;
323+ l57 . fvalue ( internals . pv , v61 , v60 ) ;
324+ return l84 . fvalue ( internals . pv , v60 ) ;
325+ } ) ( ) ;
326+ return v59 ;
327+ } ) , v53 ) ) , internals . lisp_to_js ( l85 ) ) ) ;
328+ } ) ( ( function ( v51 ) { return v51 !== l7 . value ?v51 :( function ( v52 ) { return v52 !== l7 . value ?v52 :v50 ;
329+ } ) ( l31 . fvalue ( internals . pv , v50 ) ) ;
330+ } ) ( internals . js_to_lisp ( ( function ( ) { var TMP = v50 [ internals . xstring ( l81 ) ] ;
262331return TMP === undefined ?l7 . value :TMP ;
263332} ) ( ) ) ) ) ;
264333} } ) ( ) ;
265334l23 . fvalue ( internals . pv ) ;
266- return l56 . fvalue ( values ) ;
335+ return l66 . fvalue ( values ) ;
267336} ) ( ) ;
268337} ) ) ;
269338} ) ( ) ;
270339} ) ;
271340FUNC . fname = 'TOPLEVEL' ;
272341return FUNC ;
273342} ) ( ) ;
274- l56 ;
275- var l95 = internals . intern ( 'WEB-INIT' ) ;
276- var l96 = internals . intern ( '*STANDARD-OUTPUT*' , 'COMMON-LISP' ) ;
277- var l97 = internals . intern ( 'WRITE-FN' , 'KEYWORD' ) ;
278- l97 . value = l97 ;
279- var l98 = internals . intern ( 'MAKE-STREAM' ) ;
280- var l99 = internals . intern ( '*ERROR-OUTPUT*' , 'COMMON-LISP' ) ;
281- var l100 = internals . make_lisp_string ( 'jqconsole-error' ) ;
282- var l101 = internals . intern ( '*TRACE-OUTPUT*' , 'COMMON-LISP' ) ;
283- var l102 = internals . intern ( 'HTML' , 'KEYWORD' ) ;
284- l102 . value = l102 ;
285- var l103 = internals . intern ( 'WELCOME-MESSAGE' ) ;
286- var l104 = internals . make_lisp_string ( 'load' ) ;
287- var l105 = internals . make_lisp_string ( 'window' ) ;
288- var l106 = internals . make_lisp_string ( 'addEventListener' ) ;
289- l95 . fvalue = ( function ( ) { var FUNC = ( function JSCL_USER_WEBINIT ( values ) { internals . checkArgsAtMost ( arguments . length - 1 , 0 ) ;
290- var v57 = this ;
343+ l66 ;
344+ var l109 = internals . intern ( 'WEB-INIT' ) ;
345+ var l110 = internals . intern ( '*STANDARD-OUTPUT*' , 'COMMON-LISP' ) ;
346+ var l111 = internals . intern ( 'WRITE-FN' , 'KEYWORD' ) ;
347+ l111 . value = l111 ;
348+ var l112 = internals . intern ( 'MAKE-STREAM' ) ;
349+ var l113 = internals . intern ( '*ERROR-OUTPUT*' , 'COMMON-LISP' ) ;
350+ var l114 = internals . make_lisp_string ( 'jqconsole-error' ) ;
351+ var l115 = internals . intern ( '*TRACE-OUTPUT*' , 'COMMON-LISP' ) ;
352+ var l116 = internals . intern ( 'HTML' , 'KEYWORD' ) ;
353+ l116 . value = l116 ;
354+ var l117 = internals . intern ( 'WELCOME-MESSAGE' ) ;
355+ var l118 = internals . make_lisp_string ( 'load' ) ;
356+ var l119 = internals . make_lisp_string ( 'window' ) ;
357+ var l120 = internals . make_lisp_string ( 'addEventListener' ) ;
358+ l109 . fvalue = ( function ( ) { var FUNC = ( function JSCL_USER_WEBINIT ( values ) { internals . checkArgsAtMost ( arguments . length - 1 , 0 ) ;
359+ var v94 = this ;
291360return ( function ( ) { l15 . fvalue ( internals . pv ) ;
292- l96 . value = l98 . fvalue ( internals . pv , l97 . value , ( function JSCL_USER_NIL ( values , v59 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
293- var v60 = this ;
294- return l2 . fvalue ( values , v59 ) ;
361+ l110 . value = l112 . fvalue ( internals . pv , l111 . value , ( function JSCL_USER_NIL ( values , v96 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
362+ var v97 = this ;
363+ return l2 . fvalue ( values , v96 ) ;
295364} ) ) ;
296- l99 . value = l98 . fvalue ( internals . pv , l97 . value , ( function JSCL_USER_NIL ( values , v61 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
297- var v62 = this ;
298- return l2 . fvalue ( values , v61 , l3 . value , l100 ) ;
365+ l113 . value = l112 . fvalue ( internals . pv , l111 . value , ( function JSCL_USER_NIL ( values , v98 ) { internals . checkArgs ( arguments . length - 1 , 1 ) ;
366+ var v99 = this ;
367+ return l2 . fvalue ( values , v98 , l3 . value , l114 ) ;
299368} ) ) ;
300- l101 . value = internals . symbolValue ( l96 ) ;
301- l103 . fvalue ( internals . pv , l102 . value , l3 . value ) ;
302- return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l105 ) ] [ internals . xstring ( l106 ) ] ( internals . lisp_to_js ( l104 ) , internals . lisp_to_js ( ( function JSCL_USER_NIL ( values ) { var v65 = l7 . value ;
369+ l115 . value = internals . symbolValue ( l110 ) ;
370+ l117 . fvalue ( internals . pv , l116 . value , l3 . value ) ;
371+ return internals . js_to_lisp ( internals . symbolValue ( l5 ) [ internals . xstring ( l119 ) ] [ internals . xstring ( l120 ) ] ( internals . lisp_to_js ( l118 ) , internals . lisp_to_js ( ( function JSCL_USER_NIL ( values ) { var v102 = l7 . value ;
303372var I ;
304- for ( I = arguments . length - 1 - 1 ; I >= 0 ; I -- ) v65 = new internals . Cons ( arguments [ I + 1 ] , v65 ) ;
305- var v66 = this ;
306- return l56 . fvalue ( values ) ;
373+ for ( I = arguments . length - 1 - 1 ; I >= 0 ; I -- ) v102 = new internals . Cons ( arguments [ I + 1 ] , v102 ) ;
374+ var v103 = this ;
375+ return l66 . fvalue ( values ) ;
307376} ) ) ) ) ;
308377} ) ( ) ;
309378} ) ;
310379FUNC . fname = 'WEB-INIT' ;
311380return FUNC ;
312381} ) ( ) ;
313- l95 ;
314- l95 . fvalue ( internals . pv ) ;
382+ l109 ;
383+ l109 . fvalue ( internals . pv ) ;
315384} ) ( jscl . internals . pv , jscl . internals ) ;
316385} ) ( typeof require !== 'undefined' ? require ( './jscl' ) : window . jscl )
0 commit comments