Changeset 15529
 Timestamp:
 Dec 11, 2012, 3:44:39 AM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/nx0.lisp
r15528 r15529 1007 1007 (ignored (%ilogbitp $vbitignore bits)) 1008 1008 (ignoreunused (%ilogbitp $vbitignoreunused bits))) 1009 (if (and special ignored) 1010 (nx1whine :specialignore sym) 1011 (if (or reffed closed) 1012 (progn 1013 (if ignored (nx1whine :ignore sym)) 1014 (nxsetvarbits var (%ilogand (nxcheckdownwardvcell var bits) (%ilognot (%ilsl $vbitignore 1))))) 1015 (progn 1016 (if (and setqed ignored) (nx1whine :ignore sym)) 1017 (or ignored ignoreunused 1018 (progn (and (consp expansion) (eq (car expansion) :symbolmacro) (setq sym (list :symbolmacro sym))) (nx1whine :unused sym))) 1019 (when (eql 0 (logior (nxvarrootnrefs var) (nxvarrootnsetqs var))) 1020 (nxsetvarbits var (%ilogior (%ilsl $vbitignore 1) bits)))))))) 1009 (if (or special reffed closed) 1010 (progn 1011 (if ignored (nx1whine :ignore sym)) 1012 (nxsetvarbits var (%ilogand (nxcheckdownwardvcell var bits) (%ilognot (%ilsl $vbitignore 1))))) 1013 (progn 1014 (if (and setqed ignored) (nx1whine :ignore sym)) 1015 (or ignored ignoreunused 1016 (progn (and (consp expansion) (eq (car expansion) :symbolmacro) (setq sym (list :symbolmacro sym))) (nx1whine :unused sym))) 1017 (when (eql 0 (logior (nxvarrootnrefs var) (nxvarrootnsetqs var))) 1018 (nxsetvarbits var (%ilogior (%ilsl $vbitignore 1) bits))))))) 1021 1019 1022 1020 ; 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.