1.0.17.4: support for dynamic-extent structures

[sbcl.git] / src / pcl / std-class.lisp

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index ef3f7e3..a82dc8c 100644 (file)
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -659,9 +659,7 @@
 (defun make-defstruct-allocation-function (class)
   ;; FIXME: Why don't we go class->layout->info == dd
   (let ((dd (find-defstruct-description (class-name class))))
-    (lambda ()
-      (sb-kernel::%make-instance-with-layout
-       (sb-kernel::compiler-layout-or-lose (dd-name dd))))))
+    (%make-structure-instance-allocator dd nil)))
 
 (defmethod shared-initialize :after
     ((class structure-class) slot-names &key