Subject: Re: bug#67568: Emacs master: Bug in byte compiler when there's an unused parameter.

From: Stefan Monnier <[email-masked]>
Date: Fri, 01 Dec 2023 10:40:55 -0500

> I have a candidate for the buggy function, namely macroexp-parse-body.

Duh!
I think the patch below should fix it.

        Stefan

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 6eb670d6dc1..6ed3e0c4896 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -540,7 +540,9 @@ macroexp-parse-body
       (while
           (and body
                (let ((e (car body)))
-                 (or (stringp e)
+                 (or (and (stringp e)
+                          ;; Only the first string can be a docstring.
+                          (not (delq nil (mapcar #'stringp decls))))
                      (memq (car-safe e)
                            '(:documentation declare interactive cl-declare)))))
         (push (pop body) decls)))