[anaphora-devel] small patch to correct an unused variable warning

[Gary King]

The patch below corrects an unused variable warning.


Index: anaphora.lisp
===================================================================
RCS file: /project/anaphora/cvsroot/src/anaphora.lisp,v
retrieving revision 1.4
diff -c -r1.4 anaphora.lisp
*** anaphora.lisp       30 Jun 2006 09:40:51 -0000      1.4
--- anaphora.lisp       26 May 2008 19:43:59 -0000
***************
*** 39,44 ****
--- 39,45 ----
   (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)




HTH,
--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM