0.9.18.38:

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

diff --git a/src/pcl/fsc.lisp b/src/pcl/fsc.lisp
index 8313078..4d118a4 100644 (file)
--- a/src/pcl/fsc.lisp
+++ b/src/pcl/fsc.lisp
@@ -51,11 +51,11 @@
 
 (defmethod make-reader-method-function ((class funcallable-standard-class)
                                         slot-name)
-  (make-std-reader-method-function (class-name class) slot-name))
+  (make-std-reader-method-function class slot-name))
 
 (defmethod make-writer-method-function ((class funcallable-standard-class)
                                         slot-name)
-  (make-std-writer-method-function (class-name class) slot-name))
+  (make-std-writer-method-function class slot-name))
 
 ;;;; See the comment about reader-function--std and writer-function--sdt.
 ;;;;