Re: request for a new function, say, `sequence'

[Kenichi Handa <handa@m17n.org>]

In article <4946.1048568708@theforce.Stanford.EDU>, "Satyaki Das" <satyakid@stanford.edu> writes:
>>  (defun dev-charseq (from &optional to)
>>    (if (null to) (setq to from))
>>    (mapcar (function (lambda (x) (indian-glyph-char x 'devanagari)))
>>            (devanagari-range from to)))

> I would have written it as follows:

> (defun dev-charseq (lower &optional upper)
>   (if (null upper) (setq upper lower))
>   (loop for x from lower to upper
>         collect (indian-glyph-char x 'devanagiri)))

> I changed "from" to "lower" and "to" to "upper" since the loop
> looks sort of funny otherwise.

It's not the point.  How to use a list returned by `range'
(or `sequence') and how to make such a list is a different
thing.

Of course, we can implement the functionality of `range' by
using loop, while, dotimes, etc.  But, it doesn't mean that
we don't need a simpler/convenient function `range'.

> I did a grep through the sources and there are 118 files that
> already contain the line,
>   (eval-when-compile (require 'cl))

How many of them are preloaded?

---
Ken'ichi HANDA
handa@m17n.org