anchor.diff:      (dolist (name new-names)
         (push (cons name package) *package-list*))
       ;; Rename the package
  -    (setf (package-name package) new-name
  -          (package-nicknames package) new-nicknames))
  +    (setf (package-%name package) new-name
  +          (package-%nicknames package) new-nicknames))
     package)
   
   (defmacro do-external-symbols ((var &optional (package '*package*) result-form) &body body)
  
positive.code:   "The keyword package.")
  
  (defstruct (package
  	     (:constructor %make-package (name nicknames))
  	     (:predicate packagep))
    name
    nicknames
    use-list
    used-by-list
    internal-symbols
    external-symbols)
  
  (defun list-all-packages ()
    (remove-duplicates (mapcar 'cdr *package-list*)))
  
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))))
  
  