From: Gabor Melis <mega@hotpop.com>
Date: Mon, 16 Feb 2009 21:27:26 +0000 (+0000)
Subject: 1.0.25.15: less compilation warnings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f7e3e709f7c2207f1923375942f7fb1c092f92b0;p=sbcl.git

1.0.25.15: less compilation warnings
---

diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index 9f7dcdc..db3c251 100644
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -553,7 +553,7 @@
           (sb-debug::error-debug-command)))))
 
 (defun frame-cmd ()
-  (sb-debug::print-frame-call sb-debug::*current-frame*))
+  (sb-debug::print-frame-call sb-debug::*current-frame* t))
 
 (defun zoom-cmd ()
   )
diff --git a/contrib/sb-posix/macros.lisp b/contrib/sb-posix/macros.lisp
index 2e15e10..f80e714 100644
--- a/contrib/sb-posix/macros.lisp
+++ b/contrib/sb-posix/macros.lisp
@@ -35,6 +35,7 @@
           (etypecase name
             (list
              (destructuring-bind (name &key c-name options) name
+               (declare (ignorable options))
                (if c-name
                    c-name
                    (cond #+largefile
diff --git a/contrib/sb-simple-streams/impl.lisp b/contrib/sb-simple-streams/impl.lisp
index c6b696c..d3e3293 100644
--- a/contrib/sb-simple-streams/impl.lisp
+++ b/contrib/sb-simple-streams/impl.lisp
@@ -293,12 +293,11 @@
         (funcall-stm-handler j-listen (sm melded-stream stream))
         (or (< (sm buffpos stream) (sm buffer-ptr stream))
             ;; Attempt buffer refill
-            (let ((lcrs (sm last-char-read-size stream)))
-              (when (and (not (any-stream-instance-flags stream :dual :string))
-                         (>= (sm mode stream) 0))
-                ;; single-channel stream dirty -> write data before reading
-                (flush-buffer stream nil))
-              (>= (refill-buffer stream nil) width))))))
+            (when (and (not (any-stream-instance-flags stream :dual :string))
+                       (>= (sm mode stream) 0))
+              ;; single-channel stream dirty -> write data before reading
+              (flush-buffer stream nil))
+            (>= (refill-buffer stream nil) width)))))
 
 (defun %clear-input (stream buffer-only)
   (declare (type simple-stream stream))
@@ -750,7 +749,6 @@
 (defun read-char-no-hang (&optional (stream *standard-input*) (eof-error-p t)
                                     eof-value recursive-p)
   "Returns the next character from the Stream if one is availible, or nil."
-  (declare (ignore recursive-p))
   (let ((stream (sb-impl::in-synonym-of stream)))
     (etypecase stream
       (simple-stream
diff --git a/src/code/host-c-call.lisp b/src/code/host-c-call.lisp
index 7d4c9d7..5639751 100644
--- a/src/code/host-c-call.lisp
+++ b/src/code/host-c-call.lisp
@@ -44,6 +44,8 @@
 
 (defun c-string-needs-conversion-p (type)
   #+sb-xc-host
+  (declare (ignore type))
+  #+sb-xc-host
   t
   #-sb-xc-host
   (let ((external-format (sb!impl::get-external-format
diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index ba008cd..1233220 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -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
diff --git a/src/compiler/fopcompile.lisp b/src/compiler/fopcompile.lisp
index 6adfbf2..4ea842f 100644
--- a/src/compiler/fopcompile.lisp
+++ b/src/compiler/fopcompile.lisp
@@ -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))
diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index 8f1a836..700f7e4 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -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
diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp
index 10a08c5..ea6b603 100644
--- a/src/compiler/saptran.lisp
+++ b/src/compiler/saptran.lisp
@@ -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)
diff --git a/version.lisp-expr b/version.lisp-expr
index 57189c2..fea22ae 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.25.14"
+"1.0.25.15"