/[gcl]/gcl/lsp/gcl_trace.c
ViewVC logotype

Diff of /gcl/lsp/gcl_trace.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_trace.h"
4    void init_gcl_trace(){do_init(VV);}
5    /*      macro definition for TRACE      */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            check_arg(2);
12            vs_top=sup;
13            {object V1=base[0]->c.c_cdr;
14            base[2]= V1;}
15            if((base[2])!=Cnil){
16            goto T2;}
17            base[3]= VV[0];
18            vs_top=(vs_base=base+3)+1;
19            return;
20            goto T2;
21    T2:;
22            base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9]));
23            vs_top=(vs_base=base+3)+1;
24            return;
25    }
26    /*      macro definition for UNTRACE    */
27    
28    static void L2()
29    {register object *base=vs_base;
30            register object *sup=base+VM2; VC2
31            vs_reserve(VM2);
32            check_arg(2);
33            vs_top=sup;
34            {object V2=base[0]->c.c_cdr;
35            base[2]= V2;}
36            if((base[2])!=Cnil){
37            goto T5;}
38            base[3]= VV[10];
39            vs_top=(vs_base=base+3)+1;
40            return;
41            goto T5;
42    T5:;
43            base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2]));
44            vs_top=(vs_base=base+3)+1;
45            return;
46    }
47    /*      local entry for function TRACE-ONE-PREPROCESS   */
48    
49    static object LI3(V4)
50    
51    object V4;
52    {        VMB3 VMS3 VMV3
53            goto TTL;
54    TTL:;
55            if(!(type_of((V4))==t_symbol)){
56            goto T8;}
57            V4= make_cons((V4),Cnil);
58            goto TTL;
59            goto T8;
60    T8:;
61            {register object V5;
62            register object V6;
63            object V7;
64            object V8;
65            register object V9;
66            register object V10;
67            register object V11;
68            register object V12;
69            register object V13;
70            V5= cdr((V4));
71            V7= list(3,VV[12],list(2,VV[7],car((V4))),VV[13]);
72            V8= list(3,VV[12],list(2,VV[7],car((V4))),VV[14]);
73            V6= Cnil;
74            V9= Ct;
75            V10= Ct;
76            V11= Ct;
77            V12= Cnil;
78            V13= Cnil;
79            goto T16;
80    T16:;
81            if(((V5))!=Cnil){
82            goto T17;}
83            if(((V12))==Cnil){
84            goto T20;}
85            vs_base=vs_top;
86            Lgensym();
87            vs_top=sup;
88            V13= vs_base[0];
89            if(!(((V9))==(Ct))){
90            goto T27;}
91            V9= list(3,VV[15],(V13),(V12));
92            goto T25;
93            goto T27;
94    T27:;
95            V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);
96            goto T25;
97    T25:;
98            V14= make_cons((V13),small_fixnum(0));
99            V6= make_cons(/* INLINE-ARGS */V14,(V6));
100            V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10));
101            V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));
102            goto T20;
103    T20:;
104            V15= car((V4));
105            V16= list(2,VV[7],(V9));
106            V17= list(2,VV[7],(V10));
107            V18= list(2,VV[7],(V7));
108            V19= list(2,VV[7],(V11));
109            {object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8)));
110            VMR3(V20)}
111            goto T17;
112    T17:;
113            {object V21= car((V5));
114            if((V21!= VV[29]))goto T38;
115            {register object V22;
116            register object V23;
117            V22= cadr((V5));
118            V23= Cnil;
119            goto T42;
120    T42:;
121            if(((V22))!=Cnil){
122            goto T43;}
123            V6= (V23);
124            goto T39;
125            goto T43;
126    T43:;
127            if(!(type_of(car((V22)))==t_symbol)){
128            goto T51;}
129            V24= make_cons(car((V22)),Cnil);
130            goto T49;
131            goto T51;
132    T51:;
133            V25= caar((V22));
134            base[0]= cadar((V22));
135            vs_top=(vs_base=base+0)+1;
136            Leval();
137            vs_top=sup;
138            V26= vs_base[0];
139            V24= make_cons(/* INLINE-ARGS */V25,V26);
140            goto T49;
141    T49:;
142            V23= make_cons(V24,(V23));
143            V22= cdr((V22));
144            goto T42;}
145            goto T39;
146    T39:;
147            goto T37;
148            goto T38;
149    T38:;
150            if((V21!= VV[98]))goto T58;
151            V9= cadr((V5));
152            goto T37;
153            goto T58;
154    T58:;
155            if((V21!= VV[99]))goto T60;
156            V10= cadr((V5));
157            goto T37;
158            goto T60;
159    T60:;
160            if((V21!= VV[100]))goto T62;
161            V7= cadr((V5));
162            goto T37;
163            goto T62;
164    T62:;
165            if((V21!= VV[101]))goto T64;
166            V11= cadr((V5));
167            goto T37;
168            goto T64;
169    T64:;
170            if((V21!= VV[102]))goto T66;
171            V8= cadr((V5));
172            goto T37;
173            goto T66;
174    T66:;
175            if((V21!= VV[28]))goto T68;
176            V12= cadr((V5));
177            goto T37;
178            goto T68;
179    T68:;}
180            goto T37;
181    T37:;
182            V5= cddr((V5));
183            goto T16;}
184            base[0]=base[0];
185            return Cnil;
186    }
187    /*      local entry for function CHECK-TRACE-SPEC       */
188    
189    static object LI4(V28)
190    
191    register object V28;
192    {        VMB4 VMS4 VMV4
193            goto TTL;
194    TTL:;
195            if(!(type_of((V28))==t_symbol)){
196            goto T73;}
197            {object V29 = Ct;
198            VMR4(V29)}
199            goto T73;
200    T73:;
201            if(!(type_of((V28))==t_cons)){
202            goto T76;}
203            base[0]= (V28);
204            vs_top=(vs_base=base+0)+1;
205            Llast();
206            vs_top=sup;
207            V30= vs_base[0];
208            if((cdr(V30))!=Cnil){
209            goto T76;}
210            {object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);
211            VMR4(V31)}
212            goto T76;
213    T76:;
214            base[0]= VV[21];
215            base[1]= (V28);
216            vs_top=(vs_base=base+0)+2;
217            Lerror();
218            vs_top=sup;
219            {object V32 = vs_base[0];
220            VMR4(V32)}
221            base[0]=base[0];
222            return Cnil;
223    }
224    /*      local entry for function CHECK-DECLARATIONS     */
225    
226    static object LI5(V34)
227    
228    register object V34;
229    {        VMB5 VMS5 VMV5
230            goto TTL;
231    TTL:;
232            {register object V35;
233            V35= Cnil;
234            if(!(type_of((V34))==t_cons)){
235            goto T86;}
236            if(!(type_of(car((V34)))==t_cons)){
237            goto T91;}
238            V35= car((V34));
239            goto T89;
240            goto T91;
241    T91:;
242            V35= list(2,car((V34)),Cnil);
243            goto T89;
244    T89:;
245            if(type_of(car((V35)))==t_symbol){
246            goto T93;}
247            base[0]= VV[22];
248            base[1]= car((V35));
249            vs_top=(vs_base=base+0)+2;
250            Lerror();
251            vs_top=sup;
252            goto T93;
253    T93:;
254            if((cddr((V35)))==Cnil){
255            goto T98;}
256            base[0]= VV[23];
257            base[1]= (V35);
258            vs_top=(vs_base=base+0)+2;
259            Lerror();
260            vs_top=sup;
261            goto T98;
262    T98:;
263            V37= car((V35));
264            V38= (*(LnkLI104))();
265            {register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38;
266            while(!endp(V36))
267            if(type_of(V36->c.c_car)==t_cons &&eql(x,V36->c.c_car->c.c_car)){
268            goto T105;
269            }else V36=V36->c.c_cdr;
270            goto T104;}
271            goto T105;
272    T105:;
273            base[0]= VV[24];
274            base[1]= car((V35));
275            vs_top=(vs_base=base+0)+2;
276            Lerror();
277            vs_top=sup;
278            {object V39 = vs_base[0];
279            VMR5(V39)}
280            goto T104;
281    T104:;
282            {object V40 = Cnil;
283            VMR5(V40)}
284            goto T86;
285    T86:;
286            {object V41 = Cnil;
287            VMR5(V41)}}
288            base[0]=base[0];
289            return Cnil;
290    }
291    /*      local entry for function CHECK-TRACE-ARGS       */
292    
293    static object LI6(V45,V46,V47)
294    
295    register object V45;register object V46;register object V47;
296    {        VMB6 VMS6 VMV6
297            goto TTL;
298    TTL:;
299            if(((V46))==Cnil){
300            goto T109;}
301            if((cdr((V46)))!=Cnil){
302            goto T112;}
303            base[0]= VV[25];
304            base[1]= (V45);
305            vs_top=(vs_base=base+0)+2;
306            Lerror();
307            vs_top=sup;
308            {object V48 = vs_base[0];
309            VMR6(V48)}
310            goto T112;
311    T112:;
312            {register object x= car((V46)),V49= (V47);
313            while(!endp(V49))
314            if(eql(x,V49->c.c_car)){
315            goto T118;
316            }else V49=V49->c.c_cdr;
317            goto T117;}
318            goto T118;
319    T118:;
320            base[0]= VV[26];
321            base[1]= car((V46));
322            base[2]= (V45);
323            vs_top=(vs_base=base+0)+3;
324            Lerror();
325            vs_top=sup;
326            {object V50 = vs_base[0];
327            VMR6(V50)}
328            goto T117;
329    T117:;
330            {object V51= car((V46));
331            if((V51!= VV[100])
332            && (V51!= VV[102])
333            && (V51!= VV[98])
334            && (V51!= VV[99])
335            && (V51!= VV[101]))goto T122;
336            {object V52;
337            V52= cddr((V46));
338            V47= make_cons(car((V46)),(V47));
339            V46= (V52);}
340            goto TTL;
341            goto T122;
342    T122:;
343            if((V51!= VV[28]))goto T127;
344            {object V53= cadr((V46));
345            if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){
346            goto T129;}}
347            if(number_compare(cadr((V46)),small_fixnum(0))>0){
348            goto T128;}
349            goto T129;
350    T129:;
351            base[0]= VV[27];
352            base[1]= cadr((V46));
353            vs_top=(vs_base=base+0)+2;
354            Lerror();
355            vs_top=sup;
356            goto T128;
357    T128:;
358            V46= cddr((V46));
359            V47= make_cons(VV[28],(V47));
360            goto TTL;
361            goto T127;
362    T127:;
363            if((V51!= VV[29]))goto T139;
364            (void)((*(LnkLI105))(cadr((V46))));
365            V46= cddr((V46));
366            V47= make_cons(VV[29],(V47));
367            goto TTL;
368            goto T139;
369    T139:;
370            base[0]= VV[30];
371            base[1]= (V45);
372            base[2]= car((V46));
373            vs_top=(vs_base=base+0)+3;
374            Lerror();
375            vs_top=sup;
376            {object V54 = vs_base[0];
377            VMR6(V54)}}
378            goto T109;
379    T109:;
380            {object V55 = Cnil;
381            VMR6(V55)}
382            base[0]=base[0];
383            return Cnil;
384    }
385    /*      local entry for function TRACE-ONE      */
386    
387    static object LI7(V57)
388    
389    register object V57;
390    {        VMB7 VMS7 VMV7
391            goto TTL;
392    TTL:;
393            {object V58;
394            register object V59;
395            V58= Cnil;
396            if(!(type_of((V57))==t_cons)){
397            goto T151;}
398            V59= car((V57));
399            goto T149;
400            goto T151;
401    T151:;
402            V59= (V57);
403            goto T149;
404    T149:;
405            base[1]= (V59);
406            vs_top=(vs_base=base+1)+1;
407            Lfboundp();
408            vs_top=sup;
409            if((vs_base[0])!=Cnil){
410            goto T153;}
411            base[1]= symbol_value(VV[31]);
412            base[2]= VV[32];
413            base[3]= (V59);
414            vs_top=(vs_base=base+1)+3;
415            Lformat();
416            vs_top=sup;
417            {object V60 = Cnil;
418            VMR7(V60)}
419            goto T153;
420    T153:;
421            base[1]= (V59);
422            vs_top=(vs_base=base+1)+1;
423            Lspecial_form_p();
424            vs_top=sup;
425            if((vs_base[0])==Cnil){
426            goto T161;}
427            base[1]= symbol_value(VV[31]);
428            base[2]= VV[33];
429            base[3]= (V59);
430            vs_top=(vs_base=base+1)+3;
431            Lformat();
432            vs_top=sup;
433            {object V61 = Cnil;
434            VMR7(V61)}
435            goto T161;
436    T161:;
437            base[1]= (V59);
438            vs_top=(vs_base=base+1)+1;
439            Lmacro_function();
440            vs_top=sup;
441            if((vs_base[0])==Cnil){
442            goto T169;}
443            base[1]= symbol_value(VV[31]);
444            base[2]= VV[34];
445            base[3]= (V59);
446            vs_top=(vs_base=base+1)+3;
447            Lformat();
448            vs_top=sup;
449            {object V62 = Cnil;
450            VMR7(V62)}
451            goto T169;
452    T169:;
453            if((get((V59),VV[35],Cnil))==Cnil){
454            goto T177;}
455            (void)((*(LnkLI106))((V59)));
456            goto T177;
457    T177:;
458            (void)((*(LnkLI107))((V57)));
459            V57= (*(LnkLI108))((V57));
460            vs_base=vs_top;
461            Lgensym();
462            vs_top=sup;
463            V58= vs_base[0];
464            base[1]= (V58);
465            base[3]= (V59);
466            vs_top=(vs_base=base+3)+1;
467            Lsymbol_function();
468            vs_top=sup;
469            base[2]= vs_base[0];
470            vs_top=(vs_base=base+1)+2;
471            siLfset();
472            vs_top=sup;
473            base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],cddr((V57))));
474            vs_top=(vs_base=base+1)+1;
475            Leval();
476            vs_top=sup;
477            (void)(putprop((V59),(V58),VV[35]));
478            V63= make_cons((V59),cadr((V57)));
479            setq(VV[40],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[40])));
480            {object V64 = make_cons((V59),Cnil);
481            VMR7(V64)}}
482            base[0]=base[0];
483            return Cnil;
484    }
485    /*      local entry for function RESET-TRACE-DECLARATIONS       */
486    
487    static object LI8(V66)
488    
489    register object V66;
490    {        VMB8 VMS8 VMV8
491            goto TTL;
492    TTL:;
493            if(((V66))==Cnil){
494            goto T194;}
495            base[0]= caar((V66));
496            base[1]= cdar((V66));
497            vs_top=(vs_base=base+0)+2;
498            Lset();
499            vs_top=sup;
500            V66= cdr((V66));
501            goto TTL;
502            goto T194;
503    T194:;
504            {object V67 = Cnil;
505            VMR8(V67)}
506            base[0]=base[0];
507            return Cnil;
508    }
509    /*      local entry for function ALL-TRACE-DECLARATIONS */
510    
511    static object LI9()
512    
513    {        VMB9 VMS9 VMV9
514            goto TTL;
515    TTL:;
516            {register object V68;
517            V68= Cnil;
518            {register object V69;
519            register object V70;
520            V69= symbol_value(VV[40]);
521            V70= car((V69));
522            goto T206;
523    T206:;
524            if(!(endp_prop((V69)))){
525            goto T207;}
526            goto T202;
527            goto T207;
528    T207:;
529            V68= append((V68),cdr((V70)));
530            V69= cdr((V69));
531            V70= car((V69));
532            goto T206;}
533            goto T202;
534    T202:;
535            {object V71 = (V68);
536            VMR9(V71)}}
537            base[0]=base[0];
538            return Cnil;
539    }
540    /*      function definition for TRACE-CALL      */
541    
542    static void L10()
543    {register object *base=vs_base;
544            register object *sup=base+VM10; VC10
545            vs_reserve(VM10);
546            bds_check;
547            {object V72;
548            register object V73;
549            object V74;
550            object V75;
551            object V76;
552            object V77;
553            object V78;
554            check_arg(7);
555            V72=(base[0]);
556            V73=(base[1]);
557            V74=(base[2]);
558            V75=(base[3]);
559            V76=(base[4]);
560            V77=(base[5]);
561            V78=(base[6]);
562            vs_top=sup;
563            goto TTL;
564    TTL:;
565            {register object V79;
566            object V80;
567            bds_bind(VV[41],symbol_value(VV[41]));
568            V79= Cnil;
569            V80= Cnil;
570            if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){
571            goto T220;}
572            V81= (*(LnkLI104))();
573            (void)((*(LnkLI109))(/* INLINE-ARGS */V81));
574            goto T220;
575    T220:;
576            V82= list(2,VV[13],list(2,VV[7],(V73)));
577            base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));
578            vs_top=(vs_base=base+8)+1;
579            Leval();
580            vs_top=sup;
581            if((vs_base[0])==Cnil){
582            goto T224;}
583            (VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind));
584            V83= number_times((VV[41]->s.s_dbind),small_fixnum(2));
585            V80= (number_compare(/* INLINE-ARGS */V83,small_fixnum(20))<=0?(/* INLINE-ARGS */V83):small_fixnum(20));
586            base[8]= symbol_value(VV[31]);
587            vs_top=(vs_base=base+8)+1;
588            Lfresh_line();
589            vs_top=sup;
590            if(((V75))==(Ct)){
591            goto T234;}
592            V84= list(2,VV[13],list(2,VV[7],(V73)));
593            base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V84,Cnil),(V75));
594            vs_top=(vs_base=base+8)+1;
595            Leval();
596            vs_top=sup;
597            if((vs_base[0])==Cnil){
598            goto T233;}
599            goto T234;
600    T234:;
601            base[8]= symbol_value(VV[31]);
602            base[9]= VV[42];
603            base[10]= (V80);
604            base[11]= (VV[41]->s.s_dbind);
605            vs_top=(vs_base=base+8)+4;
606            Lformat();
607            vs_top=sup;
608            base[8]= symbol_value(VV[31]);
609            base[9]= VV[43];
610            V85= list(2,VV[13],list(2,VV[7],(V73)));
611            base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76));
612            vs_top=(vs_base=base+11)+1;
613            Leval();
614            vs_top=sup;
615            base[10]= vs_base[0];
616            vs_top=(vs_base=base+8)+3;
617            Lformat();
618            vs_top=sup;
619            base[8]= symbol_value(VV[31]);
620            vs_top=(vs_base=base+8)+1;
621            Lfresh_line();
622            vs_top=sup;
623            goto T233;
624    T233:;
625            base[8]= (V72);
626            {object V86;
627            V86= (V73);
628             vs_top=base+9;
629             while(!endp(V86))
630             {vs_push(car(V86));V86=cdr(V86);}
631            vs_base=base+9;}
632            super_funcall_no_event(base[8]);
633            Llist();
634            vs_top=sup;
635            V79= vs_base[0];
636            if(((V77))==(Ct)){
637            goto T256;}
638            V87= list(2,VV[13],list(2,VV[7],(V73)));
639            base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V87,list(2,VV[14],list(2,VV[7],(V79)))),(V77));
640            vs_top=(vs_base=base+8)+1;
641            Leval();
642            vs_top=sup;
643            if((vs_base[0])==Cnil){
644            goto T255;}
645            goto T256;
646    T256:;
647            base[8]= symbol_value(VV[31]);
648            base[9]= VV[44];
649            base[10]= (V80);
650            base[11]= (VV[41]->s.s_dbind);
651            vs_top=(vs_base=base+8)+4;
652            Lformat();
653            vs_top=sup;
654            base[8]= symbol_value(VV[31]);
655            base[9]= VV[45];
656            V88= list(2,VV[13],list(2,VV[7],(V73)));
657            base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V79)))),(V78));
658            vs_top=(vs_base=base+11)+1;
659            Leval();
660            vs_top=sup;
661            base[10]= vs_base[0];
662            vs_top=(vs_base=base+8)+3;
663            Lformat();
664            vs_top=sup;
665            goto T255;
666    T255:;
667            (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));
668            base[8]= (V79);
669            vs_top=(vs_base=base+8)+1;
670            Lvalues_list();
671            bds_unwind1;
672            return;
673            goto T224;
674    T224:;
675            base[8]= (V72);
676            {object V89;
677            V89= (V73);
678             vs_top=base+9;
679             while(!endp(V89))
680             {vs_push(car(V89));V89=cdr(V89);}
681            vs_base=base+9;}
682            super_funcall_no_event(base[8]);
683            bds_unwind1;
684            return;}
685            }
686    }
687    /*      local entry for function UNTRACE-ONE    */
688    
689    static object LI12(V91)
690    
691    object V91;
692    {        VMB11 VMS11 VMV11
693            goto TTL;
694    TTL:;
695            {object V92;
696            base[0]=MMcons((V91),Cnil);
697            V92= Cnil;
698            V92= get((base[0]->c.c_car),VV[35],Cnil);
699            if(((V92))==Cnil){
700            goto T277;}
701            (void)(remprop((base[0]->c.c_car),VV[35]));
702            base[1]= (base[0]->c.c_car);
703            vs_top=(vs_base=base+1)+1;
704            Lfboundp();
705            vs_top=sup;
706            if((vs_base[0])!=Cnil){
707            goto T283;}
708            base[1]= symbol_value(VV[31]);
709            base[2]= VV[46];
710            base[3]= (base[0]->c.c_car);
711            vs_top=(vs_base=base+1)+3;
712            Lformat();
713            vs_top=sup;
714            goto T281;
715            goto T283;
716    T283:;
717            base[1]= (base[0]->c.c_car);
718            vs_top=(vs_base=base+1)+1;
719            Lsymbol_function();
720            vs_top=sup;
721            V93= vs_base[0];
722            if(!(type_of(V93)==t_cons)){
723            goto T290;}
724            base[1]= (base[0]->c.c_car);
725            vs_top=(vs_base=base+1)+1;
726            Lsymbol_function();
727            vs_top=sup;
728            V94= vs_base[0];
729            if(!(type_of(cadddr(V94))==t_cons)){
730            goto T290;}
731            base[1]= (base[0]->c.c_car);
732            vs_top=(vs_base=base+1)+1;
733            Lsymbol_function();
734            vs_top=sup;
735            V95= vs_base[0];
736            if(!((car(cadddr(V95)))==(VV[38]))){
737            goto T290;}
738            base[1]= (base[0]->c.c_car);
739            base[3]= (V92);
740            vs_top=(vs_base=base+3)+1;
741            Lsymbol_function();
742            vs_top=sup;
743            base[2]= vs_base[0];
744            vs_top=(vs_base=base+1)+2;
745            siLfset();
746            vs_top=sup;
747            goto T281;
748            goto T290;
749    T290:;
750            base[1]= symbol_value(VV[31]);
751            base[2]= VV[47];
752            base[3]= (base[0]->c.c_car);
753            vs_top=(vs_base=base+1)+3;
754            Lformat();
755            vs_top=sup;
756            goto T281;
757    T281:;
758            V96=
759            make_cclosure_new(LC17,Cnil,base[0],Cdata);
760            setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));
761            {object V97 = make_cons((base[0]->c.c_car),Cnil);
762            VMR11(V97)}
763            goto T277;
764    T277:;
765            base[1]= symbol_value(VV[31]);
766            base[2]= VV[49];
767            base[3]= (base[0]->c.c_car);
768            vs_top=(vs_base=base+1)+3;
769            Lformat();
770            vs_top=sup;
771            {object V98 = Cnil;
772            VMR11(V98)}}
773            base[0]=base[0];
774            return Cnil;
775    }
776    /*      local entry for function STEP-READ-LINE */
777    
778    static object LI13()
779    
780    {        VMB12 VMS12 VMV12
781            goto TTL;
782    TTL:;
783            {register object V99;
784            base[0]= symbol_value(VV[50]);
785            vs_top=(vs_base=base+0)+1;
786            Lread_char();
787            vs_top=sup;
788            V99= vs_base[0];
789            goto T318;
790    T318:;
791            base[0]= (V99);
792            base[1]= VV[51];
793            vs_top=(vs_base=base+0)+2;
794            Lchar_eq();
795            vs_top=sup;
796            if((vs_base[0])!=Cnil){
797            goto T320;}
798            base[0]= (V99);
799            base[1]= VV[52];
800            vs_top=(vs_base=base+0)+2;
801            Lchar_eq();
802            vs_top=sup;
803            if((vs_base[0])==Cnil){
804            goto T319;}
805            goto T320;
806    T320:;
807            {object V100 = Cnil;
808            VMR12(V100)}
809            goto T319;
810    T319:;
811            base[0]= symbol_value(VV[50]);
812            vs_top=(vs_base=base+0)+1;
813            Lread_char();
814            vs_top=sup;
815            V99= vs_base[0];
816            goto T318;}
817            base[0]=base[0];
818            return Cnil;
819    }
820    /*      macro definition for IF-ERROR   */
821    
822    static void L14()
823    {register object *base=vs_base;
824            register object *sup=base+VM13; VC13
825            vs_reserve(VM13);
826            check_arg(2);
827            vs_top=sup;
828            {object V101=base[0]->c.c_cdr;
829            if(endp(V101))invalid_macro_call();
830            base[2]= (V101->c.c_car);
831            V101=V101->c.c_cdr;
832            if(endp(V101))invalid_macro_call();
833            base[3]= (V101->c.c_car);
834            V101=V101->c.c_cdr;
835            if(!endp(V101))invalid_macro_call();}
836            {object V102;
837            object V103;
838            object V104;
839            vs_base=vs_top;
840            Lgensym();
841            vs_top=sup;
842            V102= vs_base[0];
843            vs_base=vs_top;
844            Lgensym();
845            vs_top=sup;
846            V103= vs_base[0];
847            vs_base=vs_top;
848            Lgensym();
849            vs_top=sup;
850            V104= vs_base[0];
851            V105= list(2,(V102),(V103));
852            V106= list(5,VV[18],(V102),base[3],(V103),Ct);
853            base[4]= list(3,VV[1],/* INLINE-ARGS */V105,list(3,VV[53],(V104),list(3,VV[3],/* INLINE-ARGS */V106,list(3,VV[54],(V104),list(4,VV[16],(V103),(V102),base[2])))));
854            vs_top=(vs_base=base+4)+1;
855            return;}
856    }
857    /*      macro definition for STEP       */
858    
859    static void L15()
860    {register object *base=vs_base;
861            register object *sup=base+VM14; VC14
862            vs_reserve(VM14);
863            check_arg(2);
864            vs_top=sup;
865            {object V107=base[0]->c.c_cdr;
866            if(endp(V107))invalid_macro_call();
867            base[2]= (V107->c.c_car);
868            V107=V107->c.c_cdr;
869            if(!endp(V107))invalid_macro_call();}
870            base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil));
871            vs_top=(vs_base=base+3)+1;
872            return;
873    }
874    /*      function definition for STEPPER */
875    
876    static void L16()
877    {register object *VOL base=vs_base;
878            register object *VOL sup=base+VM15; VC15
879            vs_reserve(VM15);
880            bds_check;
881            {VOL object V108;
882            VOL object V109;
883            if(vs_top-vs_base<1) too_few_arguments();
884            if(vs_top-vs_base>2) too_many_arguments();
885            V108=(base[0]);
886            vs_base=vs_base+1;
887            if(vs_base>=vs_top){vs_top=sup;goto T336;}
888            V109=(base[1]);
889            vs_top=sup;
890            goto T337;
891            goto T336;
892    T336:;
893            V109= Cnil;
894            goto T337;
895    T337:;
896            {VOL object V110;
897            VOL object V111;
898            V110= Cnil;
899            bds_bind(VV[61],symbol_value(VV[61]));
900            V111= Cnil;
901            if(!((symbol_value(VV[62]))==(Ct))){
902            goto T341;}
903            base[3]= (V108);
904            base[4]= Cnil;
905            base[5]= Cnil;
906            base[6]= (V109);
907            vs_top=(vs_base=base+3)+4;
908            Levalhook();
909            bds_unwind1;
910            return;
911            goto T341;
912    T341:;
913            if(!(type_of(symbol_value(VV[62]))==t_fixnum||
914    type_of(symbol_value(VV[62]))==t_bignum||
915    type_of(symbol_value(VV[62]))==t_ratio||
916    type_of(symbol_value(VV[62]))==t_shortfloat||
917    type_of(symbol_value(VV[62]))==t_longfloat||
918    type_of(symbol_value(VV[62]))==t_complex)){
919            goto T348;}
920            V112= one_plus((VV[61]->s.s_dbind));
921            if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){
922            goto T352;}
923            base[3]= (V108);
924            base[4]= Cnil;
925            base[5]= Cnil;
926            base[6]= (V109);
927            vs_top=(vs_base=base+3)+4;
928            Levalhook();
929            bds_unwind1;
930            return;
931            goto T352;
932    T352:;
933            setq(VV[62],Cnil);
934            goto T348;
935    T348:;
936            if((symbol_value(VV[63]))==Cnil){
937            goto T359;}
938            if(!(type_of((V108))==t_cons)){
939            goto T363;}
940            if(!((car((V108)))==(symbol_value(VV[63])))){
941            goto T363;}
942            bds_bind(VV[63],Cnil);
943            base[4]= (V108);
944            base[5]= (V109);
945            vs_top=(vs_base=base+4)+2;
946            (void) (*Lnk60)();
947            bds_unwind1;
948            bds_unwind1;
949            return;
950            goto T363;
951    T363:;
952            base[3]= (V108);
953            base[4]= symbol_function(VV[60]);
954            base[5]= Cnil;
955            base[6]= (V109);
956            vs_top=(vs_base=base+3)+4;
957            Levalhook();
958            bds_unwind1;
959            return;
960            goto T359;
961    T359:;
962            (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));
963            V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));
964            V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));
965            goto T379;
966    T379:;
967            base[3]= symbol_value(VV[50]);
968            base[4]= VV[64];
969            base[5]= (V111);
970            base[6]= (V108);
971            vs_top=(vs_base=base+3)+4;
972            Lformat();
973            vs_top=sup;
974            base[3]= symbol_value(VV[50]);
975            vs_top=(vs_base=base+3)+1;
976            Lfinish_output();
977            vs_top=sup;
978            {register object V116;
979            base[3]= symbol_value(VV[50]);
980            vs_top=(vs_base=base+3)+1;
981            Lread_char();
982            vs_top=sup;
983            V116= vs_base[0];
984            goto T392;
985    T392:;
986            base[3]= (V116);
987            base[4]= VV[65];
988            vs_top=(vs_base=base+3)+2;
989            Lchar_neq();
990            vs_top=sup;
991            if((vs_base[0])==Cnil){
992            goto T393;}
993            base[3]= (V116);
994            base[4]= VV[66];
995            vs_top=(vs_base=base+3)+2;
996            Lchar_neq();
997            vs_top=sup;
998            if((vs_base[0])==Cnil){
999            goto T393;}
1000            V115= (V116);
1001            goto T388;
1002            goto T393;
1003    T393:;
1004            base[3]= symbol_value(VV[50]);
1005            vs_top=(vs_base=base+3)+1;
1006            Lread_char();
1007            vs_top=sup;
1008            V116= vs_base[0];
1009            goto T392;}
1010            goto T388;
1011    T388:;
1012            {object V114= V115;
1013            if(!eql(V114,VV[51])
1014            && !eql(V114,VV[52]))goto T407;
1015            base[3]= (V108);
1016            base[4]= symbol_function(VV[60]);
1017            base[5]= Cnil;
1018            base[6]= (V109);
1019            vs_top=(vs_base=base+3)+4;
1020            Levalhook();
1021            Llist();
1022            vs_top=sup;
1023            V110= vs_base[0];
1024            goto T377;
1025            goto T407;
1026    T407:;
1027            if(!eql(V114,VV[67])
1028            && !eql(V114,VV[68]))goto T415;
1029            (void)((*(LnkLI111))());
1030            base[3]= (V108);
1031            base[4]= symbol_function(VV[60]);
1032            base[5]= Cnil;
1033            base[6]= (V109);
1034            vs_top=(vs_base=base+3)+4;
1035            Levalhook();
1036            Llist();
1037            vs_top=sup;
1038            V110= vs_base[0];
1039            goto T377;
1040            goto T415;
1041    T415:;
1042            if(!eql(V114,VV[69])
1043            && !eql(V114,VV[70]))goto T424;
1044            (void)((*(LnkLI111))());
1045            base[3]= (V108);
1046            base[4]= Cnil;
1047            base[5]= Cnil;
1048            base[6]= (V109);
1049            vs_top=(vs_base=base+3)+4;
1050            Levalhook();
1051            Llist();
1052            vs_top=sup;
1053            V110= vs_base[0];
1054            goto T377;
1055            goto T424;
1056    T424:;
1057            if(!eql(V114,VV[71])
1058            && !eql(V114,VV[72]))goto T433;
1059            (void)((*(LnkLI111))());
1060            base[3]= (V108);
1061            base[4]= VV[73];
1062            base[5]= symbol_value(VV[50]);
1063            base[6]= VV[74];
1064            base[7]= Ct;
1065            base[8]= VV[75];
1066            base[9]= Cnil;
1067            base[10]= VV[76];
1068            base[11]= Cnil;
1069            vs_top=(vs_base=base+3)+9;
1070            Lwrite();
1071            vs_top=sup;
1072            princ_char(10,Cnil);
1073            goto T380;
1074            goto T433;
1075    T433:;
1076            if(!eql(V114,VV[77])
1077            && !eql(V114,VV[78]))goto T445;
1078            base[4]= Cnil;
1079            base[5]= Cnil;
1080            frs_push(FRS_PROTECT,Cnil);
1081            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1082            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1083            else{
1084            {object V117;
1085            base[7]= symbol_value(VV[50]);
1086            vs_top=(vs_base=base+7)+1;
1087            (void) (*Lnk112)();
1088            vs_top=sup;
1089            V117= vs_base[0];
1090            (void)((*(LnkLI111))());
1091            base[4]= (V117);}
1092            base[5]= Ct;
1093            base[7]= Ct;
1094            vs_top=(vs_base=base+7)+1;
1095            active=FALSE;}
1096            base[6]=Cnil;
1097            while(vs_base<vs_top)
1098            {base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
1099            vs_top=sup;
1100            nlj_active=FALSE;frs_pop();
1101            if((base[5])==Cnil){
1102            goto T456;}
1103            base[3]= base[4];
1104            goto T446;
1105            goto T456;
1106    T456:;
1107            base[3]= Cnil;
1108            goto T446;
1109            vs_base=vs_top=base+7;
1110            for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1111            if(active)unwind(fr,tag);else{
1112            vs_top=sup;
1113            base[3]= vs_base[0];}}
1114            goto T446;
1115    T446:;
1116            bds_bind(VV[63],base[3]);
1117            base[4]= (V108);
1118            base[5]= symbol_function(VV[60]);
1119            base[6]= Cnil;
1120            base[7]= (V109);
1121            vs_top=(vs_base=base+4)+4;
1122            Levalhook();
1123            Llist();
1124            vs_top=sup;
1125            V110= vs_base[0];
1126            bds_unwind1;
1127            goto T377;
1128            goto T445;
1129    T445:;
1130            if(!eql(V114,VV[79])
1131            && !eql(V114,VV[80]))goto T465;
1132            (void)((*(LnkLI111))());
1133            setq(VV[62],Ct);
1134            base[3]= (V108);
1135            base[4]= Cnil;
1136            base[5]= Cnil;
1137            base[6]= (V109);
1138            vs_top=(vs_base=base+3)+4;
1139            Levalhook();
1140            Llist();
1141            vs_top=sup;
1142            V110= vs_base[0];
1143            goto T377;
1144            goto T465;
1145    T465:;
1146            if(!eql(V114,VV[81])
1147            && !eql(V114,VV[82]))goto T476;
1148            (void)((*(LnkLI111))());
1149            setq(VV[62],(VV[61]->s.s_dbind));
1150            base[3]= (V108);
1151            base[4]= Cnil;
1152            base[5]= Cnil;
1153            base[6]= (V109);
1154            vs_top=(vs_base=base+3)+4;
1155            Levalhook();
1156            Llist();
1157            vs_top=sup;
1158            V110= vs_base[0];
1159            goto T377;
1160            goto T476;
1161    T476:;
1162            if(!eql(V114,VV[83])
1163            && !eql(V114,VV[84]))goto T487;
1164            base[3]= (V109);
1165            {VOL object V118;
1166            VOL object V119;
1167            base[6]= Cnil;
1168            base[7]= Cnil;
1169            frs_push(FRS_PROTECT,Cnil);
1170            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1171            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1172            else{
1173            base[10]= Cnil;
1174            base[11]= Cnil;
1175            frs_push(FRS_PROTECT,Cnil);
1176            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1177            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1178            else{
1179            {object V120;
1180            base[13]= symbol_value(VV[50]);
1181            vs_top=(vs_base=base+13)+1;
1182            (void) (*Lnk112)();
1183            vs_top=sup;
1184            V120= vs_base[0];
1185            (void)((*(LnkLI111))());
1186            base[10]= (V120);}
1187            base[11]= Ct;
1188            base[13]= Ct;
1189            vs_top=(vs_base=base+13)+1;
1190            active=FALSE;}
1191            base[12]=Cnil;
1192            while(vs_base<vs_top)
1193            {base[12]=MMcons(vs_top[-1],base[12]);vs_top--;}
1194            vs_top=sup;
1195            nlj_active=FALSE;frs_pop();
1196            if((base[11])==Cnil){
1197            goto T503;}
1198            base[9]= base[10];
1199            goto T493;
1200            goto T503;
1201    T503:;
1202            base[9]= Cnil;
1203            goto T493;
1204            vs_base=vs_top=base+13;
1205            for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1206            if(active)unwind(fr,tag);else{
1207            vs_top=sup;
1208            base[9]= vs_base[0];}}
1209            goto T493;
1210    T493:;
1211            base[10]= Cnil;
1212            base[11]= Cnil;
1213            base[12]= base[3];
1214            vs_top=(vs_base=base+9)+4;
1215            Levalhook();
1216            Llist();
1217            vs_top=sup;
1218            base[6]= vs_base[0];
1219            base[7]= Ct;
1220            base[9]= Ct;
1221            vs_top=(vs_base=base+9)+1;
1222            active=FALSE;}
1223            base[8]=Cnil;
1224            while(vs_base<vs_top)
1225            {base[8]=MMcons(vs_top[-1],base[8]);vs_top--;}
1226            vs_top=sup;
1227            nlj_active=FALSE;frs_pop();
1228            if((base[7])==Cnil){
1229            goto T511;}
1230            V118= base[6];
1231            goto T488;
1232            goto T511;
1233    T511:;
1234            V118= Cnil;
1235            goto T488;
1236            vs_base=vs_top=base+9;
1237            for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1238            if(active)unwind(fr,tag);else{
1239            vs_top=sup;
1240            V118= vs_base[0];}}
1241            goto T488;
1242    T488:;
1243            V119= car((V118));
1244            goto T515;
1245    T515:;
1246            if(!(endp_prop((V118)))){
1247            goto T516;}
1248            goto T380;
1249            goto T516;
1250    T516:;
1251            base[6]= (V119);
1252            base[7]= VV[73];
1253            base[8]= symbol_value(VV[50]);
1254            base[9]= VV[75];
1255            base[10]= symbol_value(VV[85]);
1256            base[11]= VV[76];
1257            base[12]= symbol_value(VV[86]);
1258            vs_top=(vs_base=base+6)+7;
1259            Lwrite();
1260            vs_top=sup;
1261            princ_char(10,VV[50]);
1262            V118= cdr((V118));
1263            V119= car((V118));
1264            goto T515;}
1265            goto T487;
1266    T487:;
1267            if(!eql(V114,VV[87])
1268            && !eql(V114,VV[88]))goto T534;
1269            base[3]= (V109);
1270            base[4]= Cnil;
1271            base[5]= Cnil;
1272            frs_push(FRS_PROTECT,Cnil);
1273            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1274            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1275            else{
1276            base[8]= Cnil;
1277            base[9]= Cnil;
1278            frs_push(FRS_PROTECT,Cnil);
1279            {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1280            if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1281            else{
1282            {object V121;
1283            base[11]= symbol_value(VV[50]);
1284            vs_top=(vs_base=base+11)+1;
1285            (void) (*Lnk112)();
1286            vs_top=sup;
1287            V121= vs_base[0];
1288            (void)((*(LnkLI111))());
1289            base[8]= (V121);}
1290            base[9]= Ct;
1291            base[11]= Ct;
1292            vs_top=(vs_base=base+11)+1;
1293            active=FALSE;}
1294            base[10]=Cnil;
1295            while(vs_base<vs_top)
1296            {base[10]=MMcons(vs_top[-1],base[10]);vs_top--;}
1297            vs_top=sup;
1298            nlj_active=FALSE;frs_pop();
1299            if((base[9])==Cnil){
1300            goto T551;}
1301            base[7]= base[8];
1302            goto T541;
1303            goto T551;
1304    T551:;
1305            base[7]= Cnil;
1306            goto T541;
1307            vs_base=vs_top=base+11;
1308            for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1309            if(active)unwind(fr,tag);else{
1310            vs_top=sup;
1311            base[7]= vs_base[0];}}
1312            goto T541;
1313    T541:;
1314            base[8]= Cnil;
1315            base[9]= Cnil;
1316            base[10]= base[3];
1317            vs_top=(vs_base=base+7)+4;
1318            Levalhook();
1319            Llist();
1320            vs_top=sup;
1321            base[4]= vs_base[0];
1322            base[5]= Ct;
1323            base[7]= Ct;
1324            vs_top=(vs_base=base+7)+1;
1325            active=FALSE;}
1326            base[6]=Cnil;
1327            while(vs_base<vs_top)
1328            {base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
1329            vs_top=sup;
1330            nlj_active=FALSE;frs_pop();
1331            if((base[5])==Cnil){
1332            goto T559;}
1333            V110= base[4];
1334            goto T536;
1335            goto T559;
1336    T559:;
1337            V110= Cnil;
1338            goto T536;
1339            vs_base=vs_top=base+7;
1340            for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1341            if(active)unwind(fr,tag);else{
1342            vs_top=sup;
1343            V110= vs_base[0];}}
1344            goto T536;
1345    T536:;
1346            goto T377;
1347            goto T534;
1348    T534:;
1349            if(!eql(V114,VV[89])
1350            && !eql(V114,VV[90]))goto T561;
1351            (void)((*(LnkLI111))());
1352            base[3]= one_plus(symbol_value(VV[92]));
1353            vs_base=vs_top;
1354            (void) (*Lnk113)();
1355            vs_top=sup;
1356            V122= vs_base[0];
1357            base[4]= one_minus(V122);
1358            base[5]= symbol_value(VV[92]);
1359            bds_bind(VV[91],base[3]);
1360            bds_bind(VV[92],base[4]);
1361            bds_bind(VV[93],base[5]);
1362            vs_base=vs_top;
1363            (void) (*Lnk114)();
1364            vs_top=sup;
1365            bds_unwind1;
1366            bds_unwind1;
1367            bds_unwind1;
1368            goto T380;
1369            goto T561;
1370    T561:;
1371            (void)((*(LnkLI111))());
1372            princ_char(10,Cnil);
1373            base[3]= symbol_value(VV[50]);
1374            base[4]= VV[94];
1375            vs_top=(vs_base=base+3)+2;
1376            Lformat();
1377            vs_top=sup;
1378            princ_char(10,Cnil);}
1379            goto T380;
1380    T380:;
1381            goto T379;
1382            goto T377;
1383    T377:;
1384            base[3]= (V108);
1385            vs_top=(vs_base=base+3)+1;
1386            Lconstantp();
1387            vs_top=sup;
1388            if((vs_base[0])!=Cnil){
1389            goto T574;}
1390            if(!(type_of((V108))==t_cons)){
1391            goto T573;}
1392            if(!((car((V108)))==(VV[7]))){
1393            goto T573;}
1394            goto T574;
1395    T574:;
1396            base[3]= car((V110));
1397            vs_top=(vs_base=base+3)+1;
1398            bds_unwind1;
1399            return;
1400            goto T573;
1401    T573:;
1402            if(!(endp_prop((V110)))){
1403            goto T583;}
1404            base[3]= symbol_value(VV[50]);
1405            base[4]= VV[95];
1406            base[5]= (V111);
1407            vs_top=(vs_base=base+3)+3;
1408            Lformat();
1409            vs_top=sup;
1410            goto T581;
1411            goto T583;
1412    T583:;
1413            {object V123;
1414            object V124;
1415            V123= (V110);
1416            V124= Ct;
1417            goto T589;
1418    T589:;
1419            if(!(endp_prop((V123)))){
1420            goto T590;}
1421            goto T581;
1422            goto T590;
1423    T590:;
1424            if(((V124))==Cnil){
1425            goto T596;}
1426            base[3]= symbol_value(VV[50]);
1427            base[4]= VV[96];
1428            base[5]= (V111);
1429            base[6]= car((V123));
1430            vs_top=(vs_base=base+3)+4;
1431            Lformat();
1432            vs_top=sup;
1433            goto T594;
1434            goto T596;
1435    T596:;
1436            base[3]= symbol_value(VV[50]);
1437            base[4]= VV[97];
1438            base[5]= (V111);
1439            base[6]= car((V123));
1440            vs_top=(vs_base=base+3)+4;
1441            Lformat();
1442            vs_top=sup;
1443            goto T594;
1444    T594:;
1445            V123= cdr((V123));
1446            V124= Cnil;
1447            goto T589;}
1448            goto T581;
1449    T581:;
1450            (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));
1451            base[3]= (V110);
1452            vs_top=(vs_base=base+3)+1;
1453            Lvalues_list();
1454            bds_unwind1;
1455            return;}
1456            }
1457    }
1458    /*      local function CLOSURE  */
1459    
1460    static void LC17(base0)
1461    register object *base0;
1462    {       register object *base=vs_base;
1463            register object *sup=base+VM16; VC16
1464            vs_reserve(VM16);
1465            {object V125;
1466            check_arg(1);
1467            V125=(base[0]);
1468            vs_top=sup;
1469            base[1]= ((car((V125)))==((base0[0]->c.c_car))?Ct:Cnil);
1470            vs_top=(vs_base=base+1)+1;
1471            return;
1472            }
1473    }
1474    static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* SIMPLE-BACKTRACE */
1475    static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* IHS-TOP */
1476    static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* READ-PRESERVING-WHITESPACE */
1477    static object  LnkTLI111(){return call_proc0(VV[111],(void **)(void *)&LnkLI111);} /* STEP-READ-LINE */
1478    static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* STEPPER */
1479    static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[110],(void **)(void *)&LnkLI110,first,ap);va_end(ap);return V1;} /* DELETE-IF */
1480    static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* RESET-TRACE-DECLARATIONS */
1481    static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TRACE-ONE-PREPROCESS */
1482    static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* CHECK-TRACE-SPEC */
1483    static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* UNTRACE-ONE */
1484    static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* CHECK-DECLARATIONS */
1485    static object  LnkTLI104(){return call_proc0(VV[104],(void **)(void *)&LnkLI104);} /* ALL-TRACE-DECLARATIONS */
1486    static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* CHECK-TRACE-ARGS */
1487    
1488    #ifdef SYSTEM_SPECIAL_INIT
1489    SYSTEM_SPECIAL_INIT
1490    #endif
1491    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26