Changeset 14129
- Timestamp:
- 08/19/12 13:53:28 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/defstruct.lisp
r14128 r14129 553 553 :format-control "Structure redefinition not supported ~ 554 554 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)) 556 558 (setf (get name 'structure-definition) description)) 557 559 (%set-documentation name 'structure documentation)
Note: See TracChangeset
for help on using the changeset viewer.