anchor.diff:      (shadow-one-symbol symbol package))
     t)
   
  +(defun package-shortest-name (package)
  +  (let ((name (package-name package)))
  +    (dolist (nick (package-nicknames package))
  +      (when (< (length nick) (length name))
  +        (setf name nick)))
  +    name))
  +
   (defun initialize-package-system ()
     (write-line "Initializing package system.")
     ;; Create the core packages.
  
positive.code:     package))
  
  (defun find-symbol (string &optional (package *package*))
    (let ((p (find-package-or-die package)))
      (multiple-value-bind (sym present-p)
          (gethash string (package-internal-symbols p))
  
negative.code: 	(export-one-symbol symbols p)))
    t)
  
  (defun unintern (symbol &optional (package *package*))
    (check-type symbol symbol)
    (setf package (find-package-or-die package))
    (when (eql (symbol-package symbol) package)
      (setf (symbol-package symbol) nil))
    (multiple-value-bind (existing-internal-symbol internal-symbol-presentp)
        (gethash (symbol-name symbol) (package-internal-symbols package))
      (when (and internal-symbol-presentp (eql existing-internal-symbol symbol))
        (remhash (symbol-name symbol) (package-internal-symbols package))))
    (multiple-value-bind (existing-external-symbol external-symbol-presentp)
        (gethash (symbol-name symbol) (package-external-symbols package))
      (when (and external-symbol-presentp (eql existing-external-symbol symbol))
        (remhash (symbol-name symbol) (package-external-symbols package)))))
  
  ;; Function RENAME-PACKAGE
  ;; Function SHADOW
  ;; Function SHADOWING-IMPORT
  ;; Function DELETE-PACKAGE
  ;; Function UNEXPORT
  ;; Function UNUSE-PACKAGE
  ;; Function PACKAGE-SHADOWING-SYMBOLS
  ;; Condition Type PACKAGE-ERROR
  