Re: no return on member

[reti@cambridge.apple.com (Kalman Reti)]

At  9:41 AM 10/24/94 -0500, paul hasse wrote:
>Is this a bug or am I miss-using the member function.
>
>(member 7 '(1 2 3 4 5 6 7 8 9 10) :test #'< :key #'(lambda (n) (* n n)))
>
>returns (3 4 5 6 7 8 9 10)
>
>(member 7 '(1 2 3 4 5 6 7 8 9 10) :test-not #'>)
>
>returns (7 8 9 10)
>
>no surprises so far, but when I try
>
>(member 7 '(1 2 3 4 5 6 7 8 9 10) :test-not #'> :key #'(lambda (n) (* n n)))
>
>my machine is hangs.  Any idea what is going on here?

It's a known bug.  I'll send you a fasl file patch in a separate message.  If
anyone else wants the patch, send mail asking for "member-patch".