From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 Apr 2024 15:17:39 +0000 (-0400)
Subject: (cl-print-object): Fix indirect cause of bug#70436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9f184b4378a0fd6a69aed7a9ca50dd733b07937;p=emacs.git

(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 5e5eee1da9e..39688661eb1 100644
--- 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)