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

Diff of /gcl/lsp/module.c

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

revision 1.6 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.7 by camm, Tue Oct 15 14:51:51 2002 UTC
# Line 13  TTL:; Line 13  TTL:;
13          base[0]= coerce_to_string((V2));          base[0]= coerce_to_string((V2));
14          base[1]= symbol_value(VV[0]);          base[1]= symbol_value(VV[0]);
15          base[2]= VV[1];          base[2]= VV[1];
16          base[3]= symbol_function(VV[10]);          base[3]= symbol_function(VV[13]);
17          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
18          Ladjoin();          Ladjoin();
19          vs_top=sup;          vs_top=sup;
# Line 56  T7:; Line 56  T7:;
56          base[1]= coerce_to_string((V5));          base[1]= coerce_to_string((V5));
57          base[2]= symbol_value(VV[0]);          base[2]= symbol_value(VV[0]);
58          base[3]= VV[1];          base[3]= VV[1];
59          base[4]= symbol_function(VV[10]);          base[4]= symbol_function(VV[13]);
60          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
61          Lmember();          Lmember();
62          vs_top=sup;          vs_top=sup;
# Line 66  T7:; Line 66  T7:;
66          goto T18;}          goto T18;}
67          base[1]= (V6);          base[1]= (V6);
68          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
69          (void) (*Lnk11)();          (void) (*Lnk14)();
70          vs_top=sup;          vs_top=sup;
71          {object V7 = vs_base[0];          {object V7 = vs_base[0];
72          bds_unwind1;          bds_unwind1;
# Line 86  goto T23; Line 86  goto T23;
86  T23:;  T23:;
87          base[1]= car((V8));          base[1]= car((V8));
88          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
89          (void) (*Lnk11)();          (void) (*Lnk14)();
90          vs_top=sup;          vs_top=sup;
91          V8= cdr((V8));          V8= cdr((V8));
92          goto T22;}          goto T22;}
# Line 108  register object V13;object V14; Line 108  register object V13;object V14;
108  goto TTL;  goto TTL;
109  TTL:;  TTL:;
110          {object V15= (V14);          {object V15= (V14);
111          if((V15!= VV[12]))goto T32;          if((V15!= VV[15]))goto T32;
112          {object V16 = get((V13),VV[4],Cnil);          {object V16 = get((V13),VV[4],Cnil);
113          VMR3(V16)}          VMR3(V16)}
114  goto T32;  goto T32;
115  T32:;  T32:;
116          if((V15!= VV[13]))goto T33;          if((V15!= VV[16]))goto T33;
117          {object V17 = get((V13),VV[5],Cnil);          {object V17 = get((V13),VV[5],Cnil);
118          VMR3(V17)}          VMR3(V17)}
119  goto T33;  goto T33;
120  T33:;  T33:;
121          if((V15!= VV[14]))goto T34;          if((V15!= VV[17]))goto T34;
122          {object V18 = get((V13),VV[6],Cnil);          {object V18 = get((V13),VV[6],Cnil);
123          VMR3(V18)}          VMR3(V18)}
124  goto T34;  goto T34;
125  T34:;  T34:;
126          if((V15!= VV[15]))goto T35;          if((V15!= VV[18]))goto T35;
127          {object V19 = get((V13),VV[7],Cnil);          {object V19 = get((V13),VV[7],Cnil);
128          VMR3(V19)}          VMR3(V19)}
129  goto T35;  goto T35;
130  T35:;  T35:;
131          if((V15!= VV[16]))goto T36;          if((V15!= VV[19]))goto T36;
132          {object V20 = get((V13),VV[8],Cnil);          {object V20 = get((V13),VV[8],Cnil);
133          VMR3(V20)}          VMR3(V20)}
134  goto T36;  goto T36;
135  T36:;  T36:;
136          {object V21 = Cnil;          base[0]= (V13);
137          VMR3(V21)}}          vs_top=(vs_base=base+0)+1;
138            Lpackagep();
139            vs_top=sup;
140            if((vs_base[0])==Cnil){
141            goto T38;}
142            base[1]= (V13);
143            vs_top=(vs_base=base+1)+1;
144            Lpackage_name();
145            vs_top=sup;
146            base[0]= vs_base[0];
147            base[1]= VV[9];
148            vs_top=(vs_base=base+0)+2;
149            Lfind_symbol();
150            vs_top=sup;
151            V21= vs_base[0];
152            {object V22 = get(V21,VV[10],Cnil);
153            VMR3(V22)}
154    goto T38;
155    T38:;
156            base[0]= VV[11];
157            base[1]= (V14);
158            vs_top=(vs_base=base+0)+2;
159            Lerror();
160            vs_top=sup;
161            {object V23 = vs_base[0];
162            VMR3(V23)}}
163            base[0]=base[0];
164          return Cnil;          return Cnil;
165  }  }
166  /*      local entry for function FIND-DOCUMENTATION     */  /*      local entry for function FIND-DOCUMENTATION     */
167    
168  static object LI4(V23)  static object LI4(V25)
169    
170  register object V23;  register object V25;
171  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
172  goto TTL;  goto TTL;
173  TTL:;  TTL:;
174          if(endp_prop((V23))){          if(endp_prop((V25))){
175          goto T37;}          goto T47;}
176          if(!(endp_prop(cdr((V23))))){          if(!(endp_prop(cdr((V25))))){
177          goto T38;}          goto T48;}
178  goto T37;  goto T47;
179  T37:;  T47:;
180          {object V24 = Cnil;          {object V26 = Cnil;
181          VMR4(V24)}          VMR4(V26)}
182  goto T38;  goto T48;
183  T38:;  T48:;
184          {register object V25;          {register object V27;
185          base[0]= car((V23));          base[0]= car((V25));
186          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
187          Lmacroexpand();          Lmacroexpand();
188          vs_top=sup;          vs_top=sup;
189          V25= vs_base[0];          V27= vs_base[0];
190          if(!(type_of((V25))==t_string)){          if(!(type_of((V27))==t_string)){
191          goto T45;}          goto T55;}
192          {object V26 = (V25);          {object V28 = (V27);
193          VMR4(V26)}          VMR4(V28)}
194  goto T45;  goto T55;
195  T45:;  T55:;
196          if(!(type_of((V25))==t_cons)){          if(!(type_of((V27))==t_cons)){
197          goto T48;}          goto T58;}
198          if(!((car((V25)))==(VV[9]))){          if(!((car((V27)))==(VV[12]))){
199          goto T48;}          goto T58;}
200          V23= cdr((V23));          V25= cdr((V25));
201          goto TTL;          goto TTL;
202  goto T48;  goto T58;
203  T48:;  T58:;
204          {object V27 = Cnil;          {object V29 = Cnil;
205          VMR4(V27)}}          VMR4(V29)}}
206          base[0]=base[0];          base[0]=base[0];
207          return Cnil;          return Cnil;
208  }  }
209  static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* LOAD */  static void LnkT14(){ call_or_link(VV[14],(void **)&Lnk14);} /* LOAD */
210    
211  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
212  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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