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