X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fpcl%2Fdefs.lisp;h=674519e699de1b3e81ecf66335834dd6aefe3308;hb=8fe977ca5d0d068f2641dd06d3743a4c218d5cc1;hp=bf3dc71e8c3f5316e9c7992cea8e26e9698f33f9;hpb=112ae055f432f73b96efb4534b8e3aba9787fadd;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index bf3dc71..674519e 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -680,15 +680,9 @@
 (defclass condition-class (slot-class) ())
 
 (defclass structure-class (slot-class)
-  ((defstruct-form
-     :initform ()
-     :accessor class-defstruct-form)
-   (defstruct-constructor
-     :initform nil
-     :accessor class-defstruct-constructor)
-   (from-defclass-p
-    :initform nil
-    :initarg :from-defclass-p)))
+  ((defstruct-form :initform () :accessor class-defstruct-form)
+   (defstruct-constructor :initform nil :accessor class-defstruct-constructor)
+   (from-defclass-p :initform nil :initarg :from-defclass-p)))
 
 (defclass definition-source-mixin (standard-object)
   ((source