Get rid of the warning that vval isn't used in generate-object-size of type-aliased...

diff --git a/serialize.lisp b/serialize.lisp
index 1b573ededcad7c010e2800606a1f0e63b34bbc10..e324cbf479ab51324c40fab8d9b2b04a520cf974 100644 (file)
--- 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)