From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.emacs.devel Subject: Re: Rationalising c[ad]\{2,5\}r. Date: Wed, 11 Mar 2015 23:15:53 +0100 Message-ID: <87zj7jb2p2.fsf@zigzag.favinet> References: <20150311214324.GA2952@acm.fritz.box> Reply-To: emacs-devel@gnu.org NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1426111948 9501 80.91.229.3 (11 Mar 2015 22:12:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 11 Mar 2015 22:12:28 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Mar 11 23:12:19 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YVorS-0000BC-6g for ged-emacs-devel@m.gmane.org; Wed, 11 Mar 2015 23:12:18 +0100 Original-Received: from localhost ([::1]:57179 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YVorR-0007bF-Ic for ged-emacs-devel@m.gmane.org; Wed, 11 Mar 2015 18:12:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:42422) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YVorO-0007as-3n for emacs-devel@gnu.org; Wed, 11 Mar 2015 18:12:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YVorK-000885-UJ for emacs-devel@gnu.org; Wed, 11 Mar 2015 18:12:14 -0400 Original-Received: from mail.agora-net.com ([67.59.132.6]:46638) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YVorK-00087u-Qs for emacs-devel@gnu.org; Wed, 11 Mar 2015 18:12:10 -0400 Original-Received: from ttn by mail.agora-net.com with local (Exim 4.71) (envelope-from ) id 1YVorJ-0000Qi-Uj for emacs-devel@gnu.org; Wed, 11 Mar 2015 18:12:10 -0400 Original-Received: from ttn by zigzag.favinet with local (Exim 4.80) (envelope-from ) id 1YVov3-0000s0-Ip for emacs-devel@gnu.org; Wed, 11 Mar 2015 23:16:01 +0100 Mail-Followup-To: emacs-devel@gnu.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) X-SA-Exim-Connect-IP: X-SA-Exim-Mail-From: ttn@gnuvola.org X-SA-Exim-Scanned: No (on mail.agora-net.com); SAEximRunCond expanded to false X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 67.59.132.6 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:183792 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable () Alan Mackenzie () Wed, 11 Mar 2015 21:43:24 +0000 Comments? Bravo! (defun gen-cXXr--make-seq (bits) "Generate a list of all integers with BITS bits, in ascending order." (let ((x (lsh 1 bits)) acc) (while (> x 0) (setq x (1- x)) (push x acc)) acc)) You can save some lines by using =E2=80=98number-sequence=E2=80=99: (defun gen-cXXr--make-seq (bits) "Generate a list of all integers with BITS bits, in ascending order." (number-sequence 0 (1- (lsh 1 bits)))) I wonder (idly) if the number of =E2=80=98(number-sequence 0 (1- ...))=E2= =80=99 in the codebase justifies adding =E2=80=98iota=E2=80=99. Hmmm. =2D-=20 Thien-Thi Nguyen GPG key: 4C807502 (if you're human and you know it) read my lisp: (responsep (questions 'technical) (not (via 'mailing-list))) =3D> nil --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.12 (GNU/Linux) iEYEARECAAYFAlUAvpsACgkQZwMiJEyAdQI/XgCeLx+gOwjkGgqwBGeR4EaVqZqN XXMAn3HpqWmQt29KkQXIhEB2zb9c+9bv =nRZg -----END PGP SIGNATURE----- --=-=-=--