From: Harald Hanche-Olsen
Subject: Re: the FIND function applied to cons cells
Date: Sun, 16 Apr 2006 14:48:28 +0000
Message-ID: <pcomzelh8zn.fsf@shuttle.math.ntnu.no>

+ "Alan Manuel K. Gloria" <········@gmail.com>:

| (defun on-member-if (predicate list &key (key #'(lambda (x) x))
|   (loop for x on list
|         when (funcall predicate (funcall key x))
|         return x))

Minor nit:  #'(lambda (x) x) is also known as #'identity.

-- 
* Harald Hanche-Olsen     <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
  when there is no ground whatsoever for supposing it is true.
  -- Bertrand Russell