From bffa2f790cbb7c68f5b960588d497c9b261da6e5 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Sat, 8 Mar 1997 14:15:59 +0000
Subject: [PATCH] Add a few inhibit-warnings decls to reduce noise in
 compile-clx.log

---
 clx/buffer.lisp | 45 ++++++++++++++++++++++++++++++---------------
 1 file changed, 30 insertions(+), 15 deletions(-)

diff --git a/clx/buffer.lisp b/clx/buffer.lisp
index 377b0eeeb..361cfa20b 100644
--- a/clx/buffer.lisp
+++ b/clx/buffer.lisp
@@ -571,7 +571,8 @@
 (defun read-vector-card8 (reply-buffer nitems data start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (with-buffer-input (reply-buffer :sizes (8) :index index)
       (do* ((j start (index+ j 1))
@@ -584,7 +585,8 @@
 (defun read-vector-card8-with-transform (reply-buffer nitems data transform start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (card8) t) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -728,7 +730,8 @@
 (defun read-vector-card16 (reply-buffer nitems data start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (with-buffer-input (reply-buffer :sizes (16) :index index)
       #-clx-overlapping-arrays
@@ -744,7 +747,8 @@
 (defun read-vector-card16-with-transform (reply-buffer nitems data transform start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (card16) t) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -887,7 +891,8 @@
 (defun read-vector-card32 (reply-buffer nitems data start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (with-buffer-input (reply-buffer :sizes (32) :index index)
       #-clx-overlapping-arrays
@@ -903,7 +908,8 @@
 (defun read-vector-card32-with-transform (reply-buffer nitems data transform start index)
   (declare (type reply-buffer reply-buffer)
 	   (type array-index nitems start index)
-	   (type vector data))
+	   (type vector data)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (card32) t) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -1067,7 +1073,8 @@
 (defun write-vector-card8 (buffer boffset data start end)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (writing-buffer-chunks card8
 			   ((index start))
@@ -1227,7 +1234,8 @@
 (defun write-vector-card16 (buffer boffset data start end)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (writing-buffer-chunks card16
 			   ((index start))
@@ -1250,7 +1258,8 @@
 (defun write-vector-card16-with-transform (buffer boffset data start end transform)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (t) card16) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -1377,7 +1386,8 @@
 (defun write-vector-int16 (buffer boffset data start end)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (writing-buffer-chunks int16
 			   ((index start))
@@ -1400,7 +1410,8 @@
 (defun write-vector-int16-with-transform (buffer boffset data start end transform)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (t) int16) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -1527,7 +1538,8 @@
 (defun write-vector-card32 (buffer boffset data start end)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (writing-buffer-chunks card32
 			   ((index start))
@@ -1550,7 +1562,8 @@
 (defun write-vector-card32-with-transform (buffer boffset data start end transform)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (t) card32) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
@@ -1728,7 +1741,8 @@
 (defun write-vector-char2b (buffer boffset data start end)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (with-vector (data vector)
     (writing-buffer-chunks card16
 			   ((index start))
@@ -1743,7 +1757,8 @@
 (defun write-vector-char2b-with-transform (buffer boffset data start end transform)
   (declare (type buffer buffer)
 	   (type vector data)
-	   (type array-index boffset start end))
+	   (type array-index boffset start end)
+	   (optimize #+cmu(ext:inhibit-warnings 3)))
   (declare (type (function (t) card16) transform)
 	   #+clx-ansi-common-lisp
 	   (dynamic-extent transform)
-- 
GitLab