Ignore:
Timestamp:
Dec 12, 2008, 6:15:09 PM (12 years ago)
Author:
gz
Message:

propagate r11502 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/sysutils.lisp

    r10942 r11514  
    537537            (unless override parent)
    538538            nil
    539             (if (or override (not parent))
    540               (make-hash-table :test #'eq)
    541               (deferred-warnings.defs parent))
     539            (make-hash-table :test #'eq)
    542540            flags))
    543541
     
    546544         (parent (deferred-warnings.parent current))
    547545         (warnings (deferred-warnings.warnings current))
     546         (defs (deferred-warnings.defs current))
    548547         (any nil)
    549548         (harsh nil))
    550549    (if parent
    551       (setf (deferred-warnings.warnings parent) (append warnings (deferred-warnings.warnings parent))
    552             parent t)
     550      (let ((parent-defs (deferred-warnings.defs parent))
     551            (parent-warnings (deferred-warnings.warnings parent)))
     552        (maphash (lambda (key val) (setf (gethash key parent-defs) val)) defs)
     553        (setf (deferred-warnings.warnings parent) (append warnings parent-warnings)
     554              parent t))
    553555      (let* ((file nil)
    554              (defs (deferred-warnings.defs current))
    555556             (init t))
    556557        (flet ((signal-warning (w)
Note: See TracChangeset for help on using the changeset viewer.