anchor.diff:  
   (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."
  +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*)))
  
positive.code: (deftype string-designator () '(or string symbol character))
  
  (defun string=-getf (plist indicator)
    "This is a version of getf utilizing string= for comparison.
  Given a plist and a key, returns a value."
    (loop for key in plist by #'cddr
       for value in (rest plist) by #'cddr
       when (string= key indicator)
       return value))
  
  (defun string=-getf-key (plist indicator)
    "This is a version of getf utilizing string= for comparison.
  Given a plist and a value, returns a key."
    (loop for key in plist by #'cddr
       for value in (rest plist) by #'cddr
       when (string= value indicator)
  
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*))
  