From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?ISO-8859-1?Q?Nordl=F6w?= Newsgroups: gmane.emacs.help Subject: Re: Wanted: mapcar() without nils Date: Sat, 13 Jun 2009 11:24:37 -0700 (PDT) Organization: http://groups.google.com Message-ID: <65652541-cb7d-4c93-8baf-cd963990e57e@g1g2000yqh.googlegroups.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1244918650 8928 80.91.229.12 (13 Jun 2009 18:44:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 13 Jun 2009 18:44:10 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Jun 13 20:44:08 2009 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MFYCz-0004Ig-OD for geh-help-gnu-emacs@m.gmane.org; Sat, 13 Jun 2009 20:44:05 +0200 Original-Received: from localhost ([127.0.0.1]:55214 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MFYCz-00050n-32 for geh-help-gnu-emacs@m.gmane.org; Sat, 13 Jun 2009 14:44:05 -0400 Original-Path: news.stanford.edu!newsfeed.stanford.edu!postnews.google.com!g1g2000yqh.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 15 Original-NNTP-Posting-Host: 81.170.250.228 Original-X-Trace: posting.google.com 1244917477 18309 127.0.0.1 (13 Jun 2009 18:24:37 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Sat, 13 Jun 2009 18:24:37 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: g1g2000yqh.googlegroups.com; posting-host=81.170.250.228; posting-account=ytJKAgoAAAA1tg4ScoRszebXiIldA5vg User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/531.0 (KHTML, like Gecko) Chrome/3.0.189.0 Safari/531.0,gzip(gfe),gzip(gfe) Original-Xref: news.stanford.edu gnu.emacs.help:170032 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:65260 Archived-At: This is my mockup: (defun extract-elements (pred seq) "Extract a copy of SEQ containing all elements fullfilling PRED." (delq nil (mapcar `(lambda (elm) (when (,pred elm)) elm) seq))) ;; Use: (extract-elements 'symbolp '(a b 1 2)) =3D> '(a b) ;; Use: (extract-elements 'numberp '(a b 1 2)) =3D> '(1 2) But why does my test-cases return '(a b 1 2) all the time? The first should return (a b) and second (1 2). I have tried edebugging it but because mapcar is a builtin I didn't get any help that way. /Nordl=F6w