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

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


(defun bash-shadows (pkg)
  (setf (pkg-shadowing-symbols (find-package pkg)) nil))