Re: [PATCH] Add gv-define-expander for plist-get

[Naoya Yamashita <conao3@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1260 bytes --]

Does anyone see this email?
Let me know if there's a better place to put this patch out.
Excuse me, I'm not used to communicating on ML...

2020年8月17日(月) 18:05 Naoya Yamashita <conao3@gmail.com>:

> Hello, all.
>
> I find `gv` has `gv-define-expander` for `alist-get`, but
> there're no definition for `plist-get`
>
> Therefore, `setf` works only for `alist-get` but not for
> `plist-get`.
>
> ```
> (let ((target '((a . "a") (b . "b"))))
>   (setf (alist-get 'a target) "modify")
>   target)
> ;;=> ((a . "modify") (b . "b"))
>
> (let ((target '(:a "a" :b "b")))
>   (setf (plist-get target :a) "modify")
>   target)
> ;;=> Debugger entered--Lisp error: (void-function \(setf\ plist-get\))
> ;;     (\(setf\ plist-get\) "modify" v :a)
> ;;     (let* ((v v)) (\(setf\ plist-get\) "modify" v :a))
> ;;     (setf (plist-get v :a) "modify")
> ;;     (let ((v '(:a "a" :b "b"))) (setf (plist-get v :a) "modify"))
> ;;     (progn (let ((v '(:a "a" :b "b"))) (setf (plist-get v :a)
> "modify")))
> ;;     eval((progn (let ((v '(:a "a" :b "b"))) (setf (plist-get v :a)
> "modify"))) t)
> ```
>
> This patch adds the definition of gv-expander for `plist-get`.
> Please refer to the additional test cases for usage.
>
>
>

[-- Attachment #2: Type: text/html, Size: 1927 bytes --]