[armedbear-cvs] r14129 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Aug 19 06:53:28 2012
New Revision: 14129

Log:
Follow up to r14128: if the descriptions are the same,
continue with the old one.

Modified:
   trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/defstruct.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/defstruct.lisp	Sun Aug 19 06:22:43 2012	(r14128)
+++ trunk/abcl/src/org/armedbear/lisp/defstruct.lisp	Sun Aug 19 06:53:28 2012	(r14129)
@@ -552,7 +552,9 @@
         (error 'program-error
                :format-control "Structure redefinition not supported ~
                               in DEFSTRUCT for ~A"
-               :format-arguments (list name))))
+               :format-arguments (list name)))
+      ;; Since they're the same, continue with the old one.
+      (setf description old))
     (setf (get name 'structure-definition) description))
   (%set-documentation name 'structure documentation)
   (when (or (null type) named)