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

Diff of /gcl/lsp/mislib.c

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

revision 1.7 by camm, Sat Sep 28 13:43:00 2002 UTC revision 1.8 by camm, Thu Oct 10 02:51:59 2002 UTC
# Line 481  TTL:; Line 481  TTL:;
481          return;          return;
482          }          }
483  }  }
484    /*      function definition for CONSTANTLY      */
485    
486    static void L8()
487    {register object *base=vs_base;
488            register object *sup=base+VM8; VC8
489            vs_reserve(VM8);
490            check_arg(1);
491            base[0]=MMcons(base[0],Cnil);
492            vs_top=sup;
493            base[1]=
494            make_cclosure_new(LC10,Cnil,base[0],Cdata);
495            vs_top=(vs_base=base+1)+1;
496            return;
497    }
498    /*      function definition for COMPLEMENT      */
499    
500    static void L9()
501    {register object *base=vs_base;
502            register object *sup=base+VM9; VC9
503            vs_reserve(VM9);
504            check_arg(1);
505            base[0]=MMcons(base[0],Cnil);
506            vs_top=sup;
507            base[1]=
508            make_cclosure_new(LC11,Cnil,base[0],Cdata);
509            vs_top=(vs_base=base+1)+1;
510            return;
511    }
512    /*      local function CLOSURE  */
513    
514    static void LC11(base0)
515    register object *base0;
516    {       register object *base=vs_base;
517            register object *sup=base+VM10; VC10
518            vs_reserve(VM10);
519            {object V63;
520            vs_top[0]=Cnil;
521            {object *p=vs_top;
522             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
523            V63=(base[0]);
524            vs_top=sup;
525            base[1]= (base0[0]->c.c_car);
526            {object V65;
527            V65= (V63);
528             vs_top=base+2;
529             while(!endp(V65))
530             {vs_push(car(V65));V65=cdr(V65);}
531            vs_base=base+2;}
532            super_funcall_no_event(base[1]);
533            vs_top=sup;
534            V64= vs_base[0];
535            base[1]= ((V64)==Cnil?Ct:Cnil);
536            vs_top=(vs_base=base+1)+1;
537            return;
538            }
539    }
540    /*      local function CLOSURE  */
541    
542    static void LC10(base0)
543    register object *base0;
544    {       register object *base=vs_base;
545            register object *sup=base+VM11; VC11
546            vs_reserve(VM11);
547            {object V66;
548            vs_top[0]=Cnil;
549            {object *p=vs_top;
550             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
551            V66=(base[0]);
552            vs_top=sup;
553            base[1]= (base0[0]->c.c_car);
554            vs_top=(vs_base=base+1)+1;
555            return;
556            }
557    }
558  static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* GET-DECODED-TIME */  static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* GET-DECODED-TIME */
559  static object  LnkTLI18(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[18],(void **)&LnkLI18,1,ap);va_end(ap);return V1;} /* LEAP-YEAR-P */  static object  LnkTLI18(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[18],(void **)&LnkLI18,1,ap);va_end(ap);return V1;} /* LEAP-YEAR-P */
560  static object  LnkTLI17(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[17],(void **)&LnkLI17,1,ap);va_end(ap);return V1;} /* NUMBER-OF-DAYS-FROM-1900 */  static object  LnkTLI17(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[17],(void **)&LnkLI17,1,ap);va_end(ap);return V1;} /* NUMBER-OF-DAYS-FROM-1900 */

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

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