0.7.9.47:

[sbcl.git] / src / code / describe.lisp

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index b937104..584e709 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -185,7 +185,7 @@
     (:function (if name
                   (format s "Function: ~S" x)
                   (format s "~S is a function." x))))
-  (format s "~@:_Its associated name (as in ~S) is ~S."
+  (format s "~@:_~@<Its associated name (as in ~S) is ~2I~_~S.~:>"
          'function-lambda-expression
          (%fun-name x))
   (case (widetag-of x)