Changeset 14161


Ignore:
Timestamp:
10/03/12 20:55:07 (9 years ago)
Author:
ehuelsmann
Message:

Fix CLICKR system load regressions

caused by stricter DEFSTRUCT redefinition checks.

File:
1 edited

Legend:

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

    r14129 r14161  
    546546               ;; when they are.
    547547               (string= (aref old 1) (aref description 1))
    548                (dotimes (index 13 t)
    549                  (when (not (equalp (aref old (+ 2 index))
    550                                     (aref description (+ 2 index))))
    551                    (return nil))))
     548               (equalp (aref old 5) (aref description 5))
     549               (equalp (aref old 6) (aref description 6))
     550               (equalp (aref old 7) (aref description 7))
     551               (equalp (aref old 8) (aref description 8))
     552               (equalp (aref old 12) (aref description 12))
     553               (equalp (aref old 13) (aref description 13)))
    552554        (error 'program-error
    553555               :format-control "Structure redefinition not supported ~
Note: See TracChangeset for help on using the changeset viewer.