X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdocumentation.lisp;h=e992894e72770e39f9c927a9e83d6c5bde8e3373;hb=d94c1b4a8c534bde146823f56558faf37cd4c4d7;hp=a625221c682ec3ca545c0e1db70cab93b05d5d5b;hpb=ce2a580a469d285e7054ada13ef456e3dad08a34;p=sbcl.git

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index a625221..e992894 100644
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -40,7 +40,10 @@
     (or (random-documentation x 'function)
         ;; Nothing under the name, check the function object.
         (when (fboundp x)
-          (fun-doc (or (macro-function x) (fdefinition x)))))))
+          (fun-doc (if (special-operator-p x)
+                       (fdefinition x)
+                       (or (macro-function x)
+                           (fdefinition x))))))))
 
 (defmethod documentation ((x symbol) (doc-type (eql 'compiler-macro)))
   (awhen (compiler-macro-function x)