From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: cl-pushnew and other functions Date: Mon, 02 Jul 2012 09:25:50 +0200 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1341213962 19861 80.91.229.3 (2 Jul 2012 07:26:02 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 2 Jul 2012 07:26:02 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 02 09:26:02 2012 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Slb1F-0002C2-DP for ged-emacs-devel@m.gmane.org; Mon, 02 Jul 2012 09:26:01 +0200 Original-Received: from localhost ([::1]:48537 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Slb1E-0002px-BP for ged-emacs-devel@m.gmane.org; Mon, 02 Jul 2012 03:26:00 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:51579) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Slb1A-0002pq-DF for emacs-devel@gnu.org; Mon, 02 Jul 2012 03:25:59 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Slb18-0005LP-LN for emacs-devel@gnu.org; Mon, 02 Jul 2012 03:25:55 -0400 Original-Received: from mail-out.m-online.net ([212.18.0.9]:39378) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Slb18-0005Kl-Ep for emacs-devel@gnu.org; Mon, 02 Jul 2012 03:25:54 -0400 Original-Received: from frontend4.mail.m-online.net (unknown [192.168.8.183]) by mail-out.m-online.net (Postfix) with ESMTP id 3WQg4c6hGmz4KK6X for ; Mon, 2 Jul 2012 09:26:23 +0200 (CEST) Original-Received: from igel.home (ppp-88-217-119-150.dynamic.mnet-online.de [88.217.119.150]) by mail.mnet-online.de (Postfix) with ESMTPA id 3WQg3z1wFLzbbrN for ; Mon, 2 Jul 2012 09:25:51 +0200 (CEST) Original-Received: by igel.home (Postfix, from userid 501) id BDD2FCA2A5; Mon, 2 Jul 2012 09:25:50 +0200 (CEST) X-Yow: Is this BOISE?? In-Reply-To: (John Wiegley's message of "Sun, 01 Jul 2012 22:50:49 -0500") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-Received-From: 212.18.0.9 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:151347 Archived-At: "John Wiegley" writes: > Before: > > (defun gnus-harvest-bbdb-complete-stub (stub) > (delete > nil > (mapcar > #'(lambda (record) > (let ((nets (bbdb-record-mail record))) > (and nets > (format "%s <%s>" (bbdb-record-name record) > (car nets))))) > (bbdb-search (bbdb-records) stub nil stub)))) > > After: > > (defun gnus-harvest-bbdb-complete-stub (stub) > (loop for record in (bbdb-search (bbdb-records) stub nil stub) > for nets = (bbdb-record-mail record) > when nets > collect (format "%s <%s>" (bbdb-record-name record) (car nets)))) > > I breathed a sigh of relief there, just reading that again. I find the latter rather un-lispy. Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."