;;; -*- Mode:LISP; Package:LISP-INTERNALS -*-

(defun all-shadowing-symbols ()
  (let (shadows)
    (dolist (p *all-packages*)
      (push (package-shadowing-symbols p) shadows))
    shadows))