From 18d55240db92d479145c3aeac788ee92d43b0ee3 Mon Sep 17 00:00:00 2001
From: Shaun Morris <shaunm@google.com>
Date: Mon, 19 Nov 2012 13:41:36 -0800
Subject: [PATCH] Get rid of the warning that vval isn't used in
 generate-object-size of type-aliased bools.

---
 serialize.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/serialize.lisp b/serialize.lisp
index 1b573ed..e324cbf 100644
--- a/serialize.lisp
+++ b/serialize.lisp
@@ -1011,8 +1011,9 @@
                                   (tag   (make-tag class index)))
                              `(let ((,vval ,reader))
                                 (when ,vval
-                                  (let ((,vval (funcall #',(proto-serializer msg) ,vval)))
-                                    (iincf ,vsize (prim-size ,vval ,class ,tag))))))))))))))
+                                  (iincf ,vsize (prim-size
+                                                 (funcall #',(proto-serializer msg) ,vval)
+                                                 ,class ,tag)))))))))))))
       `(defmethod object-size
            (,vobj (,vclass (eql ,message)) &optional visited)
          (declare #.$optimize-serialization)
-- 
2.45.2