Changeset 14129

Timestamp:

08/19/12 13:53:28 (9 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/defstruct.lisp (modified) (1 diff)

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

@@ -553 +553 @@
                :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)