Changeset 14162

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:

• trunk/abcl/src/org/armedbear/lisp/defstruct.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

@@ -550 +550 @@
                (equalp (aref old 7) (aref description 7))
                (equalp (aref old 8) (aref description 8))
-               (equalp (aref old 12) (aref description 12))
-               (equalp (aref old 13) (aref description 13)))
+               (every (lambda (x y)
+                        (and (equalp (dsd-name x) (dsd-name y))
+                             (equalp (dsd-index x) (dsd-index y))
+                             (equalp (dsd-type x) (dsd-type y))))
+                      (append (aref old 12) (aref old 13))
+                      (append (aref description 12)
+                              (aref description 13))))
         (error 'program-error
                :format-control "Structure redefinition not supported ~