X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=338c09a991ce59d85dc801d306260a0120465093;hb=da8cb4801a3ab35070f380e22aea3d260f9df8aa;hp=455969729b2bb476bf0917712c52084f466eea68;hpb=3b6e07c0fcb050fa86c7c42db33f49107e3097e6;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 4559697..338c09a 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1034,6 +1034,7 @@
       (let* ((accessor-name (dsd-accessor-name dsd))
              (dsd-type (dsd-type dsd)))
         (when accessor-name
+          (setf (info :function :structure-accessor accessor-name) dd)
           (let ((inherited (accessor-inherited-data accessor-name dd)))
             (cond
               ((not inherited)