From gwking at metabang.com Mon Jan 23 02:43:49 2006 From: gwking at metabang.com (Gary King) Date: Sun, 22 Jan 2006 21:43:49 -0500 Subject: [anaphora-devel] anaphoric prog1 Message-ID: <53005A44-F272-45A4-9E7A-C0627C269428@metabang.com> Anaphora! I like it. Have you considered aprog1?? > (defmacro aprog1 (first &body rest) > "Anaphoric prog1. This binds IT to the first form so that it can > be used in the rest of the forms. The whole thing returns IT." > `(let ((it ,first)) > , at rest > it)) > > #+Example > (aprog1 > (read in nil nil) > (when (atom it) > (warn "Parse error: ~A" f))) I find this pretty handy. -- Gary Warren King metabang.com http://www.metabang.com/ From gwking at metabang.com Wed Jan 25 21:29:47 2006 From: gwking at metabang.com (Gary King) Date: Wed, 25 Jan 2006 16:29:47 -0500 Subject: [anaphora-devel] anaphoric prog1 In-Reply-To: <20060125205819.GA8368@cipht.net> References: <53005A44-F272-45A4-9E7A-C0627C269428@metabang.com> <20060125205819.GA8368@cipht.net> Message-ID: <31E0037A-34C6-420A-BAA8-7F1489A7D135@metabang.com> Cool! On Jan 25, 2006, at 3:58 PM, Julian Squires wrote: > On Sun, Jan 22, 2006 at 09:43:49PM -0500, Gary King wrote: >> Anaphora! I like it. > > I'm a big fan, too. > >> Have you considered aprog1?? >> >>> (defmacro aprog1 (first &body rest) >>> "Anaphoric prog1. This binds IT to the first form so that it can >>> be used in the rest of the forms. The whole thing returns IT." >>> `(let ((it ,first)) >>> , at rest >>> it)) >>> >>> #+Example >>> (aprog1 >>> (read in nil nil) >>> (when (atom it) >>> (warn "Parse error: ~A" f))) >> >> I find this pretty handy. > > This is a cool idea. > > I'm not sure that Nikodemus is still maintaining anaphora, as I > have had > a patch to fix acond for ages which hasn't been applied to CVS. > > I will add this to my patch sometime shortly, and maybe I'll ask > Nikodemus if I can co-maintain anaphora. (I'm sure he's out there > absorbing these messages, somewhere.) > > Cheers. > > -- > Julian Squires -- Gary Warren King metabang.com http://www.metabang.com/ -------------- next part -------------- A non-text attachment was scrubbed... Name: smime.p7s Type: application/pkcs7-signature Size: 2367 bytes Desc: not available URL: From julian at cipht.net Wed Jan 25 20:58:19 2006 From: julian at cipht.net (Julian Squires) Date: Wed, 25 Jan 2006 17:28:19 -0330 Subject: [anaphora-devel] anaphoric prog1 In-Reply-To: <53005A44-F272-45A4-9E7A-C0627C269428@metabang.com> References: <53005A44-F272-45A4-9E7A-C0627C269428@metabang.com> Message-ID: <20060125205819.GA8368@cipht.net> On Sun, Jan 22, 2006 at 09:43:49PM -0500, Gary King wrote: > Anaphora! I like it. I'm a big fan, too. > Have you considered aprog1?? > > >(defmacro aprog1 (first &body rest) > > "Anaphoric prog1. This binds IT to the first form so that it can > >be used in the rest of the forms. The whole thing returns IT." > > `(let ((it ,first)) > > , at rest > > it)) > > > >#+Example > >(aprog1 > > (read in nil nil) > > (when (atom it) > > (warn "Parse error: ~A" f))) > > I find this pretty handy. This is a cool idea. I'm not sure that Nikodemus is still maintaining anaphora, as I have had a patch to fix acond for ages which hasn't been applied to CVS. I will add this to my patch sometime shortly, and maybe I'll ask Nikodemus if I can co-maintain anaphora. (I'm sure he's out there absorbing these messages, somewhere.) Cheers. -- Julian Squires