bug#27016: possible bug in `defsetf'

[npostavs]

Rafael D Sorkin <rsorkin@perimeterinstitute.ca> writes:

>  >     (eval-and-compile
>  >       (unless t
>  >         (defsetf foobar setcar)))
>  > 
> One problem is that, as far as I know, common lisp doesn't have
> `eval-and-compile', and my code is meant to work with both elisp
> and common lisp.

Oh, I think `eval-when' should be equivalent:

    (eval-when (compile load eval)
      (unless t
        (defsetf foobar setcar)))