1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f74e48c4635..31d21fd8720 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2341,7 +2341,7 @@ list that represents a doc string reference.
                     (eq (car (car (cdr tail))) 'declare))
           (let ((declaration (car (cdr tail))))
             (setcdr tail (cdr (cdr tail)))
-            (princ `(if macro-declaration-function
+            (prin1 `(if macro-declaration-function
                         (funcall macro-declaration-function
                                  ',name ',declaration))
                    outbuffer)))))