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

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index e2240a1..5f943e4 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
@@ -580,8 +580,8 @@
                  specializer)
   ((name
     :initform nil
-    :initarg  :name
-    :accessor class-name)
+    :initarg :name
+    :reader class-name)
    (class-eq-specializer
     :initform nil
     :reader class-eq-specializer)