/[gcl]/gcl/o/list.d
ViewVC logotype

Diff of /gcl/o/list.d

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

revision 1.18 by camm, Mon Feb 17 16:50:21 2003 UTC revision 1.19 by camm, Sat Mar 1 22:37:37 2003 UTC
# Line 651  void Lcddadr(){check_arg(1); vs_base[0] Line 651  void Lcddadr(){check_arg(1); vs_base[0]
651  void Lcdddar(){check_arg(1); vs_base[0] = cdr(cdr(cdr(car(vs_base[0]))));}  void Lcdddar(){check_arg(1); vs_base[0] = cdr(cdr(cdr(car(vs_base[0]))));}
652  void Lcddddr(){check_arg(1); vs_base[0] = cdr(cdr(cdr(cdr(vs_base[0]))));}  void Lcddddr(){check_arg(1); vs_base[0] = cdr(cdr(cdr(cdr(vs_base[0]))));}
653    
654  DEFUNO_NEW("NTH",object,fLnth,LISP,2,2,NONE,OI,OO,OO,OO,void,Lnth,(int index,object list),"")  DEFUNO_NEW("NTH",object,fLnth,LISP,2,2,NONE,OI,OO,OO,OO,void,Lnth,(fixnum index,object list),"")
655  { object x = list;  { object x = list;
656    if (index < 0)    if (index < 0)
657      FEerror("Negative index: ~D.", 1, make_fixnum(index));      FEerror("Negative index: ~D.", 1, make_fixnum(index));

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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