mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/emacs-lisp/cl-print.el (cl-print-object): Fix specializer
for the byte-code case.
This commit is contained in:
Stefan Monnier 2024-04-20 11:17:39 -04:00
parent 571fd42d48
commit 24ea3024ae
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-print.el
View file

@ -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)