Error in compiling a MEMBER call with two :key arguments

[Paul F. Dietz]

(lambda (x) (member nil '(1 2 3) :key #'evenp :key x))

===>

SB-C::LVAR-VALUE used on non-constant LVAR #<SB-C::LVAR 1 {1005D04B63}>
   [Condition of type SIMPLE-ERROR]
[...]
  0: (SB-C::LVAR-VALUE #<SB-C::LVAR 1 {1005D04B63}>)
  1: (SB-C::CONSTANT-FOLD-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME MEMBER :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLOBAL-FUN..
[...]

The error is similar to bug 1740783 but that fix didn't fix this.

[Stas Boukarev (stassats)]

In d30e572cd59d95c12e65dd34104a49617ba3a6d9.