Changeset 15529


Ignore:
Timestamp:
Dec 11, 2012, 3:44:39 AM (7 years ago)
Author:
gb
Message:

Back out of last change.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r15528 r15529  
    10071007         (ignored (%ilogbitp $vbitignore bits))
    10081008         (ignoreunused (%ilogbitp $vbitignoreunused bits)))
    1009     (if (and special ignored)
    1010       (nx1-whine :special-ignore sym)
    1011       (if (or  reffed closed)
    1012         (progn
    1013           (if ignored (nx1-whine :ignore sym))
    1014           (nx-set-var-bits var (%ilogand (nx-check-downward-vcell var bits) (%ilognot (%ilsl $vbitignore 1)))))
    1015         (progn
    1016           (if (and setqed ignored) (nx1-whine :ignore sym))
    1017           (or ignored ignoreunused
    1018               (progn (and (consp expansion) (eq (car expansion) :symbol-macro) (setq sym (list :symbol-macro sym))) (nx1-whine :unused sym)))
    1019           (when (eql 0 (logior (nx-var-root-nrefs var) (nx-var-root-nsetqs var)))
    1020             (nx-set-var-bits var (%ilogior (%ilsl $vbitignore 1) bits))))))))
     1009    (if (or special reffed closed)
     1010      (progn
     1011        (if ignored (nx1-whine :ignore sym))
     1012        (nx-set-var-bits var (%ilogand (nx-check-downward-vcell var bits) (%ilognot (%ilsl $vbitignore 1)))))
     1013      (progn
     1014        (if (and setqed ignored) (nx1-whine :ignore sym))
     1015        (or ignored ignoreunused
     1016            (progn (and (consp expansion) (eq (car expansion) :symbol-macro) (setq sym (list :symbol-macro sym))) (nx1-whine :unused sym)))
     1017        (when (eql 0 (logior (nx-var-root-nrefs var) (nx-var-root-nsetqs var)))
     1018          (nx-set-var-bits var (%ilogior (%ilsl $vbitignore 1) bits)))))))
    10211019
    10221020; if an inherited var isn't setqed, it gets no vcell.  If it -is- setqed, but
Note: See TracChangeset for help on using the changeset viewer.