anchor.diff:  ;;; Create the core packages when the file is first loaded.
   ;;; *PACKAGE* is set to system.internals initially.
   (unless *package-list*
  -  (make-package "KEYWORD")
  +  (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"))
  
positive.code: 
  (defvar *package-list* '()
    "The package registry.")
  
  (defstruct (package
  	     (:constructor %make-package (name nicknames))
  
negative.code:         (when (string= name "READTABLE-CASE")
            (format t "Importing into ~S~%" (package-name p)))
  	(import (list symbol) p)
  	(when (eql p *keyword-package*)
  	  ;; TODO: Constantness.
            (proclaim `(constant ,symbol))
  	  (setf (symbol-value symbol) symbol)
  