Index: /trunk/source/lib/defstruct-lds.lisp
===================================================================
--- /trunk/source/lib/defstruct-lds.lisp	(revision 13787)
+++ /trunk/source/lib/defstruct-lds.lisp	(revision 13788)
@@ -249,6 +249,4 @@
        (remove-structure-defs  ',struct-name) ; lose any previous defs
         ,.(defstruct-slot-defs sd refnames env)
-        ,.(if constructor (list (defstruct-constructor sd constructor)))
-        ,.(defstruct-boa-constructors sd boa-constructors)
         ,.(if copier (defstruct-copier sd copier env))
         ,.(if predicate (defstruct-predicate sd named predicate env))
@@ -264,4 +262,6 @@
          ,.(if documentation (list documentation)))
         ,.(%defstruct-compile sd refnames env)
+        ,.(defstruct-boa-constructors sd boa-constructors)
+        ,.(if constructor (list (defstruct-constructor sd constructor)))
        ;; Wait until slot accessors are defined, to avoid
        ;; undefined function warnings in the print function/method.