> Looks like I was just confused, thanks for double checking.

OK, your welcome (and my patch is mistaken same issue)

>>                     `(cadr ,p)
>                        ^^^^
>                        car?

Thanks. I change this code repeatedly and squash many time,
I was confused at that time.

> Could you send me the patch against `master`, so I can install it?

OK, I recreated the patch and attached it.




2020年9月9日(水) 12:23 Stefan Monnier <monnier@iro.umontreal.ca>:

> > I cannot understand this point.  Your additional test is passed
> > by current code, the additional quote is unneeded I think.
>
> Looks like I was just confused, thanks for double checking.
>
> >    (lambda (do plist prop)
> >      (macroexp-let2 macroexp-copyable-p key prop
> >        (gv-letplace (getter setter) plist
> > -        (macroexp-let2 nil p `(plist-member ,getter ,key)
> > +        (macroexp-let2 nil p `(cdr (plist-member ,getter ',key))
> >            (funcall do
> >                     `(cadr ,p)
>                         ^^^^
>                         car?
>
> Could you send me the patch against `master`, so I can install it?
>
>
>         Stefan
>
>