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

Diff of /gcl/lsp/gcl_debug.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:04 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_debug.h"
4    void init_gcl_debug(){do_init(VV);}
5    /*      function definition for SHOW-BREAK-VARIABLES    */
6    
7    static void L1()
8    {register object *base=vs_base;
9            register object *sup=base+VM1; VC1
10            vs_reserve(VM1);
11            {register object V1;
12            if(vs_top-vs_base>1) too_many_arguments();
13            if(vs_base>=vs_top){vs_top=sup;goto T1;}
14            V1=(base[0]);
15            vs_top=sup;
16            goto T2;
17            goto T1;
18    T1:;
19            V1= small_fixnum(1);
20            goto T2;
21    T2:;
22            goto T5;
23    T5:;
24            {register object V2;
25            register object V3;
26            V2= reverse(car(symbol_value(VV[0])));
27            V3= car((V2));
28            goto T11;
29    T11:;
30            if(!(endp_prop((V2)))){
31            goto T12;}
32            goto T7;
33            goto T12;
34    T12:;
35            base[3]= symbol_value(VV[1]);
36            base[4]= VV[2];
37            base[5]= car((V3));
38            base[6]= cadr((V3));
39            vs_top=(vs_base=base+3)+4;
40            Lformat();
41            vs_top=sup;
42            V2= cdr((V2));
43            V3= car((V2));
44            goto T11;}
45            goto T7;
46    T7:;
47            V1= number_plus((V1),small_fixnum(-1));
48            if(!((fix((V1)))>(0))){
49            goto T27;}
50            goto T26;
51            goto T27;
52    T27:;
53            vs_base=vs_top=base+1;
54            vs_base[0]=Cnil;
55            return;
56            goto T26;
57    T26:;
58            vs_base=vs_top;
59            (void) (*Lnk111)();
60            vs_top=sup;
61            goto T5;
62            }
63    }
64    /*      local entry for function SHOW-ENVIRONMENT       */
65    
66    static object LI2(V5)
67    
68    object V5;
69    {        VMB2 VMS2 VMV2
70            goto TTL;
71    TTL:;
72            {object V6;
73            base[1]= (V5);
74            vs_top=(vs_base=base+1)+1;
75            (void) (*Lnk112)();
76            vs_top=sup;
77            base[0]= vs_base[0];
78            vs_top=(vs_base=base+0)+1;
79            (void) (*Lnk113)();
80            vs_top=sup;
81            V6= vs_base[0];
82            if(!(type_of((V6))==t_cons||((V6))==Cnil)){
83            goto T35;}
84            {register object V7;
85            register object V8;
86            base[3]= (V5);
87            vs_top=(vs_base=base+3)+1;
88            (void) (*Lnk112)();
89            vs_top=sup;
90            base[2]= vs_base[0];
91            vs_top=(vs_base=base+2)+1;
92            (void) (*Lnk113)();
93            vs_top=sup;
94            V9= vs_base[0];
95            V7= reverse(V9);
96            V8= car((V7));
97            goto T43;
98    T43:;
99            if(!(endp_prop((V7)))){
100            goto T44;}
101            {object V10 = Cnil;
102            VMR2(V10)}
103            goto T44;
104    T44:;
105            base[2]= symbol_value(VV[1]);
106            base[3]= VV[3];
107            base[4]= car((V8));
108            base[5]= cadr((V8));
109            vs_top=(vs_base=base+2)+4;
110            Lformat();
111            vs_top=sup;
112            V7= cdr((V7));
113            V8= car((V7));
114            goto T43;}
115            goto T35;
116    T35:;
117            {object V11 = Cnil;
118            VMR2(V11)}}
119            base[0]=base[0];
120            return Cnil;
121    }
122    /*      function definition for SEARCH-STACK    */
123    
124    static void L3()
125    {register object *base=vs_base;
126            register object *sup=base+VM3; VC3
127            vs_reserve(VM3);
128            {object V12;
129            check_arg(1);
130            V12=(base[0]);
131            vs_top=sup;
132            goto TTL;
133    TTL:;
134            {object V13;
135            V13= Cnil;
136            if(!(type_of((V12))==t_symbol)){
137            goto T62;}
138            V13= symbol_name((V12));
139            goto T60;
140            goto T62;
141    T62:;
142            V13= (V12);
143            goto T60;
144    T60:;
145            {register long V14;
146            register long V15;
147            {object V16;
148            vs_base=vs_top;
149            (void) (*Lnk114)();
150            vs_top=sup;
151            V16= vs_base[0];{object V17;
152            V17= (type_of((V16))==t_fixnum?Ct:Cnil);
153            if(V17==Cnil)goto T67;
154            goto T66;
155            goto T67;
156    T67:;}
157            (void)((*(LnkLI115))());
158            goto T66;
159    T66:;
160            V14= fix((V16));}
161            V15= 2;
162            {register object V18;
163            V18= Cnil;
164            {register object V19;
165            V19= Cnil;
166            goto T71;
167    T71:;
168            if((V14)<=(V15)){
169            goto T74;}
170            goto T73;
171            goto T74;
172    T74:;
173            goto T72;
174            goto T73;
175    T73:;
176            {register object V20;
177            base[1]= make_fixnum(V14);
178            vs_top=(vs_base=base+1)+1;
179            (void) (*Lnk116)();
180            vs_top=sup;
181            V20= vs_base[0];
182            V18= (V20);}
183            base[1]= (V18);
184            vs_top=(vs_base=base+1)+1;
185            Lcompiled_function_p();
186            vs_top=sup;
187            if((vs_base[0])==Cnil){
188            goto T82;}
189            base[1]= (V18);
190            vs_top=(vs_base=base+1)+1;
191            (void) (*Lnk117)();
192            vs_top=sup;
193            V19= vs_base[0];
194            goto T80;
195            goto T82;
196    T82:;
197            if(!(type_of((V18))==t_symbol)){
198            goto T88;}
199            V19= (V18);
200            goto T80;
201            goto T88;
202    T88:;
203            if(!(type_of((V18))==t_cons||((V18))==Cnil)){
204            goto T92;}
205            {register object x= car((V18)),V21= VV[4];
206            while(!endp(V21))
207            if(eql(x,V21->c.c_car)){
208            goto T95;
209            }else V21=V21->c.c_cdr;
210            goto T92;}
211            goto T95;
212    T95:;
213            V19= cadr((V18));
214            goto T80;
215            goto T92;
216    T92:;
217            V19= VV[5];
218            goto T80;
219    T80:;
220            V22= symbol_name((V19));
221            if(((VFUN_NARGS=4,(*(LnkLI118))((V13),/* INLINE-ARGS */V22,VV[6],VV[7])))==Cnil){
222            goto T98;}
223            base[1]= make_fixnum(V14);
224            vs_top=(vs_base=base+1)+1;
225            (void) (*Lnk119)();
226            vs_top=sup;
227            princ_char(10,Cnil);
228            vs_base=vs_top;
229            (void) (*Lnk120)();
230            return;
231            goto T98;
232    T98:;
233            V14= (long)(V14)-(1);
234            goto T71;
235            goto T72;
236    T72:;
237            base[1]= symbol_value(VV[1]);
238            base[2]= VV[8];
239            base[3]= (V13);
240            vs_top=(vs_base=base+1)+3;
241            Lformat();
242            vs_top=sup;
243            base[1]= Cnil;
244            vs_top=(vs_base=base+1)+1;
245            return;
246            base[1]= Cnil;
247            vs_top=(vs_base=base+1)+1;
248            return;}}}}
249            }
250    }
251    /*      function definition for BREAK-LOCALS    */
252    
253    static void L4()
254    {register object *base=vs_base;
255            register object *sup=base+VM4; VC4
256            vs_reserve(VM4);
257            bds_check;
258            {object V23;
259            if(vs_top-vs_base>1) too_many_arguments();
260            if(vs_base>=vs_top){vs_top=sup;goto T111;}
261            V23=(base[0]);
262            vs_top=sup;
263            goto T112;
264            goto T111;
265    T111:;
266            V23= small_fixnum(1);
267            goto T112;
268    T112:;
269            {object V24;
270            object V25;
271            object V26;
272            object V27;
273            object V28;
274            object V29;
275            V24= symbol_value(VV[9]);
276            base[6]= (V24);
277            vs_top=(vs_base=base+6)+1;
278            (void) (*Lnk112)();
279            vs_top=sup;
280            V25= vs_base[0];
281            bds_bind(VV[11],symbol_value(VV[10]));
282            bds_bind(VV[12],Cnil);
283            bds_bind(VV[13],symbol_value(VV[10]));
284            V26= symbol_value(VV[9]);
285            base[6]= (V24);
286            vs_top=(vs_base=base+6)+1;
287            (void) (*Lnk116)();
288            vs_top=sup;
289            V27= vs_base[0];
290            V28= Cnil;
291            V29= Cnil;
292            if(!((fix((V23)))>(1))){
293            goto T123;}
294            {register long V30;
295            long V31;
296            V30= 0;{object V32;
297            V32= (type_of((V23))==t_fixnum?Ct:Cnil);
298            if(V32==Cnil)goto T128;
299            goto T127;
300            goto T128;
301    T128:;}
302            (void)((*(LnkLI115))());
303            goto T127;
304    T127:;
305            V31= fix((V23));
306            {register long V33;
307            long V34;{object V35;
308            V35= (type_of((V26))==t_fixnum?Ct:Cnil);
309            if(V35==Cnil)goto T132;
310            goto T131;
311            goto T132;
312    T132:;}
313            (void)((*(LnkLI115))());
314            goto T131;
315    T131:;
316            V33= fix((V26));
317            V34= 2;
318            goto T136;
319    T136:;
320            if((V33)<=(V34)){
321            goto T139;}
322            goto T138;
323            goto T139;
324    T139:;
325            goto T137;
326            goto T138;
327    T138:;
328            if((V30)>=(V31)){
329            goto T142;}
330            goto T141;
331            goto T142;
332    T142:;
333            goto T137;
334            goto T141;
335    T141:;
336            bds_bind(VV[9],make_fixnum(V33));
337            vs_base=vs_top;
338            (void) (*Lnk120)();
339            vs_top=sup;
340            princ_char(10,Cnil);
341            princ_char(10,Cnil);
342            bds_unwind1;
343            V30= (long)(V30)+(1);
344            V33= (long)(V33)-(1);
345            goto T136;
346            goto T137;
347    T137:;
348            base[6]= Cnil;
349            vs_top=(vs_base=base+6)+1;
350            bds_unwind1;
351            bds_unwind1;
352            bds_unwind1;
353            return;
354            base[6]= Cnil;
355            vs_top=(vs_base=base+6)+1;
356            bds_unwind1;
357            bds_unwind1;
358            bds_unwind1;
359            return;}}
360            goto T123;
361    T123:;
362            base[6]= (V27);
363            vs_top=(vs_base=base+6)+1;
364            Lcompiled_function_p();
365            vs_top=sup;
366            if((vs_base[0])==Cnil){
367            goto T154;}
368            base[6]= (V27);
369            vs_top=(vs_base=base+6)+1;
370            (void) (*Lnk117)();
371            vs_top=sup;
372            V28= vs_base[0];
373            goto T152;
374            goto T154;
375    T154:;
376            V28= (V27);
377            goto T152;
378    T152:;
379            if(!(type_of((V28))==t_symbol)){
380            goto T160;}
381            V29= get((V28),VV[14],Cnil);
382            goto T160;
383    T160:;
384            {object V36;
385            base[6]= make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));
386            vs_top=(vs_base=base+6)+1;
387            (void) (*Lnk112)();
388            vs_top=sup;
389            V36= vs_base[0];
390            if(((V36))==Cnil){
391            goto T167;}
392            base[6]= symbol_value(VV[1]);
393            base[7]= VV[15];
394            base[8]= (V28);
395            vs_top=(vs_base=base+6)+3;
396            Lformat();
397            vs_top=sup;
398            if(!(type_of((V28))==t_symbol)){
399            goto T174;}
400            {register long V37;
401            long V38;{object V39;
402            V39= (type_of((V25))==t_fixnum?Ct:Cnil);
403            if(V39==Cnil)goto T178;
404            goto T177;
405            goto T178;
406    T178:;}
407            (void)((*(LnkLI115))());
408            goto T177;
409    T177:;
410            V37= fix((V25));{object V40;
411            V40= (type_of((V36))==t_fixnum?Ct:Cnil);
412            if(V40==Cnil)goto T182;
413            goto T181;
414            goto T182;
415    T182:;}
416            (void)((*(LnkLI115))());
417            goto T181;
418    T181:;
419            V38= fix((V36));
420            {register long V41;
421            V41= 0;
422            {register object V42;
423            V42= Cnil;
424            goto T186;
425    T186:;
426            if((V37)>=(V38)){
427            goto T189;}
428            goto T188;
429            goto T189;
430    T189:;
431            goto T187;
432            goto T188;
433    T188:;
434            V42= Cnil;
435            {register object x= small_fixnum(0),V43= (V29);
436            while(!endp(V43))
437            if(eql(x,V43->c.c_car)){
438            goto T196;
439            }else V43=V43->c.c_cdr;
440            goto T195;}
441            goto T196;
442    T196:;
443            base[6]= (V29);
444            base[7]= make_fixnum(V41);
445            vs_top=(vs_base=base+6)+2;
446            Lgetf();
447            vs_top=sup;
448            V42= vs_base[0];
449            goto T193;
450            goto T195;
451    T195:;
452            V42= nth(V41,(V29));
453            goto T193;
454    T193:;
455            if(((V42))==Cnil){
456            goto T203;}
457            base[6]= Ct;
458            base[7]= VV[16];
459            base[8]= make_fixnum(V41);
460            base[9]= (V42);
461            base[11]= make_fixnum(V37);
462            vs_top=(vs_base=base+11)+1;
463            (void) (*Lnk113)();
464            vs_top=sup;
465            base[10]= vs_base[0];
466            vs_top=(vs_base=base+6)+5;
467            Lformat();
468            vs_top=sup;
469            goto T201;
470            goto T203;
471    T203:;
472            base[6]= symbol_value(VV[1]);
473            base[7]= VV[17];
474            base[8]= make_fixnum(V41);
475            base[10]= make_fixnum(V37);
476            vs_top=(vs_base=base+10)+1;
477            (void) (*Lnk113)();
478            vs_top=sup;
479            base[9]= vs_base[0];
480            vs_top=(vs_base=base+6)+4;
481            Lformat();
482            vs_top=sup;
483            goto T201;
484    T201:;
485            V37= (long)(V37)+(1);
486            if(!((V41)<(2147483646))){
487            goto T219;}
488            goto T218;
489            goto T219;
490    T219:;
491            (void)((*(LnkLI115))());
492            goto T218;
493    T218:;
494            V41= (long)(V41)+(1);
495            goto T186;
496            goto T187;
497    T187:;
498            base[6]= Cnil;
499            vs_top=(vs_base=base+6)+1;
500            bds_unwind1;
501            bds_unwind1;
502            bds_unwind1;
503            return;
504            base[6]= Cnil;
505            vs_top=(vs_base=base+6)+1;
506            bds_unwind1;
507            bds_unwind1;
508            bds_unwind1;
509            return;}}}
510            goto T174;
511    T174:;
512            if(!(type_of((V28))==t_cons||((V28))==Cnil)){
513            goto T225;}
514            base[6]= (*(LnkLI121))((V24));
515            vs_top=(vs_base=base+6)+1;
516            bds_unwind1;
517            bds_unwind1;
518            bds_unwind1;
519            return;
520            goto T225;
521    T225:;
522            base[6]= symbol_value(VV[1]);
523            base[7]= VV[19];
524            vs_top=(vs_base=base+6)+2;
525            Lformat();
526            bds_unwind1;
527            bds_unwind1;
528            bds_unwind1;
529            return;
530            goto T167;
531    T167:;
532            base[6]= Cnil;
533            vs_top=(vs_base=base+6)+1;
534            bds_unwind1;
535            bds_unwind1;
536            bds_unwind1;
537            return;}}
538            }
539    }
540    /*      function definition for LOC     */
541    
542    static void L5()
543    {register object *base=vs_base;
544            register object *sup=base+VM5; VC5
545            vs_reserve(VM5);
546            {object V44;
547            if(vs_top-vs_base>1) too_many_arguments();
548            if(vs_base>=vs_top){vs_top=sup;goto T229;}
549            V44=(base[0]);
550            vs_top=sup;
551            goto T230;
552            goto T229;
553    T229:;
554            V44= small_fixnum(0);
555            goto T230;
556    T230:;
557            {object V45;
558            base[1]= symbol_value(VV[9]);
559            vs_top=(vs_base=base+1)+1;
560            (void) (*Lnk112)();
561            vs_top=sup;
562            V45= vs_base[0];
563            if(!((fix((V44)))>=(0))){
564            goto T235;}
565            vs_base=vs_top;
566            (void) (*Lnk114)();
567            vs_top=sup;
568            V47= vs_base[0];
569            V48 = make_fixnum((long)(1)+(fix(symbol_value(VV[9]))));
570            base[1]= (number_compare(V47,V48)<=0?(V47):V48);
571            vs_top=(vs_base=base+1)+1;
572            (void) (*Lnk112)();
573            vs_top=sup;
574            V46= vs_base[0];
575            if((fix((V44)))<((long)(fix(V46))-(fix((V45))))){
576            goto T234;}
577            goto T235;
578    T235:;
579            base[1]= VV[20];
580            vs_top=(vs_base=base+1)+1;
581            Lerror();
582            vs_top=sup;
583            goto T234;
584    T234:;
585            base[1]= make_fixnum((long)(fix((V44)))+(fix((V45))));
586            vs_top=(vs_base=base+1)+1;
587            (void) (*Lnk113)();
588            return;}
589            }
590    }
591    /*      macro definition for MV-SETQ    */
592    
593    static void L6()
594    {register object *base=vs_base;
595            register object *sup=base+VM6; VC6
596            vs_reserve(VM6);
597            check_arg(2);
598            vs_top=sup;
599            {object V49=base[0]->c.c_cdr;
600            if(endp(V49))invalid_macro_call();
601            base[2]= (V49->c.c_car);
602            V49=V49->c.c_cdr;
603            if(endp(V49))invalid_macro_call();
604            base[3]= (V49->c.c_car);
605            V49=V49->c.c_cdr;
606            if(!endp(V49))invalid_macro_call();}
607            V50= list(3,VV[22],car(base[2]),base[3]);
608            {register object V52;
609            register object V53;
610            register object V54;
611            V52= cdr(base[2]);
612            V53= small_fixnum(0);
613            V54= Cnil;
614            goto T247;
615    T247:;
616            if(((V52))!=Cnil){
617            goto T248;}
618            V51= reverse((V54));
619            goto T244;
620            goto T248;
621    T248:;
622            {register object V55;
623            V56= car((V52));
624            V55= list(3,VV[22],/* INLINE-ARGS */V56,list(2,VV[23],(V53)));
625            V54= make_cons((V55),(V54));}
626            V52= cdr((V52));
627            V53= one_plus((V53));
628            goto T247;}
629            goto T244;
630    T244:;
631            base[4]= listA(3,VV[21],/* INLINE-ARGS */V50,V51);
632            vs_top=(vs_base=base+4)+1;
633            return;
634    }
635    /*      macro definition for MV-VALUES  */
636    
637    static void L7()
638    {register object *base=vs_base;
639            register object *sup=base+VM7; VC7
640            vs_reserve(VM7);
641            check_arg(2);
642            vs_top=sup;
643            {object V57=base[0]->c.c_cdr;
644            base[2]= V57;}
645            V58= car(base[2]);
646            {register object V60;
647            register object V61;
648            register object V62;
649            V60= cdr(base[2]);
650            V61= small_fixnum(0);
651            V62= Cnil;
652            goto T262;
653    T262:;
654            if(((V60))!=Cnil){
655            goto T263;}
656            V59= reverse((V62));
657            goto T259;
658            goto T263;
659    T263:;
660            {register object V63;
661            V63= list(3,VV[24],(V61),car((V60)));
662            V62= make_cons((V63),(V62));}
663            V60= cdr((V60));
664            V61= one_plus((V61));
665            goto T262;}
666            goto T259;
667    T259:;
668            base[3]= listA(3,VV[21],/* INLINE-ARGS */V58,V59);
669            vs_top=(vs_base=base+3)+1;
670            return;
671    }
672    /*      function definition for DBL     */
673    
674    static void L8()
675    {register object *base=vs_base;
676            register object *sup=base+VM8; VC8
677            vs_reserve(VM8);
678            check_arg(0);
679            vs_top=sup;
680            goto TTL;
681    TTL:;
682            base[0]= Cnil;
683            base[1]= Cnil;
684            vs_top=(vs_base=base+0)+2;
685            (void) (*Lnk122)();
686            return;
687    }
688    /*      function definition for MAKE-INSTREAM   */
689    
690    static void L9()
691    {register object *base=vs_base;
692            register object *sup=base+VM9; VC9
693            vs_reserve(VM9);
694            {object V64;
695            object V65;
696            object V66;
697            parse_key(vs_base,FALSE,FALSE,3,VV[27],VV[37],VV[28]);
698            vs_top=sup;
699            V64=(base[0]);
700            if(base[4]==Cnil){
701            V65= small_fixnum(0);
702            }else{
703            V65=(base[1]);}
704            V66=(base[2]);
705            base[6]= VV[25];
706            base[7]= (V64);
707            base[8]= (V65);
708            base[9]= (V66);
709            vs_top=(vs_base=base+6)+4;
710            siLmake_structure();
711            return;
712            }
713    }
714    /*      function definition for CLEANUP */
715    
716    static void L10()
717    {register object *base=vs_base;
718            register object *sup=base+VM10; VC10
719            vs_reserve(VM10);
720            check_arg(0);
721            vs_top=sup;
722            goto TTL;
723    TTL:;
724            {register object V67;
725            register object V68;
726            V67= symbol_value(VV[26]);
727            V68= car((V67));
728            goto T284;
729    T284:;
730            if(!(endp_prop((V67)))){
731            goto T285;}
732            base[1]= Cnil;
733            vs_top=(vs_base=base+1)+1;
734            return;
735            goto T285;
736    T285:;
737            base[1]= structure_ref((V68),VV[25],0);
738            vs_top=(vs_base=base+1)+1;
739            (void) (*Lnk123)();
740            vs_top=sup;
741            if((vs_base[0])==Cnil){
742            goto T289;}
743            setq(VV[26],(VFUN_NARGS=2,(*(LnkLI124))((V68),symbol_value(VV[26]))));
744            goto T289;
745    T289:;
746            V67= cdr((V67));
747            V68= car((V67));
748            goto T284;}
749    }
750    /*      function definition for GET-INSTREAM    */
751    
752    static void L11()
753    {register object *base=vs_base;
754            register object *sup=base+VM11; VC11
755            vs_reserve(VM11);
756            {register object V69;
757            check_arg(1);
758            V69=(base[0]);
759            vs_top=sup;
760            goto TTL;
761    TTL:;{object V70;
762            {register object V71;
763            register object V72;
764            V71= symbol_value(VV[26]);
765            V72= car((V71));
766            goto T304;
767    T304:;
768            if(!(endp_prop((V71)))){
769            goto T305;}
770            V70= Cnil;
771            goto T300;
772            goto T305;
773    T305:;
774            V73= structure_ref((V72),VV[25],0);
775            if(!(((V69))==(/* INLINE-ARGS */V73))){
776            goto T309;}
777            V70= (V72);
778            goto T300;
779            goto T309;
780    T309:;
781            V71= cdr((V71));
782            V72= car((V71));
783            goto T304;}
784            goto T300;
785    T300:;
786            if(V70==Cnil)goto T299;
787            base[1]= V70;
788            vs_top=(vs_base=base+1)+1;
789            return;
790            goto T299;
791    T299:;}
792            base[1]= VV[27];
793            base[2]= (V69);
794            base[3]= VV[28];
795            base[5]= (V69);
796            vs_top=(vs_base=base+5)+1;
797            Lstreamp();
798            vs_top=sup;
799            if((vs_base[0])==Cnil){
800            goto T324;}
801            base[5]= (V69);
802            vs_top=(vs_base=base+5)+1;
803            (void) (*Lnk125)();
804            vs_top=sup;
805            base[4]= vs_base[0];
806            goto T322;
807            goto T324;
808    T324:;
809            base[4]= Cnil;
810            goto T322;
811    T322:;
812            vs_top=(vs_base=base+1)+4;
813            (void) (*Lnk126)();
814            vs_top=sup;
815            V74= vs_base[0];
816            setq(VV[26],make_cons(V74,symbol_value(VV[26])));
817            base[1]= car(symbol_value(VV[26]));
818            vs_top=(vs_base=base+1)+1;
819            return;
820            }
821    }
822    /*      function definition for NEWLINE */
823    
824    static void L12()
825    {register object *base=vs_base;
826            register object *sup=base+VM12; VC12
827            vs_reserve(VM12);
828            {object V75;
829            object V76;
830            check_arg(2);
831            V75=(base[0]);
832            V76=(base[1]);
833            vs_top=sup;
834            goto TTL;
835    TTL:;
836            {object V77;
837            base[2]= (V75);
838            vs_top=(vs_base=base+2)+1;
839            (void) (*Lnk127)();
840            vs_top=sup;
841            V77= vs_base[0];
842            {long V78= fix(structure_ref((V77),VV[25],1));
843            V79 = make_fixnum((long)(1)+(/* INLINE-ARGS */V78));
844            (void)(structure_set((V77),VV[25],1,V79));}}
845            base[2]= Cnil;
846            base[3]= (V75);
847            base[4]= Cnil;
848            vs_top=(vs_base=base+2)+3;
849            Lpeek_char();
850            vs_top=sup;
851            V80= vs_base[0];
852            if(!(eql(V80,VV[30]))){
853            goto T335;}
854            setq(VV[29],VV[31]);
855            goto T333;
856            goto T335;
857    T335:;
858            setq(VV[29],Ct);
859            goto T333;
860    T333:;
861            vs_base=vs_top=base+2;
862            vs_base[0]=Cnil;
863            return;
864            }
865    }
866    /*      function definition for QUOTATION-READER        */
867    
868    static void L13()
869    {register object *base=vs_base;
870            register object *sup=base+VM13; VC13
871            vs_reserve(VM13);
872            {object V81;
873            object V82;
874            check_arg(2);
875            V81=(base[0]);
876            V82=(base[1]);
877            vs_top=sup;
878            goto TTL;
879    TTL:;
880            {object V83;
881            object V84;
882            V83= (
883            (type_of(symbol_value(VV[32])) == t_sfun ?(*((symbol_value(VV[32]))->sfn.sfn_self)):
884            (fcall.fun=(symbol_value(VV[32])),fcall.argd=2,fcalln))((V81),(V82)));
885            base[2]= (V81);
886            vs_top=(vs_base=base+2)+1;
887            (void) (*Lnk127)();
888            vs_top=sup;
889            V84= vs_base[0];
890            {object V86;
891            V87= structure_ref(V84,VV[25],1);
892            V88= (VFUN_NARGS=2,(*(LnkLI128))(VV[33],(V83)));
893            V86= number_plus(/* INLINE-ARGS */V87,/* INLINE-ARGS */V88);
894            (void)(structure_set(V84,VV[25],1,(V86)));}
895            base[2]= (V83);
896            vs_top=(vs_base=base+2)+1;
897            return;}
898            }
899    }
900    /*      function definition for NEW-SEMI-COLON-READER   */
901    
902    static void L14()
903    {register object *base=vs_base;
904            register object *sup=base+VM14; VC14
905            vs_reserve(VM14);
906            bds_check;
907            {register object V89;
908            object V90;
909            check_arg(2);
910            V89=(base[0]);
911            V90=(base[1]);
912            vs_top=sup;
913            goto TTL;
914    TTL:;
915            {register object V91;
916            object V92;
917            base[2]= (V89);
918            vs_top=(vs_base=base+2)+1;
919            (void) (*Lnk127)();
920            vs_top=sup;
921            V91= vs_base[0];
922            base[2]= Cnil;
923            base[3]= (V89);
924            base[4]= Cnil;
925            base[5]= Cnil;
926            vs_top=(vs_base=base+2)+4;
927            Lpeek_char();
928            vs_top=sup;
929            V92= vs_base[0];
930            {long V93= fix(structure_ref((V91),VV[25],1));
931            V94 = make_fixnum((long)(1)+(/* INLINE-ARGS */V93));
932            (void)(structure_set((V91),VV[25],1,V94));}
933            if(!(eql((V92),VV[34]))){
934            goto T356;}
935            base[2]= (V89);
936            vs_top=(vs_base=base+2)+1;
937            Lread_char();
938            vs_top=sup;
939            {register object V95;
940            bds_bind(VV[35],symbol_value(VV[36]));
941            base[5]= (V89);
942            base[6]= Cnil;
943            base[7]= Cnil;
944            vs_top=(vs_base=base+5)+3;
945            Lread_line();
946            vs_top=sup;
947            base[4]= vs_base[0];
948            vs_top=(vs_base=base+4)+1;
949            (void) (*Lnk129)();
950            vs_top=sup;
951            V95= vs_base[0];
952            if(!(type_of((V95))==t_cons)){
953            bds_unwind1;
954            goto T354;}
955            if(!((car((V95)))==(VV[37]))){
956            bds_unwind1;
957            goto T354;}
958            if(!(type_of(cadr((V95)))==t_string)){
959            bds_unwind1;
960            goto T354;}
961            if(!(type_of(caddr((V95)))==t_fixnum)){
962            bds_unwind1;
963            goto T354;}
964            (void)(structure_set((V91),VV[25],2,cadr((V95))));
965            V96= structure_set((V91),VV[25],1,caddr((V95)));
966            bds_unwind1;
967            goto T354;}
968            goto T356;
969    T356:;
970            (void)((
971            (type_of(symbol_value(VV[38])) == t_sfun ?(*((symbol_value(VV[38]))->sfn.sfn_self)):
972            (fcall.fun=(symbol_value(VV[38])),fcall.argd=2,fcalln))((V89),(V90))));
973            goto T354;
974    T354:;
975            base[2]= Cnil;
976            base[3]= (V89);
977            base[4]= Cnil;
978            vs_top=(vs_base=base+2)+3;
979            Lpeek_char();
980            vs_top=sup;
981            V97= vs_base[0];
982            if(!(eql(V97,VV[30]))){
983            goto T377;}
984            setq(VV[29],VV[31]);
985            goto T375;
986            goto T377;
987    T377:;
988            setq(VV[29],Ct);
989            goto T375;
990    T375:;
991            vs_base=vs_top=base+2;
992            vs_base[0]=Cnil;
993            return;}
994            }
995    }
996    /*      function definition for SETUP-LINEINFO  */
997    
998    static void L15()
999    {register object *base=vs_base;
1000            register object *sup=base+VM15; VC15
1001            vs_reserve(VM15);
1002            check_arg(0);
1003            vs_top=sup;
1004            goto TTL;
1005    TTL:;
1006            base[0]= VV[33];
1007            base[1]= symbol_function(VV[130]);
1008            base[2]= Cnil;
1009            base[3]= symbol_value(VV[39]);
1010            vs_top=(vs_base=base+0)+4;
1011            Lset_macro_character();
1012            vs_top=sup;
1013            base[0]= VV[40];
1014            base[1]= symbol_function(VV[131]);
1015            base[2]= Cnil;
1016            base[3]= symbol_value(VV[39]);
1017            vs_top=(vs_base=base+0)+4;
1018            Lset_macro_character();
1019            vs_top=sup;
1020            base[0]= VV[30];
1021            base[1]= VV[41];
1022            base[2]= Cnil;
1023            base[3]= symbol_value(VV[39]);
1024            vs_top=(vs_base=base+0)+4;
1025            Lset_macro_character();
1026            vs_top=sup;
1027            base[0]= VV[42];
1028            base[1]= VV[43];
1029            base[2]= Cnil;
1030            base[3]= symbol_value(VV[39]);
1031            vs_top=(vs_base=base+0)+4;
1032            Lset_macro_character();
1033            return;
1034    }
1035    /*      function definition for NLOAD   */
1036    
1037    static void L16()
1038    {register object *base=vs_base;
1039            register object *sup=base+VM16; VC16
1040            vs_reserve(VM16);
1041            bds_check;
1042            {object V98;
1043            object V99;
1044            if(vs_top-vs_base<1) too_few_arguments();
1045            V98=(base[0]);
1046            vs_base=vs_base+1;
1047            vs_top[0]=Cnil;
1048            {object *p=vs_top;
1049             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1050            V99=(base[1]);
1051            vs_top=sup;
1052            base[2]= symbol_value(VV[44]);
1053            vs_top=(vs_base=base+2)+1;
1054            Lclrhash();
1055            vs_top=sup;
1056            vs_base=vs_top;
1057            (void) (*Lnk132)();
1058            vs_top=sup;
1059            base[2]= (V98);
1060            vs_top=(vs_base=base+2)+1;
1061            Ltruename();
1062            vs_top=sup;
1063            V98= vs_base[0];
1064            vs_base=vs_top;
1065            (void) (*Lnk133)();
1066            vs_top=sup;
1067            bds_bind(VV[35],symbol_value(VV[39]));
1068            base[3]=symbol_function(VV[134]);
1069            base[4]= (V98);
1070            {object V100;
1071            V100= (V99);
1072             vs_top=base+5;
1073             while(!endp(V100))
1074             {vs_push(car(V100));V100=cdr(V100);}
1075            vs_base=base+4;}
1076            (void) (*Lnk134)();
1077            bds_unwind1;
1078            return;
1079            }
1080    }
1081    /*      function definition for LEFT-PARENTHESIS-READER */
1082    
1083    static void L17()
1084    {register object *base=vs_base;
1085            register object *sup=base+VM17; VC17
1086            vs_reserve(VM17);
1087            {object V101;
1088            object V102;
1089            check_arg(2);
1090            V101=(base[0]);
1091            V102=(base[1]);
1092            vs_top=sup;
1093            goto TTL;
1094    TTL:;
1095            {object V103;
1096            register object V104;
1097            V103= Cnil;
1098            V104= symbol_value(VV[29]);
1099            if(!((symbol_value(VV[29]))==(Ct))){
1100            goto T413;}
1101            setq(VV[29],Cnil);
1102            goto T413;
1103    T413:;
1104            if(((V104))==Cnil){
1105            goto T417;}
1106            base[2]= (V101);
1107            vs_top=(vs_base=base+2)+1;
1108            (void) (*Lnk127)();
1109            vs_top=sup;
1110            V104= vs_base[0];
1111            V103= structure_ref((V104),VV[25],1);
1112            goto T417;
1113    T417:;
1114            {object V105;
1115            V105= (
1116            (type_of(symbol_value(VV[45])) == t_sfun ?(*((symbol_value(VV[45]))->sfn.sfn_self)):
1117            (fcall.fun=(symbol_value(VV[45])),fcall.argd=2,fcalln))((V101),(V102)));
1118            if(((V104))==Cnil){
1119            goto T425;}
1120            {object V107;
1121            object V108;
1122            V107= symbol_value(VV[44]);
1123            base[3]= (V104);
1124            vs_top=(vs_base=base+3)+1;
1125            (void) (*Lnk135)();
1126            vs_top=sup;
1127            V109= vs_base[0];
1128            V108= make_cons(V109,(V103));
1129            base[3]= V105;
1130            base[4]= (V107);
1131            base[5]= (V108);
1132            vs_top=(vs_base=base+3)+3;
1133            siLhash_set();
1134            vs_top=sup;}
1135            goto T425;
1136    T425:;
1137            base[2]= (V105);
1138            vs_top=(vs_base=base+2)+1;
1139            return;}}
1140            }
1141    }
1142    /*      function definition for WALK-THROUGH    */
1143    
1144    static void L18()
1145    {register object *base=vs_base;
1146            register object *sup=base+VM18; VC18
1147            vs_reserve(VM18);
1148            {register object V110;
1149            check_arg(1);
1150            V110=(base[0]);
1151            vs_top=sup;
1152            goto TTL;
1153    TTL:;
1154            {register object V111;
1155            V111= Cnil;
1156            goto T437;
1157    T437:;
1158            if(!(type_of((V110))==t_cons)){
1159            goto T438;}
1160            base[1]= (V110);
1161            base[2]= symbol_value(VV[44]);
1162            vs_top=(vs_base=base+1)+2;
1163            Lgethash();
1164            vs_top=sup;
1165            V111= vs_base[0];
1166            if(((V111))==Cnil){
1167            goto T441;}
1168            if(!(type_of(car((V110)))==t_cons)){
1169            goto T448;}
1170            if((caar((V110)))==(VV[46])){
1171            goto T448;}
1172            base[1]= (V110);
1173            base[2]= symbol_value(VV[44]);
1174            vs_top=(vs_base=base+1)+2;
1175            Lremhash();
1176            vs_top=sup;
1177            {register object V112;
1178            register object V113;
1179            register object V114;
1180            V112= car((V110));
1181            V113= symbol_value(VV[44]);
1182            V114= (V111);
1183            base[2]= (V112);
1184            base[3]= (V113);
1185            base[4]= (V114);
1186            vs_top=(vs_base=base+2)+3;
1187            siLhash_set();
1188            vs_top=sup;
1189            goto T441;}
1190            goto T448;
1191    T448:;
1192            V115= make_cons((V111),(V110));
1193            (void)((VFUN_NARGS=2,(*(LnkLI136))(/* INLINE-ARGS */V115,symbol_value(VV[47]))));
1194            goto T441;
1195    T441:;
1196            base[1]= car((V110));
1197            vs_top=(vs_base=base+1)+1;
1198            (void) (*Lnk137)();
1199            vs_top=sup;
1200            V110= cdr((V110));
1201            goto T437;
1202            goto T438;
1203    T438:;
1204            base[1]= Cnil;
1205            vs_top=(vs_base=base+1)+1;
1206            return;}
1207            }
1208    }
1209    /*      function definition for COMPILER-DEF-HOOK       */
1210    
1211    static void L19()
1212    {register object *base=vs_base;
1213            register object *sup=base+VM19; VC19
1214            vs_reserve(VM19);
1215            {object V116;
1216            object V117;
1217            check_arg(2);
1218            V116=(base[0]);
1219            V117=(base[1]);
1220            vs_top=sup;
1221            goto TTL;
1222    TTL:;
1223            {object V118;
1224            register long V119;
1225            long V120;
1226            V118= symbol_value(VV[47]);
1227            V119= 2147483647;
1228            V120= -1;
1229            if(!(type_of((V117))!=t_cons)){
1230            goto T469;}
1231            base[2]= remprop((V116),VV[49]);
1232            vs_top=(vs_base=base+2)+1;
1233            return;
1234            goto T469;
1235    T469:;
1236            if(!((symbol_value(VV[35]))==(symbol_value(VV[39])))){
1237            goto T472;}
1238            base[2]= symbol_value(VV[47]);
1239            base[3]= small_fixnum(0);
1240            vs_top=(vs_base=base+2)+2;
1241            siLfill_pointer_set();
1242            vs_top=sup;
1243            base[2]= (V117);
1244            vs_top=(vs_base=base+2)+1;
1245            (void) (*Lnk137)();
1246            vs_top=sup;
1247            {object V121;
1248            register long V122;
1249            V121= make_fixnum((long)length((V118)));
1250            V122= 0;
1251            goto T483;
1252    T483:;
1253            V123 = make_fixnum(V122);
1254            if(!(number_compare(V123,(V121))>=0)){
1255            goto T484;}
1256            goto T479;
1257            goto T484;
1258    T484:;
1259            {register long V124;
1260            V125= aref1((V118),V122);
1261            V124= fix(cdar(/* INLINE-ARGS */V125));
1262            if(!((V124)>(V120))){
1263            goto T490;}
1264            V120= V124;
1265            goto T490;
1266    T490:;
1267            if(!((V124)<(V119))){
1268            goto T488;}
1269            V119= V124;}
1270            goto T488;
1271    T488:;
1272            V122= (long)(V122)+1;
1273            goto T483;}
1274            goto T479;
1275    T479:;
1276            if(!(((long)length(symbol_value(VV[47])))>(0))){
1277            goto T501;}
1278            {object V126;
1279            object V127;
1280            V128 = make_fixnum((long)((long)(V120)-(V119))+(2));
1281            V126= (VFUN_NARGS=3,(*(LnkLI138))(V128,VV[50],VV[51]));
1282            V127= get((V116),VV[49],Cnil);
1283            V129= aref1((V118),0);
1284            V130= caar(/* INLINE-ARGS */V129);
1285            V131 = make_fixnum(V119);
1286            V132= make_cons(/* INLINE-ARGS */V130,V131);
1287            (void)(aset1((V126),0,/* INLINE-ARGS */V132));
1288            V119= (long)(V119)-(1);
1289            {object V133;
1290            register object V134;
1291            V133= make_fixnum((long)length((V118)));
1292            V134= small_fixnum(0);
1293            goto T512;
1294    T512:;
1295            if(!(number_compare((V134),(V133))>=0)){
1296            goto T513;}
1297            goto T508;
1298            goto T513;
1299    T513:;
1300            {object V135;
1301            V135= aref1((V118),fixint((V134)));
1302            (void)(aset1((V126),(long)(fix(cdar((V135))))-(V119),cdr((V135))));}
1303            V134= one_plus((V134));
1304            goto T512;}
1305            goto T508;
1306    T508:;
1307            (void)(sputprop((V116),VV[49],(V126)));
1308            if(((V127))==Cnil){
1309            goto T524;}
1310            {object V136;
1311            object V137;
1312            V136= get((V116),VV[52],Cnil);
1313            V138= aref1((V127),0);
1314            V137= cdr(/* INLINE-ARGS */V138);
1315            {register object V139;
1316            object V140;
1317            V139= (V136);
1318            V140= car((V139));
1319            goto T531;
1320    T531:;
1321            if(!(endp_prop((V139)))){
1322            goto T532;}
1323            base[3]= Cnil;
1324            vs_top=(vs_base=base+3)+1;
1325            return;
1326            goto T532;
1327    T532:;
1328            {object V141;
1329            object V142;
1330            object V143;
1331            V141= aref1(symbol_value(VV[53]),fixint((V140)));
1332            {object V144= cdr(cdr(cdr((V141))));
1333            if((type_of(V144)!=t_cons) && ((V141)!= Cnil))
1334             FEwrong_type_argument(Scons,V144);
1335            V142= (V144->c.c_car);}
1336            {object V146= cdr(cdr((V141)));
1337            if((type_of(V146)!=t_cons) && ((V141)!= Cnil))
1338             FEwrong_type_argument(Scons,V146);
1339            V145= fix((V146->c.c_car));}
1340            V143= make_fixnum((long)(V145)-(fix((V137))));{object V147;
1341            V147= symbol_value(VV[53]);
1342            base[6]= (V142);
1343            base[7]= (V126);
1344            base[8]= (V143);
1345            vs_top=(vs_base=base+6)+3;
1346            (void) (*Lnk139)();
1347            vs_top=sup;
1348            V148= vs_base[0];
1349            (void)(aset1(V147,fixint((V140)),V148));}}
1350            V139= cdr((V139));
1351            V140= car((V139));
1352            goto T531;}}
1353            goto T524;
1354    T524:;
1355            base[2]= Cnil;
1356            vs_top=(vs_base=base+2)+1;
1357            return;}
1358            goto T501;
1359    T501:;
1360            {object V149;
1361            V149= get((V116),VV[52],Cnil);
1362            base[2]= (V149);
1363            base[3]= VV[54];
1364            vs_top=(vs_base=base+2)+2;
1365            (void) (*Lnk140)();
1366            return;}
1367            goto T472;
1368    T472:;
1369            base[2]= Cnil;
1370            vs_top=(vs_base=base+2)+1;
1371            return;}
1372            }
1373    }
1374    /*      function definition for INSTREAM-NAME   */
1375    
1376    static void L20()
1377    {register object *base=vs_base;
1378            register object *sup=base+VM20; VC20
1379            vs_reserve(VM20);
1380            {object V150;
1381            check_arg(1);
1382            V150=(base[0]);
1383            vs_top=sup;
1384            goto TTL;
1385    TTL:;{object V151;
1386            V151= structure_ref((V150),VV[25],2);
1387            if(V151==Cnil)goto T553;
1388            base[1]= V151;
1389            vs_top=(vs_base=base+1)+1;
1390            return;
1391            goto T553;
1392    T553:;}
1393            base[1]= structure_ref((V150),VV[25],0);
1394            vs_top=(vs_base=base+1)+1;
1395            (void) (*Lnk125)();
1396            return;
1397            }
1398    }
1399    static object stream_name(str) object str;{
1400         if (str->sm.sm_object1 != 0 && type_of(str->sm.sm_object1)==t_string)
1401        return str->sm.sm_object1; else return Cnil; }
1402    /*      function definition for STREAM-NAME     */
1403    
1404    static void L21()
1405    {       object *old_base=vs_base;
1406            object x;
1407            check_arg(1);
1408            x=
1409            stream_name(
1410            vs_base[0]);
1411            vs_top=(vs_base=old_base)+1;
1412            vs_base[0]=x;
1413    }
1414    static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); }
1415    /*      function definition for CLOSEDP */
1416    
1417    static void L22()
1418    {       object *old_base=vs_base;
1419            object x;
1420            check_arg(1);
1421            x=
1422            closedp(
1423            vs_base[0]);
1424            vs_top=(vs_base=old_base)+1;
1425            vs_base[0]=x;
1426    }
1427    /*      function definition for FIND-LINE-IN-FUN        */
1428    
1429    static void L23()
1430    {register object *base=vs_base;
1431            register object *sup=base+VM21; VC21
1432            vs_reserve(VM21);
1433            {object V152;
1434            object V153;
1435            register object V154;
1436            register object V155;
1437            check_arg(4);
1438            V152=(base[0]);
1439            V153=(base[1]);
1440            V154=(base[2]);
1441            V155=(base[3]);
1442            vs_top=sup;
1443            goto TTL;
1444    TTL:;
1445            {object V156;
1446            V156= Cnil;
1447            V156= get((V154),VV[49],Cnil);
1448            if(((V156))==Cnil){
1449            goto T560;}
1450            {register object V157;
1451            V157= (V156);
1452            if(((V157))==Cnil){
1453            goto T563;}
1454            {object V158;
1455            register object V159;
1456            V158= make_fixnum((long)length((V157)));
1457            V159= small_fixnum(0);
1458            goto T568;
1459    T568:;
1460            if(!(number_compare((V159),(V158))>=0)){
1461            goto T569;}
1462            base[5]= Cnil;
1463            vs_top=(vs_base=base+5)+1;
1464            return;
1465            goto T569;
1466    T569:;
1467            V160= aref1((V157),fixint((V159)));
1468            if(!(((V152))==(/* INLINE-ARGS */V160))){
1469            goto T573;}
1470            if(((V155))==Cnil){
1471            goto T576;}
1472            {register object V161;
1473            register object V162;
1474            V161= (V155);
1475            V162= number_minus(car((V161)),small_fixnum(1));
1476            if(type_of((V161))!=t_cons)FEwrong_type_argument(Scons,(V161));
1477            ((V161))->c.c_car = (V162);}
1478            if(!((fix(car((V155))))>(0))){
1479            goto T576;}
1480            base[5]= VV[55];
1481            vs_top=(vs_base=base+5)+1;
1482            return;
1483            goto T576;
1484    T576:;
1485            base[6]= (V154);
1486            base[7]= (V157);
1487            base[8]= (V159);
1488            vs_top=(vs_base=base+6)+3;
1489            (void) (*Lnk139)();
1490            vs_top=sup;
1491            setq(VV[56],vs_base[0]);
1492            base[5]= symbol_value(VV[56]);
1493            base[6]= (V153);
1494            vs_top=(vs_base=base+5)+2;
1495            (void) (*Lnk122)();
1496            vs_top=sup;
1497            base[5]= VV[55];
1498            vs_top=(vs_base=base+5)+1;
1499            return;
1500            goto T573;
1501    T573:;
1502            V159= one_plus((V159));
1503            goto T568;}
1504            goto T563;
1505    T563:;
1506            base[4]= Cnil;
1507            vs_top=(vs_base=base+4)+1;
1508            return;}
1509            goto T560;
1510    T560:;
1511            base[4]= Cnil;
1512            vs_top=(vs_base=base+4)+1;
1513            return;}
1514            }
1515    }
1516    /*      function definition for CURRENT-STEP-FUN        */
1517    
1518    static void L24()
1519    {register object *base=vs_base;
1520            register object *sup=base+VM22; VC22
1521            vs_reserve(VM22);
1522            {object V163;
1523            if(vs_top-vs_base>1) too_many_arguments();
1524            if(vs_base>=vs_top){vs_top=sup;goto T595;}
1525            V163=(base[0]);
1526            vs_top=sup;
1527            goto T596;
1528            goto T595;
1529    T595:;
1530            vs_base=vs_top;
1531            (void) (*Lnk114)();
1532            vs_top=sup;
1533            V163= vs_base[0];
1534            goto T596;
1535    T596:;
1536            {register object V164;
1537            V164= one_minus((V163));
1538            goto T600;
1539    T600:;
1540            if(!((fix((V164)))<=(0))){
1541            goto T601;}
1542            base[1]= Cnil;
1543            vs_top=(vs_base=base+1)+1;
1544            return;
1545            goto T601;
1546    T601:;
1547            {register object V165;
1548            base[1]= (V164);
1549            vs_top=(vs_base=base+1)+1;
1550            (void) (*Lnk141)();
1551            vs_top=sup;
1552            V165= vs_base[0];
1553            if((get((V165),VV[49],Cnil))==Cnil){
1554            goto T605;}
1555            base[1]= (V165);
1556            vs_top=(vs_base=base+1)+1;
1557            return;}
1558            goto T605;
1559    T605:;
1560            V164= make_fixnum((long)(fix((V164)))-(1));
1561            goto T600;}
1562            }
1563    }
1564    /*      function definition for INIT-BREAK-POINTS       */
1565    
1566    static void L25()
1567    {register object *base=vs_base;
1568            register object *sup=base+VM23; VC23
1569            vs_reserve(VM23);
1570            check_arg(0);
1571            vs_top=sup;
1572            goto TTL;
1573    TTL:;
1574            base[0]= symbol_value(VV[57]);
1575            base[1]= small_fixnum(0);
1576            vs_top=(vs_base=base+0)+2;
1577            siLfill_pointer_set();
1578            vs_top=sup;
1579            setq(VV[53],symbol_value(VV[57]));
1580            base[0]= symbol_value(VV[53]);
1581            vs_top=(vs_base=base+0)+1;
1582            return;
1583    }
1584    /*      function definition for STEP-INTO       */
1585    
1586    static void L26()
1587    {register object *base=vs_base;
1588            register object *sup=base+VM24; VC24
1589            vs_reserve(VM24);
1590            {object V166;
1591            if(vs_top-vs_base>1) too_many_arguments();
1592            if(vs_base>=vs_top){vs_top=sup;goto T617;}
1593            V166=(base[0]);
1594            vs_top=sup;
1595            goto T618;
1596            goto T617;
1597    T617:;
1598            V166= small_fixnum(1);
1599            goto T618;
1600    T618:;
1601            if(symbol_value(VV[53])!=Cnil){
1602            goto T620;}
1603            vs_base=vs_top;
1604            (void) (*Lnk142)();
1605            vs_top=sup;
1606            goto T620;
1607    T620:;
1608            setq(VV[58],VV[59]);
1609            base[1]= VV[60];
1610            vs_top=(vs_base=base+1)+1;
1611            return;
1612            }
1613    }
1614    /*      function definition for STEP-NEXT       */
1615    
1616    static void L27()
1617    {register object *base=vs_base;
1618            register object *sup=base+VM25; VC25
1619            vs_reserve(VM25);
1620            {object V167;
1621            if(vs_top-vs_base>1) too_many_arguments();
1622            if(vs_base>=vs_top){vs_top=sup;goto T623;}
1623            V167=(base[0]);
1624            vs_top=sup;
1625            goto T624;
1626            goto T623;
1627    T623:;
1628            V167= small_fixnum(1);
1629            goto T624;
1630    T624:;
1631            {object V168;
1632            vs_base=vs_top;
1633            (void) (*Lnk143)();
1634            vs_top=sup;
1635            V168= vs_base[0];
1636            setq(VV[61],make_cons((V167),(V168)));
1637            if(symbol_value(VV[53])!=Cnil){
1638            goto T629;}
1639            vs_base=vs_top;
1640            (void) (*Lnk142)();
1641            vs_top=sup;
1642            goto T629;
1643    T629:;
1644            setq(VV[58],VV[62]);
1645            base[1]= VV[60];
1646            vs_top=(vs_base=base+1)+1;
1647            return;}
1648            }
1649    }
1650    /*      function definition for MAYBE-BREAK     */
1651    
1652    static void L28()
1653    {register object *base=vs_base;
1654            register object *sup=base+VM26; VC26
1655            vs_reserve(VM26);
1656            {object V169;
1657            object V170;
1658            object V171;
1659            object V172;
1660            check_arg(4);
1661            V169=(base[0]);
1662            V170=(base[1]);
1663            V171=(base[2]);
1664            V172=(base[3]);
1665            vs_top=sup;
1666            goto TTL;
1667    TTL:;
1668            {object V173;
1669            V173= Cnil;
1670            V173= (VFUN_NARGS=2,(*(LnkLI144))((V169),(V170)));
1671            if(((V173))==Cnil){
1672            goto T634;}
1673            setq(VV[58],Cnil);
1674            if(!(((long)length(symbol_value(VV[53])))>(0))){
1675            goto T640;}
1676            goto T639;
1677            goto T640;
1678    T640:;
1679            setq(VV[53],Cnil);
1680            goto T639;
1681    T639:;
1682            base[5]= (V171);
1683            base[6]= (V170);
1684            base[7]= (V173);
1685            vs_top=(vs_base=base+5)+3;
1686            (void) (*Lnk139)();
1687            vs_top=sup;
1688            base[4]= vs_base[0];
1689            base[5]= (V172);
1690            vs_top=(vs_base=base+4)+2;
1691            (void) (*Lnk122)();
1692            vs_top=sup;
1693            base[4]= Ct;
1694            vs_top=(vs_base=base+4)+1;
1695            return;
1696            goto T634;
1697    T634:;
1698            base[4]= Cnil;
1699            vs_top=(vs_base=base+4)+1;
1700            return;}
1701            }
1702    }
1703    /*      function definition for BREAK-STEP-INTO */
1704    
1705    static void L29()
1706    {register object *base=vs_base;
1707            register object *sup=base+VM27; VC27
1708            vs_reserve(VM27);
1709            {object V174;
1710            object V175;
1711            check_arg(2);
1712            V174=(base[0]);
1713            V175=(base[1]);
1714            vs_top=sup;
1715            goto TTL;
1716    TTL:;
1717            {object V176;
1718            vs_base=vs_top;
1719            (void) (*Lnk143)();
1720            vs_top=sup;
1721            V176= vs_base[0];
1722            {object V177;
1723            V177= get((V176),VV[49],Cnil);
1724            base[2]= (V174);
1725            base[3]= (V177);
1726            base[4]= (V176);
1727            base[5]= (V175);
1728            vs_top=(vs_base=base+2)+4;
1729            (void) (*Lnk145)();
1730            return;}}
1731            }
1732    }
1733    /*      function definition for BREAK-STEP-NEXT */
1734    
1735    static void L30()
1736    {register object *base=vs_base;
1737            register object *sup=base+VM28; VC28
1738            vs_reserve(VM28);
1739            {object V178;
1740            object V179;
1741            check_arg(2);
1742            V178=(base[0]);
1743            V179=(base[1]);
1744            vs_top=sup;
1745            goto TTL;
1746    TTL:;
1747            {object V180;
1748            vs_base=vs_top;
1749            (void) (*Lnk143)();
1750            vs_top=sup;
1751            V180= vs_base[0];
1752            if(!(eql(cdr(symbol_value(VV[61])),(V180)))){
1753            goto T657;}
1754            {object V181;
1755            V181= get((V180),VV[49],Cnil);
1756            base[2]= (V178);
1757            base[3]= (V181);
1758            base[4]= (V180);
1759            base[5]= (V179);
1760            vs_top=(vs_base=base+2)+4;
1761            (void) (*Lnk145)();
1762            return;}
1763            goto T657;
1764    T657:;
1765            base[2]= Cnil;
1766            vs_top=(vs_base=base+2)+1;
1767            return;}
1768            }
1769    }
1770    /*      function definition for *BREAK-POINTS*  */
1771    
1772    static void L31()
1773    {register object *base=vs_base;
1774            register object *sup=base+VM29; VC29
1775            vs_reserve(VM29);
1776            {object V182;
1777            object V183;
1778            check_arg(2);
1779            V182=(base[0]);
1780            V183=(base[1]);
1781            vs_top=sup;
1782            goto TTL;
1783    TTL:;
1784            {object V184;
1785            V184= (VFUN_NARGS=4,(*(LnkLI144))((V182),symbol_value(VV[53]),VV[63],VV[64]));
1786            base[2]= Ct;
1787            base[3]= VV[65];
1788            base[4]= (V184);
1789            vs_top=(vs_base=base+2)+3;
1790            Lformat();
1791            vs_top=sup;
1792            base[2]= aref1(symbol_value(VV[53]),fixint((V184)));
1793            base[3]= (V183);
1794            vs_top=(vs_base=base+2)+2;
1795            (void) (*Lnk122)();
1796            return;}
1797            }
1798    }
1799    /*      function definition for DWIM    */
1800    
1801    static void L32()
1802    {register object *base=vs_base;
1803            register object *sup=base+VM30; VC30
1804            vs_reserve(VM30);
1805            {register object V185;
1806            check_arg(1);
1807            V185=(base[0]);
1808            vs_top=sup;
1809            goto TTL;
1810    TTL:;
1811            {register object V186;
1812            register object V187;
1813            vs_base=vs_top;
1814            Llist_all_packages();
1815            vs_top=sup;
1816            V186= vs_base[0];
1817            V187= car((V186));
1818            goto T675;
1819    T675:;
1820            if(!(endp_prop((V186)))){
1821            goto T676;}
1822            goto T671;
1823            goto T676;
1824    T676:;
1825            {register object V188;
1826            register object V189;
1827            base[3]= symbol_name((V185));
1828            base[4]= (V187);
1829            vs_top=(vs_base=base+3)+2;
1830            Lintern();
1831            if(vs_base>=vs_top){vs_top=sup;goto T684;}
1832            V188= vs_base[0];
1833            vs_base++;
1834            if(vs_base>=vs_top){vs_top=sup;goto T685;}
1835            V189= vs_base[0];
1836            vs_top=sup;
1837            goto T686;
1838            goto T684;
1839    T684:;
1840            V188= Cnil;
1841            goto T685;
1842    T685:;
1843            V189= Cnil;
1844            goto T686;
1845    T686:;
1846            if((get((V188),VV[49],Cnil))==Cnil){
1847            goto T688;}
1848            base[3]= (V188);
1849            vs_top=(vs_base=base+3)+1;
1850            return;
1851            goto T688;
1852    T688:;
1853            if((V189)!=Cnil){
1854            goto T680;}
1855            base[3]= (V188);
1856            vs_top=(vs_base=base+3)+1;
1857            Lunintern();
1858            vs_top=sup;}
1859            goto T680;
1860    T680:;
1861            V186= cdr((V186));
1862            V187= car((V186));
1863            goto T675;}
1864            goto T671;
1865    T671:;
1866            base[1]= Ct;
1867            base[2]= VV[66];
1868            base[3]= (V185);
1869            vs_top=(vs_base=base+1)+3;
1870            Lformat();
1871            return;
1872            }
1873    }
1874    /*      function definition for BREAK-FUNCTION  */
1875    
1876    static void L33()
1877    {register object *base=vs_base;
1878            register object *sup=base+VM31; VC31
1879            vs_reserve(VM31);
1880            {register object V190;
1881            register object V191;
1882            object V192;
1883            if(vs_top-vs_base<1) too_few_arguments();
1884            if(vs_top-vs_base>3) too_many_arguments();
1885            V190=(base[0]);
1886            vs_base=vs_base+1;
1887            if(vs_base>=vs_top){vs_top=sup;goto T699;}
1888            V191=(base[1]);
1889            vs_base++;
1890            if(vs_base>=vs_top){vs_top=sup;goto T700;}
1891            V192=(base[2]);
1892            vs_top=sup;
1893            goto T701;
1894            goto T699;
1895    T699:;
1896            V191= small_fixnum(1);
1897            goto T700;
1898    T700:;
1899            V192= Cnil;
1900            goto T701;
1901    T701:;
1902            {object V193;
1903            V193= Cnil;
1904            {register object V194;
1905            V194= get((V190),VV[49],Cnil);
1906            if(((V194))!=Cnil){
1907            goto T706;}
1908            base[3]= (V190);
1909            vs_top=(vs_base=base+3)+1;
1910            (void) (*Lnk146)();
1911            vs_top=sup;
1912            V193= vs_base[0];
1913            if(((V193))==Cnil){
1914            goto T706;}
1915            base[3]= (V193);
1916            base[4]= (V191);
1917            base[5]= (V192);
1918            vs_top=(vs_base=base+3)+3;
1919            (void) (*Lnk147)();
1920            return;
1921            goto T706;
1922    T706:;
1923            if(!(type_of((V194))==t_array||
1924    type_of((V194))==t_vector||
1925    type_of((V194))==t_string||
1926    type_of((V194))==t_bitvector)){
1927            goto T718;}
1928            goto T717;
1929            goto T718;
1930    T718:;
1931            base[3]= Ct;
1932            base[4]= VV[67];
1933            base[5]= (V190);
1934            vs_top=(vs_base=base+3)+3;
1935            Lformat();
1936            vs_top=sup;
1937            base[3]= Cnil;
1938            vs_top=(vs_base=base+3)+1;
1939            return;
1940            goto T717;
1941    T717:;
1942            {object V195;
1943            V196= aref1((V194),0);
1944            V195= cdr(/* INLINE-ARGS */V196);
1945            if(((V192))==Cnil){
1946            goto T725;}
1947            V191= make_fixnum((long)(fix((V191)))-(fix((V195))));
1948            goto T725;
1949    T725:;{object V197;
1950            if((fix((V191)))>=(1)){
1951            goto T732;}
1952            V197= Cnil;
1953            goto T731;
1954            goto T732;
1955    T732:;
1956            V197= ((fix((V191)))<((long)length((V194)))?Ct:Cnil);
1957            goto T731;
1958    T731:;
1959            if(V197==Cnil)goto T730;
1960            goto T729;
1961            goto T730;
1962    T730:;}{object V198;
1963            base[3]= Ct;
1964            base[4]= VV[68];
1965            base[5]= (V190);
1966            vs_top=(vs_base=base+3)+3;
1967            Lformat();
1968            vs_top=sup;
1969            V198= vs_base[0];
1970            if(V198==Cnil)goto T734;
1971            goto T729;
1972            goto T734;
1973    T734:;}
1974            base[3]= Cnil;
1975            vs_top=(vs_base=base+3)+1;
1976            return;
1977            goto T729;
1978    T729:;
1979            if(!(eql((V191),small_fixnum(1)))){
1980            goto T739;}
1981            {object V199;
1982            base[3]= (V190);
1983            vs_top=(vs_base=base+3)+1;
1984            Lsymbol_function();
1985            vs_top=sup;
1986            V199= vs_base[0];
1987            if(!(type_of((V199))==t_cons)){
1988            goto T739;}
1989            if(!((car((V199)))==(VV[69]))){
1990            goto T739;}
1991            if((caddr((V199)))==Cnil){
1992            goto T739;}
1993            V191= small_fixnum(2);}
1994            goto T739;
1995    T739:;
1996            {register object V200;
1997            register object V201;
1998            V200= make_fixnum((long)((long)length((V194)))-(fix((V191))));
1999            V201= small_fixnum(0);
2000            goto T755;
2001    T755:;
2002            if(!(number_compare((V201),(V200))>=0)){
2003            goto T756;}
2004            goto T751;
2005            goto T756;
2006    T756:;
2007            V202= aref1((V194),fixint((V201)));
2008            if((/* INLINE-ARGS */V202)==(VV[51])){
2009            goto T760;}
2010            base[6]= (V190);
2011            base[7]= (V194);
2012            base[8]= make_fixnum((long)(fix((V191)))+(fix((V201))));
2013            vs_top=(vs_base=base+6)+3;
2014            (void) (*Lnk139)();
2015            vs_top=sup;
2016            base[5]= vs_base[0];
2017            vs_top=(vs_base=base+5)+1;
2018            (void) (*Lnk148)();
2019            vs_top=sup;
2020            base[4]= vs_base[0];
2021            vs_top=(vs_base=base+4)+1;
2022            (void) (*Lnk149)();
2023            vs_top=sup;
2024            vs_base=vs_top=base+4;
2025            vs_base[0]=Cnil;
2026            return;
2027            goto T760;
2028    T760:;
2029            V201= one_plus((V201));
2030            goto T755;}
2031            goto T751;
2032    T751:;
2033            base[3]= Ct;
2034            base[4]= VV[70];
2035            vs_top=(vs_base=base+3)+2;
2036            Lformat();
2037            return;}}}
2038            }
2039    }
2040    /*      function definition for INSERT-BREAK-POINT      */
2041    
2042    static void L34()
2043    {register object *base=vs_base;
2044            register object *sup=base+VM32; VC32
2045            vs_reserve(VM32);
2046            {object V203;
2047            check_arg(1);
2048            V203=(base[0]);
2049            vs_top=sup;
2050            goto TTL;
2051    TTL:;
2052            {register object V204;
2053            V204= Cnil;
2054            if(symbol_value(VV[53])!=Cnil){
2055            goto T775;}
2056            vs_base=vs_top;
2057            (void) (*Lnk142)();
2058            vs_top=sup;
2059            goto T775;
2060    T775:;{object V205;
2061            V205= (VFUN_NARGS=2,(*(LnkLI144))(Cnil,symbol_value(VV[53])));
2062            if(V205==Cnil)goto T778;
2063            V204= V205;
2064            goto T777;
2065            goto T778;
2066    T778:;}
2067            {object V206;
2068            V206= make_fixnum((long)length(symbol_value(VV[53])));
2069            (void)((VFUN_NARGS=2,(*(LnkLI136))(Cnil,symbol_value(VV[53]))));
2070            V204= (V206);}
2071            goto T777;
2072    T777:;
2073            {object V207;
2074            {object V208= cdr(cdr(cdr((V203))));
2075            if((type_of(V208)!=t_cons) && ((V203)!= Cnil))
2076             FEwrong_type_argument(Scons,V208);
2077            V207= (V208->c.c_car);}
2078            {object V212;
2079            V213= get(V207,VV[52],Cnil);
2080            V212= make_cons(V204,V213);
2081            (void)(sputprop(V207,VV[52],(V212)));}}
2082            (void)(aset1(symbol_value(VV[53]),fixint((V204)),(V203)));
2083            base[1]= (V204);
2084            vs_top=(vs_base=base+1)+1;
2085            return;}
2086            }
2087    }
2088    /*      function definition for SHORT-NAME      */
2089    
2090    static void L35()
2091    {register object *base=vs_base;
2092            register object *sup=base+VM33; VC33
2093            vs_reserve(VM33);
2094            {object V214;
2095            check_arg(1);
2096            V214=(base[0]);
2097            vs_top=sup;
2098            goto TTL;
2099    TTL:;
2100            {object V215;
2101            V215= (VFUN_NARGS=4,(*(LnkLI144))(VV[71],(V214),VV[72],Ct));
2102            if(((V215))==Cnil){
2103            goto T789;}
2104            base[1]= (V214);
2105            base[2]= make_fixnum((long)(1)+(fix((V215))));
2106            vs_top=(vs_base=base+1)+2;
2107            Lsubseq();
2108            return;
2109            goto T789;
2110    T789:;
2111            base[1]= (V214);
2112            vs_top=(vs_base=base+1)+1;
2113            return;}
2114            }
2115    }
2116    /*      function definition for SHOW-BREAK-POINT        */
2117    
2118    static void L36()
2119    {register object *base=vs_base;
2120            register object *sup=base+VM34; VC34
2121            vs_reserve(VM34);
2122            {object V216;
2123            check_arg(1);
2124            V216=(base[0]);
2125            vs_top=sup;
2126            goto TTL;
2127    TTL:;
2128            {object V217;
2129            V217= Cnil;
2130            {register object V218;
2131            V218= aref1(symbol_value(VV[53]),fixint((V216)));
2132            if(((V218))==Cnil){
2133            goto T796;}
2134            if(!((car((V218)))==(Cnil))){
2135            goto T798;}
2136            V217= Ct;
2137            V218= cdr((V218));
2138            goto T798;
2139    T798:;
2140            base[1]= Ct;
2141            base[2]= VV[73];
2142            base[3]= (V216);
2143            base[5]= cadr((V218));
2144            vs_top=(vs_base=base+5)+1;
2145            (void) (*Lnk150)();
2146            vs_top=sup;
2147            base[4]= vs_base[0];
2148            base[5]= caddr((V218));
2149            base[6]= (V217);
2150            vs_top=(vs_base=base+1)+6;
2151            Lformat();
2152            vs_top=sup;
2153            {object V219;
2154            V219= cadddr((V218));
2155            base[1]= Ct;
2156            base[2]= VV[74];
2157            base[4]= (V219);
2158            base[5]= caddr((V218));
2159            vs_top=(vs_base=base+4)+2;
2160            (void) (*Lnk151)();
2161            vs_top=sup;
2162            base[3]= vs_base[0];
2163            base[4]= (V219);
2164            vs_top=(vs_base=base+1)+4;
2165            Lformat();
2166            return;}
2167            goto T796;
2168    T796:;
2169            base[1]= Cnil;
2170            vs_top=(vs_base=base+1)+1;
2171            return;}}
2172            }
2173    }
2174    /*      function definition for ITERATE-OVER-BKPTS      */
2175    
2176    static void L37()
2177    {register object *base=vs_base;
2178            register object *sup=base+VM35; VC35
2179            vs_reserve(VM35);
2180            {register object V220;
2181            register object V221;
2182            check_arg(2);
2183            V220=(base[0]);
2184            V221=(base[1]);
2185            vs_top=sup;
2186            goto TTL;
2187    TTL:;
2188            {register object V222;
2189            register object V223;
2190            V222= make_fixnum((long)length(symbol_value(VV[53])));
2191            V223= small_fixnum(0);
2192            goto T822;
2193    T822:;
2194            if(!(number_compare((V223),(V222))>=0)){
2195            goto T823;}
2196            base[3]= Cnil;
2197            vs_top=(vs_base=base+3)+1;
2198            return;
2199            goto T823;
2200    T823:;
2201            {register object x= (V223),V224= (V220);
2202            while(!endp(V224))
2203            if(eql(x,V224->c.c_car)){
2204            goto T828;
2205            }else V224=V224->c.c_cdr;}
2206            if(((V220))!=Cnil){
2207            goto T827;}
2208            goto T828;
2209    T828:;
2210            {register object V225;
2211            V225= aref1(symbol_value(VV[53]),fixint((V223)));{object V226;
2212            V226= symbol_value(VV[53]);
2213            {object V228= (V221);
2214            if((V228!= VV[54]))goto T834;
2215            if(((V225))==Cnil){
2216            goto T835;}
2217            {object V230= cdr(cdr(cdr((V225))));
2218            if((type_of(V230)!=t_cons) && ((V225)!= Cnil))
2219             FEwrong_type_argument(Scons,V230);
2220            V229= (V230->c.c_car);}
2221            {object V233= cdr(cdr(cdr((V225))));
2222            if((type_of(V233)!=t_cons) && ((V225)!= Cnil))
2223             FEwrong_type_argument(Scons,V233);
2224            V232= (V233->c.c_car);}
2225            V231= get(V232,VV[52],Cnil);
2226            V234= (VFUN_NARGS=2,(*(LnkLI124))((V223),V231));
2227            (void)(sputprop(V229,VV[52],/* INLINE-ARGS */V234));
2228            goto T835;
2229    T835:;
2230            V227= Cnil;
2231            goto T833;
2232            goto T834;
2233    T834:;
2234            if((V228!= VV[152]))goto T841;
2235            if(!((car((V225)))==(Cnil))){
2236            goto T843;}
2237            V227= cdr((V225));
2238            goto T833;
2239            goto T843;
2240    T843:;
2241            V227= Cnil;
2242            goto T833;
2243            goto T841;
2244    T841:;
2245            if((V228!= VV[153]))goto T845;
2246            if(((V225))==Cnil){
2247            goto T847;}
2248            if((car((V225)))==(Cnil)){
2249            goto T847;}
2250            V227= make_cons(Cnil,(V225));
2251            goto T833;
2252            goto T847;
2253    T847:;
2254            V227= (V225);
2255            goto T833;
2256            goto T845;
2257    T845:;
2258            if((V228!= VV[154]))goto T851;
2259            if(((V225))==Cnil){
2260            goto T852;}
2261            base[3]= (V223);
2262            vs_top=(vs_base=base+3)+1;
2263            (void) (*Lnk149)();
2264            vs_top=sup;
2265            princ_char(10,Cnil);
2266            goto T852;
2267    T852:;
2268            V227= (V225);
2269            goto T833;
2270            goto T851;
2271    T851:;
2272            V227= Cnil;}
2273            goto T833;
2274    T833:;
2275            (void)(aset1(V226,fixint((V223)),V227));}}
2276            goto T827;
2277    T827:;
2278            V223= one_plus((V223));
2279            goto T822;}
2280            }
2281    }
2282    /*      function definition for COMPLETE-PROP   */
2283    
2284    static void L38()
2285    {register object *base=vs_base;
2286            register object *sup=base+VM36; VC36
2287            vs_reserve(VM36);
2288            {object V235;
2289            object V236;
2290            object V237;
2291            object V238;
2292            if(vs_top-vs_base<3) too_few_arguments();
2293            if(vs_top-vs_base>4) too_many_arguments();
2294            V235=(base[0]);
2295            V236=(base[1]);
2296            V237=(base[2]);
2297            vs_base=vs_base+3;
2298            if(vs_base>=vs_top){vs_top=sup;goto T860;}
2299            V238=(base[3]);
2300            vs_top=sup;
2301            goto T861;
2302            goto T860;
2303    T860:;
2304            V238= Cnil;
2305            goto T861;
2306    T861:;
2307            if(!(type_of((V235))==t_symbol)){
2308            goto T863;}
2309            if((get((V235),(V237),Cnil))==Cnil){
2310            goto T863;}
2311            base[4]= (V235);
2312            vs_top=(vs_base=base+4)+1;
2313            Lsymbol_package();
2314            vs_top=sup;
2315            V239= vs_base[0];
2316            base[4]= (V236);
2317            vs_top=(vs_base=base+4)+1;
2318            Lfind_package();
2319            vs_top=sup;
2320            V240= vs_base[0];
2321            if(!(equal(V239,V240))){
2322            goto T863;}
2323            base[4]= (V235);
2324            vs_top=(vs_base=base+4)+1;
2325            return;
2326            goto T863;
2327    T863:;
2328            {object V241;
2329            register object V242;
2330            V241= Cnil;
2331            V242= Cnil;
2332            {object V243;
2333            register object V244;
2334            register object V245;
2335            {object V246;
2336            base[4]= (V236);
2337            vs_top=(vs_base=base+4)+1;
2338            Lfind_package();
2339            vs_top=sup;
2340            V246= vs_base[0];
2341            base[4]= (V246);
2342            vs_top=(vs_base=base+4)+1;
2343            Lpackagep();
2344            vs_top=sup;
2345            if((vs_base[0])==Cnil){
2346            goto T879;}
2347            V243= (V246);
2348            goto T875;
2349            goto T879;
2350    T879:;
2351            base[4]= coerce_to_string((V246));
2352            vs_top=(vs_base=base+4)+1;
2353            Lfind_package();
2354            vs_top=sup;
2355            V243= vs_base[0];}
2356            goto T875;
2357    T875:;
2358            V244= Cnil;
2359            V245= Cnil;
2360            {object V247;
2361            register object V248;
2362            base[6]= (V243);
2363            vs_top=(vs_base=base+6)+1;
2364            Lpackage_use_list();
2365            vs_top=sup;
2366            V249= vs_base[0];
2367            V247= make_cons((V243),V249);
2368            V248= car((V247));
2369            goto T888;
2370    T888:;
2371            if(!(endp_prop((V247)))){
2372            goto T889;}
2373            V244= Cnil;
2374            goto T874;
2375            goto T889;
2376    T889:;
2377            {long V250;
2378            long V251;
2379            base[6]= (V248);
2380            vs_top=(vs_base=base+6)+1;
2381            (void) (*Lnk155)();
2382            if(vs_base>=vs_top){vs_top=sup;goto T898;}
2383            V250= fix(vs_base[0]);
2384            vs_base++;
2385            if(vs_base>=vs_top){vs_top=sup;goto T899;}
2386            V251= fix(vs_base[0]);
2387            vs_top=sup;
2388            goto T900;
2389            goto T898;
2390    T898:;
2391            V250= fix(Cnil);
2392            goto T899;
2393    T899:;
2394            V251= fix(Cnil);
2395            goto T900;
2396    T900:;
2397            if(((V243))==((V248))){
2398            goto T901;}
2399            V251= 0;
2400            goto T901;
2401    T901:;
2402            {object V252;
2403            register object V253;
2404            V254 = make_fixnum(V251);
2405            V255 = make_fixnum(V250);
2406            V252= number_plus(V254,V255);
2407            V253= small_fixnum(0);
2408            goto T908;
2409    T908:;
2410            if(!(number_compare((V253),(V252))>=0)){
2411            goto T909;}
2412            goto T895;
2413            goto T909;
2414    T909:;
2415            V256 = make_fixnum(V251);
2416            if(!(number_compare((V253),V256)<0)){
2417            goto T918;}
2418            base[7]= (V248);
2419            base[8]= (V253);
2420            vs_top=(vs_base=base+7)+2;
2421            siLpackage_internal();
2422            vs_top=sup;
2423            V245= vs_base[0];
2424            goto T916;
2425            goto T918;
2426    T918:;
2427            base[7]= (V248);
2428            V257 = make_fixnum(V251);
2429            base[8]= number_minus((V253),V257);
2430            vs_top=(vs_base=base+7)+2;
2431            siLpackage_external();
2432            vs_top=sup;
2433            V245= vs_base[0];
2434            goto T916;
2435    T916:;
2436            goto T914;
2437    T914:;
2438            if(((V245))!=Cnil){
2439            goto T924;}
2440            goto T915;
2441            goto T924;
2442    T924:;
2443            V244= car((V245));
2444            if(((V248))==((V243))){
2445            goto T930;}
2446            base[8]= symbol_name((V244));
2447            base[9]= (V243);
2448            vs_top=(vs_base=base+8)+2;
2449            Lfind_symbol();
2450            Llist();
2451            vs_top=sup;
2452            base[7]= vs_base[0];
2453            vs_top=(vs_base=base+7)+1;
2454            Llast();
2455            vs_top=sup;
2456            V258= vs_base[0];
2457            if(!((VV[75])==(car(V258)))){
2458            goto T929;}
2459            goto T930;
2460    T930:;
2461            if((get((V244),(V237),Cnil))==Cnil){
2462            goto T939;}
2463            base[7]= (V235);
2464            base[8]= (V244);
2465            vs_top=(vs_base=base+7)+2;
2466            (void) (*Lnk156)();
2467            vs_top=sup;
2468            V259= vs_base[0];
2469            if(!(eql(V259,small_fixnum(0)))){
2470            goto T939;}
2471            if(((V242))==Cnil){
2472            goto T948;}
2473            {object V260;
2474            register object V261;
2475            V260= (V242);
2476            V242= make_cons((V244),Cnil);
2477            V261= (V242);
2478            if(type_of((V260))!=t_cons)FEwrong_type_argument(Scons,(V260));
2479            ((V260))->c.c_cdr = (V261);
2480            goto T939;}
2481            goto T948;
2482    T948:;
2483            V242= make_cons((V244),Cnil);
2484            V241= (V242);
2485            goto T939;
2486    T939:;
2487            goto T929;
2488    T929:;
2489            V245= cdr((V245));
2490            goto T914;
2491            goto T915;
2492    T915:;
2493            goto T912;
2494            goto T912;
2495    T912:;
2496            V253= one_plus((V253));
2497            goto T908;}}
2498            goto T895;
2499    T895:;
2500            V247= cdr((V247));
2501            V248= car((V247));
2502            goto T888;}}
2503            goto T874;
2504    T874:;
2505            if(((V238))==Cnil){
2506            goto T968;}
2507            base[4]= (V241);
2508            vs_top=(vs_base=base+4)+1;
2509            return;
2510            goto T968;
2511    T968:;
2512            if(!(((long)length((V241)))>(1))){
2513            goto T971;}
2514            base[4]= Ct;
2515            base[5]= VV[76];
2516            base[6]= (V237);
2517            base[7]= (V241);
2518            vs_top=(vs_base=base+4)+4;
2519            Lformat();
2520            vs_top=sup;
2521            goto T966;
2522            goto T971;
2523    T971:;
2524            if(((V241))!=Cnil){
2525            goto T978;}
2526            base[4]= Ct;
2527            base[5]= VV[77];
2528            base[6]= (V235);
2529            vs_top=(vs_base=base+4)+3;
2530            Lformat();
2531            vs_top=sup;
2532            goto T966;
2533            goto T978;
2534    T978:;
2535            base[4]= car((V241));
2536            vs_top=(vs_base=base+4)+1;
2537            return;
2538            goto T966;
2539    T966:;
2540            base[4]= Cnil;
2541            vs_top=(vs_base=base+4)+1;
2542            return;
2543            base[4]= Cnil;
2544            vs_top=(vs_base=base+4)+1;
2545            return;}
2546            }
2547    }
2548    /*      function definition for DISPLAY-ENV     */
2549    
2550    static void L39()
2551    {register object *base=vs_base;
2552            register object *sup=base+VM37; VC37
2553            vs_reserve(VM37);
2554            {register object V262;
2555            object V263;
2556            check_arg(2);
2557            V262=(base[0]);
2558            V263=(base[1]);
2559            vs_top=sup;
2560            goto TTL;
2561    TTL:;
2562            {register object V264;
2563            V264= reverse((V263));
2564            goto T986;
2565    T986:;
2566            if(!(type_of((V264))==t_cons)){
2567            goto T988;}
2568            base[2]= symbol_value(VV[78]);
2569            vs_top=(vs_base=base+2)+1;
2570            Lfill_pointer();
2571            vs_top=sup;
2572            V265= vs_base[0];
2573            if(!((fix(V265))>(fix((V262))))){
2574            goto T987;}
2575            goto T988;
2576    T988:;
2577            base[2]= Cnil;
2578            vs_top=(vs_base=base+2)+1;
2579            return;
2580            goto T987;
2581    T987:;{object V266;
2582            if(type_of(car((V264)))==t_cons){
2583            goto T998;}
2584            V266= Cnil;
2585            goto T997;
2586            goto T998;
2587    T998:;
2588            {object V267= cdar((V264));
2589            V266= (type_of(V267)==t_cons||(V267)==Cnil?Ct:Cnil);}
2590            goto T997;
2591    T997:;
2592            if(V266==Cnil)goto T996;
2593            goto T995;
2594            goto T996;
2595    T996:;}
2596            base[2]= Cnil;
2597            vs_top=(vs_base=base+2)+1;
2598            return;
2599            goto T995;
2600    T995:;
2601            base[2]= symbol_value(VV[78]);
2602            base[3]= VV[79];
2603            base[4]= caar((V264));
2604            base[5]= cadar((V264));
2605            base[6]= cdr((V264));
2606            vs_top=(vs_base=base+2)+5;
2607            Lformat();
2608            vs_top=sup;
2609            V264= cdr((V264));
2610            goto T986;}
2611            }
2612    }
2613    /*      function definition for APPLY-DISPLAY-FUN       */
2614    
2615    static void L40()
2616    {register object *base=vs_base;
2617            register object *sup=base+VM38; VC38
2618            vs_reserve(VM38);
2619            bds_check;
2620            {object V268;
2621            object V269;
2622            object V270;
2623            check_arg(3);
2624            V268=(base[0]);
2625            V269=(base[1]);
2626            V270=(base[2]);
2627            vs_top=sup;
2628            goto TTL;
2629    TTL:;
2630            bds_bind(VV[13],symbol_value(VV[10]));
2631            bds_bind(VV[11],symbol_value(VV[10]));
2632            bds_bind(VV[80],Cnil);
2633            bds_bind(VV[81],VV[82]);
2634            bds_bind(VV[12],Ct);
2635            base[8]= symbol_value(VV[78]);
2636            base[9]= small_fixnum(0);
2637            vs_top=(vs_base=base+8)+2;
2638            siLfill_pointer_set();
2639            vs_top=sup;
2640            base[8]= symbol_value(VV[78]);
2641            base[9]= VV[83];
2642            vs_top=(vs_base=base+8)+2;
2643            Lformat();
2644            vs_top=sup;
2645            (void)((
2646            (type_of((V268)) == t_sfun ?(*(((V268))->sfn.sfn_self)):
2647            (fcall.fun=((V268)),fcall.argd=2,fcalln))((V269),(V270))));
2648            base[8]= symbol_value(VV[78]);
2649            vs_top=(vs_base=base+8)+1;
2650            Lfill_pointer();
2651            vs_top=sup;
2652            V271= vs_base[0];
2653            if(!((fix(V271))>(fix((V269))))){
2654            goto T1017;}
2655            base[8]= symbol_value(VV[78]);
2656            base[9]= (V269);
2657            vs_top=(vs_base=base+8)+2;
2658            siLfill_pointer_set();
2659            vs_top=sup;
2660            base[8]= symbol_value(VV[78]);
2661            base[9]= VV[84];
2662            vs_top=(vs_base=base+8)+2;
2663            Lformat();
2664            vs_top=sup;
2665            goto T1017;
2666    T1017:;
2667            base[8]= symbol_value(VV[78]);
2668            base[9]= VV[85];
2669            vs_top=(vs_base=base+8)+2;
2670            Lformat();
2671            vs_top=sup;
2672            bds_unwind1;
2673            bds_unwind1;
2674            bds_unwind1;
2675            bds_unwind1;
2676            bds_unwind1;
2677            base[3]= symbol_value(VV[78]);
2678            vs_top=(vs_base=base+3)+1;
2679            return;
2680            }
2681    }
2682    /*      function definition for GET-LINE-OF-FORM        */
2683    
2684    static void L41()
2685    {register object *base=vs_base;
2686            register object *sup=base+VM39; VC39
2687            vs_reserve(VM39);
2688            {object V272;
2689            object V273;
2690            check_arg(2);
2691            V272=(base[0]);
2692            V273=(base[1]);
2693            vs_top=sup;
2694            goto TTL;
2695    TTL:;
2696            {object V274;
2697            V274= (VFUN_NARGS=2,(*(LnkLI144))((V272),(V273)));
2698            if(((V274))==Cnil){
2699            goto T1031;}
2700            V275= aref1((V273),0);
2701            base[2]= make_fixnum((long)(fix((V274)))+(fix(cdr(/* INLINE-ARGS */V275))));
2702            vs_top=(vs_base=base+2)+1;
2703            return;
2704            goto T1031;
2705    T1031:;
2706            base[2]= Cnil;
2707            vs_top=(vs_base=base+2)+1;
2708            return;}
2709            }
2710    }
2711    /*      function definition for GET-NEXT-VISIBLE-FUN    */
2712    
2713    static void L42()
2714    {register object *base=vs_base;
2715            register object *sup=base+VM40; VC40
2716            vs_reserve(VM40);
2717            {object V276;
2718            check_arg(1);
2719            V276=(base[0]);
2720            vs_top=sup;
2721            goto TTL;
2722    TTL:;
2723            {register object V277;
2724            V277= (V276);
2725            goto T1034;
2726    T1034:;
2727            if(!((fix((V277)))<(fix(symbol_value(VV[86]))))){
2728            goto T1035;}
2729            {register object V278;
2730            V278= Cnil;
2731            (void)((MVloc[(0)]=((V277))));
2732            base[1]= (V278);
2733            vs_top=(vs_base=base+1)+1;
2734            return;}
2735            goto T1035;
2736    T1035:;
2737            {register object V279;
2738            base[1]= (V277);
2739            vs_top=(vs_base=base+1)+1;
2740            (void) (*Lnk141)();
2741            vs_top=sup;
2742            V279= vs_base[0];
2743            {register object V280;
2744            base[1]= (V279);
2745            vs_top=(vs_base=base+1)+1;
2746            Lspecial_form_p();
2747            vs_top=sup;
2748            V280= vs_base[0];
2749            if(((V280))==Cnil){
2750            goto T1046;}
2751            goto T1040;
2752            goto T1046;
2753    T1046:;
2754            {register object V281;
2755            V281= get((V279),VV[87],Cnil);
2756            if(((V281))==Cnil){
2757            goto T1050;}
2758            goto T1040;
2759            goto T1050;
2760    T1050:;
2761            base[1]= (V279);
2762            vs_top=(vs_base=base+1)+1;
2763            Lfboundp();
2764            vs_top=sup;
2765            if((vs_base[0])==Cnil){
2766            goto T1040;}
2767            {register object V282;
2768            V282= (V279);
2769            (void)((MVloc[(0)]=((V277))));
2770            base[1]= (V282);
2771            vs_top=(vs_base=base+1)+1;
2772            return;}}}}
2773            goto T1040;
2774    T1040:;
2775            V277= make_fixnum((long)(fix((V277)))-(1));
2776            goto T1034;}
2777            }
2778    }
2779    /*      function definition for DBL-WHAT-FRAME  */
2780    
2781    static void L43()
2782    {register object *base=vs_base;
2783            register object *sup=base+VM41; VC41
2784            vs_reserve(VM41);
2785            {register long V283;
2786            check_arg(1);
2787            V283=fix(base[0]);
2788            vs_top=sup;
2789            goto TTL;
2790    TTL:;
2791            {register long V284;
2792            register long V285;
2793            register object V286;
2794            V284= fix(symbol_value(VV[88]));
2795            V285= 0;
2796            V286= Cnil;
2797            goto T1063;
2798    T1063:;
2799            {register object V287;
2800            base[1]= make_fixnum(V284);
2801            vs_top=(vs_base=base+1)+1;
2802            (void) (*Lnk157)();
2803            vs_top=sup;
2804            V286= vs_base[0];
2805            V287= (V286);
2806            V284= fix((MVloc[(0)]));}
2807            if(!((V284)<=(V283))){
2808            goto T1071;}
2809            base[1]= make_fixnum(V285);
2810            vs_top=(vs_base=base+1)+1;
2811            return;
2812            goto T1071;
2813    T1071:;
2814            V285= (long)(V285)+(1);
2815            V284= (long)(V284)-(1);
2816            goto T1063;}
2817            }
2818    }
2819    /*      function definition for DBL-UP  */
2820    
2821    static void L44()
2822    {register object *base=vs_base;
2823            register object *sup=base+VM42; VC42
2824            vs_reserve(VM42);
2825            {register object V288;
2826            object V289;
2827            check_arg(2);
2828            V288=(base[0]);
2829            V289=(base[1]);
2830            vs_top=sup;
2831            goto TTL;
2832    TTL:;
2833            {object V290;
2834            object V291;
2835            object V292;
2836            object V293;
2837            object V294;
2838            V290= Cnil;
2839            V291= Cnil;
2840            V292= Cnil;
2841            V293= Cnil;
2842            V294= Cnil;
2843            base[2]= (V289);
2844            vs_top=(vs_base=base+2)+1;
2845            (void) (*Lnk158)();
2846            vs_top=sup;
2847            V290= vs_base[0];
2848            if(!((fix((V288)))>=(0))){
2849            goto T1087;}
2850            {object V295;
2851            base[2]= (V288);
2852            base[3]= (V289);
2853            vs_top=(vs_base=base+2)+2;
2854            (void) (*Lnk159)();
2855            vs_top=sup;
2856            setq(VV[9],vs_base[0]);
2857            V295= symbol_value(VV[9]);
2858            V288= (MVloc[(0)]);
2859            V291= (MVloc[(1)]);
2860            V292= (MVloc[(2)]);
2861            V293= (MVloc[(3)]);
2862            V294= (MVloc[(4)]);}
2863            (void)((*(LnkLI160))());
2864            base[2]= make_fixnum((long)(fix((V290)))+(fix((V288))));
2865            base[3]= Ct;
2866            base[4]= symbol_value(VV[9]);
2867            base[5]= (V291);
2868            base[6]= (V292);
2869            base[7]= (V293);
2870            base[8]= (V294);
2871            vs_top=(vs_base=base+2)+7;
2872            (void) (*Lnk161)();
2873            return;
2874            goto T1087;
2875    T1087:;
2876            V288= make_fixnum((long)(fix((V290)))+(fix((V288))));
2877            if(!((fix((V288)))>=(0))){
2878            goto T1115;}
2879            goto T1114;
2880            goto T1115;
2881    T1115:;
2882            V288= small_fixnum(0);
2883            goto T1114;
2884    T1114:;
2885            V289= symbol_value(VV[88]);
2886            goto TTL;}
2887            }
2888    }
2889    /*      function definition for NEXT-STACK-FRAME        */
2890    
2891    static void L45()
2892    {register object *base=vs_base;
2893            register object *sup=base+VM43; VC43
2894            vs_reserve(VM43);
2895            {object V296;
2896            check_arg(1);
2897            V296=(base[0]);
2898            vs_top=sup;
2899            goto TTL;
2900    TTL:;
2901            {register object V297;
2902            register object V298;
2903            register object V299;
2904            register object V300;
2905            object V301;
2906            V297= Cnil;
2907            V298= Cnil;
2908            V299= Cnil;
2909            V300= Cnil;
2910            V301= Cnil;
2911            if(!((fix((V296)))<(fix(symbol_value(VV[86]))))){
2912            goto T1127;}
2913            (void)((MVloc[(0)]=(Cnil)));
2914            (void)((MVloc[(1)]=(Cnil)));
2915            (void)((MVloc[(2)]=(Cnil)));
2916            (void)((MVloc[(3)]=(Cnil)));
2917            base[1]= Cnil;
2918            vs_top=(vs_base=base+1)+1;
2919            return;
2920            goto T1127;
2921    T1127:;
2922            {object V303;
2923            V303= Cnil;
2924            {object V304;
2925            base[1]= (V296);
2926            vs_top=(vs_base=base+1)+1;
2927            (void) (*Lnk157)();
2928            vs_top=sup;
2929            V303= vs_base[0];
2930            V304= (V303);
2931            V299= (MVloc[(0)]);}
2932            V301= (V303);
2933            {object V305;
2934            V297= get((V303),VV[49],Cnil);
2935            if(((V297))!=Cnil){
2936            goto T1142;}
2937            V305= Cnil;
2938            goto T1141;
2939            goto T1142;
2940    T1142:;
2941            {register object V306;
2942            register object V307;
2943            V306= make_fixnum((long)(fix((V296)))+(1));
2944            V307= Cnil;
2945            goto T1147;
2946    T1147:;
2947            if(!(number_compare((V306),(V299))<=0)){
2948            goto T1148;}
2949            V305= Cnil;
2950            goto T1141;
2951            goto T1148;
2952    T1148:;
2953            base[1]= (V306);
2954            vs_top=(vs_base=base+1)+1;
2955            (void) (*Lnk116)();
2956            vs_top=sup;
2957            V307= vs_base[0];
2958            base[2]= (V306);
2959            vs_top=(vs_base=base+2)+1;
2960            (void) (*Lnk116)();
2961            vs_top=sup;
2962            base[1]= vs_base[0];
2963            base[2]= (V297);
2964            vs_top=(vs_base=base+1)+2;
2965            (void) (*Lnk162)();
2966            vs_top=sup;
2967            V298= vs_base[0];
2968            if(((V298))==Cnil){
2969            goto T1155;}
2970            {register object V308;
2971            V308= (V299);
2972            (void)((MVloc[(0)]=((V303))));
2973            (void)((MVloc[(1)]=((V298))));
2974            V309= aref1((V297),0);
2975            (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V309))));
2976            base[2]= (V306);
2977            vs_top=(vs_base=base+2)+1;
2978            (void) (*Lnk112)();
2979            vs_top=sup;
2980            V300= vs_base[0];
2981            base[1]= (V300);
2982            vs_top=(vs_base=base+1)+1;
2983            (void) (*Lnk113)();
2984            vs_top=sup;
2985            V310= vs_base[0];
2986            base[1]= one_plus((V300));
2987            vs_top=(vs_base=base+1)+1;
2988            (void) (*Lnk113)();
2989            vs_top=sup;
2990            V311= vs_base[0];
2991            base[1]= number_plus((V300),small_fixnum(2));
2992            vs_top=(vs_base=base+1)+1;
2993            (void) (*Lnk113)();
2994            vs_top=sup;
2995            V312= vs_base[0];
2996            V313= list(3,V310,V311,V312);
2997            (void)((MVloc[(3)]=(/* INLINE-ARGS */V313)));
2998            base[1]= (V308);
2999            vs_top=(vs_base=base+1)+1;
3000            return;}
3001            goto T1155;
3002    T1155:;
3003            V306= make_fixnum((long)(fix((V306)))-(1));
3004            goto T1147;}
3005            goto T1141;
3006    T1141:;
3007            if(((V305))==Cnil){
3008            goto T1178;}
3009            base[1]= (V305);
3010            vs_top=(vs_base=base+1)+1;
3011            return;
3012            goto T1178;
3013    T1178:;
3014            base[1]= (V301);
3015            vs_top=(vs_base=base+1)+1;
3016            Lspecial_form_p();
3017            vs_top=sup;
3018            if((vs_base[0])==Cnil){
3019            goto T1181;}
3020            base[1]= Cnil;
3021            vs_top=(vs_base=base+1)+1;
3022            return;
3023            goto T1181;
3024    T1181:;
3025            {object V314;
3026            V314= get((V301),VV[87],Cnil);
3027            if(((V314))==Cnil){
3028            goto T1186;}
3029            base[1]= (V314);
3030            vs_top=(vs_base=base+1)+1;
3031            return;
3032            goto T1186;
3033    T1186:;
3034            base[1]= (V301);
3035            vs_top=(vs_base=base+1)+1;
3036            Lfboundp();
3037            vs_top=sup;
3038            if((vs_base[0])==Cnil){
3039            goto T1189;}
3040            (void)((MVloc[(0)]=((V301))));
3041            (void)((MVloc[(1)]=(Cnil)));
3042            (void)((MVloc[(2)]=(Cnil)));
3043            base[1]= (V299);
3044            vs_top=(vs_base=base+1)+1;
3045            (void) (*Lnk163)();
3046            vs_top=sup;
3047            if((vs_base[0])==Cnil){
3048            goto T1198;}
3049            V316= Cnil;
3050            goto T1196;
3051            goto T1198;
3052    T1198:;
3053            {object V317;
3054            base[1]= (V299);
3055            vs_top=(vs_base=base+1)+1;
3056            (void) (*Lnk112)();
3057            vs_top=sup;
3058            V317= vs_base[0];
3059            base[1]= (V317);
3060            vs_top=(vs_base=base+1)+1;
3061            (void) (*Lnk113)();
3062            vs_top=sup;
3063            V318= vs_base[0];
3064            base[1]= one_plus((V317));
3065            vs_top=(vs_base=base+1)+1;
3066            (void) (*Lnk113)();
3067            vs_top=sup;
3068            V319= vs_base[0];
3069            base[1]= make_fixnum((long)(fix((V317)))+(2));
3070            vs_top=(vs_base=base+1)+1;
3071            (void) (*Lnk113)();
3072            vs_top=sup;
3073            V320= vs_base[0];
3074            V316= list(3,V318,V319,V320);}
3075            goto T1196;
3076    T1196:;
3077            (void)((MVloc[(3)]=(V316)));
3078            base[1]= V299;
3079            vs_top=(vs_base=base+1)+1;
3080            return;
3081            goto T1189;
3082    T1189:;
3083            base[1]= Cnil;
3084            vs_top=(vs_base=base+1)+1;
3085            return;}}}}
3086            }
3087    }
3088    /*      function definition for NTH-STACK-FRAME */
3089    
3090    static void L46()
3091    {register object *base=vs_base;
3092            register object *sup=base+VM44; VC44
3093            vs_reserve(VM44);
3094            {register object V321;
3095            register object V322;
3096            if(vs_top-vs_base<1) too_few_arguments();
3097            if(vs_top-vs_base>2) too_many_arguments();
3098            V321=(base[0]);
3099            vs_base=vs_base+1;
3100            if(vs_base>=vs_top){vs_top=sup;goto T1209;}
3101            V322=(base[1]);
3102            vs_top=sup;
3103            goto T1210;
3104            goto T1209;
3105    T1209:;
3106            V322= symbol_value(VV[88]);
3107            goto T1210;
3108    T1210:;
3109            {register object V323;
3110            object V324;
3111            object V325;
3112            object V326;
3113            register object V327;
3114            V323= Cnil;
3115            V324= Cnil;
3116            V325= Cnil;
3117            V326= Cnil;
3118            V327= Cnil;
3119            if(!((fix((V321)))>=(0))){
3120            goto T1218;}
3121            goto T1217;
3122            goto T1218;
3123    T1218:;
3124            V321= small_fixnum(0);
3125            goto T1217;
3126    T1217:;
3127            {object V328;
3128            register object V329;
3129            V328= make_fixnum((long)(fix((V321)))+(1));
3130            V329= small_fixnum(0);
3131            goto T1225;
3132    T1225:;
3133            if(!(number_compare((V329),(V328))>=0)){
3134            goto T1226;}
3135            goto T1221;
3136            goto T1226;
3137    T1226:;
3138            base[3]= (V322);
3139            vs_top=(vs_base=base+3)+1;
3140            (void) (*Lnk164)();
3141            vs_top=sup;
3142            V327= vs_base[0];
3143            if(((V327))==Cnil){
3144            goto T1235;}
3145            {register object V330;
3146            V322= (V327);
3147            V330= (V322);
3148            V323= (MVloc[(0)]);
3149            V324= (MVloc[(1)]);
3150            V325= (MVloc[(2)]);
3151            V326= (MVloc[(3)]);}
3152            V322= make_fixnum((long)(fix((V327)))-(1));
3153            goto T1233;
3154            goto T1235;
3155    T1235:;
3156            V321= make_fixnum((long)(fix((V329)))-(1));
3157            goto T1221;
3158            goto T1233;
3159    T1233:;
3160            V329= one_plus((V329));
3161            goto T1225;}
3162            goto T1221;
3163    T1221:;
3164            V322= make_fixnum((long)(fix((V322)))+(1));
3165            base[2]= (V322);
3166            vs_top=(vs_base=base+2)+1;
3167            (void) (*Lnk141)();
3168            vs_top=sup;
3169            V323= vs_base[0];
3170            (void)((MVloc[(0)]=((V321))));
3171            (void)((MVloc[(1)]=((V323))));
3172            (void)((MVloc[(2)]=((V324))));
3173            (void)((MVloc[(3)]=((V325))));
3174            (void)((MVloc[(4)]=((V326))));
3175            base[2]= V322;
3176            vs_top=(vs_base=base+2)+1;
3177            return;}
3178            }
3179    }
3180    /*      function definition for DBL-BACKTRACE   */
3181    
3182    static void L47()
3183    {register object *base=vs_base;
3184            register object *sup=base+VM45; VC45
3185            vs_reserve(VM45);
3186            {object V332;
3187            register object V333;
3188            if(vs_top-vs_base>2) too_many_arguments();
3189            if(vs_base>=vs_top){vs_top=sup;goto T1263;}
3190            V332=(base[0]);
3191            vs_base++;
3192            if(vs_base>=vs_top){vs_top=sup;goto T1264;}
3193            V333=(base[1]);
3194            vs_top=sup;
3195            goto T1265;
3196            goto T1263;
3197    T1263:;
3198            V332= small_fixnum(1000);
3199            goto T1264;
3200    T1264:;
3201            V333= symbol_value(VV[88]);
3202            goto T1265;
3203    T1265:;
3204            {register object V334;
3205            register object V335;
3206            register object V336;
3207            register object V337;
3208            register object V338;
3209            V334= Cnil;
3210            V335= Cnil;
3211            V336= Cnil;
3212            V337= Cnil;
3213            V338= small_fixnum(0);
3214            goto T1275;
3215    T1275:;
3216            {object V339;
3217            base[2]= (V333);
3218            vs_top=(vs_base=base+2)+1;
3219            (void) (*Lnk164)();
3220            vs_top=sup;
3221            V333= vs_base[0];
3222            V339= (V333);
3223            V334= (MVloc[(0)]);
3224            V336= (MVloc[(1)]);
3225            V335= (MVloc[(2)]);
3226            V337= (MVloc[(3)]);}
3227            if((V334)!=Cnil){
3228            goto T1289;}
3229            goto T1273;
3230            goto T1289;
3231    T1289:;
3232            base[2]= (V338);
3233            base[3]= Cnil;
3234            base[4]= (V333);
3235            base[5]= (V334);
3236            base[6]= (V336);
3237            base[7]= (V335);
3238            base[8]= (V337);
3239            vs_top=(vs_base=base+2)+7;
3240            (void) (*Lnk161)();
3241            vs_top=sup;
3242            V338= number_plus((V338),small_fixnum(1));
3243            if(!((fix((V338)))>=(fix((V332))))){
3244            goto T1300;}
3245            vs_base=vs_top=base+2;
3246            vs_base[0]=Cnil;
3247            vs_top=sup;
3248            goto T1273;
3249            goto T1300;
3250    T1300:;
3251            V333= make_fixnum((long)(fix((V333)))-(1));
3252            goto T1275;
3253            goto T1273;
3254    T1273:;
3255            vs_base=vs_top=base+2;
3256            vs_base[0]=Cnil;
3257            return;}
3258            }
3259    }
3260    /*      function definition for DISPLAY-COMPILED-ENV    */
3261    
3262    static void L48()
3263    {register object *base=vs_base;
3264            register object *sup=base+VM46; VC46
3265            vs_reserve(VM46);
3266            {register object V340;
3267            object V341;
3268            check_arg(2);
3269            V340=(base[0]);
3270            V341=(base[1]);
3271            vs_top=sup;
3272            goto TTL;
3273    TTL:;
3274            {register object V342;
3275            register object V343;
3276            base[4]= (V341);
3277            vs_top=(vs_base=base+4)+1;
3278            (void) (*Lnk112)();
3279            vs_top=sup;
3280            V342= vs_base[0];
3281            base[4]= one_plus((V341));
3282            vs_top=(vs_base=base+4)+1;
3283            (void) (*Lnk112)();
3284            vs_top=sup;
3285            V344= vs_base[0];
3286            vs_base=vs_top;
3287            (void) (*Lnk165)();
3288            vs_top=sup;
3289            V345= vs_base[0];
3290            V343= (number_compare(V344,V345)<=0?(V344):V345);
3291            base[4]= symbol_value(VV[78]);
3292            base[5]= VV[89];
3293            vs_top=(vs_base=base+4)+2;
3294            Lformat();
3295            vs_top=sup;
3296            {register object V346;
3297            register object V347;
3298            base[4]= (V341);
3299            vs_top=(vs_base=base+4)+1;
3300            (void) (*Lnk141)();
3301            vs_top=sup;
3302            V348= vs_base[0];
3303            V347= get(V348,VV[14],Cnil);
3304            V346= (V342);
3305            goto T1318;
3306    T1318:;
3307            if((fix((V346)))>=(fix((V343)))){
3308            goto T1320;}
3309            base[4]= symbol_value(VV[78]);
3310            vs_top=(vs_base=base+4)+1;
3311            Lfill_pointer();
3312            vs_top=sup;
3313            V349= vs_base[0];
3314            if(!((fix(V349))>(fix((V340))))){
3315            goto T1319;}
3316            goto T1320;
3317    T1320:;
3318            base[4]= Cnil;
3319            vs_top=(vs_base=base+4)+1;
3320            return;
3321            goto T1319;
3322    T1319:;
3323            base[4]= symbol_value(VV[78]);
3324            base[5]= VV[90];{object V350;
3325            V350= car((V347));
3326            if(V350==Cnil)goto T1331;
3327            base[6]= V350;
3328            goto T1330;
3329            goto T1331;
3330    T1331:;}
3331            base[6]= VV[91];
3332            goto T1330;
3333    T1330:;
3334            if((car((V347)))!=Cnil){
3335            goto T1335;}
3336            base[7]= make_fixnum((long)(fix((V346)))-(fix((V342))));
3337            goto T1333;
3338            goto T1335;
3339    T1335:;
3340            base[7]= Cnil;
3341            goto T1333;
3342    T1333:;
3343            base[9]= (V346);
3344            vs_top=(vs_base=base+9)+1;
3345            (void) (*Lnk113)();
3346            vs_top=sup;
3347            base[8]= vs_base[0];
3348            V346= make_fixnum((long)(fix((V346)))+(1));
3349            base[9]= ((fix((V346)))<(fix((V343)))?Ct:Cnil);
3350            vs_top=(vs_base=base+4)+6;
3351            Lformat();
3352            vs_top=sup;
3353            V347= cdr((V347));
3354            goto T1318;}}
3355            }
3356    }
3357    /*      function definition for COMPUTING-ARGS-P        */
3358    
3359    static void L49()
3360    {register object *base=vs_base;
3361            register object *sup=base+VM47; VC47
3362            vs_reserve(VM47);
3363            {object V351;
3364            check_arg(1);
3365            V351=(base[0]);
3366            vs_top=sup;
3367            goto TTL;
3368    TTL:;
3369            base[1]= (V351);
3370            vs_top=(vs_base=base+1)+1;
3371            (void) (*Lnk116)();
3372            vs_top=sup;
3373            V352= vs_base[0];
3374            if(type_of(V352)==t_cons){
3375            goto T1344;}
3376            base[1]= Cnil;
3377            vs_top=(vs_base=base+1)+1;
3378            return;
3379            goto T1344;
3380    T1344:;
3381            if(number_compare((V351),small_fixnum(3))>0){
3382            goto T1348;}
3383            base[1]= Cnil;
3384            vs_top=(vs_base=base+1)+1;
3385            return;
3386            goto T1348;
3387    T1348:;
3388            base[1]= (V351);
3389            vs_top=(vs_base=base+1)+1;
3390            (void) (*Lnk116)();
3391            vs_top=sup;
3392            V355= vs_base[0];
3393            {register object x= car(V355),V354= VV[92];
3394            while(!endp(V354))
3395            if(eql(x,V354->c.c_car)){
3396            V353= V354;
3397            goto T1350;
3398            }else V354=V354->c.c_cdr;
3399            V353= Cnil;}
3400            goto T1350;
3401    T1350:;
3402            base[1]= ((V353)==Cnil?Ct:Cnil);
3403            vs_top=(vs_base=base+1)+1;
3404            return;
3405            }
3406    }
3407    /*      function definition for PRINT-STACK-FRAME       */
3408    
3409    static void L50()
3410    {register object *base=vs_base;
3411            register object *sup=base+VM48; VC48
3412            vs_reserve(VM48);
3413            {object V356;
3414            object V357;
3415            register object V358;
3416            object V359;
3417            object V360;
3418            object V361;
3419            object V362;
3420            if(vs_top-vs_base<4) too_few_arguments();
3421            if(vs_top-vs_base>7) too_many_arguments();
3422            V356=(base[0]);
3423            V357=(base[1]);
3424            V358=(base[2]);
3425            V359=(base[3]);
3426            vs_base=vs_base+4;
3427            if(vs_base>=vs_top){vs_top=sup;goto T1353;}
3428            V360=(base[4]);
3429            vs_base++;
3430            if(vs_base>=vs_top){vs_top=sup;goto T1354;}
3431            V361=(base[5]);
3432            vs_base++;
3433            if(vs_base>=vs_top){vs_top=sup;goto T1355;}
3434            V362=(base[6]);
3435            vs_top=sup;
3436            goto T1356;
3437            goto T1353;
3438    T1353:;
3439            V360= Cnil;
3440            goto T1354;
3441    T1354:;
3442            V361= Cnil;
3443            goto T1355;
3444    T1355:;
3445            V362= Cnil;
3446            goto T1356;
3447    T1356:;
3448            if(((V357))==Cnil){
3449            goto T1360;}
3450            if(((V360))==Cnil){
3451            goto T1360;}
3452            base[7]= symbol_value(VV[1]);
3453            base[8]= VV[93];
3454            base[9]= (V361);
3455            base[10]= (V360);
3456            vs_top=(vs_base=base+7)+4;
3457            Lformat();
3458            vs_top=sup;
3459            goto T1360;
3460    T1360:;
3461            {object V363;
3462            base[7]= (V358);
3463            vs_top=(vs_base=base+7)+1;
3464            (void) (*Lnk166)();
3465            vs_top=sup;
3466            V363= vs_base[0];
3467            base[7]= symbol_value(VV[1]);
3468            base[8]= VV[94];
3469            base[9]= (V356);
3470            if((V363)==Cnil){
3471            base[10]= Cnil;
3472            goto T1375;}
3473            base[10]= VV[95];
3474            goto T1375;
3475    T1375:;
3476            base[11]= (V359);
3477            base[13]= (V358);
3478            vs_top=(vs_base=base+13)+1;
3479            (void) (*Lnk163)();
3480            vs_top=sup;
3481            if((vs_base[0])!=Cnil){
3482            goto T1379;}
3483            base[13]= VV[96];
3484            base[14]= small_fixnum(80);
3485            base[17]= (V358);
3486            vs_top=(vs_base=base+17)+1;
3487            (void) (*Lnk112)();
3488            vs_top=sup;
3489            base[16]= vs_base[0];
3490            vs_top=(vs_base=base+16)+1;
3491            (void) (*Lnk113)();
3492            vs_top=sup;
3493            V364= vs_base[0];
3494            base[15]= car(V364);
3495            vs_top=(vs_base=base+13)+3;
3496            (void) (*Lnk167)();
3497            vs_top=sup;
3498            base[12]= vs_base[0];
3499            goto T1377;
3500            goto T1379;
3501    T1379:;
3502            base[13]= VV[97];
3503            base[14]= small_fixnum(80);
3504            base[15]= (V358);
3505            vs_top=(vs_base=base+13)+3;
3506            (void) (*Lnk167)();
3507            vs_top=sup;
3508            base[12]= vs_base[0];
3509            goto T1377;
3510    T1377:;
3511            vs_top=(vs_base=base+7)+6;
3512            Lformat();
3513            vs_top=sup;
3514            if(((V361))==Cnil){
3515            goto T1391;}
3516            base[7]= symbol_value(VV[1]);
3517            base[8]= VV[98];
3518            base[9]= (V361);
3519            base[10]= (V360);
3520            vs_top=(vs_base=base+7)+4;
3521            Lformat();
3522            vs_top=sup;
3523            goto T1391;
3524    T1391:;
3525            base[7]= symbol_value(VV[1]);
3526            base[8]= VV[99];
3527            base[9]= (V358);
3528            vs_top=(vs_base=base+7)+3;
3529            Lformat();
3530            return;}
3531            }
3532    }
3533    /*      function definition for MAKE-BREAK-POINT        */
3534    
3535    static void L51()
3536    {register object *base=vs_base;
3537            register object *sup=base+VM49; VC49
3538            vs_reserve(VM49);
3539            {object V365;
3540            object V366;
3541            object V367;
3542            check_arg(3);
3543            V365=(base[0]);
3544            V366=(base[1]);
3545            V367=(base[2]);
3546            vs_top=sup;
3547            goto TTL;
3548    TTL:;
3549            V368= aref1((V366),fixint((V367)));
3550            V369= aref1((V366),0);
3551            V370= car(/* INLINE-ARGS */V369);
3552            V371= aref1((V366),0);
3553            V372 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V371)))+(fix((V367))));
3554            base[3]= list(4,/* INLINE-ARGS */V368,/* INLINE-ARGS */V370,V372,(V365));
3555            vs_top=(vs_base=base+3)+1;
3556            return;
3557            }
3558    }
3559    /*      function definition for RELATIVE-LINE   */
3560    
3561    static void L52()
3562    {register object *base=vs_base;
3563            register object *sup=base+VM50; VC50
3564            vs_reserve(VM50);
3565            {object V373;
3566            object V374;
3567            check_arg(2);
3568            V373=(base[0]);
3569            V374=(base[1]);
3570            vs_top=sup;
3571            goto TTL;
3572    TTL:;
3573            {object V375;
3574            V375= get((V373),VV[49],Cnil);
3575            if(((V375))==Cnil){
3576            goto T1403;}
3577            V376= aref1((V375),0);
3578            base[2]= make_fixnum((long)(fix((V374)))-(fix(cdr(/* INLINE-ARGS */V376))));
3579            vs_top=(vs_base=base+2)+1;
3580            return;
3581            goto T1403;
3582    T1403:;
3583            base[2]= small_fixnum(0);
3584            vs_top=(vs_base=base+2)+1;
3585            return;}
3586            }
3587    }
3588    /*      function definition for SAFE-EVAL       */
3589    
3590    static void L53()
3591    {register object *base=vs_base;
3592            register object *sup=base+VM51; VC51
3593            vs_reserve(VM51);
3594            bds_check;
3595            {register object V377;
3596            object V378;
3597            check_arg(2);
3598            V377=(base[0]);
3599            V378=(base[1]);
3600            vs_top=sup;
3601            goto TTL;
3602    TTL:;
3603            bds_bind(VV[100],Cnil);
3604            bds_bind(VV[101],symbol_value(VV[102]));
3605            bds_bind(VV[1],symbol_value(VV[102]));
3606            if(!(type_of((V377))==t_symbol)){
3607            goto T1405;}
3608            base[5]= (V377);
3609            vs_top=(vs_base=base+5)+1;
3610            Lboundp();
3611            vs_top=sup;
3612            if((vs_base[0])!=Cnil){
3613            goto T1405;}
3614            {register object x= (V377),V379= car((V378));
3615            while(!endp(V379))
3616            if(type_of(V379->c.c_car)==t_cons &&eql(x,V379->c.c_car->c.c_car)){
3617            goto T1405;
3618            }else V379=V379->c.c_cdr;}
3619            base[5]= VV[103];
3620            vs_top=(vs_base=base+5)+1;
3621            bds_unwind1;
3622            bds_unwind1;
3623            bds_unwind1;
3624            return;
3625            goto T1405;
3626    T1405:;
3627            {object V380;
3628            object V381;
3629            V382= list(2,VV[105],(V377));
3630            base[5]= list(5,VV[104],/* INLINE-ARGS */V382,Cnil,Cnil,list(2,VV[105],(V378)));
3631            vs_top=(vs_base=base+5)+1;
3632            (void) (*Lnk168)();
3633            if(vs_base>=vs_top){vs_top=sup;goto T1415;}
3634            V380= vs_base[0];
3635            vs_base++;
3636            if(vs_base>=vs_top){vs_top=sup;goto T1416;}
3637            V381= vs_base[0];
3638            vs_top=sup;
3639            goto T1417;
3640            goto T1415;
3641    T1415:;
3642            V380= Cnil;
3643            goto T1416;
3644    T1416:;
3645            V381= Cnil;
3646            goto T1417;
3647    T1417:;
3648            if(((V380))==Cnil){
3649            goto T1419;}
3650            base[5]= VV[103];
3651            vs_top=(vs_base=base+5)+1;
3652            bds_unwind1;
3653            bds_unwind1;
3654            bds_unwind1;
3655            return;
3656            goto T1419;
3657    T1419:;
3658            base[5]= (V381);
3659            vs_top=(vs_base=base+5)+1;
3660            bds_unwind1;
3661            bds_unwind1;
3662            bds_unwind1;
3663            return;}
3664            }
3665    }
3666    /*      function definition for SET-BACK        */
3667    
3668    static void L54()
3669    {register object *base=vs_base;
3670            register object *sup=base+VM52; VC52
3671            vs_reserve(VM52);
3672            {register object V383;
3673            register object V384;
3674            check_arg(2);
3675            V383=(base[0]);
3676            V384=(base[1]);
3677            vs_top=sup;
3678            goto TTL;
3679    TTL:;
3680            {object V385;
3681            V385= symbol_value(VV[9]);
3682            setq(VV[106],Cnil);
3683            setq(VV[9],(V385));
3684            if(((V384))==Cnil){
3685            goto T1428;}
3686            setq(VV[0],(V384));
3687            goto T1426;
3688            goto T1428;
3689    T1428:;
3690            base[3]= (V385);
3691            vs_top=(vs_base=base+3)+1;
3692            (void) (*Lnk112)();
3693            vs_top=sup;
3694            base[2]= vs_base[0];
3695            vs_top=(vs_base=base+2)+1;
3696            (void) (*Lnk113)();
3697            vs_top=sup;
3698            V386= vs_base[0];
3699            (void)(make_cons(V386,Cnil));
3700            goto T1426;
3701    T1426:;
3702            if(((V383))==Cnil){
3703            goto T1434;}
3704            base[2]= symbol_value(VV[1]);
3705            base[3]= VV[107];
3706            base[4]= cadr((V383));
3707            base[5]= caddr((V383));
3708            vs_top=(vs_base=base+2)+4;
3709            Lformat();
3710            vs_top=sup;
3711            base[2]= symbol_value(VV[1]);
3712            base[3]= VV[108];
3713            base[4]= cadr((V383));
3714            base[5]= caddr((V383));
3715            vs_top=(vs_base=base+2)+4;
3716            Lformat();
3717            vs_top=sup;
3718            goto T1434;
3719    T1434:;
3720            {register object V387;
3721            register object V388;
3722            V387= symbol_value(VV[109]);
3723            V388= car((V387));
3724            goto T1449;
3725    T1449:;
3726            if(!(endp_prop((V387)))){
3727            goto T1450;}
3728            base[3]= Cnil;
3729            vs_top=(vs_base=base+3)+1;
3730            return;
3731            goto T1450;
3732    T1450:;
3733            {register object V389;
3734            base[3]= (V388);
3735            base[4]= (V384);
3736            vs_top=(vs_base=base+3)+2;
3737            (void) (*Lnk169)();
3738            vs_top=sup;
3739            V389= vs_base[0];
3740            if(!(((V389))==(VV[103]))){
3741            goto T1458;}
3742            goto T1454;
3743            goto T1458;
3744    T1458:;
3745            base[3]= Ct;
3746            base[4]= VV[110];
3747            base[5]= (V388);
3748            base[6]= (V389);
3749            vs_top=(vs_base=base+3)+4;
3750            Lformat();
3751            vs_top=sup;}
3752            goto T1454;
3753    T1454:;
3754            V387= cdr((V387));
3755            V388= car((V387));
3756            goto T1449;}}
3757            }
3758    }
3759    static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* SAFE-EVAL */
3760    static void LnkT168(){ call_or_link(VV[168],(void **)(void *)&Lnk168);} /* ERROR-SET */
3761    static void LnkT167(){ call_or_link(VV[167],(void **)(void *)&Lnk167);} /* APPLY-DISPLAY-FUN */
3762    static void LnkT166(){ call_or_link(VV[166],(void **)(void *)&Lnk166);} /* COMPUTING-ARGS-P */
3763    static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* VS-TOP */
3764    static void LnkT164(){ call_or_link(VV[164],(void **)(void *)&Lnk164);} /* NEXT-STACK-FRAME */
3765    static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* IHS-NOT-INTERPRETED-ENV */
3766    static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* GET-LINE-OF-FORM */
3767    static void LnkT161(){ call_or_link(VV[161],(void **)(void *)&Lnk161);} /* PRINT-STACK-FRAME */
3768    static object  LnkTLI160(){return call_proc0(VV[160],(void **)(void *)&LnkLI160);} /* SET-ENV */
3769    static void LnkT159(){ call_or_link(VV[159],(void **)(void *)&Lnk159);} /* NTH-STACK-FRAME */
3770    static void LnkT158(){ call_or_link(VV[158],(void **)(void *)&Lnk158);} /* DBL-WHAT-FRAME */
3771    static void LnkT157(){ call_or_link(VV[157],(void **)(void *)&Lnk157);} /* GET-NEXT-VISIBLE-FUN */
3772    static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* STRING-MATCH */
3773    static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* PACKAGE-SIZE */
3774    static void LnkT151(){ call_or_link(VV[151],(void **)(void *)&Lnk151);} /* RELATIVE-LINE */
3775    static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SHORT-NAME */
3776    static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* SHOW-BREAK-POINT */
3777    static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* INSERT-BREAK-POINT */
3778    static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* BREAK-FUNCTION */
3779    static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* DWIM */
3780    static void LnkT145(){ call_or_link(VV[145],(void **)(void *)&Lnk145);} /* MAYBE-BREAK */
3781    static object  LnkTLI144(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[144],(void **)(void *)&LnkLI144,first,ap);va_end(ap);return V1;} /* POSITION */
3782    static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* CURRENT-STEP-FUN */
3783    static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* INIT-BREAK-POINTS */
3784    static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* IHS-FNAME */
3785    static void LnkT140(){ call_or_link(VV[140],(void **)(void *)&Lnk140);} /* ITERATE-OVER-BKPTS */
3786    static void LnkT139(){ call_or_link(VV[139],(void **)(void *)&Lnk139);} /* MAKE-BREAK-POINT */
3787    static object  LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
3788    static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* WALK-THROUGH */
3789    static object  LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[136],(void **)(void *)&LnkLI136,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
3790    static void LnkT135(){ call_or_link(VV[135],(void **)(void *)&Lnk135);} /* INSTREAM-NAME */
3791    static void LnkT134(){ call_or_link(VV[134],(void **)(void *)&Lnk134);} /* LOAD */
3792    static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SETUP-LINEINFO */
3793    static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* CLEANUP */
3794    static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* READ-FROM-STRING */
3795    static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* COUNT */
3796    static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* GET-INSTREAM */
3797    static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* MAKE-INSTREAM */
3798    static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* STREAM-NAME */
3799    static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[124],(void **)(void *)&LnkLI124,first,ap);va_end(ap);return V1;} /* DELETE */
3800    static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLOSEDP */
3801    static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* BREAK-LEVEL */
3802    static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* SHOW-ENVIRONMENT */
3803    static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* BREAK-LOCALS */
3804    static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* BREAK-GO */
3805    static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* SEARCH */
3806    static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* COMPILED-FUNCTION-NAME */
3807    static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* IHS-FUN */
3808    static object  LnkTLI115(){return call_proc0(VV[115],(void **)(void *)&LnkLI115);} /* TYPE-ERROR */
3809    static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* IHS-TOP */
3810    static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* VS */
3811    static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* IHS-VS */
3812    static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* BREAK-PREVIOUS */
3813    
3814    #ifdef SYSTEM_SPECIAL_INIT
3815    SYSTEM_SPECIAL_INIT
3816    #endif
3817    

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