anchor.diff:  
   (defparameter *pseudonym-table*
     (make-weak-hash-table :test #'equal :weakness :key)
  -  "This is a global package-name-indexed hashtable holding name-pseudonym
  -plists.")
  +  "This is a global package-name-indexed hashtable holding name-pseudonym plists.")
   
   ;;; ========================================================================
   ;;; HELPER FUNCTIONS AND TYPES
  
positive.code: 
  (defun print-pseudonyms (&key (package (package-name *package*)))
    "This prints all pseudonyms in a fancy manner.
  Optional argument designates the package name, from inside which 
  pseudonyms should be printed."
    (check-type package string-designator)
    (let* ((string (string-downcase package))
  	 (table (gethash string *pseudonym-table*)))
  
negative.code: ;;; DEFINE/UNDEFINE FUNCTIONS
  
  (defun defpseudonym (raw-name raw-pseudonym &key (package (package-name *package*)))
    "This, given a package name and a pseudonym for it, allows you to use a local pseudonym in
  form $pseudonym:symbol instead of name:symbol within your code. This pseudonym is local to the
  package you called defpseudonym in (as shown by the global variable *PACKAGE*).
  
  Arguments must be a pair of non-empty non-equal string designators.
  An optional argument allows you to set a pseudonym for a different package.
  
  Pseudonyms are always converted to lowercase.
  
  This will signal an error whenever a nickname or pseudonym is already taken."
    (check-type raw-name string-designator)
    (check-type raw-pseudonym string-designator)
    (let* ((table (gethash (string-downcase package) *pseudonym-table*))
  