[Sbcl-commits] CVS: sbcl/src/code target-alieneval.lisp,1.41,1.42

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11534/src/code

Modified Files:
	target-alieneval.lisp 
Log Message:
0.9.9.15:
        Make some variables in the code code generated by 
        ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ignorable to get rid of
        spurious warnings, as suggested by James Bielman on sbcl-devel
        "Unused variable warnings in SB-ALIEN::ALIEN-LAMBDA".


Index: target-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- target-alieneval.lisp	16 Jan 2006 14:45:46 -0000	1.41
+++ target-alieneval.lisp	5 Feb 2006 23:14:10 -0000	1.42
@@ -797,6 +797,7 @@
                         (sb!kernel:get-lisp-obj-address args-pointer)))
              (res-sap (int-sap
                        (sb!kernel:get-lisp-obj-address result-pointer))))
+         (declare (ignorable args-sap res-sap))
          (with-alien
              ,(loop
                  with offset = 0