anchor.diff:  	       (not (eq existing-symbol symbol)))
         (ecase existing-mode
   	(:inherited
  -	 ;; TODO: Restarts shadow-symbol and don't import.
  -	 (error "Newly imported symbol ~S conflicts with inherited symbol ~S." symbol existing-symbol))
  +         (restart-case
  +             (error "Newly imported symbol ~S conflicts with inherited symbol ~S." symbol existing-symbol)
  +           (shadow-symbol ()
  +             :report "Replace the inherited symbol."
  +             (shadow (list symbol) package))
  +           (dont-import ()
  +             :report "Leave the existing inherited symbol."
  +             (return-from import-one-symbol))))
   	((:internal :external)
  -	 ;; TODO: Restarts unintern-old-symbol and don't import.
  -	 (error "Newly imported symbol ~S conflicts with present symbol ~S." symbol existing-symbol))))
  +         (restart-case
  +             (error "Newly imported symbol ~S conflicts with present symbol ~S." symbol existing-symbol)
  +           (unintern-old-symbol ()
  +             :report "Unintern and replace the old symbol."
  +             (unintern symbol package))
  +           (dont-import ()
  +             :report "Leave the existing inherited symbol."
  +             (return-from import-one-symbol))))))
       (multiple-value-bind (existing-external-symbol external-symbol-presentp)
           (gethash (symbol-name symbol) (package-external-symbols package))
         (unless (and external-symbol-presentp
  
positive.code: 	(find-symbol (symbol-name symbol) q)
        (when (and (not (eq symbol other-symbol))
  		 status)
  	;; TODO: Restart replace-symbol.
  	(error "Newly exported symbol ~S conflicts with symbol ~S in package ~S." symbol other-symbol q))))
    (import-one-symbol symbol package)
    ;; Remove from the internal-symbols list.
    (remhash (symbol-name symbol) (package-internal-symbols package))
  
negative.code:     (use-package use-list p)
      (import import-list p)
      (dolist (s intern-list)
        (intern (string s) p))
      (dolist (s shadow-list)
        (shadow-one-symbol (string s) p))
      (dolist (s export-list)
  