[anaphora-cvs] CVS src

[jsquires]

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)