Muffle style warnings when generating methods in optimized serialization tests

diff --git a/tests/serialization-tests.lisp b/tests/serialization-tests.lisp
index 95d304fdf1befb9ea1e7de6fe14ab3c376f6bd48..aeb906e98889fbf1bba07049b4e8c4bca5cd04a7 100644 (file)
--- a/tests/serialization-tests.lisp
+++ b/tests/serialization-tests.lisp
@@ -156,9 +156,10 @@
 (define-test basic-optimized-serialization ()
   (dolist (class '(basic-test1 basic-test2 basic-test3 basic-test4 basic-test5 basic-test6))
     (let ((message (find-message *basic-test-schema* class)))
-      (eval (generate-object-size  message))
-      (eval (generate-serializer   message))
-      (eval (generate-deserializer message))))
+      (handler-bind ((style-warning #'muffle-warning))
+        (eval (generate-object-size  message))
+        (eval (generate-serializer   message))
+        (eval (generate-deserializer message)))))
   (let* ((test1  (make-instance 'basic-test1 :intval 150))
          (test1b (make-instance 'basic-test1 :intval -150))
          (test2  (make-instance 'basic-test2 :strval "testing"))