Changeset 14162


Ignore:
Timestamp:
10/03/12 21:28:11 (9 years ago)
Author:
ehuelsmann
Message:

Fix PAIPROLOG and UNIFGRAM regressions

caused by stricter DEFSTRUCT redefinition checks.

File:
1 edited

Legend:

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

    r14161 r14162  
    550550               (equalp (aref old 7) (aref description 7))
    551551               (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))))
    554559        (error 'program-error
    555560               :format-control "Structure redefinition not supported ~
Note: See TracChangeset for help on using the changeset viewer.