anchor.diff:          (when (string= name "READTABLE-CASE")
             (format t "Importing into ~S~%" (package-name p)))
   	(import (list symbol) p)
  -	(when (string= (package-name p) "KEYWORD")
  +	(when (eql p *keyword-package*)
   	  ;; TODO: Constantness.
             (proclaim `(constant ,symbol))
   	  (setf (symbol-value symbol) symbol)
  
positive.code:       (error "No package named ~S." name)))
  
  (defun use-one-package (package-to-use package)
    (when (string= (package-name package-to-use) "KEYWORD")
      (error "Cannot use the KEYWORD package."))
    (pushnew package-to-use (package-use-list package))
    (pushnew package (package-used-by-list package-to-use)))
  
negative.code: ;;; Create the core packages when the file is first loaded.
  ;;; *PACKAGE* is set to system.internals initially.
  (unless *package-list*
    (setf *keyword-package* (make-package "KEYWORD"))
    (make-package "COMMON-LISP" :nicknames '("CL"))
    (make-package "SYSTEM" :nicknames '("SYS") :use '("CL"))
    (make-package "SYSTEM.INTERNALS" :nicknames '("SYS.INT") :use '("CL" "SYS"))
  