From: Tianxiang Xiong <tianxiang.xiong@gmail.com>
To: "Clément Pit-Claudel" <cpitclaudel@gmail.com>
Cc: Emacs developers <emacs-devel@gnu.org>
Subject: Re: Performance issue w/ `cl-loop`s `collect...into`
Date: Sun, 8 Apr 2018 01:50:16 -0700 [thread overview]
Message-ID: <CACMkxixct5Nf_2BEab68xDG93sQ163CEAF8-Z52zVgShU81+0w@mail.gmail.com> (raw)
In-Reply-To: <1d5b85f5-62cd-f2f3-0b71-9e2a2cf2ef9e@gmail.com>
[-- Attachment #1: Type: text/plain, Size: 1048 bytes --]
Indeed, I modified the macroexpanded form into:
(cl-block nil
(let* ((--cl-var-- (number-sequence 0 130000))
i
pairs
pairs-end)
(while (consp --cl-var--)
(setq i (car --cl-var--))
(let ((v (list (cons (number-to-string i) i))))
(if (null pairs-end)
(setq pairs v pairs-end (last pairs))
(setq pairs-end (setcdr pairs-end v))))
(setq --cl-var-- (cdr --cl-var--)))
(length pairs)))
and it runs near instantaneously.
I'd *guess* the fix would be applied in `cl--parse-loop-clause`? Perhaps
Stefan could give some pointers?
On Sat, Apr 7, 2018 at 11:12 PM, Clément Pit-Claudel <cpitclaudel@gmail.com>
wrote:
> On 2018-04-08 01:56, Tianxiang Xiong wrote:
> > Yikes--wasn't expecting that. Similar code in SBCL runs nearly
> instantaneously.
>
> Indeed, fixing the implementation would be nice. It shouldn't be too hard
> to keep a reference to the last `cons' of `pairs' and to append to that
> using setcdr.
>
> Clément.
>
[-- Attachment #2: Type: text/html, Size: 2265 bytes --]
next prev parent reply other threads:[~2018-04-08 8:50 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-08 0:51 Performance issue w/ `cl-loop`s `collect...into` Tianxiang Xiong
2018-04-08 3:26 ` Clément Pit-Claudel
2018-04-08 5:56 ` Tianxiang Xiong
2018-04-08 6:12 ` Clément Pit-Claudel
2018-04-08 8:50 ` Tianxiang Xiong [this message]
2018-04-08 13:19 ` Clément Pit-Claudel
2018-04-08 16:07 ` Stefan Monnier
2018-04-08 19:58 ` Tianxiang Xiong
2018-04-08 21:13 ` Stefan Monnier
2018-04-08 23:29 ` Tianxiang Xiong
2018-04-09 1:10 ` Tianxiang Xiong
2018-04-09 1:59 ` Stefan Monnier
2018-04-09 2:16 ` Tianxiang Xiong
2018-04-09 2:20 ` Stefan Monnier
2018-04-09 3:34 ` Tianxiang Xiong
2018-04-09 3:38 ` Tianxiang Xiong
2018-04-09 12:07 ` Stefan Monnier
2018-04-09 12:22 ` Basil L. Contovounesios
2018-04-09 15:28 ` Tianxiang Xiong
2018-04-09 15:33 ` Tianxiang Xiong
2018-04-14 7:01 ` Tianxiang Xiong
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CACMkxixct5Nf_2BEab68xDG93sQ163CEAF8-Z52zVgShU81+0w@mail.gmail.com \
--to=tianxiang.xiong@gmail.com \
--cc=cpitclaudel@gmail.com \
--cc=emacs-devel@gnu.org \
/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 public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).