0.6.10:
[sbcl.git] / src / code / profile.lisp
index ecaaa1a..dbb9603 100644 (file)
               (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)