X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fpcl%2Fstd-class.lisp;h=41b439009d258a0f492023543ea53ea8642dbdfa;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=eaa7ad0095edf2e9644d7ba5f6a924519a4796df;hpb=79389fecc0308d1a582424b198ebfc402ce161e1;p=sbcl.git

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index eaa7ad0..41b4390 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -650,15 +650,8 @@
 (defun make-defstruct-allocation-function (class)
   (let ((dd (get-structure-dd (class-name class))))
     (lambda ()
-      (let ((instance (%make-instance (dd-length dd)))
-	    (raw-index (dd-raw-index dd)))
-	(setf (%instance-layout instance)
-	      (sb-kernel::compiler-layout-or-lose (dd-name dd)))
-	(when raw-index
-	  (setf (%instance-ref instance raw-index)
-		(make-array (dd-raw-length dd)
-			    :element-type '(unsigned-byte 32))))
-	instance))))
+      (sb-kernel::%make-instance-with-layout
+       (sb-kernel::compiler-layout-or-lose (dd-name dd))))))
 
 (defmethod shared-initialize :after
     ((class structure-class)