From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 8 Mar 2017 01:35:40 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-print.el (cl-print-object): Use #f(..) for functions.
X-Git-Tag: emacs-26.0.90~616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a6597660a405fe78885476f8761cab79167b4e1;p=emacs.git

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

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 7e886fba08a..b4a7be805a3 100644
--- a/lisp/emacs-lisp/cl-print.el
+++ b/lisp/emacs-lisp/cl-print.el
@@ -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)