(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 1740738 but that fix didn't fix this.
(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}> 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..
[Condition of type SIMPLE-ERROR]
[...]
0: (SB-C::LVAR-VALUE #<SB-C::LVAR 1 {1005D04B63}>)
1: (SB-C::
[...]
The error is similar to bug 1740738 but that fix didn't fix this.