mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in ecl_nbutlast

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 22:32:41 +01:00
parent f07ae97158
commit 6d09f08bbf
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/list.d
View file

@ -626,7 +626,7 @@ ecl_nbutlast(cl_object l, cl_index n)
{
cl_object r;
if (!LISTP(l))
FEwrong_type_only_arg(@'nbutlast', x, @'list');
FEwrong_type_only_arg(@'nbutlast', l, @'list');
for (n++, r = l; n && CONSP(r); n--, r = ECL_CONS_CDR(r))
;
if (n == 0) {