X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=d8ac2ec2980dbb0590174b5e3294f3bd631ee50d;hb=e2616df02fae589e0dd1e15fa7a7e44f1469d0ec;hp=03ac5663c600373da6feabe86393dfe151b05de3;hpb=31f072311935e32751508ecf824905c6b58a1d95;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 03ac566..d8ac2ec 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -467,7 +467,9 @@
     :accessor slot-definition-type)
    (documentation
     :initform nil
-    :initarg :documentation)
+    :initarg :documentation
+    ;; FIXME: should we export this, as an extension?
+    :accessor %slot-definition-documentation)
    (class
     :initform nil
     :initarg :class