X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdocumentation.lisp;h=cb4c2a73ab733c42ea94f5e192eac9ffa7373012;hb=d25e3478acccec70402ff32554669a982be8e281;hp=d957392ef1882976aff36e7b5497a8c2ec3dda1a;hpb=c3c5e3bac6e4ca8e9d1c6960590d88e16254cfea;p=sbcl.git

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index d957392..cb4c2a7 100644
--- 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)