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

Diff of /gcl/o/iteration.c

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

revision 1.6 by camm, Thu Nov 6 16:08:09 2003 UTC revision 1.7 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 95  do_var_list(object var_list) Line 95  do_var_list(object var_list)
95                        
96    
97    
98                  if (type_of(x) != t_cons)                  if (!consp(x))
99                          FEinvalid_form("The index, ~S, is illegal.", x);                          FEinvalid_form("The index, ~S, is illegal.", x);
100                  y = MMcar(x);                  y = MMcar(x);
101                  check_var(y);                  check_var(y);

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