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

Diff of /gcl/lsp/defmacro.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 169  T64:; Line 169  T64:;
169          V20= car((V19));          V20= car((V19));
170  goto T74;  goto T74;
171  T74:;  T74:;
172          if(!(endp((V19)))){          if(!(endp_prop((V19)))){
173          goto T75;}          goto T75;}
174          goto T70;          goto T70;
175  goto T75;  goto T75;
# Line 190  T70:; Line 190  T70:;
190          V26= car((V25));          V26= car((V25));
191  goto T90;  goto T90;
192  T90:;  T90:;
193          if(!(endp((V25)))){          if(!(endp_prop((V25)))){
194          goto T91;}          goto T91;}
195          goto T86;          goto T86;
196  goto T91;  goto T91;
# Line 410  T208:; Line 410  T208:;
410  goto T232;  goto T232;
411  T232:;  T232:;
412          V60= car((V52));          V60= car((V52));
413          if(endp(cdr((V52)))){          if(endp_prop(cdr((V52)))){
414          goto T230;}          goto T230;}
415          V61= cadr((V52));          V61= cadr((V52));
416  goto T230;  goto T230;
# Line 465  T259:; Line 465  T259:;
465          V65= caar((V52));          V65= caar((V52));
466  goto T257;  goto T257;
467  T257:;  T257:;
468          if(endp(cdr((V52)))){          if(endp_prop(cdr((V52)))){
469          goto T248;}          goto T248;}
470          V66= cadr((V52));          V66= cadr((V52));
471          if(endp(cddr((V52)))){          if(endp_prop(cddr((V52)))){
472          goto T248;}          goto T248;}
473          V67= caddr((V52));          V67= caddr((V52));
474  goto T248;  goto T248;
# Line 505  T244:; Line 505  T244:;
505  goto T291;  goto T291;
506  T291:;  T291:;
507          V72= car((V52));          V72= car((V52));
508          if(endp(cdr((V52)))){          if(endp_prop(cdr((V52)))){
509          goto T289;}          goto T289;}
510          V73= cadr((V52));          V73= cadr((V52));
511          if(endp(cddr((V52)))){          if(endp_prop(cddr((V52)))){
512          goto T289;}          goto T289;}
513          V74= caddr((V52));          V74= caddr((V52));
514  goto T289;  goto T289;
# Line 812  static void L11() Line 812  static void L11()
812          vs_top=sup;          vs_top=sup;
813  goto TTL;  goto TTL;
814  TTL:;  TTL:;
815          if(!(endp((V129)))){          if(!(endp_prop((V129)))){
816          goto T389;}          goto T389;}
817          base[2]= Cnil;          base[2]= Cnil;
818          base[3]= Cnil;          base[3]= Cnil;
# Line 829  T389:; Line 829  T389:;
829          V131= vs_base[0];          V131= vs_base[0];
830          if(!(type_of((V131))==t_string)){          if(!(type_of((V131))==t_string)){
831          goto T397;}          goto T397;}
832          if(endp(cdr((V129)))){          if(endp_prop(cdr((V129)))){
833          goto T399;}          goto T399;}
834          if(((V130))==Cnil){          if(((V130))==Cnil){
835          goto T400;}          goto T400;}
# Line 935  static void L12() Line 935  static void L12()
935          vs_top=sup;          vs_top=sup;
936  goto TTL;  goto TTL;
937  TTL:;  TTL:;
938          if(!(endp((V138)))){          if(!(endp_prop((V138)))){
939          goto T436;}          goto T436;}
940          base[1]= Cnil;          base[1]= Cnil;
941          base[2]= Cnil;          base[2]= Cnil;
# Line 951  T436:; Line 951  T436:;
951          V139= vs_base[0];          V139= vs_base[0];
952          if(!(type_of((V139))==t_string)){          if(!(type_of((V139))==t_string)){
953          goto T443;}          goto T443;}
954          if(!(endp(cdr((V138))))){          if(!(endp_prop(cdr((V138))))){
955          goto T446;}          goto T446;}
956          base[1]= Cnil;          base[1]= Cnil;
957          base[2]= make_cons((V139),Cnil);          base[2]= make_cons((V139),Cnil);

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

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