mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-print.el (cl-print-object): Use #f(..) for functions.

Browse source
This commit is contained in:
Stefan Monnier 2017-03-07 20:35:40 -05:00
parent a65236214d
commit 1a6597660a
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -75,9 +75,10 @@ call other entry points instead, such as `cl-prin1'."
(princ "]" stream))
(cl-defmethod cl-print-object ((object compiled-function) stream)
(princ "#<compiled-function " stream)
;; We use "#f(...)" rather than "#<...>" so that pp.el gives better results.
(princ "#f(compiled-function " stream)
(prin1 (help-function-arglist object 'preserve-names) stream)
(princ " #<bytecode> >" stream))
(princ " #<bytecode>)" stream))
;; This belongs in nadvice.el, of course, but some load-ordering issues make it
;; complicated: cl-generic uses macros from cl-macs and cl-macs uses advice-add
@ -87,7 +88,7 @@ call other entry points instead, such as `cl-prin1'."
((object compiled-function) stream)
(if (not (advice--p object))
(cl-call-next-method)
(princ "#<advice-wrapper " stream)
(princ "#f(advice-wrapper " stream)
(when (fboundp 'advice--where)
(princ (advice--where object) stream)
(princ " " stream))
@ -98,7 +99,7 @@ call other entry points instead, such as `cl-prin1'."
(when props
(princ " " stream)
(cl-print-object props stream)))
(princ ">" stream)))
(princ ")" stream)))
(cl-defmethod cl-print-object ((object cl-structure-object) stream)
(princ "#s(" stream)