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

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index 7dd07e4..cb4c2a7 100644
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -47,6 +47,9 @@
 (defmethod documentation ((x symbol) (doc-type (eql 'setf)))
   (values (info :setf :documentation x)))
 
+(defmethod documentation ((x symbol) (doc-type (eql 'optimize)))
+  (random-documentation x 'optimize))
+
 (defun (setf fun-doc) (new-value x)
   (etypecase x
     (generic-function
@@ -57,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)