anchor.diff:        (case mode
   	(:external
   	 ;; Remove the symbol from the external symbols
  -	 (remhash name (package-external-symbols package))
  +	 (remhash name (package-%external-symbols package))
   	 ;; And add to the internal-symbols list.
  -	 (setf (gethash name (package-internal-symbols package)) symbol))
  +	 (setf (gethash name (package-%internal-symbols package)) symbol))
   	((:internal :inherited))
   	(t
   	 (error "Cannot unexport unaccessable symbol ~S for package ~S." symbol package)))))
  
positive.code:             (unintern other-symbol q))))))
    (import-one-symbol symbol package)
    ;; Remove from the internal-symbols list.
    (remhash (symbol-name symbol) (package-internal-symbols package))
    ;; And add to the external-symbols list.
    (setf (gethash (symbol-name symbol) (package-external-symbols package)) symbol))
  
  (defun export (symbols &optional (package *package*))
    (let ((p (find-package-or-die package)))
  
negative.code:              :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
                     (eql symbol existing-external-symbol))
          (multiple-value-bind (existing-internal-symbol internal-symbol-presentp)
              (gethash (symbol-name symbol) (package-%internal-symbols package))
            (unless (and internal-symbol-presentp
                         (eql symbol existing-internal-symbol))
              (setf (gethash (symbol-name symbol) (package-%internal-symbols package)) symbol)))))
      (unless (symbol-package symbol)
        (setf (symbol-package symbol) package))))
  
  