Changeset 14129


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

    r14128 r14129  
    553553               :format-control "Structure redefinition not supported ~
    554554                              in DEFSTRUCT for ~A"
    555                :format-arguments (list name))))
     555               :format-arguments (list name)))
     556      ;; Since they're the same, continue with the old one.
     557      (setf description old))
    556558    (setf (get name 'structure-definition) description))
    557559  (%set-documentation name 'structure documentation)
Note: See TracChangeset for help on using the changeset viewer.