From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kenichi Handa Newsgroups: gmane.emacs.devel Subject: Re: request for a new function, say, `sequence' Date: Tue, 25 Mar 2003 14:40:07 +0900 (JST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200303250540.OAA07032@etlken.m17n.org> References: <200303230302.MAA04327@etlken.m17n.org> <200303241541.h2OFfbpa011227@rum.cs.yale.edu> <200303250015.JAA06592@etlken.m17n.org> <200303250050.JAA06631@etlken.m17n.org> <200303250057.h2P0vBj6016367@rum.cs.yale.edu> <200303250125.KAA06703@etlken.m17n.org> <32627.1048557446@theforce.Stanford.EDU> <200303250208.LAA06802@etlken.m17n.org> <1191.1048560083@theforce.Stanford.EDU> <200303250446.NAA06974@etlken.m17n.org> <4946.1048568708@theforce.Stanford.EDU> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya") Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1048570905 5245 80.91.224.249 (25 Mar 2003 05:41:45 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 25 Mar 2003 05:41:45 +0000 (UTC) Cc: monnier+gnu/emacs@rum.cs.yale.edu Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Tue Mar 25 06:41:44 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18xhBw-0001MT-00 for ; Tue, 25 Mar 2003 06:41:44 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 18xhCk-0000tU-00 for ; Tue, 25 Mar 2003 06:42:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18xhAy-0001D2-03 for emacs-devel@quimby.gnus.org; Tue, 25 Mar 2003 00:40:44 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18xhAX-00018R-00 for emacs-devel@gnu.org; Tue, 25 Mar 2003 00:40:17 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18xhAU-00014t-00 for emacs-devel@gnu.org; Tue, 25 Mar 2003 00:40:15 -0500 Original-Received: from tsukuba.m17n.org ([192.47.44.130]) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18xhAT-0000xU-00 for emacs-devel@gnu.org; Tue, 25 Mar 2003 00:40:14 -0500 Original-Received: from fs.m17n.org (fs.m17n.org [192.47.44.2])h2P5e7920412; Tue, 25 Mar 2003 14:40:07 +0900 (JST) (envelope-from handa@m17n.org) Original-Received: from etlken.m17n.org (etlken.m17n.org [192.47.44.125]) h2P5e7A20023; Tue, 25 Mar 2003 14:40:07 +0900 (JST) Original-Received: (from handa@localhost) by etlken.m17n.org (8.8.8+Sun/3.7W-2001040620) id OAA07032; Tue, 25 Mar 2003 14:40:07 +0900 (JST) Original-To: satyakid@stanford.edu In-reply-to: <4946.1048568708@theforce.Stanford.EDU> (satyakid@stanford.edu) User-Agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.2.92 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI) Original-cc: emacs-devel@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:12600 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:12600 In article <4946.1048568708@theforce.Stanford.EDU>, "Satyaki Das" 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