Commit 0c672d93 authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Follow up to r14128: if the descriptions are the same,

continue with the old one.
parent 59744901
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment