X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fdefs.lisp;h=d8ac2ec2980dbb0590174b5e3294f3bd631ee50d;hb=9eec6e12fb6d22101631158dc1012276fd00facc;hp=e2240a13d57a6a61edb28173677261eddae236cf;hpb=15db88b169f732c8d339047bfad92e0725d7cacc;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index e2240a1..d8ac2ec 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -342,7 +342,7 @@
   ((name
     :initform nil
     :initarg :name
-    :accessor generic-function-name)
+    :reader generic-function-name)
    (methods
     :initform ()
     :accessor generic-function-methods
@@ -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
@@ -580,8 +582,8 @@
                  specializer)
   ((name
     :initform nil
-    :initarg  :name
-    :accessor class-name)
+    :initarg :name
+    :reader class-name)
    (class-eq-specializer
     :initform nil
     :reader class-eq-specializer)
@@ -676,8 +678,10 @@
     :initarg :from-defclass-p)))
 
 (defclass definition-source-mixin (standard-object)
-  ((source :initform *load-pathname* :reader definition-source
-           :initarg :definition-source)))
+  ((source
+    :initform nil
+    :reader definition-source
+    :initarg :definition-source)))
 
 (defclass plist-mixin (standard-object)
   ((plist :initform () :accessor object-plist)))