Skip to content
Snippets Groups Projects
Commit fa421abc authored by pw's avatar pw
Browse files

Add a few inhibit-warnings declaration to reduce noise in compile-lisp.log.

parent 6de2f7b7
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -148,7 +148,7 @@
(defun get-bytes-consed () (defun get-bytes-consed ()
"Returns the number of bytes consed since the first time this function "Returns the number of bytes consed since the first time this function
was called. The first time it is called, it returns zero." 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*) (cond ((null *last-bytes-in-use*)
(setq *last-bytes-in-use* (dynamic-usage)) (setq *last-bytes-in-use* (dynamic-usage))
(setq *total-bytes-consed* 0)) (setq *total-bytes-consed* 0))
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 { ...@@ -191,6 +191,8 @@ struct in_addr {
(defun lookup-host-entry (host) (defun lookup-host-entry (host)
"Return a host-entry for the given host. The host may be an address "Return a host-entry for the given host. The host may be an address
string or an IP address in host order." 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) (if (typep host 'host-entry)
host host
(with-alien (with-alien
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -259,7 +259,8 @@
(defmacro define-signal-handler (name what &optional (function 'error)) (defmacro define-signal-handler (name what &optional (function 'error))
`(defun ,name (signal code scp) `(defun ,name (signal code scp)
(declare (ignore signal code) (declare (ignore signal code)
(type system-area-pointer scp)) (type system-area-pointer scp)
(optimize (inhibit-warnings 3)))
(system:without-hemlock (system:without-hemlock
(,function ,(concatenate 'simple-string what " at #x~x.") (,function ,(concatenate 'simple-string what " at #x~x.")
(with-alien ((scp (* sigcontext) scp)) (with-alien ((scp (* sigcontext) scp))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment