1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T

[sbcl.git] / src / pcl / documentation.lisp

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index d957392..cb4c2a7 100644 (file)
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -60,7 +60,7 @@
            new-value))
     (function
      (let ((name (%fun-name x)))
-       (when (and name (typep name '(or symbol cons)))
+       (when (valid-function-name-p name)
          (setf (info :function :documentation name) new-value)))))
   new-value)