+
+ ;; MNA: re-defconstant patch
+ (when (or (and (listp newval)
+ (or (null (list-length newval))
+ (not (tree-equal newval
+ (info :variable
+ :constant-value name)
+ :test #'equalp))))
+ (not (equalp newval (info :variable
+ :constant-value name))))