Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv10477/src/pcl
Modified Files:
documentation.lisp
Log Message:
1.0.42.49: fix (SETF DOCUMENTATION) for macros
Fixes lp#643958.
Patch Stas Boukarev, test-case by yours truly.
Nice and simple, so going in mid-freeze.
Index: documentation.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/documentation.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- documentation.lisp 25 Jun 2009 09:40:22 -0000 1.22
+++ documentation.lisp 21 Sep 2010 11:23:33 -0000 1.23
@@ -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)
|