diff --git a/code/gc.lisp b/code/gc.lisp
index 4bb9b337bfe83e4462dfd3149435816f5a550675..7c6484635ee541ab2b696f8d9d8bff2e31bda11a 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.25 2001/03/04 20:12:36 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.26 2001/04/10 13:42:44 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -148,7 +148,7 @@
 (defun get-bytes-consed ()
   "Returns the number of bytes consed since the first time this function
   was called.  The first time it is called, it returns zero."
-  (declare (optimize (speed 3) (safety 0)))
+  (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
   (cond ((null *last-bytes-in-use*)
 	 (setq *last-bytes-in-use* (dynamic-usage))
 	 (setq *total-bytes-consed* 0))
diff --git a/code/internet.lisp b/code/internet.lisp
index 4b0d38876e8b06597548546fd7597c9a109378b4..1c65d7fb84be39bfc23477a4b2dff4a0190fbc8e 100644
--- a/code/internet.lisp
+++ b/code/internet.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.29 2001/03/04 20:12:37 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.30 2001/04/10 13:42:45 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -191,6 +191,8 @@ struct in_addr {
 (defun lookup-host-entry (host)
   "Return a host-entry for the given host. The host may be an address
   string or an IP address in host order."
+  (declare (type (or host-entry string (unsigned-byte 32)) host)
+	   (optimize (inhibit-warnings 3)))
   (if (typep host 'host-entry)
       host
       (with-alien
diff --git a/code/signal.lisp b/code/signal.lisp
index 7dddc8c4c0d663b276356955fa01dff04a3904f8..08a131187956da3fcefc4ed8a2f35cf63e67dbf6 100644
--- a/code/signal.lisp
+++ b/code/signal.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.31 2001/04/10 12:44:57 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.32 2001/04/10 13:42:45 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -259,7 +259,8 @@
 (defmacro define-signal-handler (name what &optional (function 'error))
   `(defun ,name (signal code scp)
      (declare (ignore signal code)
-	      (type system-area-pointer scp))
+	      (type system-area-pointer scp)
+	      (optimize (inhibit-warnings 3)))
      (system:without-hemlock
       (,function ,(concatenate 'simple-string what " at #x~x.")
 		 (with-alien ((scp (* sigcontext) scp))