X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fenv.lisp;h=0a63836cffa14683b692efcfde14a929fafea2d5;hb=8cd045dfd24638b1958f1507f944f249d2d2ccde;hp=eba61b262712614c385197d366c118cb02ab8b82;hpb=36a379d746b9eb74ba8c5afff40dc5dcb9f4557a;p=sbcl.git

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index eba61b2..0a63836 100644
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -170,7 +170,9 @@
                 (let ((value (slot-value-using-class class object slot)))
                   (if (typep object 'structure-object)
                       ;; low-level but less noisy initializer form
-                      (let* ((dd (get-structure-dd (class-name class)))
+                      ;; FIXME: why not go class->layout->info == dd?
+                      (let* ((dd (find-defstruct-description
+                                  (class-name class)))
                              (dsd (find slot-name (dd-slots dd)
                                         :key #'dsd-name)))
                         (inits `(,(slot-setter-lambda-form dd dsd)