50 |
(return-from fail nil)) |
(return-from fail nil)) |
51 |
(multiple-value-bind (sym2 access2) |
(multiple-value-bind (sym2 access2) |
52 |
(find-symbol (symbol-name sym) pkg) |
(find-symbol (symbol-name sym) pkg) |
53 |
(unless (or (eq sym sym2) |
(unless (or (eqt sym sym2) |
54 |
(member sym2 (PACKAGE-SHADOWING-SYMBOLS pkg))) |
(member sym2 (PACKAGE-SHADOWING-SYMBOLS pkg))) |
55 |
(unless (> fail-count +fail-count-limit+) |
(unless (> fail-count +fail-count-limit+) |
56 |
(format t "Not same symbol: ~S ~S~%" sym sym2)) |
(format t "Not same symbol: ~S ~S~%" sym sym2)) |
58 |
(format t "Further messages suppressed~%")) |
(format t "Further messages suppressed~%")) |
59 |
(incf fail-count) |
(incf fail-count) |
60 |
(return-from fail nil)) |
(return-from fail nil)) |
61 |
(unless (eq access access2) |
(unless (eqt access access2) |
62 |
(unless (> fail-count +fail-count-limit+) |
(unless (> fail-count +fail-count-limit+) |
63 |
(format t "Not same access type: ~S ~S ~S~%" |
(format t "Not same access type: ~S ~S ~S~%" |
64 |
sym access access2)) |
sym access access2)) |
74 |
(do-symbols (sym p) |
(do-symbols (sym p) |
75 |
(multiple-value-bind (sym2 access) |
(multiple-value-bind (sym2 access) |
76 |
(find-symbol (symbol-name sym) p) |
(find-symbol (symbol-name sym) p) |
77 |
(unless (eq sym sym2) |
(unless (eqt sym sym2) |
78 |
(unless (> fail-count +fail-count-limit+) |
(unless (> fail-count +fail-count-limit+) |
79 |
(format t "Not same symbol (2): ~S ~S~%" |
(format t "Not same symbol (2): ~S ~S~%" |
80 |
sym sym2)) |
sym sym2)) |