diff --git a/clx/buffer.lisp b/clx/buffer.lisp index 377b0eeeb917681c817c701a458b78479416e45a..361cfa20be8a41a456864613958f61eba356631d 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)