Parent Directory | Revision Log | 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); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |