1.0.42.49: fix (SETF DOCUMENTATION) for macros

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

diff --git a/src/pcl/documentation.lisp b/src/pcl/documentation.lisp
index d5d4eb2..7bc2e58 100644 (file)
--- a/src/pcl/documentation.lisp
+++ b/src/pcl/documentation.lisp
@@ -63,7 +63,8 @@
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'function)))
   (when (and (legal-fun-name-p x) (fboundp x))
-    (setf (documentation (symbol-function x) t) new-value)))
+    (setf (documentation (or (macro-function x) (symbol-function x)) t)
+          new-value)))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'compiler-macro)))
   (awhen (compiler-macro-function x)