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

Diff of /gcl/lsp/gcl_describe.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:05 2003 UTC
# Line 0  Line 1 
1    
2    #include "cmpinclude.h"
3    #include "gcl_describe.h"
4    void init_gcl_describe(){do_init(VV);}
5    /*      local entry for function INSPECT-READ-LINE      */
6    
7    static object LI1()
8    
9    {        VMB1 VMS1 VMV1
10            goto TTL;
11    TTL:;
12            {register object V1;
13            base[0]= symbol_value(VV[0]);
14            vs_top=(vs_base=base+0)+1;
15            Lread_char();
16            vs_top=sup;
17            V1= vs_base[0];
18            goto T4;
19    T4:;
20            base[0]= (V1);
21            base[1]= VV[1];
22            vs_top=(vs_base=base+0)+2;
23            Lchar_eq();
24            vs_top=sup;
25            if((vs_base[0])!=Cnil){
26            goto T6;}
27            base[0]= (V1);
28            base[1]= VV[2];
29            vs_top=(vs_base=base+0)+2;
30            Lchar_eq();
31            vs_top=sup;
32            if((vs_base[0])==Cnil){
33            goto T5;}
34            goto T6;
35    T6:;
36            {object V2 = Cnil;
37            VMR1(V2)}
38            goto T5;
39    T5:;
40            base[0]= symbol_value(VV[0]);
41            vs_top=(vs_base=base+0)+1;
42            Lread_char();
43            vs_top=sup;
44            V1= vs_base[0];
45            goto T4;}
46            base[0]=base[0];
47            return Cnil;
48    }
49    /*      function definition for READ-INSPECT-COMMAND    */
50    
51    static void L2()
52    {register object *base=vs_base;
53            register object *sup=base+VM2; VC2
54            vs_reserve(VM2);
55            bds_check;
56            {object V3;
57            register object V4;
58            register object V5;
59            check_arg(3);
60            V3=(base[0]);
61            V4=(base[1]);
62            V5=(base[2]);
63            vs_top=sup;
64            goto TTL;
65    TTL:;
66            if((symbol_value(VV[3]))!=Cnil){
67            goto T19;}
68            (void)((*(LnkLI159))());
69            if(((V5))==Cnil){
70            goto T25;}
71            (void)(princ((V3),Cnil));
72            base[3]= (V4);
73            vs_top=(vs_base=base+3)+1;
74            (void) (*Lnk160)();
75            vs_top=sup;
76            goto T23;
77            goto T25;
78    T25:;
79            base[3]= Ct;
80            base[4]= (V3);
81            base[5]= (V4);
82            vs_top=(vs_base=base+3)+3;
83            Lformat();
84            vs_top=sup;
85            goto T23;
86    T23:;
87            base[3]= Cnil;
88            vs_top=(vs_base=base+3)+1;
89            return;
90            goto T19;
91    T19:;
92            goto T33;
93    T33:;
94            (void)((*(LnkLI159))());
95            if(((V5))==Cnil){
96            goto T38;}
97            (void)(princ((V3),Cnil));
98            (void)((*(LnkLI161))());
99            (void)(prin1((V4),Cnil));
100            goto T36;
101            goto T38;
102    T38:;
103            base[3]= Ct;
104            base[4]= (V3);
105            base[5]= (V4);
106            vs_top=(vs_base=base+3)+3;
107            Lformat();
108            vs_top=sup;
109            goto T36;
110    T36:;
111            base[3]= VV[4];
112            vs_top=(vs_base=base+3)+1;
113            Lwrite_char();
114            vs_top=sup;
115            vs_base=vs_top;
116            Lforce_output();
117            vs_top=sup;
118            {register object V8;
119            base[3]= symbol_value(VV[0]);
120            vs_top=(vs_base=base+3)+1;
121            Lread_char();
122            vs_top=sup;
123            V8= vs_base[0];
124            goto T52;
125    T52:;
126            base[3]= (V8);
127            base[4]= VV[4];
128            vs_top=(vs_base=base+3)+2;
129            Lchar_neq();
130            vs_top=sup;
131            if((vs_base[0])==Cnil){
132            goto T53;}
133            base[3]= VV[5];
134            vs_top=(vs_base=base+3)+1;
135            Lchar_neq();
136            vs_top=sup;
137            if((vs_base[0])==Cnil){
138            goto T53;}
139            V7= (V8);
140            goto T48;
141            goto T53;
142    T53:;
143            base[3]= symbol_value(VV[0]);
144            vs_top=(vs_base=base+3)+1;
145            Lread_char();
146            vs_top=sup;
147            V8= vs_base[0];
148            goto T52;}
149            goto T48;
150    T48:;
151            {object V6= V7;
152            if(!eql(V6,VV[1])
153            && !eql(V6,VV[2]))goto T66;
154            if(((V5))==Cnil){
155            goto T67;}
156            base[3]= (V4);
157            vs_top=(vs_base=base+3)+1;
158            (void) (*Lnk160)();
159            vs_top=sup;
160            goto T67;
161    T67:;
162            base[3]= Cnil;
163            vs_top=(vs_base=base+3)+1;
164            return;
165            goto T66;
166    T66:;
167            if(!eql(V6,VV[6])
168            && !eql(V6,VV[7]))goto T71;
169            (void)((*(LnkLI162))());
170            if(((V5))==Cnil){
171            goto T73;}
172            base[3]= (V4);
173            vs_top=(vs_base=base+3)+1;
174            (void) (*Lnk160)();
175            vs_top=sup;
176            goto T73;
177    T73:;
178            base[3]= Cnil;
179            vs_top=(vs_base=base+3)+1;
180            return;
181            goto T71;
182    T71:;
183            if(!eql(V6,VV[8])
184            && !eql(V6,VV[9]))goto T77;
185            (void)((*(LnkLI162))());
186            base[3]= Cnil;
187            vs_top=(vs_base=base+3)+1;
188            return;
189            goto T77;
190    T77:;
191            if(!eql(V6,VV[10])
192            && !eql(V6,VV[11]))goto T79;
193            (void)((*(LnkLI162))());
194            bds_bind(VV[12],Ct);
195            bds_bind(VV[13],Cnil);
196            bds_bind(VV[14],Cnil);
197            (void)(prin1((V4),Cnil));
198            princ_char(10,Cnil);
199            bds_unwind1;
200            bds_unwind1;
201            bds_unwind1;
202            goto T34;
203            goto T79;
204    T79:;
205            if(!eql(V6,VV[15])
206            && !eql(V6,VV[16]))goto T82;
207            (void)((*(LnkLI162))());
208            {frame_ptr fr;
209            fr=frs_sch_catch(VV[17]);
210            if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[17]);
211            base[3]= Cnil;
212            vs_top=(vs_base=base+3)+1;
213            unwind(fr,VV[17]);}
214            goto T82;
215    T82:;
216            if(!eql(V6,VV[18])
217            && !eql(V6,VV[19]))goto T85;
218            base[3]= Ct;
219            {object V9;
220            base[6]= symbol_value(VV[0]);
221            vs_top=(vs_base=base+6)+1;
222            (void) (*Lnk163)();
223            vs_top=sup;
224            base[5]= vs_base[0];
225            vs_top=(vs_base=base+5)+1;
226            Leval();
227            vs_top=sup;
228            V9= vs_base[0];
229            (void)((*(LnkLI162))());
230            base[4]= (V9);}
231            vs_top=(vs_base=base+3)+2;
232            return;
233            goto T85;
234    T85:;
235            if(!eql(V6,VV[20])
236            && !eql(V6,VV[21]))goto T92;
237            {register object V10;
238            register object V11;
239            base[6]= symbol_value(VV[0]);
240            vs_top=(vs_base=base+6)+1;
241            (void) (*Lnk163)();
242            vs_top=sup;
243            base[5]= vs_base[0];
244            vs_top=(vs_base=base+5)+1;
245            Leval();
246            {object *V13=vs_top;object *V12=vs_base; vs_base=V13;
247            {register object *base0=base;
248            {register object *base=V13;
249            register object *sup=vs_base+VM3;
250            base0[0]=base0[0];
251            base[0]=base[0];
252            vs_reserve(VM3);
253            vs_top=sup;
254            (void)((*(LnkLI162))());
255            }}
256            vs_base=V12;vs_top=V13;}
257            Llist();
258            vs_top=sup;
259            V10= vs_base[0];
260            V11= car((V10));
261            goto T101;
262    T101:;
263            if(!(endp_prop((V10)))){
264            goto T102;}
265            goto T34;
266            goto T102;
267    T102:;
268            base[5]= (V11);
269            base[6]= VV[22];
270            base[7]= symbol_value(VV[23]);
271            base[8]= VV[24];
272            base[9]= symbol_value(VV[25]);
273            vs_top=(vs_base=base+5)+5;
274            Lwrite();
275            vs_top=sup;
276            princ_char(10,Cnil);
277            V10= cdr((V10));
278            V11= car((V10));
279            goto T101;}
280            goto T92;
281    T92:;
282            if(!eql(V6,VV[26])
283            && !eql(V6,VV[27]))goto T118;
284            (void)((*(LnkLI162))());
285            {frame_ptr fr;
286            fr=frs_sch_catch(VV[28]);
287            if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[28]);
288            base[3]= Cnil;
289            vs_top=(vs_base=base+3)+1;
290            unwind(fr,VV[28]);}
291            goto T118;
292    T118:;
293            (void)((*(LnkLI162))());
294            princ_char(10,Cnil);
295            base[3]= Ct;
296            base[4]= VV[29];
297            vs_top=(vs_base=base+3)+2;
298            Lformat();
299            vs_top=sup;}
300            goto T34;
301    T34:;
302            goto T33;
303            }
304    }
305    /*      macro definition for INSPECT-RECURSIVELY        */
306    
307    static void L3()
308    {register object *base=vs_base;
309            register object *sup=base+VM4; VC4
310            vs_reserve(VM4);
311            check_arg(2);
312            vs_top=sup;
313            {object V14=base[0]->c.c_cdr;
314            if(endp(V14))invalid_macro_call();
315            base[2]= (V14->c.c_car);
316            V14=V14->c.c_cdr;
317            if(endp(V14))invalid_macro_call();
318            base[3]= (V14->c.c_car);
319            V14=V14->c.c_cdr;
320            if(endp(V14)){
321            base[4]= Cnil;
322            } else {
323            base[4]= (V14->c.c_car);
324            V14=V14->c.c_cdr;}
325            if(!endp(V14))invalid_macro_call();}
326            if((base[4])==Cnil){
327            goto T128;}
328            V15= list(4,VV[32],base[2],base[3],Ct);
329            base[5]= list(4,VV[30],VV[31],/* INLINE-ARGS */V15,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
330            vs_top=(vs_base=base+5)+1;
331            return;
332            goto T128;
333    T128:;
334            base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Ct),VV[37]);
335            vs_top=(vs_base=base+5)+1;
336            return;
337    }
338    /*      macro definition for INSPECT-PRINT      */
339    
340    static void L4()
341    {register object *base=vs_base;
342            register object *sup=base+VM5; VC5
343            vs_reserve(VM5);
344            check_arg(2);
345            vs_top=sup;
346            {object V16=base[0]->c.c_cdr;
347            if(endp(V16))invalid_macro_call();
348            base[2]= (V16->c.c_car);
349            V16=V16->c.c_cdr;
350            if(endp(V16))invalid_macro_call();
351            base[3]= (V16->c.c_car);
352            V16=V16->c.c_cdr;
353            if(endp(V16)){
354            base[4]= Cnil;
355            } else {
356            base[4]= (V16->c.c_car);
357            V16=V16->c.c_cdr;}
358            if(!endp(V16))invalid_macro_call();}
359            if((base[4])==Cnil){
360            goto T132;}
361            V17= list(4,VV[32],base[2],base[3],Cnil);
362            base[5]= list(4,VV[30],VV[38],/* INLINE-ARGS */V17,list(3,VV[33],VV[34],list(3,VV[35],base[4],VV[36])));
363            vs_top=(vs_base=base+5)+1;
364            return;
365            goto T132;
366    T132:;
367            base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Cnil),VV[39]);
368            vs_top=(vs_base=base+5)+1;
369            return;
370    }
371    /*      local entry for function INSPECT-INDENT */
372    
373    static object LI5()
374    
375    {        VMB6 VMS6 VMV6
376            goto TTL;
377    TTL:;
378            vs_base=vs_top;
379            Lfresh_line();
380            vs_top=sup;
381            base[0]= Ct;
382            base[1]= VV[40];
383            if(!(number_compare(symbol_value(VV[41]),small_fixnum(8))<0)){
384            goto T140;}
385            V18= symbol_value(VV[41]);
386            goto T138;
387            goto T140;
388    T140:;
389            V18= small_fixnum(8);
390            goto T138;
391    T138:;
392            base[2]= number_times(small_fixnum(4),V18);
393            vs_top=(vs_base=base+0)+3;
394            Lformat();
395            vs_top=sup;
396            {object V19 = vs_base[0];
397            VMR6(V19)}
398            base[0]=base[0];
399            return Cnil;
400    }
401    /*      local entry for function INSPECT-INDENT-1       */
402    
403    static object LI6()
404    
405    {        VMB7 VMS7 VMV7
406            goto TTL;
407    TTL:;
408            vs_base=vs_top;
409            Lfresh_line();
410            vs_top=sup;
411            base[0]= Ct;
412            base[1]= VV[42];
413            if(!(number_compare(symbol_value(VV[41]),small_fixnum(8))<0)){
414            goto T148;}
415            V20= symbol_value(VV[41]);
416            goto T146;
417            goto T148;
418    T148:;
419            V20= small_fixnum(8);
420            goto T146;
421    T146:;
422            V21= number_times(small_fixnum(4),V20);
423            base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));
424            vs_top=(vs_base=base+0)+3;
425            Lformat();
426            vs_top=sup;
427            {object V22 = vs_base[0];
428            VMR7(V22)}
429            base[0]=base[0];
430            return Cnil;
431    }
432    /*      local entry for function INSPECT-SYMBOL */
433    
434    static object LI7(V24)
435    
436    register object V24;
437    {        VMB8 VMS8 VMV8
438            goto TTL;
439    TTL:;
440            {object V25;
441            base[0]= (V24);
442            vs_top=(vs_base=base+0)+1;
443            Lsymbol_package();
444            vs_top=sup;
445            V25= vs_base[0];
446            if(((V25))!=Cnil){
447            goto T154;}
448            base[0]= Ct;
449            base[1]= VV[43];
450            base[2]= (V24);
451            vs_top=(vs_base=base+0)+3;
452            Lformat();
453            vs_top=sup;
454            goto T150;
455            goto T154;
456    T154:;
457            base[0]= VV[44];
458            vs_top=(vs_base=base+0)+1;
459            Lfind_package();
460            vs_top=sup;
461            V26= vs_base[0];
462            if(!(((V25))==(V26))){
463            goto T160;}
464            base[0]= Ct;
465            base[1]= VV[45];
466            base[2]= (V24);
467            vs_top=(vs_base=base+0)+3;
468            Lformat();
469            vs_top=sup;
470            goto T150;
471            goto T160;
472    T160:;
473            base[0]= Ct;
474            base[1]= VV[46];
475            base[2]= (V24);
476            {object V27;
477            object V28;
478            base[4]= symbol_name((V24));
479            base[5]= (V25);
480            vs_top=(vs_base=base+4)+2;
481            Lfind_symbol();
482            if(vs_base>=vs_top){vs_top=sup;goto T174;}
483            V27= vs_base[0];
484            vs_base++;
485            if(vs_base>=vs_top){vs_top=sup;goto T175;}
486            V28= vs_base[0];
487            vs_top=sup;
488            goto T176;
489            goto T174;
490    T174:;
491            V27= Cnil;
492            goto T175;
493    T175:;
494            V28= Cnil;
495            goto T176;
496    T176:;
497            base[3]= (((V28))==(VV[47])?Ct:Cnil);}
498            base[5]= (V25);
499            vs_top=(vs_base=base+5)+1;
500            Lpackage_name();
501            vs_top=sup;
502            base[4]= vs_base[0];
503            vs_top=(vs_base=base+0)+5;
504            Lformat();
505            vs_top=sup;}
506            goto T150;
507    T150:;
508            base[0]= (V24);
509            vs_top=(vs_base=base+0)+1;
510            Lboundp();
511            vs_top=sup;
512            if((vs_base[0])==Cnil){
513            goto T179;}
514            if((symbol_value(VV[3]))==Cnil){
515            goto T184;}
516            {object V29;
517            object V30;
518            base[0]= VV[48];
519            base[2]= (V24);
520            vs_top=(vs_base=base+2)+1;
521            Lsymbol_value();
522            vs_top=sup;
523            base[1]= vs_base[0];
524            base[2]= Ct;
525            vs_top=(vs_base=base+0)+3;
526            (void) (*Lnk32)();
527            if(vs_base>=vs_top){vs_top=sup;goto T191;}
528            V29= vs_base[0];
529            vs_base++;
530            if(vs_base>=vs_top){vs_top=sup;goto T192;}
531            V30= vs_base[0];
532            vs_top=sup;
533            goto T193;
534            goto T191;
535    T191:;
536            V29= Cnil;
537            goto T192;
538    T192:;
539            V30= Cnil;
540            goto T193;
541    T193:;
542            if(((V29))==Cnil){
543            goto T179;}
544            base[0]= (V24);
545            base[1]= (V30);
546            vs_top=(vs_base=base+0)+2;
547            Lset();
548            vs_top=sup;
549            goto T179;}
550            goto T184;
551    T184:;
552            {object V31;
553            object V32;
554            base[0]= VV[49];
555            base[2]= (V24);
556            vs_top=(vs_base=base+2)+1;
557            Lsymbol_value();
558            vs_top=sup;
559            base[1]= vs_base[0];
560            base[2]= Cnil;
561            vs_top=(vs_base=base+0)+3;
562            (void) (*Lnk32)();
563            if(vs_base>=vs_top){vs_top=sup;goto T203;}
564            V31= vs_base[0];
565            vs_base++;
566            if(vs_base>=vs_top){vs_top=sup;goto T204;}
567            V32= vs_base[0];
568            vs_top=sup;
569            goto T205;
570            goto T203;
571    T203:;
572            V31= Cnil;
573            goto T204;
574    T204:;
575            V32= Cnil;
576            goto T205;
577    T205:;
578            if(((V31))==Cnil){
579            goto T179;}
580            base[0]= (V24);
581            base[1]= (V32);
582            vs_top=(vs_base=base+0)+2;
583            Lset();
584            vs_top=sup;}
585            goto T179;
586    T179:;
587            {register object V33;
588            base[0]= (V24);
589            vs_top=(vs_base=base+0)+1;
590            Lsymbol_plist();
591            vs_top=sup;
592            V33= vs_base[0];
593            goto T214;
594    T214:;
595            if(!(endp_prop((V33)))){
596            goto T215;}
597            goto T210;
598            goto T215;
599    T215:;
600            if(!(type_of(car((V33)))==t_symbol)){
601            goto T220;}
602            base[0]= car((V33));
603            vs_top=(vs_base=base+0)+1;
604            Lsymbol_package();
605            vs_top=sup;
606            V34= vs_base[0];
607            base[0]= VV[50];
608            vs_top=(vs_base=base+0)+1;
609            Lfind_package();
610            vs_top=sup;
611            V35= vs_base[0];
612            if((V34)==(V35)){
613            goto T219;}
614            base[0]= car((V33));
615            vs_top=(vs_base=base+0)+1;
616            Lsymbol_package();
617            vs_top=sup;
618            V36= vs_base[0];
619            base[0]= VV[51];
620            vs_top=(vs_base=base+0)+1;
621            Lfind_package();
622            vs_top=sup;
623            V37= vs_base[0];
624            if((V36)==(V37)){
625            goto T219;}
626            goto T220;
627    T220:;
628            if((symbol_value(VV[3]))==Cnil){
629            goto T235;}
630            {register object V38;
631            register object V39;
632            base[1]= Cnil;
633            base[2]= VV[52];
634            base[3]= car((V33));
635            vs_top=(vs_base=base+1)+3;
636            Lformat();
637            vs_top=sup;
638            base[0]= vs_base[0];
639            base[1]= cadr((V33));
640            base[2]= Ct;
641            vs_top=(vs_base=base+0)+3;
642            (void) (*Lnk32)();
643            if(vs_base>=vs_top){vs_top=sup;goto T244;}
644            V38= vs_base[0];
645            vs_base++;
646            if(vs_base>=vs_top){vs_top=sup;goto T245;}
647            V39= vs_base[0];
648            vs_top=sup;
649            goto T246;
650            goto T244;
651    T244:;
652            V38= Cnil;
653            goto T245;
654    T245:;
655            V39= Cnil;
656            goto T246;
657    T246:;
658            if(((V38))==Cnil){
659            goto T219;}
660            (void)(sputprop((V24),car((V33)),(V39)));
661            goto T219;}
662            goto T235;
663    T235:;
664            {register object V40;
665            register object V41;
666            base[1]= Cnil;
667            base[2]= VV[53];
668            base[3]= car((V33));
669            vs_top=(vs_base=base+1)+3;
670            Lformat();
671            vs_top=sup;
672            base[0]= vs_base[0];
673            base[1]= cadr((V33));
674            base[2]= Cnil;
675            vs_top=(vs_base=base+0)+3;
676            (void) (*Lnk32)();
677            if(vs_base>=vs_top){vs_top=sup;goto T256;}
678            V40= vs_base[0];
679            vs_base++;
680            if(vs_base>=vs_top){vs_top=sup;goto T257;}
681            V41= vs_base[0];
682            vs_top=sup;
683            goto T258;
684            goto T256;
685    T256:;
686            V40= Cnil;
687            goto T257;
688    T257:;
689            V41= Cnil;
690            goto T258;
691    T258:;
692            if(((V40))==Cnil){
693            goto T219;}
694            (void)(sputprop((V24),car((V33)),(V41)));}
695            goto T219;
696    T219:;
697            V33= cddr((V33));
698            goto T214;}
699            goto T210;
700    T210:;
701            base[0]= (V24);
702            base[1]= Ct;
703            vs_top=(vs_base=base+0)+2;
704            (void) (*Lnk164)();
705            vs_top=sup;
706            if((vs_base[0])==Cnil){
707            goto T265;}
708            base[0]= Ct;
709            base[1]= VV[54];
710            vs_top=(vs_base=base+0)+2;
711            Lformat();
712            vs_top=sup;
713            {object V42 = vs_base[0];
714            VMR8(V42)}
715            goto T265;
716    T265:;
717            {object V43 = Cnil;
718            VMR8(V43)}
719            base[0]=base[0];
720            return Cnil;
721    }
722    /*      local entry for function INSPECT-PACKAGE        */
723    
724    static object LI8(V45)
725    
726    register object V45;
727    {        VMB9 VMS9 VMV9
728            goto TTL;
729    TTL:;
730            base[0]= Ct;
731            base[1]= VV[55];
732            base[2]= (V45);
733            vs_top=(vs_base=base+0)+3;
734            Lformat();
735            vs_top=sup;
736            base[0]= (V45);
737            vs_top=(vs_base=base+0)+1;
738            Lpackage_nicknames();
739            vs_top=sup;
740            if((vs_base[0])==Cnil){
741            goto T275;}
742            base[0]= VV[56];
743            base[2]= (V45);
744            vs_top=(vs_base=base+2)+1;
745            Lpackage_nicknames();
746            vs_top=sup;
747            base[1]= vs_base[0];
748            base[2]= Cnil;
749            vs_top=(vs_base=base+0)+3;
750            (void) (*Lnk32)();
751            vs_top=sup;
752            if((vs_base[0])==Cnil){
753            goto T275;}
754            princ_str("Not updated.",Cnil);
755            princ_char(10,Cnil);
756            goto T275;
757    T275:;
758            base[0]= (V45);
759            vs_top=(vs_base=base+0)+1;
760            Lpackage_use_list();
761            vs_top=sup;
762            if((vs_base[0])==Cnil){
763            goto T286;}
764            base[0]= VV[57];
765            base[2]= (V45);
766            vs_top=(vs_base=base+2)+1;
767            Lpackage_use_list();
768            vs_top=sup;
769            base[1]= vs_base[0];
770            base[2]= Cnil;
771            vs_top=(vs_base=base+0)+3;
772            (void) (*Lnk32)();
773            vs_top=sup;
774            if((vs_base[0])==Cnil){
775            goto T286;}
776            princ_str("Not updated.",Cnil);
777            princ_char(10,Cnil);
778            goto T286;
779    T286:;
780            base[0]= (V45);
781            vs_top=(vs_base=base+0)+1;
782            Lpackage_used_by_list();
783            vs_top=sup;
784            if((vs_base[0])==Cnil){
785            goto T297;}
786            base[0]= VV[58];
787            base[2]= (V45);
788            vs_top=(vs_base=base+2)+1;
789            Lpackage_used_by_list();
790            vs_top=sup;
791            base[1]= vs_base[0];
792            base[2]= Cnil;
793            vs_top=(vs_base=base+0)+3;
794            (void) (*Lnk32)();
795            vs_top=sup;
796            if((vs_base[0])==Cnil){
797            goto T297;}
798            princ_str("Not updated.",Cnil);
799            princ_char(10,Cnil);
800            goto T297;
801    T297:;
802            base[0]= (V45);
803            vs_top=(vs_base=base+0)+1;
804            (void) (*Lnk165)();
805            vs_top=sup;
806            if((vs_base[0])==Cnil){
807            goto T309;}
808            base[0]= VV[59];
809            base[2]= (V45);
810            vs_top=(vs_base=base+2)+1;
811            (void) (*Lnk165)();
812            vs_top=sup;
813            base[1]= vs_base[0];
814            base[2]= Cnil;
815            vs_top=(vs_base=base+0)+3;
816            (void) (*Lnk32)();
817            vs_top=sup;
818            if((vs_base[0])==Cnil){
819            goto T313;}
820            princ_str("Not updated.",Cnil);
821            {object V46 = terpri(Cnil);
822            VMR9(V46)}
823            goto T313;
824    T313:;
825            {object V47 = Cnil;
826            VMR9(V47)}
827            goto T309;
828    T309:;
829            {object V48 = Cnil;
830            VMR9(V48)}
831            base[0]=base[0];
832            return Cnil;
833    }
834    /*      local entry for function INSPECT-CHARACTER      */
835    
836    static object LI9(V50)
837    
838    register object V50;
839    {        VMB10 VMS10 VMV10
840            goto TTL;
841    TTL:;
842            base[0]= Ct;
843            base[2]= (V50);
844            vs_top=(vs_base=base+2)+1;
845            Lstandard_char_p();
846            vs_top=sup;
847            if((vs_base[0])==Cnil){
848            goto T324;}
849            base[1]= VV[60];
850            goto T322;
851            goto T324;
852    T324:;
853            base[2]= (V50);
854            vs_top=(vs_base=base+2)+1;
855            Lstring_char_p();
856            vs_top=sup;
857            if((vs_base[0])==Cnil){
858            goto T328;}
859            base[1]= VV[61];
860            goto T322;
861            goto T328;
862    T328:;
863            base[1]= VV[62];
864            goto T322;
865    T322:;
866            base[2]= (V50);
867            vs_top=(vs_base=base+0)+3;
868            Lformat();
869            vs_top=sup;
870            base[0]= VV[63];
871            base[2]= (V50);
872            vs_top=(vs_base=base+2)+1;
873            Lchar_code();
874            vs_top=sup;
875            base[1]= vs_base[0];
876            base[2]= Cnil;
877            vs_top=(vs_base=base+0)+3;
878            (void) (*Lnk32)();
879            vs_top=sup;
880            if((vs_base[0])==Cnil){
881            goto T332;}
882            princ_str("Not updated.",Cnil);
883            princ_char(10,Cnil);
884            goto T332;
885    T332:;
886            base[0]= VV[64];
887            base[2]= (V50);
888            vs_top=(vs_base=base+2)+1;
889            Lchar_bits();
890            vs_top=sup;
891            base[1]= vs_base[0];
892            base[2]= Cnil;
893            vs_top=(vs_base=base+0)+3;
894            (void) (*Lnk32)();
895            vs_top=sup;
896            if((vs_base[0])==Cnil){
897            goto T340;}
898            princ_str("Not updated.",Cnil);
899            princ_char(10,Cnil);
900            goto T340;
901    T340:;
902            base[0]= VV[65];
903            base[2]= (V50);
904            vs_top=(vs_base=base+2)+1;
905            Lchar_font();
906            vs_top=sup;
907            base[1]= vs_base[0];
908            base[2]= Cnil;
909            vs_top=(vs_base=base+0)+3;
910            (void) (*Lnk32)();
911            vs_top=sup;
912            if((vs_base[0])==Cnil){
913            goto T349;}
914            princ_str("Not updated.",Cnil);
915            {object V51 = terpri(Cnil);
916            VMR10(V51)}
917            goto T349;
918    T349:;
919            {object V52 = Cnil;
920            VMR10(V52)}
921            base[0]=base[0];
922            return Cnil;
923    }
924    /*      local entry for function INSPECT-NUMBER */
925    
926    static object LI10(V54)
927    
928    register object V54;
929    {        VMB11 VMS11 VMV11
930            goto TTL;
931    TTL:;
932            base[0]= (V54);
933            vs_top=(vs_base=base+0)+1;
934            Ltype_of();
935            vs_top=sup;
936            V56= vs_base[0];
937            {object V55= V56;
938            if((V55!= VV[166]))goto T358;
939            base[0]= Ct;
940            base[1]= VV[66];
941            base[2]= (V54);
942            vs_top=(vs_base=base+0)+3;
943            Lformat();
944            vs_top=sup;
945            {object V57 = vs_base[0];
946            VMR11(V57)}
947            goto T358;
948    T358:;
949            if((V55!= VV[167]))goto T362;
950            base[0]= Ct;
951            base[1]= VV[67];
952            base[2]= (V54);
953            vs_top=(vs_base=base+0)+3;
954            Lformat();
955            vs_top=sup;
956            {object V58 = vs_base[0];
957            VMR11(V58)}
958            goto T362;
959    T362:;
960            if((V55!= VV[168]))goto T366;
961            base[0]= Ct;
962            base[1]= VV[68];
963            base[2]= (V54);
964            vs_top=(vs_base=base+0)+3;
965            Lformat();
966            vs_top=sup;
967            base[0]= VV[69];
968            base[2]= (V54);
969            vs_top=(vs_base=base+2)+1;
970            Lnumerator();
971            vs_top=sup;
972            base[1]= vs_base[0];
973            base[2]= Ct;
974            vs_top=(vs_base=base+0)+3;
975            (void) (*Lnk32)();
976            vs_top=sup;
977            if((vs_base[0])==Cnil){
978            goto T371;}
979            princ_str("Not updated.",Cnil);
980            princ_char(10,Cnil);
981            goto T371;
982    T371:;
983            base[0]= VV[70];
984            base[2]= (V54);
985            vs_top=(vs_base=base+2)+1;
986            Ldenominator();
987            vs_top=sup;
988            base[1]= vs_base[0];
989            base[2]= Ct;
990            vs_top=(vs_base=base+0)+3;
991            (void) (*Lnk32)();
992            vs_top=sup;
993            if((vs_base[0])==Cnil){
994            goto T380;}
995            princ_str("Not updated.",Cnil);
996            {object V59 = terpri(Cnil);
997            VMR11(V59)}
998            goto T380;
999    T380:;
1000            {object V60 = Cnil;
1001            VMR11(V60)}
1002            goto T366;
1003    T366:;
1004            if((V55!= VV[169]))goto T387;
1005            base[0]= Ct;
1006            base[1]= VV[71];
1007            base[2]= (V54);
1008            vs_top=(vs_base=base+0)+3;
1009            Lformat();
1010            vs_top=sup;
1011            base[0]= VV[72];
1012            base[2]= (V54);
1013            vs_top=(vs_base=base+2)+1;
1014            Lrealpart();
1015            vs_top=sup;
1016            base[1]= vs_base[0];
1017            base[2]= Ct;
1018            vs_top=(vs_base=base+0)+3;
1019            (void) (*Lnk32)();
1020            vs_top=sup;
1021            if((vs_base[0])==Cnil){
1022            goto T392;}
1023            princ_str("Not updated.",Cnil);
1024            princ_char(10,Cnil);
1025            goto T392;
1026    T392:;
1027            base[0]= VV[73];
1028            base[2]= (V54);
1029            vs_top=(vs_base=base+2)+1;
1030            Limagpart();
1031            vs_top=sup;
1032            base[1]= vs_base[0];
1033            base[2]= Ct;
1034            vs_top=(vs_base=base+0)+3;
1035            (void) (*Lnk32)();
1036            vs_top=sup;
1037            if((vs_base[0])==Cnil){
1038            goto T401;}
1039            princ_str("Not updated.",Cnil);
1040            {object V61 = terpri(Cnil);
1041            VMR11(V61)}
1042            goto T401;
1043    T401:;
1044            {object V62 = Cnil;
1045            VMR11(V62)}
1046            goto T387;
1047    T387:;
1048            if((V55!= VV[170])
1049            && (V55!= VV[171]))goto T408;
1050            base[0]= Ct;
1051            base[1]= VV[74];
1052            base[2]= (V54);
1053            vs_top=(vs_base=base+0)+3;
1054            Lformat();
1055            vs_top=sup;
1056            {object V63;
1057            object V64;
1058            object V65;
1059            base[0]= (V54);
1060            vs_top=(vs_base=base+0)+1;
1061            Linteger_decode_float();
1062            if(vs_base>=vs_top){vs_top=sup;goto T415;}
1063            V63= vs_base[0];
1064            vs_base++;
1065            if(vs_base>=vs_top){vs_top=sup;goto T416;}
1066            V64= vs_base[0];
1067            vs_base++;
1068            if(vs_base>=vs_top){vs_top=sup;goto T417;}
1069            V65= vs_base[0];
1070            vs_top=sup;
1071            goto T418;
1072            goto T415;
1073    T415:;
1074            V63= Cnil;
1075            goto T416;
1076    T416:;
1077            V64= Cnil;
1078            goto T417;
1079    T417:;
1080            V65= Cnil;
1081            goto T418;
1082    T418:;
1083            base[0]= VV[75];
1084            base[1]= (V64);
1085            base[2]= Cnil;
1086            vs_top=(vs_base=base+0)+3;
1087            (void) (*Lnk32)();
1088            vs_top=sup;
1089            if((vs_base[0])==Cnil){
1090            goto T419;}
1091            princ_str("Not updated.",Cnil);
1092            princ_char(10,Cnil);
1093            goto T419;
1094    T419:;
1095            base[0]= VV[76];
1096            base[1]= (V63);
1097            base[2]= Cnil;
1098            vs_top=(vs_base=base+0)+3;
1099            (void) (*Lnk32)();
1100            vs_top=sup;
1101            if((vs_base[0])==Cnil){
1102            goto T427;}
1103            princ_str("Not updated.",Cnil);
1104            {object V66 = terpri(Cnil);
1105            VMR11(V66)}
1106            goto T427;
1107    T427:;
1108            {object V67 = Cnil;
1109            VMR11(V67)}}
1110            goto T408;
1111    T408:;
1112            if((V55!= VV[172])
1113            && (V55!= VV[173]))goto T433;
1114            base[0]= Ct;
1115            base[1]= VV[77];
1116            base[2]= (V54);
1117            vs_top=(vs_base=base+0)+3;
1118            Lformat();
1119            vs_top=sup;
1120            {object V68;
1121            object V69;
1122            object V70;
1123            base[0]= (V54);
1124            vs_top=(vs_base=base+0)+1;
1125            Linteger_decode_float();
1126            if(vs_base>=vs_top){vs_top=sup;goto T440;}
1127            V68= vs_base[0];
1128            vs_base++;
1129            if(vs_base>=vs_top){vs_top=sup;goto T441;}
1130            V69= vs_base[0];
1131            vs_base++;
1132            if(vs_base>=vs_top){vs_top=sup;goto T442;}
1133            V70= vs_base[0];
1134            vs_top=sup;
1135            goto T443;
1136            goto T440;
1137    T440:;
1138            V68= Cnil;
1139            goto T441;
1140    T441:;
1141            V69= Cnil;
1142            goto T442;
1143    T442:;
1144            V70= Cnil;
1145            goto T443;
1146    T443:;
1147            base[0]= VV[78];
1148            base[1]= (V69);
1149            base[2]= Cnil;
1150            vs_top=(vs_base=base+0)+3;
1151            (void) (*Lnk32)();
1152            vs_top=sup;
1153            if((vs_base[0])==Cnil){
1154            goto T444;}
1155            princ_str("Not updated.",Cnil);
1156            princ_char(10,Cnil);
1157            goto T444;
1158    T444:;
1159            base[0]= VV[79];
1160            base[1]= (V68);
1161            base[2]= Cnil;
1162            vs_top=(vs_base=base+0)+3;
1163            (void) (*Lnk32)();
1164            vs_top=sup;
1165            if((vs_base[0])==Cnil){
1166            goto T452;}
1167            princ_str("Not updated.",Cnil);
1168            {object V71 = terpri(Cnil);
1169            VMR11(V71)}
1170            goto T452;
1171    T452:;
1172            {object V72 = Cnil;
1173            VMR11(V72)}}
1174            goto T433;
1175    T433:;
1176            {object V73 = Cnil;
1177            VMR11(V73)}}
1178            base[0]=base[0];
1179            return Cnil;
1180    }
1181    /*      local entry for function INSPECT-CONS   */
1182    
1183    static object LI11(V75)
1184    
1185    register object V75;
1186    {        VMB12 VMS12 VMV12
1187            goto TTL;
1188    TTL:;
1189            base[0]= Ct;
1190            {object V76= car((V75));
1191            if((V76!= VV[174])
1192            && (V76!= VV[175])
1193            && (V76!= VV[176])
1194            && (V76!= VV[177]))goto T461;
1195            base[1]= VV[80];
1196            goto T460;
1197            goto T461;
1198    T461:;
1199            if((V76!= VV[178]))goto T462;
1200            base[1]= VV[81];
1201            goto T460;
1202            goto T462;
1203    T462:;
1204            base[1]= VV[82];}
1205            goto T460;
1206    T460:;
1207            base[2]= (V75);
1208            vs_top=(vs_base=base+0)+3;
1209            Lformat();
1210            vs_top=sup;
1211            if((symbol_value(VV[3]))==Cnil){
1212            goto T465;}
1213            {register object V77;
1214            register object V78;
1215            V77= small_fixnum(0);
1216            V78= (V75);
1217            goto T468;
1218    T468:;
1219            if(!(type_of((V78))!=t_cons)){
1220            goto T469;}
1221            {register object V79;
1222            register object V80;
1223            base[1]= Cnil;
1224            base[2]= VV[83];
1225            base[3]= (V77);
1226            vs_top=(vs_base=base+1)+3;
1227            Lformat();
1228            vs_top=sup;
1229            base[0]= vs_base[0];
1230            base[1]= (V78);
1231            base[2]= Ct;
1232            vs_top=(vs_base=base+0)+3;
1233            (void) (*Lnk32)();
1234            if(vs_base>=vs_top){vs_top=sup;goto T479;}
1235            V79= vs_base[0];
1236            vs_base++;
1237            if(vs_base>=vs_top){vs_top=sup;goto T480;}
1238            V80= vs_base[0];
1239            vs_top=sup;
1240            goto T481;
1241            goto T479;
1242    T479:;
1243            V79= Cnil;
1244            goto T480;
1245    T480:;
1246            V80= Cnil;
1247            goto T481;
1248    T481:;
1249            if(((V79))==Cnil){
1250            goto T483;}
1251            {register object V81;
1252            register object V82;
1253            V83= one_minus((V77));
1254            V81= nthcdr(fixint(/* INLINE-ARGS */V83),(V75));
1255            V82= (V80);
1256            if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));
1257            ((V81))->c.c_cdr = (V82);
1258            {object V84 = (V82);
1259            VMR12(V84)}}
1260            goto T483;
1261    T483:;
1262            {object V85 = Cnil;
1263            VMR12(V85)}}
1264            goto T469;
1265    T469:;
1266            {register object V86;
1267            register object V87;
1268            base[1]= Cnil;
1269            base[2]= VV[84];
1270            base[3]= (V77);
1271            vs_top=(vs_base=base+1)+3;
1272            Lformat();
1273            vs_top=sup;
1274            base[0]= vs_base[0];
1275            base[1]= car((V78));
1276            base[2]= Ct;
1277            vs_top=(vs_base=base+0)+3;
1278            (void) (*Lnk32)();
1279            if(vs_base>=vs_top){vs_top=sup;goto T497;}
1280            V86= vs_base[0];
1281            vs_base++;
1282            if(vs_base>=vs_top){vs_top=sup;goto T498;}
1283            V87= vs_base[0];
1284            vs_top=sup;
1285            goto T499;
1286            goto T497;
1287    T497:;
1288            V86= Cnil;
1289            goto T498;
1290    T498:;
1291            V87= Cnil;
1292            goto T499;
1293    T499:;
1294            if(((V86))==Cnil){
1295            goto T489;}
1296            {register object V88;
1297            register object V89;
1298            register object V90;
1299            V88= (V77);
1300            V89= (V75);
1301            V90= (V87);
1302            if(type_of(nthcdr(fixint((V88)),(V89)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V88)),(V89)));
1303            (nthcdr(fixint((V88)),(V89)))->c.c_car = (V90);
1304            (void)(nthcdr(fixint((V88)),(V89)));}}
1305            goto T489;
1306    T489:;
1307            V77= one_plus((V77));
1308            V78= cdr((V78));
1309            goto T468;}
1310            goto T465;
1311    T465:;
1312            {object V91 = Cnil;
1313            VMR12(V91)}
1314            base[0]=base[0];
1315            return Cnil;
1316    }
1317    /*      local entry for function INSPECT-STRING */
1318    
1319    static object LI12(V93)
1320    
1321    register object V93;
1322    {        VMB13 VMS13 VMV13
1323            goto TTL;
1324    TTL:;
1325            base[0]= Ct;
1326            base[2]= (V93);
1327            vs_top=(vs_base=base+2)+1;
1328            Lsimple_string_p();
1329            vs_top=sup;
1330            if((vs_base[0])==Cnil){
1331            goto T514;}
1332            base[1]= VV[85];
1333            goto T512;
1334            goto T514;
1335    T514:;
1336            base[1]= VV[86];
1337            goto T512;
1338    T512:;
1339            base[2]= (V93);
1340            vs_top=(vs_base=base+0)+3;
1341            Lformat();
1342            vs_top=sup;
1343            base[0]= VV[87];
1344            base[2]= (V93);
1345            base[3]= small_fixnum(0);
1346            vs_top=(vs_base=base+2)+2;
1347            Larray_dimension();
1348            vs_top=sup;
1349            base[1]= vs_base[0];
1350            base[2]= Cnil;
1351            vs_top=(vs_base=base+0)+3;
1352            (void) (*Lnk32)();
1353            vs_top=sup;
1354            if((vs_base[0])==Cnil){
1355            goto T518;}
1356            princ_str("Not updated.",Cnil);
1357            princ_char(10,Cnil);
1358            goto T518;
1359    T518:;
1360            base[0]= (V93);
1361            vs_top=(vs_base=base+0)+1;
1362            (void) (*Lnk179)();
1363            vs_top=sup;
1364            if((vs_base[0])==Cnil){
1365            goto T527;}
1366            {object V94;
1367            object V95;
1368            base[0]= VV[88];
1369            base[2]= (V93);
1370            vs_top=(vs_base=base+2)+1;
1371            Lfill_pointer();
1372            vs_top=sup;
1373            base[1]= vs_base[0];
1374            base[2]= Cnil;
1375            vs_top=(vs_base=base+0)+3;
1376            (void) (*Lnk32)();
1377            if(vs_base>=vs_top){vs_top=sup;goto T536;}
1378            V94= vs_base[0];
1379            vs_base++;
1380            if(vs_base>=vs_top){vs_top=sup;goto T537;}
1381            V95= vs_base[0];
1382            vs_top=sup;
1383            goto T538;
1384            goto T536;
1385    T536:;
1386            V94= Cnil;
1387            goto T537;
1388    T537:;
1389            V95= Cnil;
1390            goto T538;
1391    T538:;
1392            if(((V94))==Cnil){
1393            goto T527;}
1394            base[0]= (V93);
1395            base[1]= (V95);
1396            vs_top=(vs_base=base+0)+2;
1397            siLfill_pointer_set();
1398            vs_top=sup;}
1399            goto T527;
1400    T527:;
1401            if((symbol_value(VV[3]))==Cnil){
1402            goto T544;}
1403            {register object V96;
1404            register object V97;
1405            base[1]= (V93);
1406            base[2]= small_fixnum(0);
1407            vs_top=(vs_base=base+1)+2;
1408            Larray_dimension();
1409            vs_top=sup;
1410            V96= vs_base[0];
1411            V97= small_fixnum(0);
1412            goto T551;
1413    T551:;
1414            if(!(number_compare((V97),(V96))>=0)){
1415            goto T552;}
1416            {object V98 = Cnil;
1417            VMR13(V98)}
1418            goto T552;
1419    T552:;
1420            {register object V99;
1421            register object V100;
1422            base[2]= Cnil;
1423            base[3]= VV[89];
1424            base[4]= (V97);
1425            vs_top=(vs_base=base+2)+3;
1426            Lformat();
1427            vs_top=sup;
1428            base[1]= vs_base[0];
1429            base[2]= elt((V93),fixint((V97)));
1430            base[3]= Ct;
1431            vs_top=(vs_base=base+1)+3;
1432            (void) (*Lnk32)();
1433            if(vs_base>=vs_top){vs_top=sup;goto T564;}
1434            V99= vs_base[0];
1435            vs_base++;
1436            if(vs_base>=vs_top){vs_top=sup;goto T565;}
1437            V100= vs_base[0];
1438            vs_top=sup;
1439            goto T566;
1440            goto T564;
1441    T564:;
1442            V99= Cnil;
1443            goto T565;
1444    T565:;
1445            V100= Cnil;
1446            goto T566;
1447    T566:;
1448            if(((V99))==Cnil){
1449            goto T556;}
1450            (void)(elt_set((V93),fixint((V97)),(V100)));}
1451            goto T556;
1452    T556:;
1453            V97= one_plus((V97));
1454            goto T551;}
1455            goto T544;
1456    T544:;
1457            {object V101 = Cnil;
1458            VMR13(V101)}
1459            base[0]=base[0];
1460            return Cnil;
1461    }
1462    /*      local entry for function INSPECT-VECTOR */
1463    
1464    static object LI13(V103)
1465    
1466    register object V103;
1467    {        VMB14 VMS14 VMV14
1468            goto TTL;
1469    TTL:;
1470            base[0]= Ct;
1471            base[2]= (V103);
1472            vs_top=(vs_base=base+2)+1;
1473            Lsimple_vector_p();
1474            vs_top=sup;
1475            if((vs_base[0])==Cnil){
1476            goto T576;}
1477            base[1]= VV[90];
1478            goto T574;
1479            goto T576;
1480    T576:;
1481            base[1]= VV[91];
1482            goto T574;
1483    T574:;
1484            base[2]= (V103);
1485            vs_top=(vs_base=base+0)+3;
1486            Lformat();
1487            vs_top=sup;
1488            base[0]= VV[92];
1489            base[2]= (V103);
1490            base[3]= small_fixnum(0);
1491            vs_top=(vs_base=base+2)+2;
1492            Larray_dimension();
1493            vs_top=sup;
1494            base[1]= vs_base[0];
1495            base[2]= Cnil;
1496            vs_top=(vs_base=base+0)+3;
1497            (void) (*Lnk32)();
1498            vs_top=sup;
1499            if((vs_base[0])==Cnil){
1500            goto T580;}
1501            princ_str("Not updated.",Cnil);
1502            princ_char(10,Cnil);
1503            goto T580;
1504    T580:;
1505            base[0]= (V103);
1506            vs_top=(vs_base=base+0)+1;
1507            (void) (*Lnk179)();
1508            vs_top=sup;
1509            if((vs_base[0])==Cnil){
1510            goto T589;}
1511            {object V104;
1512            object V105;
1513            base[0]= VV[93];
1514            base[2]= (V103);
1515            vs_top=(vs_base=base+2)+1;
1516            Lfill_pointer();
1517            vs_top=sup;
1518            base[1]= vs_base[0];
1519            base[2]= Cnil;
1520            vs_top=(vs_base=base+0)+3;
1521            (void) (*Lnk32)();
1522            if(vs_base>=vs_top){vs_top=sup;goto T598;}
1523            V104= vs_base[0];
1524            vs_base++;
1525            if(vs_base>=vs_top){vs_top=sup;goto T599;}
1526            V105= vs_base[0];
1527            vs_top=sup;
1528            goto T600;
1529            goto T598;
1530    T598:;
1531            V104= Cnil;
1532            goto T599;
1533    T599:;
1534            V105= Cnil;
1535            goto T600;
1536    T600:;
1537            if(((V104))==Cnil){
1538            goto T589;}
1539            base[0]= (V103);
1540            base[1]= (V105);
1541            vs_top=(vs_base=base+0)+2;
1542            siLfill_pointer_set();
1543            vs_top=sup;}
1544            goto T589;
1545    T589:;
1546            if((symbol_value(VV[3]))==Cnil){
1547            goto T606;}
1548            {register object V106;
1549            register object V107;
1550            base[1]= (V103);
1551            base[2]= small_fixnum(0);
1552            vs_top=(vs_base=base+1)+2;
1553            Larray_dimension();
1554            vs_top=sup;
1555            V106= vs_base[0];
1556            V107= small_fixnum(0);
1557            goto T613;
1558    T613:;
1559            if(!(number_compare((V107),(V106))>=0)){
1560            goto T614;}
1561            {object V108 = Cnil;
1562            VMR14(V108)}
1563            goto T614;
1564    T614:;
1565            {register object V109;
1566            register object V110;
1567            base[2]= Cnil;
1568            base[3]= VV[94];
1569            base[4]= (V107);
1570            vs_top=(vs_base=base+2)+3;
1571            Lformat();
1572            vs_top=sup;
1573            base[1]= vs_base[0];
1574            base[2]= aref1((V103),fixint((V107)));
1575            base[3]= Ct;
1576            vs_top=(vs_base=base+1)+3;
1577            (void) (*Lnk32)();
1578            if(vs_base>=vs_top){vs_top=sup;goto T626;}
1579            V109= vs_base[0];
1580            vs_base++;
1581            if(vs_base>=vs_top){vs_top=sup;goto T627;}
1582            V110= vs_base[0];
1583            vs_top=sup;
1584            goto T628;
1585            goto T626;
1586    T626:;
1587            V109= Cnil;
1588            goto T627;
1589    T627:;
1590            V110= Cnil;
1591            goto T628;
1592    T628:;
1593            if(((V109))==Cnil){
1594            goto T618;}
1595            (void)(aset1((V103),fixint((V107)),(V110)));}
1596            goto T618;
1597    T618:;
1598            V107= one_plus((V107));
1599            goto T613;}
1600            goto T606;
1601    T606:;
1602            {object V111 = Cnil;
1603            VMR14(V111)}
1604            base[0]=base[0];
1605            return Cnil;
1606    }
1607    /*      local entry for function INSPECT-ARRAY  */
1608    
1609    static object LI14(V113)
1610    
1611    register object V113;
1612    {        VMB15 VMS15 VMV15
1613            goto TTL;
1614    TTL:;
1615            base[0]= Ct;
1616            base[2]= (V113);
1617            vs_top=(vs_base=base+2)+1;
1618            Ladjustable_array_p();
1619            vs_top=sup;
1620            if((vs_base[0])==Cnil){
1621            goto T638;}
1622            base[1]= VV[95];
1623            goto T636;
1624            goto T638;
1625    T638:;
1626            base[1]= VV[96];
1627            goto T636;
1628    T636:;
1629            base[2]= (V113);
1630            vs_top=(vs_base=base+0)+3;
1631            Lformat();
1632            vs_top=sup;
1633            base[0]= VV[97];
1634            base[2]= (V113);
1635            vs_top=(vs_base=base+2)+1;
1636            Larray_rank();
1637            vs_top=sup;
1638            base[1]= vs_base[0];
1639            base[2]= Cnil;
1640            vs_top=(vs_base=base+0)+3;
1641            (void) (*Lnk32)();
1642            vs_top=sup;
1643            if((vs_base[0])==Cnil){
1644            goto T642;}
1645            princ_str("Not updated.",Cnil);
1646            princ_char(10,Cnil);
1647            goto T642;
1648    T642:;
1649            base[0]= VV[98];
1650            base[1]= (*(LnkLI180))((V113));
1651            base[2]= Cnil;
1652            vs_top=(vs_base=base+0)+3;
1653            (void) (*Lnk32)();
1654            vs_top=sup;
1655            if((vs_base[0])==Cnil){
1656            goto T650;}
1657            princ_str("Not updated.",Cnil);
1658            princ_char(10,Cnil);
1659            goto T650;
1660    T650:;
1661            base[0]= VV[99];
1662            base[2]= (V113);
1663            vs_top=(vs_base=base+2)+1;
1664            (void) (*Lnk181)();
1665            vs_top=sup;
1666            base[1]= vs_base[0];
1667            base[2]= Cnil;
1668            vs_top=(vs_base=base+0)+3;
1669            (void) (*Lnk32)();
1670            vs_top=sup;
1671            if((vs_base[0])==Cnil){
1672            goto T658;}
1673            princ_str("Not updated.",Cnil);
1674            {object V114 = terpri(Cnil);
1675            VMR15(V114)}
1676            goto T658;
1677    T658:;
1678            {object V115 = Cnil;
1679            VMR15(V115)}
1680            base[0]=base[0];
1681            return Cnil;
1682    }
1683    /*      local entry for function INSPECT-STRUCTURE      */
1684    
1685    static object LI15(V117)
1686    
1687    register object V117;
1688    {        VMB16 VMS16 VMV16
1689            goto TTL;
1690    TTL:;
1691            {object V118;
1692            V118= Cnil;
1693            base[0]= Ct;
1694            base[1]= VV[100];
1695            base[3]= (V117);
1696            vs_top=(vs_base=base+3)+1;
1697            Ltype_of();
1698            vs_top=sup;
1699            V118= vs_base[0];
1700            base[2]= (V118);
1701            vs_top=(vs_base=base+0)+3;
1702            Lformat();
1703            vs_top=sup;
1704            {object V119;
1705            register object V120;
1706            V119= get((V118),VV[101],Cnil);
1707            V120= structure_ref((V119),VV[101],8);
1708            {register object V121;
1709            register object V122;
1710            V121= structure_ref((V119),VV[101],7);
1711            V122= car((V121));
1712            goto T677;
1713    T677:;
1714            if(!(endp_prop((V121)))){
1715            goto T678;}
1716            {object V123 = Cnil;
1717            VMR16(V123)}
1718            goto T678;
1719    T678:;
1720            base[4]= Ct;
1721            base[5]= VV[102];
1722            base[6]= aref1((V120),fixint(car(cddddr((V122)))));
1723            {register object V124;
1724            V124= caddr((V122));
1725            if(!((Ct)==((V124)))){
1726            goto T689;}
1727            base[7]= Cnil;
1728            goto T686;
1729            goto T689;
1730    T689:;
1731            base[7]= (V124);}
1732            goto T686;
1733    T686:;
1734            base[8]= car((V122));
1735            base[10]= (V117);
1736            base[11]= car(cddddr((V122)));
1737            vs_top=(vs_base=base+10)+2;
1738            (void) (*Lnk182)();
1739            vs_top=sup;
1740            base[9]= vs_base[0];
1741            vs_top=(vs_base=base+4)+6;
1742            Lformat();
1743            vs_top=sup;
1744            V121= cdr((V121));
1745            V122= car((V121));
1746            goto T677;}}}
1747            base[0]=base[0];
1748            return Cnil;
1749    }
1750    /*      function definition for INSPECT-OBJECT  */
1751    
1752    static void L16()
1753    {register object *VOL base=vs_base;
1754            register object *VOL sup=base+VM17; VC17
1755            vs_reserve(VM17);
1756            bds_check;
1757            {VOL object V125;
1758            check_arg(1);
1759            V125=(base[0]);
1760            vs_top=sup;
1761            goto TTL;
1762    TTL:;
1763            bds_bind(VV[41],symbol_value(VV[41]));
1764            (void)((*(LnkLI161))());
1765            if((symbol_value(VV[3]))!=Cnil){
1766            goto T701;}
1767            if(number_compare((VV[41]->s.s_dbind),small_fixnum(5))>0){
1768            goto T702;}
1769            {register object x= (V125),V126= symbol_value(VV[103]);
1770            while(!endp(V126))
1771            if(eql(x,V126->c.c_car)){
1772            goto T707;
1773            }else V126=V126->c.c_cdr;
1774            goto T701;}
1775            goto T707;
1776    T707:;
1777            goto T702;
1778    T702:;
1779            (void)(prin1((V125),Cnil));
1780            base[2]= Cnil;
1781            vs_top=(vs_base=base+2)+1;
1782            bds_unwind1;
1783            return;
1784            goto T701;
1785    T701:;
1786            (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));
1787            setq(VV[103],make_cons(V125,symbol_value(VV[103])));
1788            frs_push(FRS_CATCH,VV[17]);
1789            if(nlj_active)
1790            {nlj_active=FALSE;frs_pop();
1791            bds_unwind1;
1792            return;}
1793            else{
1794            if(!(type_of((V125))==t_symbol)){
1795            goto T715;}
1796            V128= (*(LnkLI183))((V125));
1797            frs_pop();
1798            base[2]= V128;
1799            vs_top=(vs_base=base+2)+1;
1800            bds_unwind1;
1801            return;
1802            goto T715;
1803    T715:;
1804            base[2]= (V125);
1805            vs_top=(vs_base=base+2)+1;
1806            Lpackagep();
1807            vs_top=sup;
1808            if((vs_base[0])==Cnil){
1809            goto T718;}
1810            V129= (*(LnkLI184))((V125));
1811            frs_pop();
1812            base[2]= V129;
1813            vs_top=(vs_base=base+2)+1;
1814            bds_unwind1;
1815            return;
1816            goto T718;
1817    T718:;
1818            if(!(type_of((V125))==t_character)){
1819            goto T722;}
1820            V130= (*(LnkLI185))((V125));
1821            frs_pop();
1822            base[2]= V130;
1823            vs_top=(vs_base=base+2)+1;
1824            bds_unwind1;
1825            return;
1826            goto T722;
1827    T722:;
1828            if(!(type_of((V125))==t_fixnum||
1829    type_of((V125))==t_bignum||
1830    type_of((V125))==t_ratio||
1831    type_of((V125))==t_shortfloat||
1832    type_of((V125))==t_longfloat||
1833    type_of((V125))==t_complex)){
1834            goto T725;}
1835            V131= (*(LnkLI186))((V125));
1836            frs_pop();
1837            base[2]= V131;
1838            vs_top=(vs_base=base+2)+1;
1839            bds_unwind1;
1840            return;
1841            goto T725;
1842    T725:;
1843            if(!(type_of((V125))==t_cons)){
1844            goto T728;}
1845            V132= (*(LnkLI187))((V125));
1846            frs_pop();
1847            base[2]= V132;
1848            vs_top=(vs_base=base+2)+1;
1849            bds_unwind1;
1850            return;
1851            goto T728;
1852    T728:;
1853            if(!(type_of((V125))==t_string)){
1854            goto T731;}
1855            V133= (*(LnkLI188))((V125));
1856            frs_pop();
1857            base[2]= V133;
1858            vs_top=(vs_base=base+2)+1;
1859            bds_unwind1;
1860            return;
1861            goto T731;
1862    T731:;
1863            if(!(type_of((V125))==t_vector||
1864    type_of((V125))==t_string||
1865    type_of((V125))==t_bitvector)){
1866            goto T734;}
1867            V134= (*(LnkLI189))((V125));
1868            frs_pop();
1869            base[2]= V134;
1870            vs_top=(vs_base=base+2)+1;
1871            bds_unwind1;
1872            return;
1873            goto T734;
1874    T734:;
1875            if(!(type_of((V125))==t_array||
1876    type_of((V125))==t_vector||
1877    type_of((V125))==t_string||
1878    type_of((V125))==t_bitvector)){
1879            goto T737;}
1880            V135= (*(LnkLI190))((V125));
1881            frs_pop();
1882            base[2]= V135;
1883            vs_top=(vs_base=base+2)+1;
1884            bds_unwind1;
1885            return;
1886            goto T737;
1887    T737:;
1888            if(!(type_of((V125))==t_structure)){
1889            goto T740;}
1890            V136= (*(LnkLI191))((V125));
1891            frs_pop();
1892            base[2]= V136;
1893            vs_top=(vs_base=base+2)+1;
1894            bds_unwind1;
1895            return;
1896            goto T740;
1897    T740:;
1898            base[2]= Ct;
1899            base[3]= VV[104];
1900            base[4]= (V125);
1901            base[6]= (V125);
1902            vs_top=(vs_base=base+6)+1;
1903            Ltype_of();
1904            vs_top=sup;
1905            base[5]= vs_base[0];
1906            vs_top=(vs_base=base+2)+4;
1907            Lformat();
1908            frs_pop();
1909            bds_unwind1;
1910            return;}
1911            }
1912    }
1913    /*      function definition for DESCRIBE        */
1914    
1915    static void L17()
1916    {register object *VOL base=vs_base;
1917            register object *VOL sup=base+VM18; VC18
1918            vs_reserve(VM18);
1919            bds_check;
1920            {VOL object V137;
1921            check_arg(1);
1922            V137=(base[0]);
1923            vs_top=sup;
1924            goto TTL;
1925    TTL:;
1926            bds_bind(VV[3],Cnil);
1927            bds_bind(VV[41],small_fixnum(0));
1928            bds_bind(VV[103],Cnil);
1929            bds_bind(VV[13],Cnil);
1930            bds_bind(VV[14],Cnil);
1931            princ_char(10,Cnil);
1932            frs_push(FRS_CATCH,VV[28]);
1933            if(nlj_active)
1934            {nlj_active=FALSE;frs_pop();
1935            vs_top=sup;
1936            goto T748;}
1937            else{
1938            base[6]= (V137);
1939            vs_top=(vs_base=base+6)+1;
1940            (void) (*Lnk160)();
1941            vs_top=sup;
1942            frs_pop();}
1943            goto T748;
1944    T748:;
1945            princ_char(10,Cnil);
1946            vs_base=vs_top=base+6;
1947            vs_base[0]=Cnil;
1948            bds_unwind1;
1949            bds_unwind1;
1950            bds_unwind1;
1951            bds_unwind1;
1952            bds_unwind1;
1953            return;
1954            }
1955    }
1956    /*      function definition for INSPECT */
1957    
1958    static void L18()
1959    {register object *VOL base=vs_base;
1960            register object *VOL sup=base+VM19; VC19
1961            vs_reserve(VM19);
1962            bds_check;
1963            {VOL object V138;
1964            check_arg(1);
1965            V138=(base[0]);
1966            vs_top=sup;
1967            goto TTL;
1968    TTL:;
1969            bds_bind(VV[3],Ct);
1970            bds_bind(VV[41],small_fixnum(0));
1971            bds_bind(VV[103],Cnil);
1972            bds_bind(VV[23],symbol_value(VV[13]));
1973            bds_bind(VV[25],symbol_value(VV[14]));
1974            bds_bind(VV[13],small_fixnum(3));
1975            bds_bind(VV[14],small_fixnum(3));
1976            vs_base=vs_top;
1977            Lread_line();
1978            vs_top=sup;
1979            princ_str("Type ? and a newline for help.",Cnil);
1980            princ_char(10,Cnil);
1981            frs_push(FRS_CATCH,VV[28]);
1982            if(nlj_active)
1983            {nlj_active=FALSE;frs_pop();
1984            vs_top=sup;
1985            goto T755;}
1986            else{
1987            base[8]= (V138);
1988            vs_top=(vs_base=base+8)+1;
1989            (void) (*Lnk160)();
1990            vs_top=sup;
1991            frs_pop();}
1992            goto T755;
1993    T755:;
1994            princ_char(10,Cnil);
1995            vs_base=vs_top=base+8;
1996            vs_base[0]=Cnil;
1997            bds_unwind1;
1998            bds_unwind1;
1999            bds_unwind1;
2000            bds_unwind1;
2001            bds_unwind1;
2002            bds_unwind1;
2003            bds_unwind1;
2004            return;
2005            }
2006    }
2007    /*      function definition for PRINT-DOC       */
2008    
2009    static void L19()
2010    {register object *base=vs_base;
2011            register object *sup=base+VM20; VC20
2012            vs_reserve(VM20);
2013            bds_check;
2014            {object V139;
2015            if(vs_top-vs_base<1) too_few_arguments();
2016            if(vs_top-vs_base>2) too_many_arguments();
2017            vs_base=vs_base+1;
2018            if(vs_base>=vs_top){vs_top=sup;goto T759;}
2019            V139=(base[1]);
2020            vs_top=sup;
2021            goto T760;
2022            goto T759;
2023    T759:;
2024            V139= Cnil;
2025            goto T760;
2026    T760:;
2027            {register object V140;
2028            base[2]= Cnil;
2029            V140= Cnil;
2030            base[3]= base[0];
2031            vs_top=(vs_base=base+3)+1;
2032            Lspecial_form_p();
2033            vs_top=sup;
2034            if((vs_base[0])==Cnil){
2035            goto T766;}{object V141;
2036            V141= (*(LnkLI192))(base[0],VV[105]);
2037            if(V141==Cnil)goto T770;
2038            base[3]= V141;
2039            goto T769;
2040            goto T770;
2041    T770:;}
2042            base[3]= VV[106];
2043            goto T769;
2044    T769:;
2045            base[5]= base[0];
2046            vs_top=(vs_base=base+5)+1;
2047            Lmacro_function();
2048            vs_top=sup;
2049            if((vs_base[0])==Cnil){
2050            goto T774;}
2051            base[4]= VV[107];
2052            goto T772;
2053            goto T774;
2054    T774:;
2055            base[4]= VV[108];
2056            goto T772;
2057    T772:;
2058            vs_top=(vs_base=base+3)+2;
2059            L20(base);
2060            vs_top=sup;
2061            goto T764;
2062            goto T766;
2063    T766:;
2064            base[3]= base[0];
2065            vs_top=(vs_base=base+3)+1;
2066            Lmacro_function();
2067            vs_top=sup;
2068            if((vs_base[0])==Cnil){
2069            goto T778;}{object V142;
2070            V142= (*(LnkLI192))(base[0],VV[105]);
2071            if(V142==Cnil)goto T782;
2072            base[3]= V142;
2073            goto T781;
2074            goto T782;
2075    T782:;}
2076            base[3]= VV[109];
2077            goto T781;
2078    T781:;
2079            base[4]= VV[110];
2080            vs_top=(vs_base=base+3)+2;
2081            L20(base);
2082            vs_top=sup;
2083            goto T764;
2084            goto T778;
2085    T778:;
2086            base[3]= base[0];
2087            vs_top=(vs_base=base+3)+1;
2088            Lfboundp();
2089            vs_top=sup;
2090            if((vs_base[0])==Cnil){
2091            goto T786;}{object V143;
2092            V143= (*(LnkLI192))(base[0],VV[105]);
2093            if(V143==Cnil)goto T790;
2094            base[3]= V143;
2095            goto T789;
2096            goto T790;
2097    T790:;}
2098            base[4]= base[0];
2099            vs_top=(vs_base=base+4)+1;
2100            Lsymbol_function();
2101            vs_top=sup;
2102            V140= vs_base[0];
2103            if(!(type_of((V140))==t_cons)){
2104            goto T793;}
2105            {object V144= car((V140));
2106            if((V144!= VV[174]))goto T797;
2107            base[4]= Cnil;
2108            base[5]= VV[111];
2109            base[6]= cadr((V140));
2110            vs_top=(vs_base=base+4)+3;
2111            Lformat();
2112            vs_top=sup;
2113            base[3]= vs_base[0];
2114            goto T789;
2115            goto T797;
2116    T797:;
2117            if((V144!= VV[175]))goto T801;
2118            base[4]= Cnil;
2119            base[5]= VV[112];
2120            base[6]= caddr((V140));
2121            vs_top=(vs_base=base+4)+3;
2122            Lformat();
2123            vs_top=sup;
2124            base[3]= vs_base[0];
2125            goto T789;
2126            goto T801;
2127    T801:;
2128            if((V144!= VV[176]))goto T805;
2129            base[4]= Cnil;
2130            base[5]= VV[113];
2131            base[6]= car(cddddr((V140)));
2132            vs_top=(vs_base=base+4)+3;
2133            Lformat();
2134            vs_top=sup;
2135            base[3]= vs_base[0];
2136            goto T789;
2137            goto T805;
2138    T805:;
2139            if((V144!= VV[177]))goto T809;
2140            base[4]= Cnil;
2141            base[5]= VV[114];
2142            base[6]= cadr(cddddr((V140)));
2143            vs_top=(vs_base=base+4)+3;
2144            Lformat();
2145            vs_top=sup;
2146            base[3]= vs_base[0];
2147            goto T789;
2148            goto T809;
2149    T809:;
2150            base[3]= VV[115];
2151            goto T789;}
2152            goto T793;
2153    T793:;
2154            base[3]= VV[116];
2155            goto T789;
2156    T789:;
2157            base[4]= VV[117];
2158            vs_top=(vs_base=base+3)+2;
2159            L20(base);
2160            vs_top=sup;
2161            goto T764;
2162            goto T786;
2163    T786:;
2164            V140= (*(LnkLI192))(base[0],VV[105]);
2165            if(((V140))==Cnil){
2166            goto T764;}
2167            base[3]= (V140);
2168            base[4]= VV[118];
2169            vs_top=(vs_base=base+3)+2;
2170            L20(base);
2171            vs_top=sup;
2172            goto T764;
2173    T764:;
2174            base[3]= base[0];
2175            vs_top=(vs_base=base+3)+1;
2176            Lconstantp();
2177            vs_top=sup;
2178            if((vs_base[0])==Cnil){
2179            goto T821;}
2180            base[3]= base[0];
2181            vs_top=(vs_base=base+3)+1;
2182            Lsymbol_package();
2183            vs_top=sup;
2184            V145= vs_base[0];
2185            base[3]= VV[119];
2186            vs_top=(vs_base=base+3)+1;
2187            Lfind_package();
2188            vs_top=sup;
2189            V146= vs_base[0];
2190            if(!((V145)==(V146))){
2191            goto T824;}
2192            if(((*(LnkLI192))(base[0],VV[120]))==Cnil){
2193            goto T819;}
2194            goto T824;
2195    T824:;{object V147;
2196            V147= (*(LnkLI192))(base[0],VV[120]);
2197            if(V147==Cnil)goto T833;
2198            base[3]= V147;
2199            goto T832;
2200            goto T833;
2201    T833:;}
2202            base[3]= VV[121];
2203            goto T832;
2204    T832:;
2205            base[4]= VV[122];
2206            vs_top=(vs_base=base+3)+2;
2207            L20(base);
2208            vs_top=sup;
2209            goto T819;
2210            goto T821;
2211    T821:;
2212            base[3]= base[0];
2213            vs_top=(vs_base=base+3)+1;
2214            siLspecialp();
2215            vs_top=sup;
2216            if((vs_base[0])==Cnil){
2217            goto T837;}{object V148;
2218            V148= (*(LnkLI192))(base[0],VV[120]);
2219            if(V148==Cnil)goto T841;
2220            base[3]= V148;
2221            goto T840;
2222            goto T841;
2223    T841:;}
2224            base[3]= VV[123];
2225            goto T840;
2226    T840:;
2227            base[4]= VV[124];
2228            vs_top=(vs_base=base+3)+2;
2229            L20(base);
2230            vs_top=sup;
2231            goto T819;
2232            goto T837;
2233    T837:;
2234            V140= (*(LnkLI192))(base[0],VV[120]);
2235            if(((V140))!=Cnil){
2236            goto T844;}
2237            base[3]= base[0];
2238            vs_top=(vs_base=base+3)+1;
2239            Lboundp();
2240            vs_top=sup;
2241            if((vs_base[0])==Cnil){
2242            goto T819;}
2243            goto T844;
2244    T844:;
2245            if((V140)!=Cnil){
2246            base[3]= (V140);
2247            goto T850;}
2248            base[3]= VV[125];
2249            goto T850;
2250    T850:;
2251            base[4]= VV[126];
2252            vs_top=(vs_base=base+3)+2;
2253            L20(base);
2254            vs_top=sup;
2255            goto T819;
2256    T819:;
2257            V140= (*(LnkLI192))(base[0],VV[127]);
2258            if(((V140))==Cnil){
2259            goto T854;}
2260            base[3]= (V140);
2261            base[4]= VV[128];
2262            vs_top=(vs_base=base+3)+2;
2263            L20(base);
2264            vs_top=sup;
2265            goto T852;
2266            goto T854;
2267    T854:;
2268            V140= get(base[0],VV[129],Cnil);
2269            if(((V140))==Cnil){
2270            goto T852;}
2271            vs_base=vs_top;
2272            L21(base);
2273            vs_top=sup;
2274            base[3]= vs_base[0];
2275            bds_bind(VV[130],base[3]);
2276            base[5]= Cnil;
2277            base[6]= VV[131];
2278            base[7]= (V140);
2279            vs_top=(vs_base=base+5)+3;
2280            Lformat();
2281            vs_top=sup;
2282            base[4]= vs_base[0];
2283            base[5]= VV[132];
2284            vs_top=(vs_base=base+4)+2;
2285            L20(base);
2286            vs_top=sup;
2287            bds_unwind1;
2288            goto T852;
2289    T852:;
2290            V140= (*(LnkLI192))(base[0],VV[133]);
2291            if(((V140))==Cnil){
2292            goto T870;}
2293            base[3]= (V140);
2294            base[4]= VV[134];
2295            vs_top=(vs_base=base+3)+2;
2296            L20(base);
2297            vs_top=sup;
2298            goto T868;
2299            goto T870;
2300    T870:;
2301            V140= get(base[0],VV[135],Cnil);
2302            if(((V140))==Cnil){
2303            goto T868;}
2304            base[4]= Cnil;
2305            base[5]= VV[136];
2306            base[6]= (V140);
2307            vs_top=(vs_base=base+4)+3;
2308            Lformat();
2309            vs_top=sup;
2310            base[3]= vs_base[0];
2311            base[4]= VV[137];
2312            vs_top=(vs_base=base+3)+2;
2313            L20(base);
2314            vs_top=sup;
2315            goto T868;
2316    T868:;
2317            V140= (*(LnkLI192))(base[0],VV[35]);
2318            if(((V140))==Cnil){
2319            goto T884;}
2320            base[3]= (V140);
2321            base[4]= VV[138];
2322            vs_top=(vs_base=base+3)+2;
2323            L20(base);
2324            vs_top=sup;
2325            goto T763;
2326            goto T884;
2327    T884:;
2328            V140= get(base[0],VV[139],Cnil);
2329            if(((V140))==Cnil){
2330            goto T890;}
2331            vs_base=vs_top;
2332            L21(base);
2333            vs_top=sup;
2334            base[3]= vs_base[0];
2335            bds_bind(VV[130],base[3]);
2336            base[5]= Cnil;
2337            base[6]= VV[140];
2338            V149= get(base[0],VV[139],Cnil);
2339            base[7]= list(3,VV[141],base[0],V149);
2340            vs_top=(vs_base=base+5)+3;
2341            Lformat();
2342            vs_top=sup;
2343            base[4]= vs_base[0];
2344            base[5]= VV[142];
2345            vs_top=(vs_base=base+4)+2;
2346            L20(base);
2347            vs_top=sup;
2348            bds_unwind1;
2349            goto T763;
2350            goto T890;
2351    T890:;
2352            V140= get(base[0],VV[143],Cnil);
2353            if(((V140))==Cnil){
2354            goto T901;}
2355            vs_base=vs_top;
2356            L21(base);
2357            vs_top=sup;
2358            base[3]= vs_base[0];
2359            bds_bind(VV[130],base[3]);
2360            base[5]= Cnil;
2361            base[6]= VV[144];
2362            V150= get(base[0],VV[143],Cnil);
2363            base[7]= listA(3,VV[141],base[0],V150);
2364            vs_top=(vs_base=base+5)+3;
2365            Lformat();
2366            vs_top=sup;
2367            base[4]= vs_base[0];
2368            base[5]= VV[145];
2369            vs_top=(vs_base=base+4)+2;
2370            L20(base);
2371            vs_top=sup;
2372            bds_unwind1;
2373            goto T763;
2374            goto T901;
2375    T901:;
2376            V140= get(base[0],VV[146],Cnil);
2377            if(((V140))==Cnil){
2378            goto T763;}
2379            vs_base=vs_top;
2380            L21(base);
2381            vs_top=sup;
2382            base[3]= vs_base[0];
2383            bds_bind(VV[130],base[3]);
2384            base[5]= Cnil;
2385            base[6]= VV[147];
2386            if(!(type_of((V140))==t_cons)){
2387            goto T920;}
2388            {object V151= car((V140));
2389            if((V151!= VV[174]))goto T922;
2390            base[7]= make_cons(VV[148],cdr((V140)));
2391            goto T918;
2392            goto T922;
2393    T922:;
2394            if((V151!= VV[175]))goto T923;
2395            base[7]= make_cons(VV[148],cddr((V140)));
2396            goto T918;
2397            goto T923;
2398    T923:;
2399            if((V151!= VV[176]))goto T924;
2400            base[7]= make_cons(VV[148],cddddr((V140)));
2401            goto T918;
2402            goto T924;
2403    T924:;
2404            if((V151!= VV[177]))goto T925;
2405            base[7]= make_cons(VV[148],cdr(cddddr((V140))));
2406            goto T918;
2407            goto T925;
2408    T925:;
2409            base[7]= Cnil;
2410            goto T918;}
2411            goto T920;
2412    T920:;
2413            base[7]= Cnil;
2414            goto T918;
2415    T918:;
2416            vs_top=(vs_base=base+5)+3;
2417            Lformat();
2418            vs_top=sup;
2419            base[4]= vs_base[0];
2420            base[5]= VV[149];
2421            vs_top=(vs_base=base+4)+2;
2422            L20(base);
2423            vs_top=sup;
2424            bds_unwind1;
2425            goto T763;
2426    T763:;
2427            base[3]= symbol_name(base[0]);
2428            vs_top=(vs_base=base+3)+1;
2429            (void) (*Lnk193)();
2430            vs_top=sup;
2431            if(((V139))==Cnil){
2432            goto T930;}
2433            vs_top=(vs_base=base+2)+1;
2434            return;
2435            goto T930;
2436    T930:;
2437            if((base[2])==Cnil){
2438            goto T934;}
2439            base[3]= Ct;
2440            base[4]= VV[153];
2441            vs_top=(vs_base=base+3)+2;
2442            Lformat();
2443            vs_top=sup;
2444            goto T932;
2445            goto T934;
2446    T934:;
2447            base[3]= Ct;
2448            base[4]= VV[154];
2449            base[5]= base[0];
2450            vs_top=(vs_base=base+3)+3;
2451            Lformat();
2452            vs_top=sup;
2453            goto T932;
2454    T932:;
2455            vs_base=vs_top=base+3;
2456            vs_base[0]=Cnil;
2457            return;}
2458            }
2459    }
2460    /*      function definition for APROPOS-DOC     */
2461    
2462    static void L22()
2463    {register object *base=vs_base;
2464            register object *sup=base+VM21; VC21
2465            vs_reserve(VM21);
2466            {object V152;
2467            object V153;
2468            if(vs_top-vs_base<1) too_few_arguments();
2469            if(vs_top-vs_base>2) too_many_arguments();
2470            V152=(base[0]);
2471            vs_base=vs_base+1;
2472            if(vs_base>=vs_top){vs_top=sup;goto T941;}
2473            V153=(base[1]);
2474            vs_top=sup;
2475            goto T942;
2476            goto T941;
2477    T941:;
2478            V153= VV[155];
2479            goto T942;
2480    T942:;
2481            {register object V154;
2482            V154= Cnil;
2483            V152= coerce_to_string((V152));
2484            if(((V153))==Cnil){
2485            goto T949;}
2486            {object V155;
2487            object V156;
2488            register object V157;
2489            base[2]= V153;
2490            vs_top=(vs_base=base+2)+1;
2491            Lpackagep();
2492            vs_top=sup;
2493            if((vs_base[0])==Cnil){
2494            goto T953;}
2495            V155= V153;
2496            goto T951;
2497            goto T953;
2498    T953:;
2499            base[2]= coerce_to_string(V153);
2500            vs_top=(vs_base=base+2)+1;
2501            Lfind_package();
2502            vs_top=sup;
2503            V155= vs_base[0];
2504            goto T951;
2505    T951:;
2506            V156= Cnil;
2507            V157= Cnil;
2508            {object V159;
2509            object V160;
2510            base[4]= (V155);
2511            vs_top=(vs_base=base+4)+1;
2512            Lpackage_use_list();
2513            vs_top=sup;
2514            V161= vs_base[0];
2515            V159= make_cons((V155),V161);
2516            V160= car((V159));
2517            goto T962;
2518    T962:;
2519            if(!(endp_prop((V159)))){
2520            goto T963;}
2521            V156= Cnil;
2522            goto T947;
2523            goto T963;
2524    T963:;
2525            {long V162;
2526            long V163;
2527            base[4]= (V160);
2528            vs_top=(vs_base=base+4)+1;
2529            (void) (*Lnk194)();
2530            if(vs_base>=vs_top){vs_top=sup;goto T972;}
2531            V162= fix(vs_base[0]);
2532            vs_base++;
2533            if(vs_base>=vs_top){vs_top=sup;goto T973;}
2534            V163= fix(vs_base[0]);
2535            vs_top=sup;
2536            goto T974;
2537            goto T972;
2538    T972:;
2539            V162= fix(Cnil);
2540            goto T973;
2541    T973:;
2542            V163= fix(Cnil);
2543            goto T974;
2544    T974:;
2545            if(((V155))==((V160))){
2546            goto T975;}
2547            V163= 0;
2548            goto T975;
2549    T975:;
2550            {object V164;
2551            object V165;
2552            V166 = make_fixnum(V163);
2553            V167 = make_fixnum(V162);
2554            V164= number_plus(V166,V167);
2555            V165= small_fixnum(0);
2556            goto T982;
2557    T982:;
2558            if(!(number_compare((V165),(V164))>=0)){
2559            goto T983;}
2560            goto T969;
2561            goto T983;
2562    T983:;
2563            V168 = make_fixnum(V163);
2564            if(!(number_compare((V165),V168)<0)){
2565            goto T992;}
2566            base[5]= (V160);
2567            base[6]= (V165);
2568            vs_top=(vs_base=base+5)+2;
2569            siLpackage_internal();
2570            vs_top=sup;
2571            V157= vs_base[0];
2572            goto T990;
2573            goto T992;
2574    T992:;
2575            base[5]= (V160);
2576            V169 = make_fixnum(V163);
2577            base[6]= number_minus((V165),V169);
2578            vs_top=(vs_base=base+5)+2;
2579            siLpackage_external();
2580            vs_top=sup;
2581            V157= vs_base[0];
2582            goto T990;
2583    T990:;
2584            goto T988;
2585    T988:;
2586            if(((V157))!=Cnil){
2587            goto T998;}
2588            goto T989;
2589            goto T998;
2590    T998:;
2591            V156= car((V157));
2592            if(((V160))==((V155))){
2593            goto T1004;}
2594            base[6]= symbol_name((V156));
2595            base[7]= (V155);
2596            vs_top=(vs_base=base+6)+2;
2597            Lfind_symbol();
2598            Llist();
2599            vs_top=sup;
2600            base[5]= vs_base[0];
2601            vs_top=(vs_base=base+5)+1;
2602            Llast();
2603            vs_top=sup;
2604            V170= vs_base[0];
2605            if(!((VV[156])==(car(V170)))){
2606            goto T1003;}
2607            goto T1004;
2608    T1004:;
2609            V171= coerce_to_string((V156));
2610            if(((*(LnkLI195))((V152),/* INLINE-ARGS */V171))==Cnil){
2611            goto T1013;}{object V172;
2612            base[5]= (V156);
2613            base[6]= Ct;
2614            vs_top=(vs_base=base+5)+2;
2615            (void) (*Lnk164)();
2616            vs_top=sup;
2617            V172= vs_base[0];
2618            if(V172==Cnil)goto T1017;
2619            V154= V172;
2620            goto T1016;
2621            goto T1017;
2622    T1017:;}
2623            goto T1016;
2624    T1016:;
2625            goto T1013;
2626    T1013:;
2627            goto T1003;
2628    T1003:;
2629            V157= cdr((V157));
2630            goto T988;
2631            goto T989;
2632    T989:;
2633            goto T986;
2634            goto T986;
2635    T986:;
2636            V165= one_plus((V165));
2637            goto T982;}}
2638            goto T969;
2639    T969:;
2640            V159= cdr((V159));
2641            V160= car((V159));
2642            goto T962;}}
2643            goto T949;
2644    T949:;
2645            {object V173;
2646            object V174;
2647            vs_base=vs_top;
2648            Llist_all_packages();
2649            vs_top=sup;
2650            V173= vs_base[0];
2651            V174= car((V173));
2652            goto T1034;
2653    T1034:;
2654            if(!(endp_prop((V173)))){
2655            goto T1035;}
2656            goto T947;
2657            goto T1035;
2658    T1035:;
2659            {object V175;
2660            register object V176;
2661            register object V177;
2662            base[4]= V174;
2663            vs_top=(vs_base=base+4)+1;
2664            Lpackagep();
2665            vs_top=sup;
2666            if((vs_base[0])==Cnil){
2667            goto T1042;}
2668            V175= V174;
2669            goto T1040;
2670            goto T1042;
2671    T1042:;
2672            base[4]= coerce_to_string(V174);
2673            vs_top=(vs_base=base+4)+1;
2674            Lfind_package();
2675            vs_top=sup;
2676            V175= vs_base[0];
2677            goto T1040;
2678    T1040:;
2679            V176= Cnil;
2680            V177= Cnil;
2681            {object V179;
2682            register object V180;
2683            base[6]= (V175);
2684            vs_top=(vs_base=base+6)+1;
2685            Lpackage_use_list();
2686            vs_top=sup;
2687            V181= vs_base[0];
2688            V179= make_cons((V175),V181);
2689            V180= car((V179));
2690            goto T1051;
2691    T1051:;
2692            if(!(endp_prop((V179)))){
2693            goto T1052;}
2694            V176= Cnil;
2695            goto T1039;
2696            goto T1052;
2697    T1052:;
2698            {long V182;
2699            long V183;
2700            base[6]= (V180);
2701            vs_top=(vs_base=base+6)+1;
2702            (void) (*Lnk194)();
2703            if(vs_base>=vs_top){vs_top=sup;goto T1061;}
2704            V182= fix(vs_base[0]);
2705            vs_base++;
2706            if(vs_base>=vs_top){vs_top=sup;goto T1062;}
2707            V183= fix(vs_base[0]);
2708            vs_top=sup;
2709            goto T1063;
2710            goto T1061;
2711    T1061:;
2712            V182= fix(Cnil);
2713            goto T1062;
2714    T1062:;
2715            V183= fix(Cnil);
2716            goto T1063;
2717    T1063:;
2718            if(((V175))==((V180))){
2719            goto T1064;}
2720            V183= 0;
2721            goto T1064;
2722    T1064:;
2723            {object V184;
2724            register object V185;
2725            V186 = make_fixnum(V183);
2726            V187 = make_fixnum(V182);
2727            V184= number_plus(V186,V187);
2728            V185= small_fixnum(0);
2729            goto T1071;
2730    T1071:;
2731            if(!(number_compare((V185),(V184))>=0)){
2732            goto T1072;}
2733            goto T1058;
2734            goto T1072;
2735    T1072:;
2736            V188 = make_fixnum(V183);
2737            if(!(number_compare((V185),V188)<0)){
2738            goto T1081;}
2739            base[7]= (V180);
2740            base[8]= (V185);
2741            vs_top=(vs_base=base+7)+2;
2742            siLpackage_internal();
2743            vs_top=sup;
2744            V177= vs_base[0];
2745            goto T1079;
2746            goto T1081;
2747    T1081:;
2748            base[7]= (V180);
2749            V189 = make_fixnum(V183);
2750            base[8]= number_minus((V185),V189);
2751            vs_top=(vs_base=base+7)+2;
2752            siLpackage_external();
2753            vs_top=sup;
2754            V177= vs_base[0];
2755            goto T1079;
2756    T1079:;
2757            goto T1077;
2758    T1077:;
2759            if(((V177))!=Cnil){
2760            goto T1087;}
2761            goto T1078;
2762            goto T1087;
2763    T1087:;
2764            V176= car((V177));
2765            if(((V180))==((V175))){
2766            goto T1093;}
2767            base[8]= symbol_name((V176));
2768            base[9]= (V175);
2769            vs_top=(vs_base=base+8)+2;
2770            Lfind_symbol();
2771            Llist();
2772            vs_top=sup;
2773            base[7]= vs_base[0];
2774            vs_top=(vs_base=base+7)+1;
2775            Llast();
2776            vs_top=sup;
2777            V190= vs_base[0];
2778            if(!((VV[156])==(car(V190)))){
2779            goto T1092;}
2780            goto T1093;
2781    T1093:;
2782            V191= coerce_to_string((V176));
2783            if(((*(LnkLI195))((V152),/* INLINE-ARGS */V191))==Cnil){
2784            goto T1103;}{object V192;
2785            base[7]= (V176);
2786            base[8]= Ct;
2787            vs_top=(vs_base=base+7)+2;
2788            (void) (*Lnk164)();
2789            vs_top=sup;
2790            V192= vs_base[0];
2791            if(V192==Cnil)goto T1107;
2792            V154= V192;
2793            goto T1106;
2794            goto T1107;
2795    T1107:;}
2796            goto T1106;
2797    T1106:;
2798            goto T1103;
2799    T1103:;
2800            goto T1092;
2801    T1092:;
2802            V177= cdr((V177));
2803            goto T1077;
2804            goto T1078;
2805    T1078:;
2806            goto T1075;
2807            goto T1075;
2808    T1075:;
2809            V185= one_plus((V185));
2810            goto T1071;}}
2811            goto T1058;
2812    T1058:;
2813            V179= cdr((V179));
2814            V180= car((V179));
2815            goto T1051;}}
2816            goto T1039;
2817    T1039:;
2818            V173= cdr((V173));
2819            V174= car((V173));
2820            goto T1034;}
2821            goto T947;
2822    T947:;
2823            if(((V154))==Cnil){
2824            goto T1128;}
2825            base[2]= Ct;
2826            base[3]= VV[157];
2827            vs_top=(vs_base=base+2)+2;
2828            Lformat();
2829            vs_top=sup;
2830            goto T1126;
2831            goto T1128;
2832    T1128:;
2833            base[2]= Ct;
2834            base[3]= VV[158];
2835            base[4]= (V152);
2836            base[5]= (V153);
2837            if((V153)==Cnil){
2838            base[6]= Cnil;
2839            goto T1136;}
2840            base[8]= V153;
2841            vs_top=(vs_base=base+8)+1;
2842            Lpackagep();
2843            vs_top=sup;
2844            if((vs_base[0])==Cnil){
2845            goto T1139;}
2846            base[7]= V153;
2847            goto T1137;
2848            goto T1139;
2849    T1139:;
2850            base[8]= coerce_to_string(V153);
2851            vs_top=(vs_base=base+8)+1;
2852            Lfind_package();
2853            vs_top=sup;
2854            base[7]= vs_base[0];
2855            goto T1137;
2856    T1137:;
2857            vs_top=(vs_base=base+7)+1;
2858            Lpackage_name();
2859            vs_top=sup;
2860            base[6]= vs_base[0];
2861            goto T1136;
2862    T1136:;
2863            vs_top=(vs_base=base+2)+5;
2864            Lformat();
2865            vs_top=sup;
2866            goto T1126;
2867    T1126:;
2868            vs_base=vs_top=base+2;
2869            vs_base[0]=Cnil;
2870            return;}
2871            }
2872    }
2873    /*      local function GOOD-PACKAGE     */
2874    
2875    static void L21(base0)
2876    register object *base0;
2877    {       register object *base=vs_base;
2878            register object *sup=base+VM22; VC22
2879            vs_reserve(VM22);
2880            check_arg(0);
2881            vs_top=sup;
2882            goto TTL;
2883    TTL:;
2884            base[0]= base0[0];
2885            vs_top=(vs_base=base+0)+1;
2886            Lsymbol_package();
2887            vs_top=sup;
2888            V194= vs_base[0];
2889            base[0]= VV[151];
2890            vs_top=(vs_base=base+0)+1;
2891            Lfind_package();
2892            vs_top=sup;
2893            V195= vs_base[0];
2894            if(!((V194)==(V195))){
2895            goto T1144;}
2896            base[0]= VV[152];
2897            vs_top=(vs_base=base+0)+1;
2898            Lfind_package();
2899            return;
2900            goto T1144;
2901    T1144:;
2902            base[0]= symbol_value(VV[130]);
2903            vs_top=(vs_base=base+0)+1;
2904            return;
2905    }
2906    /*      local function DOC1     */
2907    
2908    static void L20(base0)
2909    register object *base0;
2910    {       register object *base=vs_base;
2911            register object *sup=base+VM23; VC23
2912            vs_reserve(VM23);
2913            {object V196;
2914            object V197;
2915            check_arg(2);
2916            V196=(base[0]);
2917            V197=(base[1]);
2918            vs_top=sup;
2919            goto TTL;
2920    TTL:;
2921            base0[2]= Ct;
2922            base[2]= Ct;
2923            base[3]= VV[150];
2924            base[4]= base0[0];
2925            base[5]= (V197);
2926            base[6]= (V196);
2927            vs_top=(vs_base=base+2)+5;
2928            Lformat();
2929            return;
2930            }
2931    }
2932    static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,2,first,ap);va_end(ap);return V1;} /* SUBSTRINGP */
2933    static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* PACKAGE-SIZE */
2934    static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* IDESCRIBE */
2935    static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,2,first,ap);va_end(ap);return V1;} /* DOCUMENTATION */
2936    static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* INSPECT-STRUCTURE */
2937    static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,1,first,ap);va_end(ap);return V1;} /* INSPECT-ARRAY */
2938    static object  LnkTLI189(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[189],(void **)(void *)&LnkLI189,1,first,ap);va_end(ap);return V1;} /* INSPECT-VECTOR */
2939    static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* INSPECT-STRING */
2940    static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,1,first,ap);va_end(ap);return V1;} /* INSPECT-CONS */
2941    static object  LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,1,first,ap);va_end(ap);return V1;} /* INSPECT-NUMBER */
2942    static object  LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,1,first,ap);va_end(ap);return V1;} /* INSPECT-CHARACTER */
2943    static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* INSPECT-PACKAGE */
2944    static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* INSPECT-SYMBOL */
2945    static void LnkT182(){ call_or_link(VV[182],(void **)(void *)&Lnk182);} /* STRUCTURE-REF1 */
2946    static void LnkT181(){ call_or_link(VV[181],(void **)(void *)&Lnk181);} /* ARRAY-TOTAL-SIZE */
2947    static object  LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
2948    static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* ARRAY-HAS-FILL-POINTER-P */
2949    static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* PACKAGE-SHADOWING-SYMBOLS */
2950    static void LnkT164(){ call_or_link(VV[164],(void **)(void *)&Lnk164);} /* PRINT-DOC */
2951    static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* READ-INSPECT-COMMAND */
2952    static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* READ-PRESERVING-WHITESPACE */
2953    static object  LnkTLI162(){return call_proc0(VV[162],(void **)(void *)&LnkLI162);} /* INSPECT-READ-LINE */
2954    static object  LnkTLI161(){return call_proc0(VV[161],(void **)(void *)&LnkLI161);} /* INSPECT-INDENT */
2955    static void LnkT160(){ call_or_link(VV[160],(void **)(void *)&Lnk160);} /* INSPECT-OBJECT */
2956    static object  LnkTLI159(){return call_proc0(VV[159],(void **)(void *)&LnkLI159);} /* INSPECT-INDENT-1 */
2957    
2958    #ifdef SYSTEM_SPECIAL_INIT
2959    SYSTEM_SPECIAL_INIT
2960    #endif
2961    

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