From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lute Kamstra Newsgroups: gmane.emacs.devel Subject: Re: Adding rassq-delete-all to lisp/subr.el. Date: Tue, 19 Apr 2005 16:06:55 +0200 Message-ID: <87ekd67tds.fsf@xs4all.nl> References: <87k6my7v56.fsf@xs4all.nl> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1113920091 12165 80.91.229.2 (19 Apr 2005 14:14:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 19 Apr 2005 14:14:51 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Apr 19 16:14:45 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DNtT1-0000nc-PN for ged-emacs-devel@m.gmane.org; Tue, 19 Apr 2005 16:12:45 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DNtXL-0007wO-Ku for ged-emacs-devel@m.gmane.org; Tue, 19 Apr 2005 10:17:11 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DNtXA-0007w2-MM for emacs-devel@gnu.org; Tue, 19 Apr 2005 10:17:00 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DNtX7-0007vq-S0 for emacs-devel@gnu.org; Tue, 19 Apr 2005 10:17:00 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DNtX7-0007vn-O0 for emacs-devel@gnu.org; Tue, 19 Apr 2005 10:16:57 -0400 Original-Received: from [194.109.24.34] (helo=smtp-vbr14.xs4all.nl) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DNtPF-0001Sb-A8 for emacs-devel@gnu.org; Tue, 19 Apr 2005 10:08:49 -0400 Original-Received: from pijl (a80-127-67-124.adsl.xs4all.nl [80.127.67.124]) by smtp-vbr14.xs4all.nl (8.12.11/8.12.11) with ESMTP id j3JE6t9V077464 for ; Tue, 19 Apr 2005 16:06:55 +0200 (CEST) (envelope-from Lute.Kamstra@xs4all.nl) Original-Received: from lute by pijl with local (Exim 3.36 #1 (Debian)) id 1DNtNP-0006Gf-00 for ; Tue, 19 Apr 2005 16:06:55 +0200 Original-To: emacs-devel@gnu.org In-Reply-To: <87k6my7v56.fsf@xs4all.nl> (Lute Kamstra's message of "Tue, 19 Apr 2005 15:28:53 +0200") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Original-Lines: 14 X-Virus-Scanned: by XS4ALL Virus Scanner X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:36106 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:36106 Lute Kamstra writes: > (defun rassq-delete-all (value alist) > "Delete from ALIST all elements whose cdr is `eq' to VALUE. > Return the modified alist. > Elements of ALIST that are not conses are ignored." > (let ((tail alist)) > (while tail > (when (and (consp (car tail)) (eq (cadr tail) value)) ^^^^ Whoops: cdar > (setq alist (delq (car tail) alist))) > (setq tail (cdr tail))) > alist))