anchor.diff:        (maphash (lambda (k v)
                    (declare (ignore k))
                    (push (cons v :internal) symbols))
  -               (package-internal-symbols package)))
  +               (package-%internal-symbols package)))
       (when (member :external symbol-types)
         (maphash (lambda (k v)
                    (declare (ignore k))
                    (push (cons v :external) symbols))
  -               (package-external-symbols package)))
  +               (package-%external-symbols package)))
       (when (member :inherited symbol-types)
         (dolist (p (package-use-list package))
           (maphash (lambda (k v)
                      (declare (ignore k))
                      (push (cons v :inherited) symbols))
  -                 (package-external-symbols p))))
  +                 (package-%external-symbols p))))
       symbols))
   
   (defun make-package-iterator (package-list symbol-types)
  
positive.code:       (error "Package ~S is in use." package))
      ;; Remove the package from the use list.
      (dolist (other (package-use-list p))
        (setf (package-used-by-list other) (remove p (package-used-by-list other))))
      ;; Remove all symbols.
      (maphash (lambda (name symbol)
                 (when (eq (symbol-package symbol) package)
                   (setf (symbol-package symbol) nil)))
               (package-internal-symbols p))
      (maphash (lambda (name symbol)
                 (when (eq (symbol-package symbol) package)
                   (setf (symbol-package symbol) nil)))
               (package-external-symbols p))
      (setf (package-name p) nil)
      (setf *package-list* (remove p *package-list* :key 'cdr))
      t))
  
  
negative.code:       (case mode
  	(:external
  	 ;; Remove the symbol from the external symbols
  	 (remhash name (package-%external-symbols package))
  	 ;; And add to the internal-symbols list.
  	 (setf (gethash name (package-%internal-symbols package)) symbol))
  	((:internal :inherited))
  	(t
  	 (error "Cannot unexport unaccessable symbol ~S for package ~S." symbol package)))))
  