From: Christian Ohler <ohler@gnu.org>
To: Juanma Barranquero <lekktu@gmail.com>
Cc: Stefan Monnier <monnier@iro.umontreal.ca>, emacs-devel@gnu.org
Subject: Re: Lexical binding
Date: Sun, 03 Apr 2011 22:05:51 +1000 [thread overview]
Message-ID: <4D98629F.9070506@gnu.org> (raw)
In-Reply-To: <AANLkTimLCS-h60b2tU0dsB=knt6VG5eK1n5TZ2STGgMR@mail.gmail.com>
On 3/04/11 4:57, Juanma Barranquero wrote:
> The original trouble with `loop' is that, in a loop like this one,
> with destructuring
>
> (defsubst my--bs-file-width ()
> (- (window-width)
> (loop for (name width . rest) in bs-attributes-list
> if (numberp width) sum width)
> (bs--get-name-length)
> 1))
>
> `name' is just a placeholder (as it is rest). I'm interested just in
> `width'. And there's no way to write that loop as is without warnings.
In loop destructuring, you can use nil for fields that you want to ignore:
(loop for (nil width . nil) in bs-attributes-list
if (numberp width) sum width)
If you want to keep the ignored fields named, you could do something like
(loop for (name width . rest) in bs-attributes-list
do (progn name rest) ; ignore
if (numberp width) sum width)
Christian.
next prev parent reply other threads:[~2011-04-03 12:05 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-04-01 17:32 Lexical binding Stefan Monnier
2011-04-01 19:12 ` David De La Harpe Golden
2011-04-01 19:46 ` Eli Zaretskii
2011-04-04 16:05 ` Stefan Monnier
2011-04-01 20:04 ` Daniel Colascione
2011-04-01 20:39 ` cedet-bzr build failure (was : Lexical binding) Darren Hoo
2011-04-01 21:21 ` David Engster
2011-04-01 22:26 ` Darren Hoo
2011-04-02 12:40 ` David Engster
2011-04-02 13:42 ` Eric M. Ludlam
2011-04-02 18:22 ` cedet-bzr build failure David Engster
2011-04-02 18:29 ` cedet-bzr build failure (was : Lexical binding) Darren Hoo
2011-04-01 20:42 ` Lexical binding Eli Zaretskii
2011-04-01 22:13 ` Juanma Barranquero
2011-04-02 2:33 ` Juanma Barranquero
2011-04-02 3:36 ` Juanma Barranquero
2011-04-02 18:38 ` Stefan Monnier
2011-04-04 16:04 ` Juanma Barranquero
2011-04-04 21:44 ` Stefan Monnier
2011-04-04 21:56 ` Juanma Barranquero
2011-04-04 22:03 ` David Kastrup
2011-04-04 22:34 ` Stefan Monnier
2011-04-02 18:38 ` Stefan Monnier
2011-04-02 18:50 ` Juanma Barranquero
2011-04-02 18:57 ` Juanma Barranquero
2011-04-03 12:05 ` Christian Ohler [this message]
2011-04-03 12:26 ` Juanma Barranquero
2011-04-03 23:32 ` Christian Ohler
2011-04-04 0:12 ` Juanma Barranquero
2011-04-04 16:22 ` Stefan Monnier
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4D98629F.9070506@gnu.org \
--to=ohler@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=lekktu@gmail.com \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.