From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Marc Tfardy Newsgroups: gmane.emacs.help Subject: Re: Element-Relative Sequence Insertion Date: Thu, 11 Jun 2009 17:01:09 +0200 Organization: bum-cyk-cyk Message-ID: References: <7czlcf0wu9.fsf@pbourguignon.informatimago.com> <5f86d760-77b2-4ac0-897b-4eb8deca43fe@a36g2000yqc.googlegroups.com> <7cski62ach.fsf@pbourguignon.informatimago.com> <7chbym25xy.fsf@pbourguignon.anevia.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1244782789 8546 80.91.229.12 (12 Jun 2009 04:59:49 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 12 Jun 2009 04:59:49 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Jun 12 06:59:47 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 1MEyri-0005dT-J1 for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Jun 2009 06:59:46 +0200 Original-Received: from localhost ([127.0.0.1]:60746 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MEyri-000321-69 for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Jun 2009 00:59:46 -0400 Original-Path: news.stanford.edu!newsfeed.stanford.edu!goblin2!goblin.stu.neva.ru!plix.pl!newsfeed1.plix.pl!news.nask.pl!news.nask.org.pl!news.onet.pl!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 51 Original-NNTP-Posting-Host: p4fd36367.dip.t-dialin.net Original-X-Trace: news.onet.pl 1244732470 30665 79.211.99.103 (11 Jun 2009 15:01:10 GMT) Original-X-Complaints-To: niusy@onet.pl Original-NNTP-Posting-Date: Thu, 11 Jun 2009 15:01:10 +0000 (UTC) User-Agent: Thunderbird 2.0.0.21 (Windows/20090302) In-Reply-To: <7chbym25xy.fsf@pbourguignon.anevia.com> Original-Xref: news.stanford.edu gnu.emacs.help:169949 X-Mailman-Approved-At: Fri, 12 Jun 2009 00:58:24 -0400 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:65182 Archived-At: >>> It does, but you have to decrypt it first. >> (defun insert-after (elt lst new) >> (cond ((null lst) >> '()) >> ((eq new (car lst)) >> (cons (car lst) (cons elt (cdr lst)))) >> (t >> (cons (car lst) (insert-after elt (cdr lst) new))))) >> >> (defun insert-before (elt lst new) >> (cond ((null lst) >> '()) >> ((eq new (car lst)) >> (cons elt lst)) >> (t >> (cons (car lst) (insert-before elt (cdr lst) new))))) >> >> What is the price? ;-) > > What's the point in renaming the parameters and introducing bugs? > > Check again the order of the parameters! OK, this was a mistake. But it's "only" cosmetics ;-) I tested this with: (insert-after 'X '(a b c) 'b) (a b X c) (insert-before 'X '(a b c) 'b) (a X b c) so I unintended assumed your right arguments order ;) > Notice that (eq 3.141592 3.141592) --> nil ; which is the reason why > eql should be used by default. Yes, this was my big fault. Sorry. > And bad points for not being able to use rot13. > > You lose. :-) Oh shit... :-) regards Marc