X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=584e709c58adb14827303f818c28344aed6292da;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=b937104ca05d5c13400d90e2032ce1023681e9e3;hpb=f5133ab2ffcddbcdb330cbbceff3af8d66673ce8;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index b937104..584e709 100644
--- 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)