Author: bernhard Date: Sun May 13 03:49:08 2007 New Revision: 18522 Modified: trunk/languages/lisp/internals.pir
Log: #42885: Resurrect languages/lisp _LIST_LENGTH only needs one parameter, rlen was superflouos. Modified: trunk/languages/lisp/internals.pir ============================================================================== --- trunk/languages/lisp/internals.pir (original) +++ trunk/languages/lisp/internals.pir Sun May 13 03:49:08 2007 @@ -1,3 +1,4 @@ +# $Id$ =head1 _LOOKUP_GLOBAL(pkgname, symname) @@ -419,25 +420,25 @@ .end .sub _LIST_LENGTH - .param pmc args - .param int rlen - .local pmc lptr - .local int alen - - lptr = args - alen = 0 - .sym pmc _nilp + .param pmc args - .NIL(_nilp) + .local pmc lptr + lptr = args + .local int alen + alen = 0 + .local pmc _nilp + + .NIL(_nilp) + LOOP: - eq_addr lptr, _nilp, DONE - inc alen - .CDR(lptr, lptr) - goto LOOP - + eq_addr lptr, _nilp, DONE + inc alen + .CDR(lptr, lptr) + goto LOOP + DONE: - .return(alen) + .return(alen) .end .sub _IS_TYPE
