Re: Internationalize Emacs's messages (swahili)

[Lars Ingebrigtsen]

In terms of nthcdr, length< would look like this, and would work for
bignum values of LENGTH.  And it's 15% slower for the benchmark I'm
using:

(let ((list (make-list 10000 nil)))
  (benchmark-run 100000000 (length< list 200)))

DEFUN ("length<", Flength_less, Slength_less, 2, 2, 0,
       doc: /* Return non-nil if SEQUENCE is shorter than LENGTH.
See `length' for allowed values of SEQUENCE and how elements are
counted.  */)
  (Lisp_Object sequence, Lisp_Object length)
{
  if (CONSP (sequence))
    return Fnull (Fnthcdr (Fsub1 (length), sequence));
  else
    return CALLN(Flss, Flength (sequence), length);
}


-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no