From s11 at member.fsf.org Sat Sep 6 00:19:28 2008 From: s11 at member.fsf.org (Stephen Compall) Date: Fri, 05 Sep 2008 19:19:28 -0500 Subject: [parse-declarations-devel] [patch] off-by-one in atomic-type-specifier-p; comment typo Message-ID: Without the first patch, this answers nil: (build-declarations nil (filter-declaration-env (parse-declarations '((declare (fixnum x y z)))) :affecting '(x))) With it I get ((type fixnum x)) as I expect. A potential accuracy improvement for non-built-in types would be to use: #+clozure (ccl::specifier-type symbol env) similarly to the #+sbcl case; I will send that along as well if you like. Also a tiny typo in the comment is patched. -------------- next part -------------- A non-text attachment was scrubbed... Name: pardecl-nth-value-off.darcs.patch Type: text/x-diff Size: 4531 bytes Desc: two Darcs patches URL: -------------- next part -------------- -- I write stuff at http://failex.blogspot.com/ now. But the post formatter and themes are terrible for sharing code, the primary content, so it might go away sooner or later. From tcr at freebits.de Sat Sep 6 10:10:09 2008 From: tcr at freebits.de (Tobias C. Rittweiler) Date: Sat, 06 Sep 2008 12:10:09 +0200 Subject: [parse-declarations-devel] [patch] off-by-one in atomic-type-specifier-p; comment typo In-Reply-To: (Stephen Compall's message of "Fri, 05 Sep 2008 19:19:28 -0500") References: Message-ID: <873akdzita.fsf@freebits.de> Stephen Compall writes: > Without the first patch, this answers nil: > > (build-declarations nil (filter-declaration-env > (parse-declarations '((declare (fixnum x y z)))) > :affecting '(x))) > > With it I get ((type fixnum x)) as I expect. > > A potential accuracy improvement for non-built-in types would be to use: > > #+clozure (ccl::specifier-type symbol env) > > similarly to the #+sbcl case; I will send that along as well if you > like. > > Also a tiny typo in the comment is patched. Thanks, I applied these, and also included the clozure specific form. -T.