Changeset 14162
- Timestamp:
- 10/03/12 21:28:11 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/defstruct.lisp
r14161 r14162 550 550 (equalp (aref old 7) (aref description 7)) 551 551 (equalp (aref old 8) (aref description 8)) 552 (equalp (aref old 12) (aref description 12)) 553 (equalp (aref old 13) (aref description 13))) 552 (every (lambda (x y) 553 (and (equalp (dsd-name x) (dsd-name y)) 554 (equalp (dsd-index x) (dsd-index y)) 555 (equalp (dsd-type x) (dsd-type y)))) 556 (append (aref old 12) (aref old 13)) 557 (append (aref description 12) 558 (aref description 13)))) 554 559 (error 'program-error 555 560 :format-control "Structure redefinition not supported ~
Note: See TracChangeset
for help on using the changeset viewer.