X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fstd-class.lisp;h=19377bb4255f8ed472bf3647e718180a67d4263e;hb=5cd15f4133804a16c5d367556da160144e741852;hp=fc53ebd30d335b1201f69eeaad13ec5fe8ae6e98;hpb=9ce24dc604859d2670a989da2a9015b67c37e00f;p=sbcl.git

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index fc53ebd..19377bb 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -693,7 +693,7 @@
             (unless (structure-type-p name) (eval defstruct-form))
             (mapc (lambda (dslotd reader-name writer-name)
                     (let* ((reader (gdefinition reader-name))
-                           (writer (when (gboundp writer-name)
+                           (writer (when (fboundp writer-name)
                                      (gdefinition writer-name))))
                       (setf (slot-value dslotd 'internal-reader-function)
                             reader)