X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=20a3c03102b370c73999a93841f720301d726bf5;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=837ff7eee7ebe485984d90fcbe730bfdd13f906e;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 837ff7e..20a3c03 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -222,9 +222,7 @@
     (etypecase name
       (symbol (funcall function name))
       (list
-       ;; We call this just for the side effect of checking that
-       ;; NAME is a legal function name:
-       (fun-name-block-name name)
+       (legal-fun-name-or-type-error name)
        ;; Then we map onto it.
        (funcall function name))
       (string (let ((package (find-undeleted-package-or-lose name)))