From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "WJ" Newsgroups: gmane.emacs.help Subject: Re: Declaring a local dynamic variable? Date: 2 Nov 2013 23:56:47 GMT Organization: NewsGuy - Unlimited Usenet $19.95 Message-ID: References: <878uyo4w8n.fsf@informatimago.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 X-Trace: ger.gmane.org 1383440077 21053 80.91.229.3 (3 Nov 2013 00:54:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 3 Nov 2013 00:54:37 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Nov 03 01:54:39 2013 Return-path: Envelope-to: geh-help-gnu-emacs@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 1Vclxc-0005PB-H2 for geh-help-gnu-emacs@m.gmane.org; Sun, 03 Nov 2013 01:54:36 +0100 Original-Received: from localhost ([::1]:43636 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vclxc-0007ld-3U for geh-help-gnu-emacs@m.gmane.org; Sat, 02 Nov 2013 20:54:36 -0400 X-Received: by 10.236.4.69 with SMTP id 45mr5119889yhi.20.1383436645760; Sat, 02 Nov 2013 16:57:25 -0700 (PDT) Original-Path: usenet.stanford.edu!i2no6856600qav.0!news-out.google.com!9ni7423qaf.0!nntp.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!spln!extra.newsguy.com!newsp.newsguy.com!enews4 Original-Newsgroups: gnu.emacs.help Original-Lines: 14 Original-NNTP-Posting-Host: p6e786c8a16b7ae1d938032c8bfd770e83658a0752c50e31191dfdb7e3c4c2811.newsdawg.com User-Agent: XanaNews/1.18.1.6 X-Antivirus: avast! (VPS 131101-1, 11/01/2013), Outbound message X-Antivirus-Status: Clean X-Received-Bytes: 1188 Original-Xref: usenet.stanford.edu gnu.emacs.help:202028 X-Mailman-Approved-At: Sat, 02 Nov 2013 20:54:26 -0400 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:94299 Archived-At: Pascal J. Bourguignon wrote: > > (defun split-declarations (body) > (loop > for b on body > while (and (listp (car b)) (eq 'declare (caar b))) > append (cdar b) into declarations > finally (return (list declarations b)))) (defun split-declarations (body &optional decs) (while (and (listp (car body)) (eq 'declare (caar body))) (setq decs (nconc decs (cdr (pop body))))) (list decs body))