X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=1f9a12cda948d6533e291e58751b68e302ba12f0;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=eeeeec4898d7a80a0bcbb8105f141dd14fac6702;hpb=3a10f894e7867fa2c27a3af05380abc3247f728d;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index eeeeec4..1f9a12c 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -354,7 +354,7 @@
 (defun structure-slotd-writer-function (type slotd)
   (if (dsd-read-only slotd)
       (let ((dd (get-structure-dd type)))
-	(coerce (sb-kernel::slot-setter-lambda-form dd slotd) 'function))
+	(coerce (slot-setter-lambda-form dd slotd) 'function))
       (fdefinition `(setf ,(dsd-accessor-name slotd)))))
 
 (defun structure-slotd-type (slotd)