X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=dbb96036b6faa253222d31fe5e4676338d84f235;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=ecaaa1a85b64bc2ca10896d790d06f54be1b728b;hpb=cfb9e3640e34706acdfccd26236024de259f3b4f;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index ecaaa1a..dbb9603 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -319,7 +319,7 @@
 	       (warn "preserving current definition of redefined function ~S"
 		     name)))
 	  (t
-	   (warn "~S is not a profiled function."))))
+	   (warn "~S is not a profiled function." name))))
   (values))
 
 (defmacro profile (&rest names)