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))