X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffsc.lisp;h=4d118a414bd486ef20369004b174fb83c41fc06e;hb=4f8f4b25cb564509437d8fc26038143150077f14;hp=83130783b8443097bb16a6e19b37d62f598d9fee;hpb=6049dd2bf3dfe37080a30a4a751076c1254030bd;p=sbcl.git

diff --git a/src/pcl/fsc.lisp b/src/pcl/fsc.lisp
index 8313078..4d118a4 100644
--- 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.
 ;;;;