From c9f184b4378a0fd6a69aed7a9ca50dd733b07937 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 20 Apr 2024 11:17:39 -0400 Subject: [PATCH] (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) --- lisp/emacs-lisp/cl-print.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5