diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-20 11:17:39 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-04-20 11:17:39 -0400 |
| commit | 24ea3024ae241d1fc5fb3e05d584211070b73d5d (patch) | |
| tree | dc46dce5161ec7d9c158a3fa7a97353a4e994599 /lisp/emacs-lisp | |
| parent | 571fd42d48a0d99b7b210bd218836bd2f6ce2ccf (diff) | |
| download | emacs-24ea3024ae241d1fc5fb3e05d584211070b73d5d.tar.gz | |
(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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |