Don't generate compiler warnings for optimized serialization code

git-svn-id: http://svn.internal.itasoftware.com/svn/ita/branches/qres/swm/borgify-1/qres/lisp/quux/protobufs@540598 f8382938-511b-0410-9cdd-bb47b084005c

diff --git a/serialize.lisp b/serialize.lisp
index 764c0af4e2440bd55f71896d88fecdb224727ee2..22112c3c3d314ae3ca991ce82cb6a1c017544321 100644 (file)
--- a/serialize.lisp
+++ b/serialize.lisp
@@ -633,6 +633,7 @@
                             (collect-sizer
                              (if (eq class :bool)
                                `(let ((,vval ,reader))
+                                  (declare (ignorable ,vval))
                                   (iincf ,vsize (prim-size ,vval ,class ,tag)))
                                `(let ((,vval ,reader))
                                   (when ,vval

diff --git a/wire-format.lisp b/wire-format.lisp
index 1bd4954f4db8d599c19adcf0519ac14ff8e7c5f8..6b97b30b5aec24b60f9745fb369e0531980dd568 100644 (file)
--- a/wire-format.lisp
+++ b/wire-format.lisp
@@ -552,8 +552,7 @@
   (if (member type '(:int32 :uint32 :int64 :uint64 :sint32 :sint64
                      :fixed32 :sfixed32 :fixed64 :sfixed64
                      :float :double))
-    `(locally (declare (optimize (speed 3) (safety 0) (debug 0))
-                       (type (unsigned-byte 32) tag))
+    `(locally (declare (optimize (speed 3) (safety 0) (debug 0)))
        (let ((len (let ((len 0))
                     (declare (type fixnum len))
                     (dolist (val ,values len)
@@ -567,7 +566,7 @@
                                     ((:float) `4)
                                     ((:double) `8)))))))
          (declare (type (unsigned-byte 32) len))
-         (values (i+ (length32 ,tag) (length32 len) len) len)))
+         (values (i+ (length32 (the (unsigned-byte 32) ,tag)) (length32 len) len) len)))
     form))
 
 (defun enum-size (val values tag)