(cl-print-object): Fix indirect cause of bug#70436

* lisp/emacs-lisp/cl-print.el (cl-print-object): Fix specializer
for the byte-code case.

(cherry picked from commit 24ea3024ae241d1fc5fb3e05d584211070b73d5d)

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 5e5eee1da9e1612a5b436d369c045ccfe70ecc5e..39688661eb150a6fe513ee4deabda7d96f5f44e9 100644 (file)
--- a/lisp/emacs-lisp/cl-print.el
+++ b/lisp/emacs-lisp/cl-print.el
@@ -180,7 +180,7 @@ into a button whose action shows the function's disassembly.")
 ;; FIXME: Don't degenerate to `prin1' for the contents of char-tables
 ;; and records!
 
-(cl-defmethod cl-print-object ((object compiled-function) stream)
+(cl-defmethod cl-print-object ((object byte-code-function) stream)
   (unless stream (setq stream standard-output))
   ;; We use "#f(...)" rather than "#<...>" so that pp.el gives better results.
   (princ "#f(compiled-function " stream)