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

Diff of /gcl/lsp/describe.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "describe.h"  #include "describe.h"
4  init_describe(){do_init(VV);}  void init_describe(){do_init(VV);}
5  /*      local entry for function INSPECT-READ-LINE      */  /*      local entry for function INSPECT-READ-LINE      */
6    
7  static object LI1()  static object LI1()
8    
9  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
10    goto TTL;
11  TTL:;  TTL:;
12          {register object V1;          {register object V1;
13          base[0]= symbol_value(VV[0]);          base[0]= symbol_value(VV[0]);
# Line 14  TTL:; Line 15  TTL:;
15          Lread_char();          Lread_char();
16          vs_top=sup;          vs_top=sup;
17          V1= vs_base[0];          V1= vs_base[0];
18    goto T4;
19  T4:;  T4:;
20          base[0]= (V1);          base[0]= (V1);
21          base[1]= VV[1];          base[1]= VV[1];
# Line 29  T4:; Line 31  T4:;
31          vs_top=sup;          vs_top=sup;
32          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
33          goto T5;}          goto T5;}
34    goto T6;
35  T6:;  T6:;
36          {object V2 = Cnil;          {object V2 = Cnil;
37          VMR1(V2)}          VMR1(V2)}
38    goto T5;
39  T5:;  T5:;
40          base[0]= symbol_value(VV[0]);          base[0]= symbol_value(VV[0]);
41          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 39  T5:; Line 43  T5:;
43          vs_top=sup;          vs_top=sup;
44          V1= vs_base[0];          V1= vs_base[0];
45          goto T4;}          goto T4;}
46            base[0]=base[0];
47            return Cnil;
48  }  }
49  /*      function definition for READ-INSPECT-COMMAND    */  /*      function definition for READ-INSPECT-COMMAND    */
50    
51  static L2()  static void L2()
52  {register object *base=vs_base;  {register object *base=vs_base;
53          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
54          vs_reserve(VM2);          vs_reserve(VM2);
# Line 55  static L2() Line 61  static L2()
61          V4=(base[1]);          V4=(base[1]);
62          V5=(base[2]);          V5=(base[2]);
63          vs_top=sup;          vs_top=sup;
64    goto TTL;
65  TTL:;  TTL:;
66          if((symbol_value(VV[3]))!=Cnil){          if((symbol_value(VV[3]))!=Cnil){
67          goto T19;}          goto T19;}
# Line 67  TTL:; Line 74  TTL:;
74          (void) (*Lnk159)();          (void) (*Lnk159)();
75          vs_top=sup;          vs_top=sup;
76          goto T23;          goto T23;
77    goto T25;
78  T25:;  T25:;
79          base[3]= Ct;          base[3]= Ct;
80          base[4]= (V3);          base[4]= (V3);
# Line 74  T25:; Line 82  T25:;
82          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
83          Lformat();          Lformat();
84          vs_top=sup;          vs_top=sup;
85    goto T23;
86  T23:;  T23:;
87          base[3]= Cnil;          base[3]= Cnil;
88          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
89          return;          return;
90    goto T19;
91  T19:;  T19:;
92    goto T33;
93  T33:;  T33:;
94          (void)((*(LnkLI158))());          (void)((*(LnkLI158))());
95          if(((V5))==Cnil){          if(((V5))==Cnil){
# Line 87  T33:; Line 98  T33:;
98          (void)((*(LnkLI160))());          (void)((*(LnkLI160))());
99          (void)(prin1((V4),Cnil));          (void)(prin1((V4),Cnil));
100          goto T36;          goto T36;
101    goto T38;
102  T38:;  T38:;
103          base[3]= Ct;          base[3]= Ct;
104          base[4]= (V3);          base[4]= (V3);
# Line 94  T38:; Line 106  T38:;
106          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
107          Lformat();          Lformat();
108          vs_top=sup;          vs_top=sup;
109    goto T36;
110  T36:;  T36:;
111          base[3]= VV[4];          base[3]= VV[4];
112          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 108  T36:; Line 121  T36:;
121          Lread_char();          Lread_char();
122          vs_top=sup;          vs_top=sup;
123          V8= vs_base[0];          V8= vs_base[0];
124    goto T52;
125  T52:;  T52:;
126          base[3]= (V8);          base[3]= (V8);
127          base[4]= VV[4];          base[4]= VV[4];
# Line 124  T52:; Line 138  T52:;
138          goto T53;}          goto T53;}
139          V7= (V8);          V7= (V8);
140          goto T48;          goto T48;
141    goto T53;
142  T53:;  T53:;
143          base[3]= symbol_value(VV[0]);          base[3]= symbol_value(VV[0]);
144          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 131  T53:; Line 146  T53:;
146          vs_top=sup;          vs_top=sup;
147          V8= vs_base[0];          V8= vs_base[0];
148          goto T52;}          goto T52;}
149    goto T48;
150  T48:;  T48:;
151          {object V6= V7;          {object V6= V7;
152          if(!eql(V6,VV[1])          if(!eql(V6,VV[1])
# Line 141  T48:; Line 157  T48:;
157          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
158          (void) (*Lnk159)();          (void) (*Lnk159)();
159          vs_top=sup;          vs_top=sup;
160    goto T67;
161  T67:;  T67:;
162          base[3]= Cnil;          base[3]= Cnil;
163          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
164          return;          return;
165    goto T66;
166  T66:;  T66:;
167          if(!eql(V6,VV[6])          if(!eql(V6,VV[6])
168          && !eql(V6,VV[7]))goto T71;          && !eql(V6,VV[7]))goto T71;
# Line 155  T66:; Line 173  T66:;
173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
174          (void) (*Lnk159)();          (void) (*Lnk159)();
175          vs_top=sup;          vs_top=sup;
176    goto T73;
177  T73:;  T73:;
178          base[3]= Cnil;          base[3]= Cnil;
179          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
180          return;          return;
181    goto T71;
182  T71:;  T71:;
183          if(!eql(V6,VV[8])          if(!eql(V6,VV[8])
184          && !eql(V6,VV[9]))goto T77;          && !eql(V6,VV[9]))goto T77;
# Line 166  T71:; Line 186  T71:;
186          base[3]= Cnil;          base[3]= Cnil;
187          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
188          return;          return;
189    goto T77;
190  T77:;  T77:;
191          if(!eql(V6,VV[10])          if(!eql(V6,VV[10])
192          && !eql(V6,VV[11]))goto T79;          && !eql(V6,VV[11]))goto T79;
# Line 179  T77:; Line 200  T77:;
200          bds_unwind1;          bds_unwind1;
201          bds_unwind1;          bds_unwind1;
202          goto T34;          goto T34;
203    goto T79;
204  T79:;  T79:;
205          if(!eql(V6,VV[15])          if(!eql(V6,VV[15])
206          && !eql(V6,VV[16]))goto T82;          && !eql(V6,VV[16]))goto T82;
# Line 189  T79:; Line 211  T79:;
211          base[3]= Cnil;          base[3]= Cnil;
212          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
213          unwind(fr,VV[17]);}          unwind(fr,VV[17]);}
214    goto T82;
215  T82:;  T82:;
216          if(!eql(V6,VV[18])          if(!eql(V6,VV[18])
217          && !eql(V6,VV[19]))goto T85;          && !eql(V6,VV[19]))goto T85;
# Line 207  T82:; Line 230  T82:;
230          base[4]= (V9);}          base[4]= (V9);}
231          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
232          return;          return;
233    goto T85;
234  T85:;  T85:;
235          if(!eql(V6,VV[20])          if(!eql(V6,VV[20])
236          && !eql(V6,VV[21]))goto T92;          && !eql(V6,VV[21]))goto T92;
# Line 223  T85:; Line 247  T85:;
247          {register object *base0=base;          {register object *base0=base;
248          {register object *base=V13;          {register object *base=V13;
249          register object *sup=vs_base+VM3;          register object *sup=vs_base+VM3;
250            base0[0]=base0[0];
251            base[0]=base[0];
252          vs_reserve(VM3);          vs_reserve(VM3);
253          vs_top=sup;          vs_top=sup;
254          (void)((*(LnkLI161))());          (void)((*(LnkLI161))());
# Line 232  T85:; Line 258  T85:;
258          vs_top=sup;          vs_top=sup;
259          V10= vs_base[0];          V10= vs_base[0];
260          V11= car((V10));          V11= car((V10));
261    goto T101;
262  T101:;  T101:;
263          if(!(endp((V10)))){          if(!(endp((V10)))){
264          goto T102;}          goto T102;}
265          goto T34;          goto T34;
266    goto T102;
267  T102:;  T102:;
268          base[5]= (V11);          base[5]= (V11);
269          base[6]= VV[22];          base[6]= VV[22];
# Line 249  T102:; Line 277  T102:;
277          V10= cdr((V10));          V10= cdr((V10));
278          V11= car((V10));          V11= car((V10));
279          goto T101;}          goto T101;}
280    goto T92;
281  T92:;  T92:;
282          if(!eql(V6,VV[26])          if(!eql(V6,VV[26])
283          && !eql(V6,VV[27]))goto T118;          && !eql(V6,VV[27]))goto T118;
# Line 259  T92:; Line 288  T92:;
288          base[3]= Cnil;          base[3]= Cnil;
289          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
290          unwind(fr,VV[28]);}          unwind(fr,VV[28]);}
291    goto T118;
292  T118:;  T118:;
293          (void)((*(LnkLI161))());          (void)((*(LnkLI161))());
294          princ_char(10,Cnil);          princ_char(10,Cnil);
# Line 267  T118:; Line 297  T118:;
297          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
298          Lformat();          Lformat();
299          vs_top=sup;}          vs_top=sup;}
300    goto T34;
301  T34:;  T34:;
302          goto T33;          goto T33;
303          }          }
304  }  }
305  /*      macro definition for INSPECT-RECURSIVELY        */  /*      macro definition for INSPECT-RECURSIVELY        */
306    
307  static L3()  static void L3()
308  {register object *base=vs_base;  {register object *base=vs_base;
309          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
310          vs_reserve(VM4);          vs_reserve(VM4);
# Line 298  static L3() Line 329  static L3()
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])));          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;          vs_top=(vs_base=base+5)+1;
331          return;          return;
332    goto T128;
333  T128:;  T128:;
334          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Ct),VV[37]);          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;          vs_top=(vs_base=base+5)+1;
# Line 305  T128:; Line 337  T128:;
337  }  }
338  /*      macro definition for INSPECT-PRINT      */  /*      macro definition for INSPECT-PRINT      */
339    
340  static L4()  static void L4()
341  {register object *base=vs_base;  {register object *base=vs_base;
342          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
343          vs_reserve(VM5);          vs_reserve(VM5);
# Line 330  static L4() Line 362  static L4()
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])));          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;          vs_top=(vs_base=base+5)+1;
364          return;          return;
365    goto T132;
366  T132:;  T132:;
367          base[5]= listA(3,VV[33],list(4,VV[32],base[2],base[3],Cnil),VV[39]);          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;          vs_top=(vs_base=base+5)+1;
# Line 340  T132:; Line 373  T132:;
373  static object LI5()  static object LI5()
374    
375  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
376    goto TTL;
377  TTL:;  TTL:;
378          vs_base=vs_top;          vs_base=vs_top;
379          Lfresh_line();          Lfresh_line();
# Line 350  TTL:; Line 384  TTL:;
384          goto T140;}          goto T140;}
385          V18= symbol_value(VV[41]);          V18= symbol_value(VV[41]);
386          goto T138;          goto T138;
387    goto T140;
388  T140:;  T140:;
389          V18= small_fixnum(8);          V18= small_fixnum(8);
390    goto T138;
391  T138:;  T138:;
392          base[2]= number_times(small_fixnum(4),V18);          base[2]= number_times(small_fixnum(4),V18);
393          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 359  T138:; Line 395  T138:;
395          vs_top=sup;          vs_top=sup;
396          {object V19 = vs_base[0];          {object V19 = vs_base[0];
397          VMR6(V19)}          VMR6(V19)}
398            base[0]=base[0];
399            return Cnil;
400  }  }
401  /*      local entry for function INSPECT-INDENT-1       */  /*      local entry for function INSPECT-INDENT-1       */
402    
403  static object LI6()  static object LI6()
404    
405  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
406    goto TTL;
407  TTL:;  TTL:;
408          vs_base=vs_top;          vs_base=vs_top;
409          Lfresh_line();          Lfresh_line();
# Line 375  TTL:; Line 414  TTL:;
414          goto T148;}          goto T148;}
415          V20= symbol_value(VV[41]);          V20= symbol_value(VV[41]);
416          goto T146;          goto T146;
417    goto T148;
418  T148:;  T148:;
419          V20= small_fixnum(8);          V20= small_fixnum(8);
420    goto T146;
421  T146:;  T146:;
422          V21= number_times(small_fixnum(4),V20);          V21= number_times(small_fixnum(4),V20);
423          base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));          base[2]= number_minus(/* INLINE-ARGS */V21,small_fixnum(3));
# Line 385  T146:; Line 426  T146:;
426          vs_top=sup;          vs_top=sup;
427          {object V22 = vs_base[0];          {object V22 = vs_base[0];
428          VMR7(V22)}          VMR7(V22)}
429            base[0]=base[0];
430            return Cnil;
431  }  }
432  /*      local entry for function INSPECT-SYMBOL */  /*      local entry for function INSPECT-SYMBOL */
433    
# Line 392  static object LI7(V24) Line 435  static object LI7(V24)
435    
436  register object V24;  register object V24;
437  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
438    goto TTL;
439  TTL:;  TTL:;
440          {object V25;          {object V25;
441          base[0]= (V24);          base[0]= (V24);
# Line 408  TTL:; Line 452  TTL:;
452          Lformat();          Lformat();
453          vs_top=sup;          vs_top=sup;
454          goto T150;          goto T150;
455    goto T154;
456  T154:;  T154:;
457          base[0]= VV[44];          base[0]= VV[44];
458          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 423  T154:; Line 468  T154:;
468          Lformat();          Lformat();
469          vs_top=sup;          vs_top=sup;
470          goto T150;          goto T150;
471    goto T160;
472  T160:;  T160:;
473          base[0]= Ct;          base[0]= Ct;
474          base[1]= VV[46];          base[1]= VV[46];
# Line 440  T160:; Line 486  T160:;
486          V28= vs_base[0];          V28= vs_base[0];
487          vs_top=sup;          vs_top=sup;
488          goto T176;          goto T176;
489    goto T174;
490  T174:;  T174:;
491          V27= Cnil;          V27= Cnil;
492    goto T175;
493  T175:;  T175:;
494          V28= Cnil;          V28= Cnil;
495    goto T176;
496  T176:;  T176:;
497          base[3]= (((V28))==(VV[47])?Ct:Cnil);}          base[3]= (((V28))==(VV[47])?Ct:Cnil);}
498          base[5]= (V25);          base[5]= (V25);
# Line 454  T176:; Line 503  T176:;
503          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
504          Lformat();          Lformat();
505          vs_top=sup;}          vs_top=sup;}
506    goto T150;
507  T150:;  T150:;
508          base[0]= (V24);          base[0]= (V24);
509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 481  T150:; Line 531  T150:;
531          V30= vs_base[0];          V30= vs_base[0];
532          vs_top=sup;          vs_top=sup;
533          goto T193;          goto T193;
534    goto T191;
535  T191:;  T191:;
536          V29= Cnil;          V29= Cnil;
537    goto T192;
538  T192:;  T192:;
539          V30= Cnil;          V30= Cnil;
540    goto T193;
541  T193:;  T193:;
542          if(((V29))==Cnil){          if(((V29))==Cnil){
543          goto T179;}          goto T179;}
# Line 494  T193:; Line 547  T193:;
547          Lset();          Lset();
548          vs_top=sup;          vs_top=sup;
549          goto T179;}          goto T179;}
550    goto T184;
551  T184:;  T184:;
552          {object V31;          {object V31;
553          object V32;          object V32;
# Line 513  T184:; Line 567  T184:;
567          V32= vs_base[0];          V32= vs_base[0];
568          vs_top=sup;          vs_top=sup;
569          goto T205;          goto T205;
570    goto T203;
571  T203:;  T203:;
572          V31= Cnil;          V31= Cnil;
573    goto T204;
574  T204:;  T204:;
575          V32= Cnil;          V32= Cnil;
576    goto T205;
577  T205:;  T205:;
578          if(((V31))==Cnil){          if(((V31))==Cnil){
579          goto T179;}          goto T179;}
# Line 525  T205:; Line 582  T205:;
582          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
583          Lset();          Lset();
584          vs_top=sup;}          vs_top=sup;}
585    goto T179;
586  T179:;  T179:;
587          {register object V33;          {register object V33;
588          base[0]= (V24);          base[0]= (V24);
# Line 532  T179:; Line 590  T179:;
590          Lsymbol_plist();          Lsymbol_plist();
591          vs_top=sup;          vs_top=sup;
592          V33= vs_base[0];          V33= vs_base[0];
593    goto T214;
594  T214:;  T214:;
595          if(!(endp((V33)))){          if(!(endp((V33)))){
596          goto T215;}          goto T215;}
597          goto T210;          goto T210;
598    goto T215;
599  T215:;  T215:;
600          if(!(type_of(car((V33)))==t_symbol)){          if(!(type_of(car((V33)))==t_symbol)){
601          goto T220;}          goto T220;}
# Line 563  T215:; Line 623  T215:;
623          V37= vs_base[0];          V37= vs_base[0];
624          if((V36)==(V37)){          if((V36)==(V37)){
625          goto T219;}          goto T219;}
626    goto T220;
627  T220:;  T220:;
628          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
629          goto T235;}          goto T235;}
# Line 586  T220:; Line 647  T220:;
647          V39= vs_base[0];          V39= vs_base[0];
648          vs_top=sup;          vs_top=sup;
649          goto T246;          goto T246;
650    goto T244;
651  T244:;  T244:;
652          V38= Cnil;          V38= Cnil;
653    goto T245;
654  T245:;  T245:;
655          V39= Cnil;          V39= Cnil;
656    goto T246;
657  T246:;  T246:;
658          if(((V38))==Cnil){          if(((V38))==Cnil){
659          goto T219;}          goto T219;}
660          (void)(sputprop((V24),car((V33)),(V39)));          (void)(sputprop((V24),car((V33)),(V39)));
661          goto T219;}          goto T219;}
662    goto T235;
663  T235:;  T235:;
664          {register object V40;          {register object V40;
665          register object V41;          register object V41;
# Line 616  T235:; Line 681  T235:;
681          V41= vs_base[0];          V41= vs_base[0];
682          vs_top=sup;          vs_top=sup;
683          goto T258;          goto T258;
684    goto T256;
685  T256:;  T256:;
686          V40= Cnil;          V40= Cnil;
687    goto T257;
688  T257:;  T257:;
689          V41= Cnil;          V41= Cnil;
690    goto T258;
691  T258:;  T258:;
692          if(((V40))==Cnil){          if(((V40))==Cnil){
693          goto T219;}          goto T219;}
694          (void)(sputprop((V24),car((V33)),(V41)));}          (void)(sputprop((V24),car((V33)),(V41)));}
695    goto T219;
696  T219:;  T219:;
697          V33= cddr((V33));          V33= cddr((V33));
698          goto T214;}          goto T214;}
699    goto T210;
700  T210:;  T210:;
701          base[0]= (V24);          base[0]= (V24);
702          base[1]= Ct;          base[1]= Ct;
# Line 642  T210:; Line 712  T210:;
712          vs_top=sup;          vs_top=sup;
713          {object V42 = vs_base[0];          {object V42 = vs_base[0];
714          VMR8(V42)}          VMR8(V42)}
715    goto T265;
716  T265:;  T265:;
717          {object V43 = Cnil;          {object V43 = Cnil;
718          VMR8(V43)}          VMR8(V43)}
719            base[0]=base[0];
720            return Cnil;
721  }  }
722  /*      local entry for function INSPECT-PACKAGE        */  /*      local entry for function INSPECT-PACKAGE        */
723    
# Line 652  static object LI8(V45) Line 725  static object LI8(V45)
725    
726  register object V45;  register object V45;
727  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
728    goto TTL;
729  TTL:;  TTL:;
730          base[0]= Ct;          base[0]= Ct;
731          base[1]= VV[55];          base[1]= VV[55];
# Line 679  TTL:; Line 753  TTL:;
753          goto T275;}          goto T275;}
754          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
755          princ_char(10,Cnil);          princ_char(10,Cnil);
756    goto T275;
757  T275:;  T275:;
758          base[0]= (V45);          base[0]= (V45);
759          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 700  T275:; Line 775  T275:;
775          goto T286;}          goto T286;}
776          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
777          princ_char(10,Cnil);          princ_char(10,Cnil);
778    goto T286;
779  T286:;  T286:;
780          base[0]= (V45);          base[0]= (V45);
781          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 721  T286:; Line 797  T286:;
797          goto T297;}          goto T297;}
798          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
799          princ_char(10,Cnil);          princ_char(10,Cnil);
800    goto T297;
801  T297:;  T297:;
802          base[0]= (V45);          base[0]= (V45);
803          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 743  T297:; Line 820  T297:;
820          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
821          {object V46 = terpri(Cnil);          {object V46 = terpri(Cnil);
822          VMR9(V46)}          VMR9(V46)}
823    goto T313;
824  T313:;  T313:;
825          {object V47 = Cnil;          {object V47 = Cnil;
826          VMR9(V47)}          VMR9(V47)}
827    goto T309;
828  T309:;  T309:;
829          {object V48 = Cnil;          {object V48 = Cnil;
830          VMR9(V48)}          VMR9(V48)}
831            base[0]=base[0];
832            return Cnil;
833  }  }
834  /*      local entry for function INSPECT-CHARACTER      */  /*      local entry for function INSPECT-CHARACTER      */
835    
# Line 756  static object LI9(V50) Line 837  static object LI9(V50)
837    
838  register object V50;  register object V50;
839  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
840    goto TTL;
841  TTL:;  TTL:;
842          base[0]= Ct;          base[0]= Ct;
843          base[2]= (V50);          base[2]= (V50);
# Line 766  TTL:; Line 848  TTL:;
848          goto T324;}          goto T324;}
849          base[1]= VV[60];          base[1]= VV[60];
850          goto T322;          goto T322;
851    goto T324;
852  T324:;  T324:;
853          base[2]= (V50);          base[2]= (V50);
854          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 775  T324:; Line 858  T324:;
858          goto T328;}          goto T328;}
859          base[1]= VV[61];          base[1]= VV[61];
860          goto T322;          goto T322;
861    goto T328;
862  T328:;  T328:;
863          base[1]= VV[62];          base[1]= VV[62];
864    goto T322;
865  T322:;  T322:;
866          base[2]= (V50);          base[2]= (V50);
867          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 796  T322:; Line 881  T322:;
881          goto T332;}          goto T332;}
882          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
883          princ_char(10,Cnil);          princ_char(10,Cnil);
884    goto T332;
885  T332:;  T332:;
886          base[0]= VV[64];          base[0]= VV[64];
887          base[2]= (V50);          base[2]= (V50);
# Line 811  T332:; Line 897  T332:;
897          goto T340;}          goto T340;}
898          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
899          princ_char(10,Cnil);          princ_char(10,Cnil);
900    goto T340;
901  T340:;  T340:;
902          base[0]= VV[65];          base[0]= VV[65];
903          base[2]= (V50);          base[2]= (V50);
# Line 827  T340:; Line 914  T340:;
914          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
915          {object V51 = terpri(Cnil);          {object V51 = terpri(Cnil);
916          VMR10(V51)}          VMR10(V51)}
917    goto T349;
918  T349:;  T349:;
919          {object V52 = Cnil;          {object V52 = Cnil;
920          VMR10(V52)}          VMR10(V52)}
921            base[0]=base[0];
922            return Cnil;
923  }  }
924  /*      local entry for function INSPECT-NUMBER */  /*      local entry for function INSPECT-NUMBER */
925    
# Line 837  static object LI10(V54) Line 927  static object LI10(V54)
927    
928  register object V54;  register object V54;
929  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
930    goto TTL;
931  TTL:;  TTL:;
932          base[0]= (V54);          base[0]= (V54);
933          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 853  TTL:; Line 944  TTL:;
944          vs_top=sup;          vs_top=sup;
945          {object V57 = vs_base[0];          {object V57 = vs_base[0];
946          VMR11(V57)}          VMR11(V57)}
947    goto T358;
948  T358:;  T358:;
949          if((V55!= VV[166]))goto T362;          if((V55!= VV[166]))goto T362;
950          base[0]= Ct;          base[0]= Ct;
# Line 863  T358:; Line 955  T358:;
955          vs_top=sup;          vs_top=sup;
956          {object V58 = vs_base[0];          {object V58 = vs_base[0];
957          VMR11(V58)}          VMR11(V58)}
958    goto T362;
959  T362:;  T362:;
960          if((V55!= VV[167]))goto T366;          if((V55!= VV[167]))goto T366;
961          base[0]= Ct;          base[0]= Ct;
# Line 885  T362:; Line 978  T362:;
978          goto T371;}          goto T371;}
979          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
980          princ_char(10,Cnil);          princ_char(10,Cnil);
981    goto T371;
982  T371:;  T371:;
983          base[0]= VV[70];          base[0]= VV[70];
984          base[2]= (V54);          base[2]= (V54);
# Line 901  T371:; Line 995  T371:;
995          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
996          {object V59 = terpri(Cnil);          {object V59 = terpri(Cnil);
997          VMR11(V59)}          VMR11(V59)}
998    goto T380;
999  T380:;  T380:;
1000          {object V60 = Cnil;          {object V60 = Cnil;
1001          VMR11(V60)}          VMR11(V60)}
1002    goto T366;
1003  T366:;  T366:;
1004          if((V55!= VV[168]))goto T387;          if((V55!= VV[168]))goto T387;
1005          base[0]= Ct;          base[0]= Ct;
# Line 926  T366:; Line 1022  T366:;
1022          goto T392;}          goto T392;}
1023          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1024          princ_char(10,Cnil);          princ_char(10,Cnil);
1025    goto T392;
1026  T392:;  T392:;
1027          base[0]= VV[73];          base[0]= VV[73];
1028          base[2]= (V54);          base[2]= (V54);
# Line 942  T392:; Line 1039  T392:;
1039          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1040          {object V61 = terpri(Cnil);          {object V61 = terpri(Cnil);
1041          VMR11(V61)}          VMR11(V61)}
1042    goto T401;
1043  T401:;  T401:;
1044          {object V62 = Cnil;          {object V62 = Cnil;
1045          VMR11(V62)}          VMR11(V62)}
1046    goto T387;
1047  T387:;  T387:;
1048          if((V55!= VV[169])          if((V55!= VV[169])
1049          && (V55!= VV[170]))goto T408;          && (V55!= VV[170]))goto T408;
# Line 970  T387:; Line 1069  T387:;
1069          V65= vs_base[0];          V65= vs_base[0];
1070          vs_top=sup;          vs_top=sup;
1071          goto T418;          goto T418;
1072    goto T415;
1073  T415:;  T415:;
1074          V63= Cnil;          V63= Cnil;
1075    goto T416;
1076  T416:;  T416:;
1077          V64= Cnil;          V64= Cnil;
1078    goto T417;
1079  T417:;  T417:;
1080          V65= Cnil;          V65= Cnil;
1081    goto T418;
1082  T418:;  T418:;
1083          base[0]= VV[75];          base[0]= VV[75];
1084          base[1]= (V64);          base[1]= (V64);
# Line 987  T418:; Line 1090  T418:;
1090          goto T419;}          goto T419;}
1091          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1092          princ_char(10,Cnil);          princ_char(10,Cnil);
1093    goto T419;
1094  T419:;  T419:;
1095          base[0]= VV[76];          base[0]= VV[76];
1096          base[1]= (V63);          base[1]= (V63);
# Line 999  T419:; Line 1103  T419:;
1103          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1104          {object V66 = terpri(Cnil);          {object V66 = terpri(Cnil);
1105          VMR11(V66)}          VMR11(V66)}
1106    goto T427;
1107  T427:;  T427:;
1108          {object V67 = Cnil;          {object V67 = Cnil;
1109          VMR11(V67)}}          VMR11(V67)}}
1110    goto T408;
1111  T408:;  T408:;
1112          if((V55!= VV[171])          if((V55!= VV[171])
1113          && (V55!= VV[172]))goto T433;          && (V55!= VV[172]))goto T433;
# Line 1027  T408:; Line 1133  T408:;
1133          V70= vs_base[0];          V70= vs_base[0];
1134          vs_top=sup;          vs_top=sup;
1135          goto T443;          goto T443;
1136    goto T440;
1137  T440:;  T440:;
1138          V68= Cnil;          V68= Cnil;
1139    goto T441;
1140  T441:;  T441:;
1141          V69= Cnil;          V69= Cnil;
1142    goto T442;
1143  T442:;  T442:;
1144          V70= Cnil;          V70= Cnil;
1145    goto T443;
1146  T443:;  T443:;
1147          base[0]= VV[78];          base[0]= VV[78];
1148          base[1]= (V69);          base[1]= (V69);
# Line 1044  T443:; Line 1154  T443:;
1154          goto T444;}          goto T444;}
1155          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1156          princ_char(10,Cnil);          princ_char(10,Cnil);
1157    goto T444;
1158  T444:;  T444:;
1159          base[0]= VV[79];          base[0]= VV[79];
1160          base[1]= (V68);          base[1]= (V68);
# Line 1056  T444:; Line 1167  T444:;
1167          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1168          {object V71 = terpri(Cnil);          {object V71 = terpri(Cnil);
1169          VMR11(V71)}          VMR11(V71)}
1170    goto T452;
1171  T452:;  T452:;
1172          {object V72 = Cnil;          {object V72 = Cnil;
1173          VMR11(V72)}}          VMR11(V72)}}
1174    goto T433;
1175  T433:;  T433:;
1176          {object V73 = Cnil;          {object V73 = Cnil;
1177          VMR11(V73)}}          VMR11(V73)}}
1178            base[0]=base[0];
1179            return Cnil;
1180  }  }
1181  /*      local entry for function INSPECT-CONS   */  /*      local entry for function INSPECT-CONS   */
1182    
# Line 1069  static object LI11(V75) Line 1184  static object LI11(V75)
1184    
1185  register object V75;  register object V75;
1186  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1187    goto TTL;
1188  TTL:;  TTL:;
1189          base[0]= Ct;          base[0]= Ct;
1190          {object V76= car((V75));          {object V76= car((V75));
# Line 1078  TTL:; Line 1194  TTL:;
1194          && (V76!= VV[176]))goto T461;          && (V76!= VV[176]))goto T461;
1195          base[1]= VV[80];          base[1]= VV[80];
1196          goto T460;          goto T460;
1197    goto T461;
1198  T461:;  T461:;
1199          if((V76!= VV[177]))goto T462;          if((V76!= VV[177]))goto T462;
1200          base[1]= VV[81];          base[1]= VV[81];
1201          goto T460;          goto T460;
1202    goto T462;
1203  T462:;  T462:;
1204          base[1]= VV[82];}          base[1]= VV[82];}
1205    goto T460;
1206  T460:;  T460:;
1207          base[2]= (V75);          base[2]= (V75);
1208          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1095  T460:; Line 1214  T460:;
1214          register object V78;          register object V78;
1215          V77= small_fixnum(0);          V77= small_fixnum(0);
1216          V78= (V75);          V78= (V75);
1217    goto T468;
1218  T468:;  T468:;
1219          if(!(type_of((V78))!=t_cons)){          if(!(type_of((V78))!=t_cons)){
1220          goto T469;}          goto T469;}
# Line 1118  T468:; Line 1238  T468:;
1238          V80= vs_base[0];          V80= vs_base[0];
1239          vs_top=sup;          vs_top=sup;
1240          goto T481;          goto T481;
1241    goto T479;
1242  T479:;  T479:;
1243          V79= Cnil;          V79= Cnil;
1244    goto T480;
1245  T480:;  T480:;
1246          V80= Cnil;          V80= Cnil;
1247    goto T481;
1248  T481:;  T481:;
1249          if(((V79))==Cnil){          if(((V79))==Cnil){
1250          goto T483;}          goto T483;}
# Line 1134  T481:; Line 1257  T481:;
1257          ((V81))->c.c_cdr = (V82);          ((V81))->c.c_cdr = (V82);
1258          {object V84 = (V82);          {object V84 = (V82);
1259          VMR12(V84)}}          VMR12(V84)}}
1260    goto T483;
1261  T483:;  T483:;
1262          {object V85 = Cnil;          {object V85 = Cnil;
1263          VMR12(V85)}}          VMR12(V85)}}
1264    goto T469;
1265  T469:;  T469:;
1266          {register object V86;          {register object V86;
1267          register object V87;          register object V87;
# Line 1158  T469:; Line 1283  T469:;
1283          V87= vs_base[0];          V87= vs_base[0];
1284          vs_top=sup;          vs_top=sup;
1285          goto T499;          goto T499;
1286    goto T497;
1287  T497:;  T497:;
1288          V86= Cnil;          V86= Cnil;
1289    goto T498;
1290  T498:;  T498:;
1291          V87= Cnil;          V87= Cnil;
1292    goto T499;
1293  T499:;  T499:;
1294          if(((V86))==Cnil){          if(((V86))==Cnil){
1295          goto T489;}          goto T489;}
# Line 1174  T499:; Line 1302  T499:;
1302          if(type_of(nthcdr(fixint((V88)),(V89)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V88)),(V89)));          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);          (nthcdr(fixint((V88)),(V89)))->c.c_car = (V90);
1304          (void)(nthcdr(fixint((V88)),(V89)));}}          (void)(nthcdr(fixint((V88)),(V89)));}}
1305    goto T489;
1306  T489:;  T489:;
1307          V77= one_plus((V77));          V77= one_plus((V77));
1308          V78= cdr((V78));          V78= cdr((V78));
1309          goto T468;}          goto T468;}
1310    goto T465;
1311  T465:;  T465:;
1312          {object V91 = Cnil;          {object V91 = Cnil;
1313          VMR12(V91)}          VMR12(V91)}
1314            base[0]=base[0];
1315            return Cnil;
1316  }  }
1317  /*      local entry for function INSPECT-STRING */  /*      local entry for function INSPECT-STRING */
1318    
# Line 1188  static object LI12(V93) Line 1320  static object LI12(V93)
1320    
1321  register object V93;  register object V93;
1322  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1323    goto TTL;
1324  TTL:;  TTL:;
1325          base[0]= Ct;          base[0]= Ct;
1326          base[2]= (V93);          base[2]= (V93);
# Line 1198  TTL:; Line 1331  TTL:;
1331          goto T514;}          goto T514;}
1332          base[1]= VV[85];          base[1]= VV[85];
1333          goto T512;          goto T512;
1334    goto T514;
1335  T514:;  T514:;
1336          base[1]= VV[86];          base[1]= VV[86];
1337    goto T512;
1338  T512:;  T512:;
1339          base[2]= (V93);          base[2]= (V93);
1340          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1220  T512:; Line 1355  T512:;
1355          goto T518;}          goto T518;}
1356          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1357          princ_char(10,Cnil);          princ_char(10,Cnil);
1358    goto T518;
1359  T518:;  T518:;
1360          base[0]= (V93);          base[0]= (V93);
1361          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1245  T518:; Line 1381  T518:;
1381          V95= vs_base[0];          V95= vs_base[0];
1382          vs_top=sup;          vs_top=sup;
1383          goto T538;          goto T538;
1384    goto T536;
1385  T536:;  T536:;
1386          V94= Cnil;          V94= Cnil;
1387    goto T537;
1388  T537:;  T537:;
1389          V95= Cnil;          V95= Cnil;
1390    goto T538;
1391  T538:;  T538:;
1392          if(((V94))==Cnil){          if(((V94))==Cnil){
1393          goto T527;}          goto T527;}
# Line 1257  T538:; Line 1396  T538:;
1396          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1397          siLfill_pointer_set();          siLfill_pointer_set();
1398          vs_top=sup;}          vs_top=sup;}
1399    goto T527;
1400  T527:;  T527:;
1401          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
1402          goto T544;}          goto T544;}
# Line 1269  T527:; Line 1409  T527:;
1409          vs_top=sup;          vs_top=sup;
1410          V96= vs_base[0];          V96= vs_base[0];
1411          V97= small_fixnum(0);          V97= small_fixnum(0);
1412    goto T551;
1413  T551:;  T551:;
1414          if(!(number_compare((V97),(V96))>=0)){          if(!(number_compare((V97),(V96))>=0)){
1415          goto T552;}          goto T552;}
1416          {object V98 = Cnil;          {object V98 = Cnil;
1417          VMR13(V98)}          VMR13(V98)}
1418    goto T552;
1419  T552:;  T552:;
1420          {register object V99;          {register object V99;
1421          register object V100;          register object V100;
# Line 1295  T552:; Line 1437  T552:;
1437          V100= vs_base[0];          V100= vs_base[0];
1438          vs_top=sup;          vs_top=sup;
1439          goto T566;          goto T566;
1440    goto T564;
1441  T564:;  T564:;
1442          V99= Cnil;          V99= Cnil;
1443    goto T565;
1444  T565:;  T565:;
1445          V100= Cnil;          V100= Cnil;
1446    goto T566;
1447  T566:;  T566:;
1448          if(((V99))==Cnil){          if(((V99))==Cnil){
1449          goto T556;}          goto T556;}
1450          (void)(elt_set((V93),fixint((V97)),(V100)));}          (void)(elt_set((V93),fixint((V97)),(V100)));}
1451    goto T556;
1452  T556:;  T556:;
1453          V97= one_plus((V97));          V97= one_plus((V97));
1454          goto T551;}          goto T551;}
1455    goto T544;
1456  T544:;  T544:;
1457          {object V101 = Cnil;          {object V101 = Cnil;
1458          VMR13(V101)}          VMR13(V101)}
1459            base[0]=base[0];
1460            return Cnil;
1461  }  }
1462  /*      local entry for function INSPECT-VECTOR */  /*      local entry for function INSPECT-VECTOR */
1463    
# Line 1316  static object LI13(V103) Line 1465  static object LI13(V103)
1465    
1466  register object V103;  register object V103;
1467  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1468    goto TTL;
1469  TTL:;  TTL:;
1470          base[0]= Ct;          base[0]= Ct;
1471          base[2]= (V103);          base[2]= (V103);
# Line 1326  TTL:; Line 1476  TTL:;
1476          goto T576;}          goto T576;}
1477          base[1]= VV[90];          base[1]= VV[90];
1478          goto T574;          goto T574;
1479    goto T576;
1480  T576:;  T576:;
1481          base[1]= VV[91];          base[1]= VV[91];
1482    goto T574;
1483  T574:;  T574:;
1484          base[2]= (V103);          base[2]= (V103);
1485          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1348  T574:; Line 1500  T574:;
1500          goto T580;}          goto T580;}
1501          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1502          princ_char(10,Cnil);          princ_char(10,Cnil);
1503    goto T580;
1504  T580:;  T580:;
1505          base[0]= (V103);          base[0]= (V103);
1506          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1373  T580:; Line 1526  T580:;
1526          V105= vs_base[0];          V105= vs_base[0];
1527          vs_top=sup;          vs_top=sup;
1528          goto T600;          goto T600;
1529    goto T598;
1530  T598:;  T598:;
1531          V104= Cnil;          V104= Cnil;
1532    goto T599;
1533  T599:;  T599:;
1534          V105= Cnil;          V105= Cnil;
1535    goto T600;
1536  T600:;  T600:;
1537          if(((V104))==Cnil){          if(((V104))==Cnil){
1538          goto T589;}          goto T589;}
# Line 1385  T600:; Line 1541  T600:;
1541          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1542          siLfill_pointer_set();          siLfill_pointer_set();
1543          vs_top=sup;}          vs_top=sup;}
1544    goto T589;
1545  T589:;  T589:;
1546          if((symbol_value(VV[3]))==Cnil){          if((symbol_value(VV[3]))==Cnil){
1547          goto T606;}          goto T606;}
# Line 1397  T589:; Line 1554  T589:;
1554          vs_top=sup;          vs_top=sup;
1555          V106= vs_base[0];          V106= vs_base[0];
1556          V107= small_fixnum(0);          V107= small_fixnum(0);
1557    goto T613;
1558  T613:;  T613:;
1559          if(!(number_compare((V107),(V106))>=0)){          if(!(number_compare((V107),(V106))>=0)){
1560          goto T614;}          goto T614;}
1561          {object V108 = Cnil;          {object V108 = Cnil;
1562          VMR14(V108)}          VMR14(V108)}
1563    goto T614;
1564  T614:;  T614:;
1565          {register object V109;          {register object V109;
1566          register object V110;          register object V110;
# Line 1423  T614:; Line 1582  T614:;
1582          V110= vs_base[0];          V110= vs_base[0];
1583          vs_top=sup;          vs_top=sup;
1584          goto T628;          goto T628;
1585    goto T626;
1586  T626:;  T626:;
1587          V109= Cnil;          V109= Cnil;
1588    goto T627;
1589  T627:;  T627:;
1590          V110= Cnil;          V110= Cnil;
1591    goto T628;
1592  T628:;  T628:;
1593          if(((V109))==Cnil){          if(((V109))==Cnil){
1594          goto T618;}          goto T618;}
1595          (void)(aset1((V103),fixint((V107)),(V110)));}          (void)(aset1((V103),fixint((V107)),(V110)));}
1596    goto T618;
1597  T618:;  T618:;
1598          V107= one_plus((V107));          V107= one_plus((V107));
1599          goto T613;}          goto T613;}
1600    goto T606;
1601  T606:;  T606:;
1602          {object V111 = Cnil;          {object V111 = Cnil;
1603          VMR14(V111)}          VMR14(V111)}
1604            base[0]=base[0];
1605            return Cnil;
1606  }  }
1607  /*      local entry for function INSPECT-ARRAY  */  /*      local entry for function INSPECT-ARRAY  */
1608    
# Line 1444  static object LI14(V113) Line 1610  static object LI14(V113)
1610    
1611  register object V113;  register object V113;
1612  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1613    goto TTL;
1614  TTL:;  TTL:;
1615          base[0]= Ct;          base[0]= Ct;
1616          base[2]= (V113);          base[2]= (V113);
# Line 1454  TTL:; Line 1621  TTL:;
1621          goto T638;}          goto T638;}
1622          base[1]= VV[95];          base[1]= VV[95];
1623          goto T636;          goto T636;
1624    goto T638;
1625  T638:;  T638:;
1626          base[1]= VV[96];          base[1]= VV[96];
1627    goto T636;
1628  T636:;  T636:;
1629          base[2]= (V113);          base[2]= (V113);
1630          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
# Line 1475  T636:; Line 1644  T636:;
1644          goto T642;}          goto T642;}
1645          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1646          princ_char(10,Cnil);          princ_char(10,Cnil);
1647    goto T642;
1648  T642:;  T642:;
1649          base[0]= VV[98];          base[0]= VV[98];
1650          base[1]= (*(LnkLI179))((V113));          base[1]= (*(LnkLI179))((V113));
# Line 1486  T642:; Line 1656  T642:;
1656          goto T650;}          goto T650;}
1657          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1658          princ_char(10,Cnil);          princ_char(10,Cnil);
1659    goto T650;
1660  T650:;  T650:;
1661          base[0]= VV[99];          base[0]= VV[99];
1662          base[2]= (V113);          base[2]= (V113);
# Line 1502  T650:; Line 1673  T650:;
1673          princ_str("Not updated.",Cnil);          princ_str("Not updated.",Cnil);
1674          {object V114 = terpri(Cnil);          {object V114 = terpri(Cnil);
1675          VMR15(V114)}          VMR15(V114)}
1676    goto T658;
1677  T658:;  T658:;
1678          {object V115 = Cnil;          {object V115 = Cnil;
1679          VMR15(V115)}          VMR15(V115)}
1680            base[0]=base[0];
1681            return Cnil;
1682  }  }
1683  /*      local entry for function INSPECT-STRUCTURE      */  /*      local entry for function INSPECT-STRUCTURE      */
1684    
# Line 1512  static object LI15(V117) Line 1686  static object LI15(V117)
1686    
1687  register object V117;  register object V117;
1688  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1689    goto TTL;
1690  TTL:;  TTL:;
1691          {object V118;          {object V118;
1692          V118= Cnil;          V118= Cnil;
# Line 1534  TTL:; Line 1709  TTL:;
1709          register object V122;          register object V122;
1710          V121= structure_ref((V119),VV[101],7);          V121= structure_ref((V119),VV[101],7);
1711          V122= car((V121));          V122= car((V121));
1712    goto T677;
1713  T677:;  T677:;
1714          if(!(endp((V121)))){          if(!(endp((V121)))){
1715          goto T678;}          goto T678;}
1716          {object V123 = Cnil;          {object V123 = Cnil;
1717          VMR16(V123)}          VMR16(V123)}
1718    goto T678;
1719  T678:;  T678:;
1720          base[4]= Ct;          base[4]= Ct;
1721          base[5]= VV[102];          base[5]= VV[102];
# Line 1549  T678:; Line 1726  T678:;
1726          goto T689;}          goto T689;}
1727          base[7]= Cnil;          base[7]= Cnil;
1728          goto T686;          goto T686;
1729    goto T689;
1730  T689:;  T689:;
1731          base[7]= (V124);}          base[7]= (V124);}
1732    goto T686;
1733  T686:;  T686:;
1734          base[8]= car((V122));          base[8]= car((V122));
1735          base[10]= (V117);          base[10]= (V117);
# Line 1565  T686:; Line 1744  T686:;
1744          V121= cdr((V121));          V121= cdr((V121));
1745          V122= car((V121));          V122= car((V121));
1746          goto T677;}}}          goto T677;}}}
1747            base[0]=base[0];
1748            return Cnil;
1749  }  }
1750  /*      function definition for INSPECT-OBJECT  */  /*      function definition for INSPECT-OBJECT  */
1751    
1752  static L16()  static void L16()
1753  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
1754          register object *VOL sup=base+VM17; VC17          register object *VOL sup=base+VM17; VC17
1755          vs_reserve(VM17);          vs_reserve(VM17);
# Line 1577  static L16() Line 1758  static L16()
1758          check_arg(1);          check_arg(1);
1759          V125=(base[0]);          V125=(base[0]);
1760          vs_top=sup;          vs_top=sup;
1761    goto TTL;
1762  TTL:;  TTL:;
1763          bds_bind(VV[41],symbol_value(VV[41]));          bds_bind(VV[41],symbol_value(VV[41]));
1764          (void)((*(LnkLI160))());          (void)((*(LnkLI160))());
# Line 1590  TTL:; Line 1772  TTL:;
1772          goto T707;          goto T707;
1773          }else V126=V126->c.c_cdr;          }else V126=V126->c.c_cdr;
1774          goto T701;}          goto T701;}
1775    goto T707;
1776  T707:;  T707:;
1777    goto T702;
1778  T702:;  T702:;
1779          (void)(prin1((V125),Cnil));          (void)(prin1((V125),Cnil));
1780          base[2]= Cnil;          base[2]= Cnil;
1781          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1782          bds_unwind1;          bds_unwind1;
1783          return;          return;
1784    goto T701;
1785  T701:;  T701:;
1786          (VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1));          (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])));          setq(VV[103],make_cons((V125),symbol_value(VV[103])));
# Line 1614  T701:; Line 1799  T701:;
1799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1800          bds_unwind1;          bds_unwind1;
1801          return;          return;
1802    goto T715;
1803  T715:;  T715:;
1804          base[2]= (V125);          base[2]= (V125);
1805          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1627  T715:; Line 1813  T715:;
1813          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1814          bds_unwind1;          bds_unwind1;
1815          return;          return;
1816    goto T718;
1817  T718:;  T718:;
1818          if(!(type_of((V125))==t_character)){          if(!(type_of((V125))==t_character)){
1819          goto T722;}          goto T722;}
# Line 1636  T718:; Line 1823  T718:;
1823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1824          bds_unwind1;          bds_unwind1;
1825          return;          return;
1826    goto T722;
1827  T722:;  T722:;
1828          if(!(type_of((V125))==t_fixnum||          if(!(type_of((V125))==t_fixnum||
1829  type_of((V125))==t_bignum||  type_of((V125))==t_bignum||
# Line 1650  type_of((V125))==t_complex)){ Line 1838  type_of((V125))==t_complex)){
1838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1839          bds_unwind1;          bds_unwind1;
1840          return;          return;
1841    goto T725;
1842  T725:;  T725:;
1843          if(!(type_of((V125))==t_cons)){          if(!(type_of((V125))==t_cons)){
1844          goto T728;}          goto T728;}
# Line 1659  T725:; Line 1848  T725:;
1848          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1849          bds_unwind1;          bds_unwind1;
1850          return;          return;
1851    goto T728;
1852  T728:;  T728:;
1853          if(!(type_of((V125))==t_string)){          if(!(type_of((V125))==t_string)){
1854          goto T731;}          goto T731;}
# Line 1668  T728:; Line 1858  T728:;
1858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1859          bds_unwind1;          bds_unwind1;
1860          return;          return;
1861    goto T731;
1862  T731:;  T731:;
1863          if(!(type_of((V125))==t_vector||          if(!(type_of((V125))==t_vector||
1864  type_of((V125))==t_string||  type_of((V125))==t_string||
# Line 1679  type_of((V125))==t_bitvector)){ Line 1870  type_of((V125))==t_bitvector)){
1870          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1871          bds_unwind1;          bds_unwind1;
1872          return;          return;
1873    goto T734;
1874  T734:;  T734:;
1875          if(!(type_of((V125))==t_array||          if(!(type_of((V125))==t_array||
1876  type_of((V125))==t_vector||  type_of((V125))==t_vector||
# Line 1691  type_of((V125))==t_bitvector)){ Line 1883  type_of((V125))==t_bitvector)){
1883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1884          bds_unwind1;          bds_unwind1;
1885          return;          return;
1886    goto T737;
1887  T737:;  T737:;
1888          if(!(type_of((V125))==t_structure)){          if(!(type_of((V125))==t_structure)){
1889          goto T740;}          goto T740;}
# Line 1700  T737:; Line 1893  T737:;
1893          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1894          bds_unwind1;          bds_unwind1;
1895          return;          return;
1896    goto T740;
1897  T740:;  T740:;
1898          base[2]= Ct;          base[2]= Ct;
1899          base[3]= VV[104];          base[3]= VV[104];
# Line 1718  T740:; Line 1912  T740:;
1912  }  }
1913  /*      function definition for DESCRIBE        */  /*      function definition for DESCRIBE        */
1914    
1915  static L17()  static void L17()
1916  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
1917          register object *VOL sup=base+VM18; VC18          register object *VOL sup=base+VM18; VC18
1918          vs_reserve(VM18);          vs_reserve(VM18);
# Line 1727  static L17() Line 1921  static L17()
1921          check_arg(1);          check_arg(1);
1922          V136=(base[0]);          V136=(base[0]);
1923          vs_top=sup;          vs_top=sup;
1924    goto TTL;
1925  TTL:;  TTL:;
1926          bds_bind(VV[3],Cnil);          bds_bind(VV[3],Cnil);
1927          bds_bind(VV[41],small_fixnum(0));          bds_bind(VV[41],small_fixnum(0));
# Line 1745  TTL:; Line 1940  TTL:;
1940          (void) (*Lnk159)();          (void) (*Lnk159)();
1941          vs_top=sup;          vs_top=sup;
1942          frs_pop();}          frs_pop();}
1943    goto T748;
1944  T748:;  T748:;
1945          princ_char(10,Cnil);          princ_char(10,Cnil);
1946          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
# Line 1759  T748:; Line 1955  T748:;
1955  }  }
1956  /*      function definition for INSPECT */  /*      function definition for INSPECT */
1957    
1958  static L18()  static void L18()
1959  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
1960          register object *VOL sup=base+VM19; VC19          register object *VOL sup=base+VM19; VC19
1961          vs_reserve(VM19);          vs_reserve(VM19);
# Line 1768  static L18() Line 1964  static L18()
1964          check_arg(1);          check_arg(1);
1965          V137=(base[0]);          V137=(base[0]);
1966          vs_top=sup;          vs_top=sup;
1967    goto TTL;
1968  TTL:;  TTL:;
1969          bds_bind(VV[3],Ct);          bds_bind(VV[3],Ct);
1970          bds_bind(VV[41],small_fixnum(0));          bds_bind(VV[41],small_fixnum(0));
# Line 1792  TTL:; Line 1989  TTL:;
1989          (void) (*Lnk159)();          (void) (*Lnk159)();
1990          vs_top=sup;          vs_top=sup;
1991          frs_pop();}          frs_pop();}
1992    goto T755;
1993  T755:;  T755:;
1994          princ_char(10,Cnil);          princ_char(10,Cnil);
1995          vs_base=vs_top=base+8;          vs_base=vs_top=base+8;
# Line 1808  T755:; Line 2006  T755:;
2006  }  }
2007  /*      function definition for PRINT-DOC       */  /*      function definition for PRINT-DOC       */
2008    
2009  static L19()  static void L19()
2010  {register object *base=vs_base;  {register object *base=vs_base;
2011          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2012          vs_reserve(VM20);          vs_reserve(VM20);
# Line 1821  static L19() Line 2019  static L19()
2019          V138=(base[1]);          V138=(base[1]);
2020          vs_top=sup;          vs_top=sup;
2021          goto T760;          goto T760;
2022    goto T759;
2023  T759:;  T759:;
2024          V138= Cnil;          V138= Cnil;
2025    goto T760;
2026  T760:;  T760:;
2027          {register object V139;          {register object V139;
2028          base[2]= Cnil;          base[2]= Cnil;
# Line 1837  T760:; Line 2037  T760:;
2037          if(V140==Cnil)goto T770;          if(V140==Cnil)goto T770;
2038          base[3]= V140;          base[3]= V140;
2039          goto T769;          goto T769;
2040    goto T770;
2041  T770:;}  T770:;}
2042          base[3]= VV[106];          base[3]= VV[106];
2043    goto T769;
2044  T769:;  T769:;
2045          base[5]= base[0];          base[5]= base[0];
2046          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 1848  T769:; Line 2050  T769:;
2050          goto T774;}          goto T774;}
2051          base[4]= VV[107];          base[4]= VV[107];
2052          goto T772;          goto T772;
2053    goto T774;
2054  T774:;  T774:;
2055          base[4]= VV[108];          base[4]= VV[108];
2056    goto T772;
2057  T772:;  T772:;
2058          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2059          L20(base);          L20(base);
2060          vs_top=sup;          vs_top=sup;
2061          goto T764;          goto T764;
2062    goto T766;
2063  T766:;  T766:;
2064          base[3]= base[0];          base[3]= base[0];
2065          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1866  T766:; Line 2071  T766:;
2071          if(V141==Cnil)goto T782;          if(V141==Cnil)goto T782;
2072          base[3]= V141;          base[3]= V141;
2073          goto T781;          goto T781;
2074    goto T782;
2075  T782:;}  T782:;}
2076          base[3]= VV[109];          base[3]= VV[109];
2077    goto T781;
2078  T781:;  T781:;
2079          base[4]= VV[110];          base[4]= VV[110];
2080          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2081          L20(base);          L20(base);
2082          vs_top=sup;          vs_top=sup;
2083          goto T764;          goto T764;
2084    goto T778;
2085  T778:;  T778:;
2086          base[3]= base[0];          base[3]= base[0];
2087          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1885  T778:; Line 2093  T778:;
2093          if(V142==Cnil)goto T790;          if(V142==Cnil)goto T790;
2094          base[3]= V142;          base[3]= V142;
2095          goto T789;          goto T789;
2096    goto T790;
2097  T790:;}  T790:;}
2098          base[4]= base[0];          base[4]= base[0];
2099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1903  T790:;} Line 2112  T790:;}
2112          vs_top=sup;          vs_top=sup;
2113          base[3]= vs_base[0];          base[3]= vs_base[0];
2114          goto T789;          goto T789;
2115    goto T797;
2116  T797:;  T797:;
2117          if((V143!= VV[174]))goto T801;          if((V143!= VV[174]))goto T801;
2118          base[4]= Cnil;          base[4]= Cnil;
# Line 1913  T797:; Line 2123  T797:;
2123          vs_top=sup;          vs_top=sup;
2124          base[3]= vs_base[0];          base[3]= vs_base[0];
2125          goto T789;          goto T789;
2126    goto T801;
2127  T801:;  T801:;
2128          if((V143!= VV[175]))goto T805;          if((V143!= VV[175]))goto T805;
2129          base[4]= Cnil;          base[4]= Cnil;
# Line 1923  T801:; Line 2134  T801:;
2134          vs_top=sup;          vs_top=sup;
2135          base[3]= vs_base[0];          base[3]= vs_base[0];
2136          goto T789;          goto T789;
2137    goto T805;
2138  T805:;  T805:;
2139          if((V143!= VV[176]))goto T809;          if((V143!= VV[176]))goto T809;
2140          base[4]= Cnil;          base[4]= Cnil;
# Line 1933  T805:; Line 2145  T805:;
2145          vs_top=sup;          vs_top=sup;
2146          base[3]= vs_base[0];          base[3]= vs_base[0];
2147          goto T789;          goto T789;
2148    goto T809;
2149  T809:;  T809:;
2150          base[3]= VV[115];          base[3]= VV[115];
2151          goto T789;}          goto T789;}
2152    goto T793;
2153  T793:;  T793:;
2154          base[3]= VV[116];          base[3]= VV[116];
2155    goto T789;
2156  T789:;  T789:;
2157          base[4]= VV[117];          base[4]= VV[117];
2158          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2159          L20(base);          L20(base);
2160          vs_top=sup;          vs_top=sup;
2161          goto T764;          goto T764;
2162    goto T786;
2163  T786:;  T786:;
2164          V139= (*(LnkLI191))(base[0],VV[105]);          V139= (*(LnkLI191))(base[0],VV[105]);
2165          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 1953  T786:; Line 2169  T786:;
2169          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2170          L20(base);          L20(base);
2171          vs_top=sup;          vs_top=sup;
2172    goto T764;
2173  T764:;  T764:;
2174          base[3]= base[0];          base[3]= base[0];
2175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1974  T764:; Line 2191  T764:;
2191          goto T824;}          goto T824;}
2192          if(((*(LnkLI191))(base[0],VV[120]))==Cnil){          if(((*(LnkLI191))(base[0],VV[120]))==Cnil){
2193          goto T819;}          goto T819;}
2194    goto T824;
2195  T824:;{object V146;  T824:;{object V146;
2196          V146= (*(LnkLI191))(base[0],VV[120]);          V146= (*(LnkLI191))(base[0],VV[120]);
2197          if(V146==Cnil)goto T833;          if(V146==Cnil)goto T833;
2198          base[3]= V146;          base[3]= V146;
2199          goto T832;          goto T832;
2200    goto T833;
2201  T833:;}  T833:;}
2202          base[3]= VV[121];          base[3]= VV[121];
2203    goto T832;
2204  T832:;  T832:;
2205          base[4]= VV[122];          base[4]= VV[122];
2206          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2207          L20(base);          L20(base);
2208          vs_top=sup;          vs_top=sup;
2209          goto T819;          goto T819;
2210    goto T821;
2211  T821:;  T821:;
2212          base[3]= base[0];          base[3]= base[0];
2213          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1998  T821:; Line 2219  T821:;
2219          if(V147==Cnil)goto T841;          if(V147==Cnil)goto T841;
2220          base[3]= V147;          base[3]= V147;
2221          goto T840;          goto T840;
2222    goto T841;
2223  T841:;}  T841:;}
2224          base[3]= VV[123];          base[3]= VV[123];
2225    goto T840;
2226  T840:;  T840:;
2227          base[4]= VV[124];          base[4]= VV[124];
2228          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2229          L20(base);          L20(base);
2230          vs_top=sup;          vs_top=sup;
2231          goto T819;          goto T819;
2232    goto T837;
2233  T837:;  T837:;
2234          V139= (*(LnkLI191))(base[0],VV[120]);          V139= (*(LnkLI191))(base[0],VV[120]);
2235          if(((V139))!=Cnil){          if(((V139))!=Cnil){
# Line 2016  T837:; Line 2240  T837:;
2240          vs_top=sup;          vs_top=sup;
2241          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2242          goto T819;}          goto T819;}
2243    goto T844;
2244  T844:;  T844:;
2245          if((V139)!=Cnil){          if((V139)!=Cnil){
2246          base[3]= (V139);          base[3]= (V139);
2247          goto T850;}          goto T850;}
2248          base[3]= VV[125];          base[3]= VV[125];
2249    goto T850;
2250  T850:;  T850:;
2251          base[4]= VV[126];          base[4]= VV[126];
2252          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2253          L20(base);          L20(base);
2254          vs_top=sup;          vs_top=sup;
2255    goto T819;
2256  T819:;  T819:;
2257          V139= (*(LnkLI191))(base[0],VV[127]);          V139= (*(LnkLI191))(base[0],VV[127]);
2258          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2036  T819:; Line 2263  T819:;
2263          L20(base);          L20(base);
2264          vs_top=sup;          vs_top=sup;
2265          goto T852;          goto T852;
2266    goto T854;
2267  T854:;  T854:;
2268          V139= get(base[0],VV[129],Cnil);          V139= get(base[0],VV[129],Cnil);
2269          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2057  T854:; Line 2285  T854:;
2285          L20(base);          L20(base);
2286          vs_top=sup;          vs_top=sup;
2287          bds_unwind1;          bds_unwind1;
2288    goto T852;
2289  T852:;  T852:;
2290          V139= (*(LnkLI191))(base[0],VV[133]);          V139= (*(LnkLI191))(base[0],VV[133]);
2291          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2067  T852:; Line 2296  T852:;
2296          L20(base);          L20(base);
2297          vs_top=sup;          vs_top=sup;
2298          goto T868;          goto T868;
2299    goto T870;
2300  T870:;  T870:;
2301          V139= get(base[0],VV[135],Cnil);          V139= get(base[0],VV[135],Cnil);
2302          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2082  T870:; Line 2312  T870:;
2312          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2313          L20(base);          L20(base);
2314          vs_top=sup;          vs_top=sup;
2315    goto T868;
2316  T868:;  T868:;
2317          V139= (*(LnkLI191))(base[0],VV[35]);          V139= (*(LnkLI191))(base[0],VV[35]);
2318          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2092  T868:; Line 2323  T868:;
2323          L20(base);          L20(base);
2324          vs_top=sup;          vs_top=sup;
2325          goto T763;          goto T763;
2326    goto T884;
2327  T884:;  T884:;
2328          V139= get(base[0],VV[139],Cnil);          V139= get(base[0],VV[139],Cnil);
2329          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2115  T884:; Line 2347  T884:;
2347          vs_top=sup;          vs_top=sup;
2348          bds_unwind1;          bds_unwind1;
2349          goto T763;          goto T763;
2350    goto T890;
2351  T890:;  T890:;
2352          V139= get(base[0],VV[143],Cnil);          V139= get(base[0],VV[143],Cnil);
2353          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2138  T890:; Line 2371  T890:;
2371          vs_top=sup;          vs_top=sup;
2372          bds_unwind1;          bds_unwind1;
2373          goto T763;          goto T763;
2374    goto T901;
2375  T901:;  T901:;
2376          V139= get(base[0],VV[146],Cnil);          V139= get(base[0],VV[146],Cnil);
2377          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 2155  T901:; Line 2389  T901:;
2389          if((V150!= VV[173]))goto T922;          if((V150!= VV[173]))goto T922;
2390          base[7]= make_cons(VV[148],cdr((V139)));          base[7]= make_cons(VV[148],cdr((V139)));
2391          goto T918;          goto T918;
2392    goto T922;
2393  T922:;  T922:;
2394          if((V150!= VV[174]))goto T923;          if((V150!= VV[174]))goto T923;
2395          base[7]= make_cons(VV[148],cddr((V139)));          base[7]= make_cons(VV[148],cddr((V139)));
2396          goto T918;          goto T918;
2397    goto T923;
2398  T923:;  T923:;
2399          if((V150!= VV[175]))goto T924;          if((V150!= VV[175]))goto T924;
2400          base[7]= make_cons(VV[148],cddddr((V139)));          base[7]= make_cons(VV[148],cddddr((V139)));
2401          goto T918;          goto T918;
2402    goto T924;
2403  T924:;  T924:;
2404          if((V150!= VV[176]))goto T925;          if((V150!= VV[176]))goto T925;
2405          base[7]= make_cons(VV[148],cdr(cddddr((V139))));          base[7]= make_cons(VV[148],cdr(cddddr((V139))));
2406          goto T918;          goto T918;
2407    goto T925;
2408  T925:;  T925:;
2409          base[7]= Cnil;          base[7]= Cnil;
2410          goto T918;}          goto T918;}
2411    goto T920;
2412  T920:;  T920:;
2413          base[7]= Cnil;          base[7]= Cnil;
2414    goto T918;
2415  T918:;  T918:;
2416          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
2417          Lformat();          Lformat();
# Line 2182  T918:; Line 2422  T918:;
2422          L20(base);          L20(base);
2423          vs_top=sup;          vs_top=sup;
2424          bds_unwind1;          bds_unwind1;
2425    goto T763;
2426  T763:;  T763:;
2427          base[3]= symbol_name(base[0]);          base[3]= symbol_name(base[0]);
2428          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2191  T763:; Line 2432  T763:;
2432          goto T930;}          goto T930;}
2433          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2434          return;          return;
2435    goto T930;
2436  T930:;  T930:;
2437          if((base[2])==Cnil){          if((base[2])==Cnil){
2438          goto T934;}          goto T934;}
# Line 2200  T930:; Line 2442  T930:;
2442          Lformat();          Lformat();
2443          vs_top=sup;          vs_top=sup;
2444          goto T932;          goto T932;
2445    goto T934;
2446  T934:;  T934:;
2447          base[3]= Ct;          base[3]= Ct;
2448          base[4]= VV[154];          base[4]= VV[154];
# Line 2207  T934:; Line 2450  T934:;
2450          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
2451          Lformat();          Lformat();
2452          vs_top=sup;          vs_top=sup;
2453    goto T932;
2454  T932:;  T932:;
2455          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
2456          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2215  T932:; Line 2459  T932:;
2459  }  }
2460  /*      function definition for APROPOS-DOC     */  /*      function definition for APROPOS-DOC     */
2461    
2462  static L22()  static void L22()
2463  {register object *base=vs_base;  {register object *base=vs_base;
2464          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
2465          vs_reserve(VM21);          vs_reserve(VM21);
# Line 2229  static L22() Line 2473  static L22()
2473          V152=(base[1]);          V152=(base[1]);
2474          vs_top=sup;          vs_top=sup;
2475          goto T942;          goto T942;
2476    goto T941;
2477  T941:;  T941:;
2478          V152= VV[155];          V152= VV[155];
2479    goto T942;
2480  T942:;  T942:;
2481          {register object V153;          {register object V153;
2482          V153= Cnil;          V153= Cnil;
# Line 2248  T942:; Line 2494  T942:;
2494          goto T953;}          goto T953;}
2495          V154= V152;          V154= V152;
2496          goto T951;          goto T951;
2497    goto T953;
2498  T953:;  T953:;
2499          base[2]= coerce_to_string(V152);          base[2]= coerce_to_string(V152);
2500          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2501          Lfind_package();          Lfind_package();
2502          vs_top=sup;          vs_top=sup;
2503          V154= vs_base[0];          V154= vs_base[0];
2504    goto T951;
2505  T951:;  T951:;
2506          V155= Cnil;          V155= Cnil;
2507          V156= Cnil;          V156= Cnil;
# Line 2269  T951:; Line 2517  T951:;
2517          V159= fix(vs_base[0]);          V159= fix(vs_base[0]);
2518          vs_top=sup;          vs_top=sup;
2519          goto T961;          goto T961;
2520    goto T959;
2521  T959:;  T959:;
2522          V158= fix(Cnil);          V158= fix(Cnil);
2523    goto T960;
2524  T960:;  T960:;
2525          V159= fix(Cnil);          V159= fix(Cnil);
2526    goto T961;
2527  T961:;  T961:;
2528          {object V160;          {object V160;
2529          object V161;          object V161;
# Line 2280  T961:; Line 2531  T961:;
2531          V163 = make_fixnum(V158);          V163 = make_fixnum(V158);
2532          V160= number_plus(V162,V163);          V160= number_plus(V162,V163);
2533          V161= small_fixnum(0);          V161= small_fixnum(0);
2534    goto T965;
2535  T965:;  T965:;
2536          if(!(number_compare((V161),(V160))>=0)){          if(!(number_compare((V161),(V160))>=0)){
2537          goto T966;}          goto T966;}
2538          V155= Cnil;          V155= Cnil;
2539          goto T947;          goto T947;
2540    goto T966;
2541  T966:;  T966:;
2542          V164 = make_fixnum(V159);          V164 = make_fixnum(V159);
2543          if(!(number_compare((V161),V164)<0)){          if(!(number_compare((V161),V164)<0)){
# Line 2296  T966:; Line 2549  T966:;
2549          vs_top=sup;          vs_top=sup;
2550          V156= vs_base[0];          V156= vs_base[0];
2551          goto T975;          goto T975;
2552    goto T977;
2553  T977:;  T977:;
2554          base[3]= (V154);          base[3]= (V154);
2555          V165 = make_fixnum(V159);          V165 = make_fixnum(V159);
# Line 2304  T977:; Line 2558  T977:;
2558          siLpackage_external();          siLpackage_external();
2559          vs_top=sup;          vs_top=sup;
2560          V156= vs_base[0];          V156= vs_base[0];
2561    goto T975;
2562  T975:;  T975:;
2563    goto T973;
2564  T973:;  T973:;
2565          if(((V156))!=Cnil){          if(((V156))!=Cnil){
2566          goto T983;}          goto T983;}
2567          goto T974;          goto T974;
2568    goto T983;
2569  T983:;  T983:;
2570          V155= car((V156));          V155= car((V156));
2571          V166= coerce_to_string((V155));          V166= coerce_to_string((V155));
# Line 2323  T983:; Line 2580  T983:;
2580          if(V167==Cnil)goto T992;          if(V167==Cnil)goto T992;
2581          V153= V167;          V153= V167;
2582          goto T991;          goto T991;
2583    goto T992;
2584  T992:;}  T992:;}
2585    goto T991;
2586  T991:;  T991:;
2587    goto T988;
2588  T988:;  T988:;
2589          V156= cdr((V156));          V156= cdr((V156));
2590          goto T973;          goto T973;
2591    goto T974;
2592  T974:;  T974:;
2593          goto T971;          goto T971;
2594    goto T971;
2595  T971:;  T971:;
2596          V161= one_plus((V161));          V161= one_plus((V161));
2597          goto T965;}}}          goto T965;}}}
2598    goto T949;
2599  T949:;  T949:;
2600          {object V168;          {object V168;
2601          object V169;          object V169;
# Line 2341  T949:; Line 2604  T949:;
2604          vs_top=sup;          vs_top=sup;
2605          V168= vs_base[0];          V168= vs_base[0];
2606          V169= car((V168));          V169= car((V168));
2607    goto T1004;
2608  T1004:;  T1004:;
2609          if(!(endp((V168)))){          if(!(endp((V168)))){
2610          goto T1005;}          goto T1005;}
2611          goto T947;          goto T947;
2612    goto T1005;
2613  T1005:;  T1005:;
2614          {object V170;          {object V170;
2615          register object V171;          register object V171;
# Line 2357  T1005:; Line 2622  T1005:;
2622          goto T1012;}          goto T1012;}
2623          V170= V169;          V170= V169;
2624          goto T1010;          goto T1010;
2625    goto T1012;
2626  T1012:;  T1012:;
2627          base[4]= coerce_to_string(V169);          base[4]= coerce_to_string(V169);
2628          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2629          Lfind_package();          Lfind_package();
2630          vs_top=sup;          vs_top=sup;
2631          V170= vs_base[0];          V170= vs_base[0];
2632    goto T1010;
2633  T1010:;  T1010:;
2634          V171= Cnil;          V171= Cnil;
2635          V172= Cnil;          V172= Cnil;
# Line 2378  T1010:; Line 2645  T1010:;
2645          V175= fix(vs_base[0]);          V175= fix(vs_base[0]);
2646          vs_top=sup;          vs_top=sup;
2647          goto T1020;          goto T1020;
2648    goto T1018;
2649  T1018:;  T1018:;
2650          V174= fix(Cnil);          V174= fix(Cnil);
2651    goto T1019;
2652  T1019:;  T1019:;
2653          V175= fix(Cnil);          V175= fix(Cnil);
2654    goto T1020;
2655  T1020:;  T1020:;
2656          {object V176;          {object V176;
2657          register object V177;          register object V177;
# Line 2389  T1020:; Line 2659  T1020:;
2659          V179 = make_fixnum(V174);          V179 = make_fixnum(V174);
2660          V176= number_plus(V178,V179);          V176= number_plus(V178,V179);
2661          V177= small_fixnum(0);          V177= small_fixnum(0);
2662    goto T1024;
2663  T1024:;  T1024:;
2664          if(!(number_compare((V177),(V176))>=0)){          if(!(number_compare((V177),(V176))>=0)){
2665          goto T1025;}          goto T1025;}
2666          V171= Cnil;          V171= Cnil;
2667          goto T1009;          goto T1009;
2668    goto T1025;
2669  T1025:;  T1025:;
2670          V180 = make_fixnum(V175);          V180 = make_fixnum(V175);
2671          if(!(number_compare((V177),V180)<0)){          if(!(number_compare((V177),V180)<0)){
# Line 2405  T1025:; Line 2677  T1025:;
2677          vs_top=sup;          vs_top=sup;
2678          V172= vs_base[0];          V172= vs_base[0];
2679          goto T1034;          goto T1034;
2680    goto T1036;
2681  T1036:;  T1036:;
2682          base[5]= (V170);          base[5]= (V170);
2683          V181 = make_fixnum(V175);          V181 = make_fixnum(V175);
# Line 2413  T1036:; Line 2686  T1036:;
2686          siLpackage_external();          siLpackage_external();
2687          vs_top=sup;          vs_top=sup;
2688          V172= vs_base[0];          V172= vs_base[0];
2689    goto T1034;
2690  T1034:;  T1034:;
2691    goto T1032;
2692  T1032:;  T1032:;
2693          if(((V172))!=Cnil){          if(((V172))!=Cnil){
2694          goto T1042;}          goto T1042;}
2695          goto T1033;          goto T1033;
2696    goto T1042;
2697  T1042:;  T1042:;
2698          V171= car((V172));          V171= car((V172));
2699          V182= coerce_to_string((V171));          V182= coerce_to_string((V171));
# Line 2432  T1042:; Line 2708  T1042:;
2708          if(V183==Cnil)goto T1051;          if(V183==Cnil)goto T1051;
2709          V153= V183;          V153= V183;
2710          goto T1050;          goto T1050;
2711    goto T1051;
2712  T1051:;}  T1051:;}
2713    goto T1050;
2714  T1050:;  T1050:;
2715    goto T1047;
2716  T1047:;  T1047:;
2717          V172= cdr((V172));          V172= cdr((V172));
2718          goto T1032;          goto T1032;
2719    goto T1033;
2720  T1033:;  T1033:;
2721          goto T1030;          goto T1030;
2722    goto T1030;
2723  T1030:;  T1030:;
2724          V177= one_plus((V177));          V177= one_plus((V177));
2725          goto T1024;}}}          goto T1024;}}}
2726    goto T1009;
2727  T1009:;  T1009:;
2728          V168= cdr((V168));          V168= cdr((V168));
2729          V169= car((V168));          V169= car((V168));
2730          goto T1004;}          goto T1004;}
2731    goto T947;
2732  T947:;  T947:;
2733          if(((V153))==Cnil){          if(((V153))==Cnil){
2734          goto T1067;}          goto T1067;}
# Line 2455  T947:; Line 2738  T947:;
2738          Lformat();          Lformat();
2739          vs_top=sup;          vs_top=sup;
2740          goto T1065;          goto T1065;
2741    goto T1067;
2742  T1067:;  T1067:;
2743          base[2]= Ct;          base[2]= Ct;
2744          base[3]= VV[157];          base[3]= VV[157];
# Line 2471  T1067:; Line 2755  T1067:;
2755          goto T1078;}          goto T1078;}
2756          base[7]= V152;          base[7]= V152;
2757          goto T1076;          goto T1076;
2758    goto T1078;
2759  T1078:;  T1078:;
2760          base[8]= coerce_to_string(V152);          base[8]= coerce_to_string(V152);
2761          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2762          Lfind_package();          Lfind_package();
2763          vs_top=sup;          vs_top=sup;
2764          base[7]= vs_base[0];          base[7]= vs_base[0];
2765    goto T1076;
2766  T1076:;  T1076:;
2767          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2768          Lpackage_name();          Lpackage_name();
2769          vs_top=sup;          vs_top=sup;
2770          base[6]= vs_base[0];          base[6]= vs_base[0];
2771    goto T1075;
2772  T1075:;  T1075:;
2773          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2774          Lformat();          Lformat();
2775          vs_top=sup;          vs_top=sup;
2776    goto T1065;
2777  T1065:;  T1065:;
2778          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
2779          vs_base[0]=Cnil;          vs_base[0]=Cnil;
# Line 2494  T1065:; Line 2782  T1065:;
2782  }  }
2783  /*      local function GOOD-PACKAGE     */  /*      local function GOOD-PACKAGE     */
2784    
2785  static L21(base0)  static void L21(base0)
2786  register object *base0;  register object *base0;
2787  {       register object *base=vs_base;  {       register object *base=vs_base;
2788          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
2789          vs_reserve(VM22);          vs_reserve(VM22);
2790          check_arg(0);          check_arg(0);
2791          vs_top=sup;          vs_top=sup;
2792    goto TTL;
2793  TTL:;  TTL:;
2794          base[0]= base0[0];          base[0]= base0[0];
2795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2518  TTL:; Line 2807  TTL:;
2807          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2808          Lfind_package();          Lfind_package();
2809          return;          return;
2810    goto T1083;
2811  T1083:;  T1083:;
2812          base[0]= symbol_value(VV[130]);          base[0]= symbol_value(VV[130]);
2813          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2525  T1083:; Line 2815  T1083:;
2815  }  }
2816  /*      local function DOC1     */  /*      local function DOC1     */
2817    
2818  static L20(base0)  static void L20(base0)
2819  register object *base0;  register object *base0;
2820  {       register object *base=vs_base;  {       register object *base=vs_base;
2821          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
# Line 2536  register object *base0; Line 2826  register object *base0;
2826          V187=(base[0]);          V187=(base[0]);
2827          V188=(base[1]);          V188=(base[1]);
2828          vs_top=sup;          vs_top=sup;
2829    goto TTL;
2830  TTL:;  TTL:;
2831          base0[2]= Ct;          base0[2]= Ct;
2832          base[2]= Ct;          base[2]= Ct;
# Line 2548  TTL:; Line 2839  TTL:;
2839          return;          return;
2840          }          }
2841  }  }
2842  static object  LnkTLI194(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[194],&LnkLI194,2,ap);} /* SUBSTRINGP */  static object  LnkTLI194(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[194],(void **)&LnkLI194,2,ap);} /* SUBSTRINGP */
2843  static LnkT193(){ call_or_link(VV[193],&Lnk193);} /* PACKAGE-SIZE */  static void LnkT193(){ call_or_link(VV[193],(void **)&Lnk193);} /* PACKAGE-SIZE */
2844  static LnkT192(){ call_or_link(VV[192],&Lnk192);} /* IDESCRIBE */  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* IDESCRIBE */
2845  static object  LnkTLI191(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[191],&LnkLI191,2,ap);} /* DOCUMENTATION */  static object  LnkTLI191(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[191],(void **)&LnkLI191,2,ap);} /* DOCUMENTATION */
2846  static object  LnkTLI190(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[190],&LnkLI190,1,ap);} /* INSPECT-STRUCTURE */  static object  LnkTLI190(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[190],(void **)&LnkLI190,1,ap);} /* INSPECT-STRUCTURE */
2847  static object  LnkTLI189(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[189],&LnkLI189,1,ap);} /* INSPECT-ARRAY */  static object  LnkTLI189(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[189],(void **)&LnkLI189,1,ap);} /* INSPECT-ARRAY */
2848  static object  LnkTLI188(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[188],&LnkLI188,1,ap);} /* INSPECT-VECTOR */  static object  LnkTLI188(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[188],(void **)&LnkLI188,1,ap);} /* INSPECT-VECTOR */
2849  static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],&LnkLI187,1,ap);} /* INSPECT-STRING */  static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],(void **)&LnkLI187,1,ap);} /* INSPECT-STRING */
2850  static object  LnkTLI186(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[186],&LnkLI186,1,ap);} /* INSPECT-CONS */  static object  LnkTLI186(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[186],(void **)&LnkLI186,1,ap);} /* INSPECT-CONS */
2851  static object  LnkTLI185(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[185],&LnkLI185,1,ap);} /* INSPECT-NUMBER */  static object  LnkTLI185(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[185],(void **)&LnkLI185,1,ap);} /* INSPECT-NUMBER */
2852  static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[184],&LnkLI184,1,ap);} /* INSPECT-CHARACTER */  static object  LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[184],(void **)&LnkLI184,1,ap);} /* INSPECT-CHARACTER */
2853  static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],&LnkLI183,1,ap);} /* INSPECT-PACKAGE */  static object  LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],(void **)&LnkLI183,1,ap);} /* INSPECT-PACKAGE */
2854  static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],&LnkLI182,1,ap);} /* INSPECT-SYMBOL */  static object  LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],(void **)&LnkLI182,1,ap);} /* INSPECT-SYMBOL */
2855  static LnkT181(){ call_or_link(VV[181],&Lnk181);} /* STRUCTURE-REF1 */  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* STRUCTURE-REF1 */
2856  static LnkT180(){ call_or_link(VV[180],&Lnk180);} /* ARRAY-TOTAL-SIZE */  static void LnkT180(){ call_or_link(VV[180],(void **)&Lnk180);} /* ARRAY-TOTAL-SIZE */
2857  static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],&LnkLI179,1,ap);} /* ARRAY-DIMENSIONS */  static object  LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],(void **)&LnkLI179,1,ap);} /* ARRAY-DIMENSIONS */
2858  static LnkT178(){ call_or_link(VV[178],&Lnk178);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* ARRAY-HAS-FILL-POINTER-P */
2859  static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* PACKAGE-SHADOWING-SYMBOLS */  static void LnkT164(){ call_or_link(VV[164],(void **)&Lnk164);} /* PACKAGE-SHADOWING-SYMBOLS */
2860  static LnkT163(){ call_or_link(VV[163],&Lnk163);} /* PRINT-DOC */  static void LnkT163(){ call_or_link(VV[163],(void **)&Lnk163);} /* PRINT-DOC */
2861  static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* READ-INSPECT-COMMAND */  static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* READ-INSPECT-COMMAND */
2862  static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* READ-PRESERVING-WHITESPACE */  static void LnkT162(){ call_or_link(VV[162],(void **)&Lnk162);} /* READ-PRESERVING-WHITESPACE */
2863  static object  LnkTLI161(){return call_proc0(VV[161],&LnkLI161);} /* INSPECT-READ-LINE */  static object  LnkTLI161(){return call_proc0(VV[161],(void **)&LnkLI161);} /* INSPECT-READ-LINE */
2864  static object  LnkTLI160(){return call_proc0(VV[160],&LnkLI160);} /* INSPECT-INDENT */  static object  LnkTLI160(){return call_proc0(VV[160],(void **)&LnkLI160);} /* INSPECT-INDENT */
2865  static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* INSPECT-OBJECT */  static void LnkT159(){ call_or_link(VV[159],(void **)&Lnk159);} /* INSPECT-OBJECT */
2866  static object  LnkTLI158(){return call_proc0(VV[158],&LnkLI158);} /* INSPECT-INDENT-1 */  static object  LnkTLI158(){return call_proc0(VV[158],(void **)&LnkLI158);} /* INSPECT-INDENT-1 */
2867    
2868  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2869  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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