[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#27584: 26.0.50; alist-get: Add optional arg TESTFN
From: |
Michael Heerdegen |
Subject: |
bug#27584: 26.0.50; alist-get: Add optional arg TESTFN |
Date: |
Mon, 10 Jul 2017 14:47:47 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) |
Tino Calancha <tino.calancha@gmail.com> writes:
> I rewrote it as follows:
>
> (declare (compiler-macro
> (lambda (form)
> (pcase pred
> (''eq `(assq ,key ,alist))
> ((or ''equal 'nil) `(assoc ,key ,alist))
> ((and (guard (macroexp-const-p key)) ''eql)
> (if (floatp key)
> `(assoc ,key ,alist) `(assq ,key ,alist)))
> (t form)))))
Is this a good idea in general? PRED could also be function-quoted, or
a variable bound to `eq'. And KEY could be an expression that evaluates
to a float. That would fail the `floatp' test.
Michael.
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, (continued)
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/06
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Stefan Monnier, 2017/07/06
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Eli Zaretskii, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Stefan Monnier, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/09
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Michael Heerdegen, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Michael Heerdegen, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN,
Michael Heerdegen <=
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Michael Heerdegen, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Michael Heerdegen, 2017/07/10
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/06
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Tino Calancha, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Stefan Monnier, 2017/07/07
- bug#27584: 26.0.50; alist-get: Add optional arg TESTFN, Nicolas Petton, 2017/07/07