From 7643bab1c81e50484d528845b7788695e41bfd0f Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Sat, 14 May 2016 12:10:12 -0400
Subject: [PATCH] Suppress some compiler notes

---
 src/code/debug-int.lisp       | 1 +
 src/code/irrat.lisp           | 4 ++++
 src/code/room.lisp            | 1 +
 src/code/target-pathname.lisp | 2 ++
 src/code/toplevel.lisp        | 1 +
 src/code/unix.lisp            | 1 +
 src/compiler/float-tran.lisp  | 2 ++
 7 files changed, 12 insertions(+)

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 4c3700669..6bdd89a38 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -828,6 +828,7 @@
                              (or escaped (and savedp off-stack)))))))
 
 (defun nth-interrupt-context (n)
+  (declare (muffle-conditions t))
   (declare (type (unsigned-byte 32) n)
            (optimize (speed 3) (safety 0)))
   (sb!alien:sap-alien (sb!vm::current-thread-offset-sap
diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 02aed7831..ce249745e 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -789,6 +789,7 @@
 #!+long-float (eval-when (:compile-toplevel :load-toplevel :execute)
                 (error "needs work for long float support"))
 (defun cssqs (z)
+  (declare (muffle-conditions t))
   (let ((x (float (realpart z) 1d0))
         (y (float (imagpart z) 1d0)))
     ;; Would this be better handled using an exception handler to
@@ -879,6 +880,7 @@
 ;;;
 ;;; This is for use with J /= 0 only when |z| is huge.
 (defun complex-log-scaled (z j)
+  (declare (muffle-conditions t))
   (declare (type (or rational complex) z)
            (fixnum j))
   ;; The constants t0, t1, t2 should be evaluated to machine
@@ -935,6 +937,7 @@
 ;;; i*y is never 0 since we have positive and negative zeroes. -- rtoy
 ;;; Compute atanh z = (log(1+z) - log(1-z))/2.
 (defun complex-atanh (z)
+  (declare (muffle-conditions t))
   (declare (type (or rational complex) z))
   (let* (;; constants
          (theta (/ (sqrt most-positive-double-float) 4.0d0))
@@ -992,6 +995,7 @@
 
 ;;; Compute tanh z = sinh z / cosh z.
 (defun complex-tanh (z)
+  (declare (muffle-conditions t))
   (declare (type (or rational complex) z))
   (let ((x (float (realpart z) 1.0d0))
         (y (float (imagpart z) 1.0d0)))
diff --git a/src/code/room.lisp b/src/code/room.lisp
index 6dd03a115..4046a48e3 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -409,6 +409,7 @@
 ;;; Return a list of 3-lists (bytes object type-name) for the objects
 ;;; allocated in Space.
 (defun type-breakdown (space)
+  (declare (muffle-conditions t))
   (let ((sizes (make-array 256 :initial-element 0 :element-type '(unsigned-byte #.sb!vm:n-word-bits)))
         (counts (make-array 256 :initial-element 0 :element-type '(unsigned-byte #.sb!vm:n-word-bits))))
     (map-allocated-objects
diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 6b6165739..9ed38e586 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -794,6 +794,8 @@ a host-structure or string."
            (type (or index null) end)
            (type (or t null) junk-allowed)
            (values (or null pathname) (or null index)))
+  (declare (ftype (function * (values (or null pathname) (or null index)))
+                  %parse-native-namestring))
   (with-host (found-host host)
     (let (;; According to ANSI defaults may be any valid pathname designator
           (defaults (etypecase defaults
diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 097a9e5c7..35a2af1b9 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -118,6 +118,7 @@ means to wait indefinitely.")
 ;;;; miscellaneous external functions
 
 (defun split-seconds-for-sleep (seconds)
+  (declare (muffle-conditions t))
   (declare (optimize speed))
   ;; KLUDGE: This whole thing to avoid consing floats
   (flet ((split-float ()
diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index e223b3bc7..f34d47279 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -718,6 +718,7 @@ avoiding atexit(3) hooks, etc. Otherwise exit(2) is called."
 ;;; they are ready for reading and writing. See the UNIX Programmer's
 ;;; Manual for more information.
 (defun unix-select (nfds rdfds wrfds xpfds to-secs &optional (to-usecs 0))
+  (declare (muffle-conditions t))
   (declare (type integer nfds)
            (type unsigned-byte rdfds wrfds xpfds)
            (type (or (unsigned-byte 31) null) to-secs)
diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 62842af9a..e367dfd5e 100644
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -1628,6 +1628,7 @@
 
 #-sb-xc-host
 (defun %unary-ftruncate/single (x)
+  (declare (muffle-conditions t))
   (declare (type single-float x))
   (declare (optimize speed (safety 0)))
   (let* ((bits (single-float-bits x))
@@ -1646,6 +1647,7 @@
 
 #-sb-xc-host
 (defun %unary-ftruncate/double (x)
+  (declare (muffle-conditions t))
   (declare (type double-float x))
   (declare (optimize speed (safety 0)))
   (let* ((high (double-float-high-bits x))
-- 
2.11.4.GIT