/[gcl]/gcl/o/bind.c
ViewVC logotype

Diff of /gcl/o/bind.c

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

revision 1.4 by camm, Wed Jul 31 03:13:52 2002 UTC revision 1.5 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 76  void Line 76  void
76  lambda_bind(object *arg_top)  lambda_bind(object *arg_top)
77  {  {
78        
79          object endp_temp,temporary;          object temporary;
80          object lambda, lambda_list, body, form=Cnil, x, ds, vs, v;          object lambda, lambda_list, body, form=Cnil, x, ds, vs, v;
81          int narg, i, j;          int narg, i, j;
82          object *base = vs_base;          object *base = vs_base;
# Line 612  object Line 612  object
612  find_special(object body, struct bind_temp *start, struct bind_temp *end)  find_special(object body, struct bind_temp *start, struct bind_temp *end)
613  {  {
614          object temporary;          object temporary;
         object endp_temp;  
615          object form=Cnil;          object form=Cnil;
616          object ds, vs, v;          object ds, vs, v;
617          struct bind_temp *bt;          struct bind_temp *bt;
# Line 813  parse_key(object *base, bool rest, bool Line 812  parse_key(object *base, bool rest, bool
812  void  void
813  check_other_key(object l, int n, ...)  check_other_key(object l, int n, ...)
814  {  {
         object endp_temp;  
815          va_list ap;          va_list ap;
816          object other_key = OBJNULL;          object other_key = OBJNULL;
817          object k;          object k;

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

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