[Sbcl-commits] CVS: sbcl/src/compiler constraint.lisp, 1.37, 1.38 fopcompile.lisp, 1.12, 1.13 macros.lisp, 1.61, 1.62 saptran.lisp, 1.14, 1.15

[Gabor M. <me...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv1988/src/compiler

Modified Files:
	constraint.lisp fopcompile.lisp macros.lisp saptran.lisp 
Log Message:
1.0.25.15: less compilation warnings


Index: constraint.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/constraint.lisp,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- constraint.lisp	26 Dec 2008 14:19:07 -0000	1.37
+++ constraint.lisp	16 Feb 2009 21:27:27 -0000	1.38
@@ -155,7 +155,8 @@
 
   (defmacro do-conset-elements ((constraint conset &optional result) &body body)
     (with-unique-names (vector index start end
-                               ignore constraint-universe-end)
+                               #-sb-xc-host ignore
+                               #-sb-xc-host constraint-universe-end)
       (let* ((constraint-universe #+sb-xc-host '*constraint-universe*
                                   #-sb-xc-host (gensym))
              (with-array-data

Index: fopcompile.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fopcompile.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- fopcompile.lisp	17 Oct 2008 11:57:32 -0000	1.12
+++ fopcompile.lisp	16 Feb 2009 21:27:27 -0000	1.13
@@ -36,7 +36,7 @@
   ;; supporting in the future are LOCALLY (with declarations),
   ;; MACROLET, SYMBOL-MACROLET and THE.
   #+sb-xc-host
-  nil
+  (declare (ignore form))
   #-sb-xc-host
   (or (and (self-evaluating-p form)
            (constant-fopcompilable-p form))

Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/macros.lisp,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- macros.lisp	12 Dec 2007 12:19:44 -0000	1.61
+++ macros.lisp	16 Feb 2009 21:27:27 -0000	1.62
@@ -193,6 +193,7 @@
                                                 translations-name
                                                 attribute-names
                                                 get-setf-expansion-fun-name)
+    (declare (ignore attribute-names))
     `(define-setf-expander ,test-name (place &rest attributes
                                              &environment env)
        "Automagically generated boolean attribute setter. See

Index: saptran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/saptran.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- saptran.lisp	1 Aug 2008 17:10:22 -0000	1.14
+++ saptran.lisp	16 Feb 2009 21:27:27 -0000	1.15
@@ -109,7 +109,8 @@
             (sap+ sap (+ offset1 offset2))))))
 
 (macrolet ((def (fun element-size &optional setp value-type)
-             (declare (ignorable value-type))
+             (declare (ignorable value-type)
+                      #!-x86 (ignore element-size))
              `(progn
                 (deftransform ,fun ((sap offset ,@(when setp `(new-value))) * *)
                   (splice-fun-args sap 'sap+ 2)