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

Diff of /gcl/o/structure.c

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

revision 1.15 by camm, Sun Sep 18 02:48:59 2005 UTC revision 1.16 by camm, Thu Oct 6 20:30:09 2005 UTC
# Line 304  LFD(siLrplaca_nthcdr)(void) Line 304  LFD(siLrplaca_nthcdr)(void)
304          check_arg(3);          check_arg(3);
305          if (type_of(vs_base[1]) != t_fixnum || fix(vs_base[1]) < 0)          if (type_of(vs_base[1]) != t_fixnum || fix(vs_base[1]) < 0)
306                  FEerror("~S is not a non-negative fixnum.", 1, vs_base[1]);                  FEerror("~S is not a non-negative fixnum.", 1, vs_base[1]);
307          if (type_of(vs_base[0]) != t_cons)          if (!consp(vs_base[0]))
308                  FEerror("~S is not a cons.", 1, vs_base[0]);                  FEerror("~S is not a cons.", 1, vs_base[0]);
309    
310          for (i = fix(vs_base[1]), l = vs_base[0];  i > 0; --i) {          for (i = fix(vs_base[1]), l = vs_base[0];  i > 0; --i) {
# Line 331  LFD(siLlist_nth)(void) Line 331  LFD(siLlist_nth)(void)
331          check_arg(2);          check_arg(2);
332          if (type_of(vs_base[0]) != t_fixnum || fix(vs_base[0]) < 0)          if (type_of(vs_base[0]) != t_fixnum || fix(vs_base[0]) < 0)
333                  FEerror("~S is not a non-negative fixnum.", 1, vs_base[0]);                  FEerror("~S is not a non-negative fixnum.", 1, vs_base[0]);
334          if (type_of(vs_base[1]) != t_cons)          if (!consp(vs_base[1]))
335                  FEerror("~S is not a cons.", 1, vs_base[1]);                  FEerror("~S is not a cons.", 1, vs_base[1]);
336    
337          for (i = fix(vs_base[0]), l = vs_base[1];  i > 0; --i) {          for (i = fix(vs_base[0]), l = vs_base[1];  i > 0; --i) {

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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