From jsquires at common-lisp.net  Tue May 27 00:03:03 2008
From: jsquires at common-lisp.net (jsquires)
Date: Mon, 26 May 2008 20:03:03 -0400 (EDT)
Subject: [anaphora-cvs] CVS src
Message-ID: <20080527000303.165B325117@common-lisp.net>

Update of /project/anaphora/cvsroot/src
In directory clnet:/tmp/cvs-serv8239

Modified Files:
	anaphora.lisp 
Log Message:
Patch from Gary King that corrects an unused variable warning.


--- /project/anaphora/cvsroot/src/anaphora.lisp	2006/06/30 09:40:51	1.4
+++ /project/anaphora/cvsroot/src/anaphora.lisp	2008/05/27 00:03:02	1.5
@@ -39,6 +39,7 @@
 (defmacro sif (test then &optional else &environment env)
   "Like IF, except binds the test form to IT (via SYMBOL-MACROLET) for
 the scope of the then and else expressions. IT can be set with SETF"
+  (declare (ignore env))
   `(symbolic if ,test ,then ,else))
 
 (defmacro asif (test then &optional else)