indent `with-output-to-string' as a CL

macro, not ELisp one.

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 6aa41252eccb3fee311a3b8b5f6d45527c4743eb..d038a6228a7088bd30a73505f3dd480c662ad6e5 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -438,6 +438,7 @@ by `lisp-body-indent'."
           (unless 1)
           (unwind-protect (5 &body))
            (when 1)
+           (with-output-to-string (4 2))
            (with-standard-io-syntax (2)))))
   (while l
     (put (caar l) 'common-lisp-indent-function